FoxPro/Visual FoxPro - Rutina de Encriptacion...

 
Vista:

Rutina de Encriptacion...

Publicado por Antonio Vazquez Morales (175 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

Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder