Encriptar texto con Delphi

Saludos amigos aqui dejo un codigo de encriptacion basado en arreglos, nos sive para entnder como funciona y luego poder implementar algo de acuerdo a nuestra necesidad, hay muchas funciones que relizan esta labor como lo son XorEncode/XorDecode, RSA o MD claro esta para utilizar algunos de estos es necesario que incluyas sus librerias en tu proyecto.

function TControl_Acceso.encriptar(c:string):string;
var
i,j,tam:integer;
s:string;
ch:char;
begin
tam:=length(c);

ch:=c[1];
c[1]:=c[tam];
c[tam]:=ch;

s:='';
j:=122;

for i:=1 to tam do
begin
if ((i mod 2)<>0) then
begin
s:=s+chr(j)+c[i];
j:=j-1;
s:=s+chr(j);
j:=j-1;
end else
s:=s+c[i];
end;

if (tam mod 2 =0) then
s:=s+chr(j);

encriptar:=s;

end;

//Para llamar encriptar:

//control_acceso.encriptar(pasword.Text);


function TControl_Acceso.desencriptar(c:string):string;
var
i,tam:integer;
s:string;
ch:char;
begin
tam:=length(c);

s:='';

for i:=2 to tam do
begin
if ((i mod 2)=0) then
s:=s+c[i];
end;

tam:=length(s);

ch:=s[1];
s[1]:=s[tam];
s[tam]:=ch;

desencriptar:=s;

end;

//para llamar desencriptar:

//pas:=control_acceso.desencriptar(pas);

Deja tu comentario o agradecimiento...