Dicas - Criptografia e Encriptografia de Senhas

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (2)  (1)

Esta dica é para lhe ensinar como fazer para se assegurar que ninguém vá descobrir um password (ou qualquer string).

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

marco@clubedelphi.net

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Ficou com alguma dúvida?