Encriptando e Desencriptando Passwords
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
s[i] := char(23 Xor ord(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.
Feito por Marco Antonio
