Criptografia de senha de banco de dados

Veremos agora uma excelente função de criptografia. Muito utilizado para criptografar senha de banco de dados.

function Criptografar(Mstr, Mchave, Moperacao: String): String;
var
i, iTamanhoString, iPos, IPosLetra, iTamanhoChave: Integer;
begin
Result := Mstr;
iTamanhoString := Length(Mstr);
iTamanhoChave := Length(Mchave);
for i := 1 to iTamanhoString do
begin
iPos := (i mod iTamanhoChave);
if iPos = 0 then iPos := iTamanhoChave; iPos := iPos + 7;
if Moperacao = 'DESCRIPTOGRAFAR' then iPosLetra := Ord(Result[i]) + iPos
else iPosLetra := Ord(Result[i]) - iPos;
Result[i] := Chr(iPosLetra);
end;
end;