Rutina de Encriptacion...
Publicado por Antonio Vazquez Morales (173 intervenciones) el 30/04/2001 22:02:22
Que tal a todos:
La semana pasada algunos colegas preguntaron un metodo de encripacion para VFP.
Tengo una rutina que recibe un cadena normal (Pueder ser un nombre, una contraseña, etc...) y que es encriptada gracias a una funcion que intregra VFP 6.0: "ENCR" (No se hasta que version pasada la tenga) y a continuacion expongo el codigo para aquellos que se interesen. La rutina se puede mejorar...
Procedure Encrip
Parameter Cadena
lc = len(cadena)
ncampo = allt(cadena)
campoe=''
dimen encr(lc)
for i = 1 to lc
if asc(subs(ncampo,i,1)) = 255
encr(i) = subs(ncampo,i,1)
else
encr(i) = chr(asc(subs(ncampo,i,1))+1)
endif
endfor
campoe = encr(1)
for j = 2 to lc
campoe = campoe + encr(j)
endfor
Return campoe
La semana pasada algunos colegas preguntaron un metodo de encripacion para VFP.
Tengo una rutina que recibe un cadena normal (Pueder ser un nombre, una contraseña, etc...) y que es encriptada gracias a una funcion que intregra VFP 6.0: "ENCR" (No se hasta que version pasada la tenga) y a continuacion expongo el codigo para aquellos que se interesen. La rutina se puede mejorar...
Procedure Encrip
Parameter Cadena
lc = len(cadena)
ncampo = allt(cadena)
campoe=''
dimen encr(lc)
for i = 1 to lc
if asc(subs(ncampo,i,1)) = 255
encr(i) = subs(ncampo,i,1)
else
encr(i) = chr(asc(subs(ncampo,i,1))+1)
endif
endfor
campoe = encr(1)
for j = 2 to lc
campoe = campoe + encr(j)
endfor
Return campoe
Valora esta pregunta
0