Buscar por:

Encriptando e desencriptando passwords.

Código

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 utilidades para vocês.