Buscar por:

Criptografia/descriptografia

Código

{Função para criptografar e descriptografar uma string}

Function Crypt(Opcao : String; Dados : String): String;

var

  I : Integer;

  Key : Word;

  Res : String;

const

  C1    = 33598;

  C2    = 24219;

  Chave = 16854;

begin

  Key := Chave;

  for I := 1 to length(Dados) do

    begin

      Res := Res + Char(Byte(Dados[I]) xor (Key shr 8));

      if Opcao = 'CRYPT' then

        Key := (Byte(Res[I]) + Chave) * C1 + C2;

      if Opcao = 'DECRYPT' then

        Key := (Byte(Dados[I]) + Chave) * C1 + C2;

    end;

  Result := Res;

end;

{Para criptografar uma string:}

  Edit2.Text := Crypt('CRYPT',Edit3.Text);

{Para descriptografar uma string criptografada por esta função:}

  Edit1.Text := Crypt('DECRYPT',Edit2.Text);