Criptografia

Esta dica é para lhe ensinar como fazer para se assegurar que ninguém vá descobrir um password (ou qualquer string). Ela é bem simples e bastante útil, pode ser usada também para se usar em uma conversa privada ou em qualquer coisa que lhe seja útil.

Primeiramente inicie o Delphi e crie uma nova aplicação. Coloque no formulário dois Tbutton, um Tedit e dois Tlabel. Coloque na propriedade caption do button1 para Encriptar e a do button2 para Desencriptar

Insira duas variáveis globais, na sessão implementation veja abaixo:

implementation

var

s: string[255];

c: array[0..255] of Byte absolute s;

{$R *.DFM}

Agora no evento Onclick do botão Encriptar coloque o código abaixo:

procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
{encode}
S := edit1.text;
For i:=1 to ord(s[0]) do
c[i] := 23 Xor c[i];
Label1.Caption := s;
end;


E no evento Onclick do botão Desencriptar coloque o código abaixo:



procedure TForm1.Button2Click(Sender: TObject);

var
i:Integer;
begin
  {Decode}
  S := Label1.Caption;
  For i:=1 to Length(s) do
  c[i] := 23 Xor c[i];
  Label2.Caption:=s;
end;


Explicando

Primeiro, inserimos dois vetores globais (que podem ser "enchergados" por todo o código). No Onclick do primeiro botão ele encripitará o texto contido no edit1 e mostrará no label1 (eu fiz isso para que voces possam ver o texto encriptado, mas na prática seria melhor apenas guarda-lo em uma variável, para que ninguém o veja). No botão Desencriptar ele pega o texto do label1 (ou de uma váriavel), desencripta, e ai o mostra no label2. Espero que esta dica seja de grande utilidade para vocês.


veja mais em http://www.devmedia.com.br/dicas-criptografia-e-encriptografia-de-senhas/862