RE:Encriptar
Publicado por
david (1 intervención) el 21/10/2006 22:57:46
esta lo encontre en esta misma web. no lo he probado, espero te sirva..
Function Codi
*Encripta
Parameters string_x
entrega_x = ""
DIMENSION CRIP(LEN(string_x))
FOR i = 1 TO LEN(string_x)
crip(i) = ASC(SUBSTR(string_x,i,1)) && entrega
numero
ENDFOR
*
FOR i = 1 TO LEN(string_x)
crip(i) = crip(i) + 2 && al ASC le suma dos
ENDFOR
*
j = LEN(string_x)
FOR i = 1 TO LEN(string_x)
entrega_x = entrega_x + CHR(crip(j))
j=j-1
ENDFOR
Return entrega_x
****************************
FUNCTION DECOD
*desencripta
Parameters string_x
DIMENSION CRIP(LEN(string_x))
entrega_x = ""
string_x = ALLTRIM(string_x)
FOR i = 1 TO len(string_x)
crip(i) = ASC(SUBSTR(string_x,i,1)) && entrega
numero
NEXT
*
FOR i = 1 TO len(string_x)
crip(i) = crip(i) - 2
NEXT
*
j = len(string_x)
FOR i = 1 TO len(string_x)
entrega_x = entrega_x + CHR(crip(j))
j=j-1
NEXT
Return entrega_x