Quiero ayudaPublicado por Juan Carlos (1 intervención) el 10/04/2002 15:48:03Quiero que me ayuden realizar una clave encriptada en un sistema de visual fox proValora esta pregunta0Responder
RE:Quiero ayudaPublicado por Ahmed (129 intervenciones) el 10/04/2002 16:54:39cad1='abcdefghi....z' && cadena de caracteres cad2'!"#$%&/()......>' && cadena que reemplaza a los caracteres * cad1 y cad2 deben tener la misma cantidad de caracteres clave_encrip = transform(cad_a_transformar,cad1,cad2) suerteValora esta respuesta0Comentar
RE:Quiero ayudaPublicado por Edwind (1 intervención) el 10/04/2002 19:50:57Yo lo que hago es utilizar BITXOR..... Creo un metodo dentro de un formulario al cual llamo: XCRYPT y ahí coloco: parameters tcText local lnValue, lnKey lnKey = 9 for j = 1 to len(tcText) lnValue = bitxor(asc(substr(tcText,j,1)),lnKey) next creo una tabla donde guardare las claves; y leo en un textbox la clave; en el keypress de este textbox ejecuto lo siguiente: If ! empty(This.value) If upper(Thisform.XCrypt(upper(alltrim(password)))) == upper(alltrim(This.value)) Release Thisform * Next Form Endif Endif Adaptalo atus necesidades .....espero que te sirva.Valora esta respuesta0Comentar