Fórum Criptografar com Delphi 2005 #271728

Gostaria de saber se alguém já criou alguma função para criptografar/descriptofrar com o Delphi 2005.

Eu tinha essas funções em Delphi7 mas não consegui migrar para o Delphi 2005 trabalhando com Dot Net :

function criptografa( strtexto : string ) : string;
var
i : integer;

s : string[255];
c : array[0..255] of Byte absolute s;
begin
s := strtexto;
for i:=1 to ord(s[0]) do
c[i] := 23 XOr c[i];

result := s;
end;

function descriptografa( strtexto : string ) : string;
var
i : integer;

s : string[255];
c : array[0..255] of Byte absolute s;
begin
s := strtexto;
for i:=1 to Length(s) do
s[i] := char(23 Xor ord(c[i]));

result := s;
end;


Agradeço qualquer ajuda.