Encriptación de clave
Quiero saber como puedo encriptar una clave en PowerBuilder. La version que tengo es la 10.0
Mi correo:
rafael.perez@pme.minhac.es
Mi correo:
rafael.perez@pme.minhac.es
1 Respuesta
Respuesta de carloscharly
1
Create una funcion llamada f_ecnriptar con un argumento de tipo string y que retorne un string
string ls_cad1, ls_cad2, ls_letra, ls_cadena = ''
integer i,j
ls_cad1 = '>`!|/<_\*+{}[]@#$%^&()?,.;ABCDEFGHIJK¿'
ls_cad2 = 'ABCDEFGHIJKLMNÑOPQRSTUVWXYZ1234567890_'
FOR i = 1 TO Len (Trim (as_pass))
ls_letra = Mid (as_pass, i, 1)
j = 1
DO WHILE ls_letra <> Mid (ls_cad2, j, 1) and j <= len (ls_cad2)
j ++
LOOP
ls_cadena += Mid (ls_cad1, j, 1)
NEXT
Return ls_cadena
Y listo esos caracteres los guardas nada más
string ls_cad1, ls_cad2, ls_letra, ls_cadena = ''
integer i,j
ls_cad1 = '>`!|/<_\*+{}[]@#$%^&()?,.;ABCDEFGHIJK¿'
ls_cad2 = 'ABCDEFGHIJKLMNÑOPQRSTUVWXYZ1234567890_'
FOR i = 1 TO Len (Trim (as_pass))
ls_letra = Mid (as_pass, i, 1)
j = 1
DO WHILE ls_letra <> Mid (ls_cad2, j, 1) and j <= len (ls_cad2)
j ++
LOOP
ls_cadena += Mid (ls_cad1, j, 1)
NEXT
Return ls_cadena
Y listo esos caracteres los guardas nada más
