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
Comentarios sobre la versión: Versión 1 (14)
Mejor aún si la tabla se incluye en el ejecutable y se utiliza para verificar una llave privada.
pero realmente es muy sencilla y facil de descifrar.
además, no la he probado, pero me parece que tiene errores. Si el ASC()
es por ejemplo 254, al sumarle 2 dará un error.
La idea es buena, es cuestion de tomarla como punto de partida y recrear a nuestro estilo lo que querramos.
Que ganas tienes de tirar abajo las ideas de los demas.