Criptografar senhas

Delphi

18/09/2008

Preciso criptografar senha no banco.

Tenho a tabela Usuario com os campos

Login e Senha.

Quando cadastrar o usuário eu gostaria que no banco o campo senha não mostre a senha real do usuário, fique criptografado.

Como faço isso?

Minha ideia foi na hora do cadastro eu converta os caracteres digitados em ascii e multiplica por algum nr.

Minha duvida é como converter a palavra mesa para ascii?

Se alguém tiver uma ideia melhor estou aceitando, tem q ser válido para todos os bancos.


Luiz_aquino

Luiz_aquino

Curtidas 0

Melhor post

Jc

Jc

18/09/2008

Você pode utilizar os componentes TIdEncoderMIME(p/ criptografar) e IdDecoderMIME(p/ decriptografar), da paleta INDY MISC.
Segue o código de exemplo abaixo:


unit Unit1;

interface

uses
  Windows, SysUtils,  Forms, Controls, StdCtrls,
  IdCoder, IdCoder3to4, IdCoderMIME, IdBaseComponent, Classes;

type
  TForm1 = class(TForm)
    IdEncoderMIME1: TIdEncoderMIME;
    IdDecoderMIME1: TIdDecoderMIME;
    Memo1: TMemo;
    Memo2: TMemo;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo2.Lines.Add(IdEncoderMIME1.Encode(trim(Memo1.Lines.Text)));
Memo1.Clear;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Lines.Add(IdDecoderMIME1.DecodeString (trim(Memo2.Lines.Text)));
Memo2.Clear;
end;

end.



GOSTEI 1

Mais Respostas

Nasguone

Nasguone

18/09/2008

http://forum.devmedia.com.br/viewtopic.php?t=97254

de uma olhada neste post
sem mais
ECS


GOSTEI 0
POSTAR