Criptografia Simples

Salve, salve amigos

Essa é uma rotina de criptografia simples. Pode ser útil a você, mas lembrando, é uma criptografia simples.

function ECripta(Dado : String) : String;
var
mensx : String;
l, i, j : integer;
begin
j := 0;
mensx := '';
for i := 1 to length(Dado) do
begin
j := j + 1;
l := Asc(Copy(dado, i, 1)) + Asc(Copy(ch, j, 1));
if (j = 50) then
j := 1;
if (l > 255) then
l := l - 256;
mensx := mensx + Chr(l)
end;
ECripta := mensx;
end;

function DCripta(Dado : String) : String;
var
mensx : String;
l, i, j : integer;
begin
j := 0;
mensx := '';
for i := 1 to length(Dado) do
begin
j := j + 1;
l := Asc(Copy(Dado, i, 1)) - Asc(Copy(ch, j, 1));
if (j = 50) then
j := 1;
if (l < 0) then
l := l + 256;
mensx := mensx + chr(l);
end;
DCripta := mensx;
end;

A função ECripta() devolve uma string criptografada e a DCripta() desfaz a criptografia.


Take care