RE: encriptamiento en visual fox pro
Function ClvEnc
Para Codi,hago
hago = encripta o desncriptar
codi = valor a encritar o desncritar
Do case
Case hago = 1 && encripta
entrega_x = ""
DIMENSION CRIP(LEN(codi))
FOR i = 1 TO LEN(codi)
crip(i) = ASC(SUBSTR(codi,i,1)) && entrega
ENDFOR
FOR i = 1 TO LEN(codi)
crip(i) = crip(i) + 2 && al ASC le suma dos
ENDFOR
j = LEN(codi)
FOR i = 1 TO LEN(codi)
entrega_x = entrega_x + CHR(crip(j))
j=j-1
ENDFOR
Return entrega_x
Case Hago = 2 && Desencripta
DIMENSION CRIP(LEN(codi))
entrega_x = ""
codi = ALLTRIM(codi)
FOR i = 1 TO len(codi)
crip(i) = ASC(SUBSTR(codi,i,1)) && entrega
NEXT
FOR i = 1 TO len(codi)
crip(i) = crip(i) - 2
NEXT
j = len(codi)
FOR i = 1 TO len(codi)
entrega_x = entrega_x + CHR(crip(j))
j=j-1
NEXT
Return entrega_x
EndCase
Espero te sirva
