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
Valora esta respuesta
0
Comentar
RE: encriptamiento en visual
Publicado por maribel (1 intervención) el 29/01/2007 01:20:07