Criptografia de senha

Qual o BD?
MMTOOR2003

Esta função é bastante simples e muito útil ela serve para encriptar e desencriptar strings, espero que possa resolver seu problema.

Function Encriptar(StrValue : String; Chave: Word) : String;
var
I : Integer;
OutValue : String;

begin

OutValue := ´´;

For I := 1 to Length(StrValue) Do
OutValue := OutValue + char(Not(ord(StrValue[I])-Chave));

Result := OutValue;

end;