Veja essa rotina:
{ROTINA DE CRIPTOGRAFIA}
function TFrmCadUsuario.Criptografia(mStr, mChave, mOperacao :
String):String;
var
Contador : ShortInt;
TamanhoString : ShortInt;
Posicao : ShortInt;
PosLetra : ShortInt;
TamanhoChave : ShortInt;
begin
Result := mStr;
Senhas geralmente sao criptografadas usando MD5, um algoritmo que nao pode
ser descriptografado. Ai vc pode me perguntar: como posso entao comparar as
senhas se nao posso descriptgrafar? Basta criptografar a senha fornecida e
comparar com a senha criptografada da tabela de usuarios. Deve ter um
pun
2 matches
Mail list logo
