Encriptar
Hola quisiera saber como puedo encriptar la clave estoy trabajando con power builder 9.0 y con sql server 2005
1 respuesta
Respuesta de achafio
1
Creas una función con el nombre gf_encry(String pass) returns string
Y poner el siguiente código
integer li_cont,li_operador
string encry,ls_temp
for li_cont = 1 to len(pass)
ls_temp=mid(pass,li_cont,1)
li_operador=asc(ls_temp) - 32 + 12
encry = encry + char(li_operador)
next
return(encry)
Y para poder llamarlo, solo deberá hacer lo siguiente:
ls_codigo = gf_encry(sle_codigo.text)
Y poner el siguiente código
integer li_cont,li_operador
string encry,ls_temp
for li_cont = 1 to len(pass)
ls_temp=mid(pass,li_cont,1)
li_operador=asc(ls_temp) - 32 + 12
encry = encry + char(li_operador)
next
return(encry)
Y para poder llamarlo, solo deberá hacer lo siguiente:
ls_codigo = gf_encry(sle_codigo.text)
