06/12/2004, 22:58
|
 | | | Fecha de Ingreso: junio-2004 Ubicación: Costa Rica
Mensajes: 11
Antigüedad: 20 años, 7 meses Puntos: 0 | |
 ¿?
Yo utilice uno en visual fox pro 7, talves te sirva
PROCEDURE encriptar
PARAMETERS clave
largo = len(alltrim(clave))
frase = alltrim(clave)
nueva_frase = ""
i = 0
for i = 1 to largo
nueva_frase = nueva_frase + chr(asc(substr(frase,i,1)) * 2)
endfor
Return nueva_frase
ENDPROC |