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

Anúncios

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s