Se é de senha, sugiro MD5... Para comparar, faça o md5 do input do usuario e compare com o md5 guardado.. Se forem iguais, as senhas são iguais.
Att. Marcos Peron [EMAIL PROTECTED] -----Mensagem original----- De: Claudio H.Binaghi [mailto:[EMAIL PROTECTED] Enviada em: terça-feira, 15 de março de 2005 10:37 Para: delphi-br@yahoogrupos.com.br; Delphi; Delphi no Brasil Assunto: Re: [delphi-br] Criptografai de senha Bom dia! Já que ninguém respondeu até o momento, vou dar o meu palpite. Você deve ao gravar encriptar o conteúdo do campo, com uma função simples de criptografia, exemplo: (esta função Encripta e Desencripta dependendo do valor da Boolean Codifica) function Tansforma(sTexto:String; bCodifica: Boolean; iChave: Integer):String; var I: Integer; sTextoEncriptado: String; Begin sTextoEncriptado := ''; if bCodifica then for I := 1 to Length(sTexto) do sTextoEncriptado := Char(Ord(sTexto[I])+iChave) + sTextoEncriptado else for I := 1 to Length(sTexto) do sTextoEncriptado:=Char(Ord(sTexto[I])- iChave )+sTextoEncriptado; Result := sTextoEncriptado; end; Dever ser usada assim: Valor_encriptado:= Tansforma(Texto,True,66); Valor_desencriptado:= Tansforma(Texto,False,66); Depois você grava normalmente no seu banco; Qualquer necessidade fale. Boa sorte. Claudio H.Binaghi [EMAIL PROTECTED] Fone: (011) 3289.3525 / 3289.0075 ----- Original Message ----- From: "Wenceslau Miranda" <[EMAIL PROTECTED]> To: "Delphi" <[EMAIL PROTECTED]>; "Delphi no Brasil" <[EMAIL PROTECTED]>; "Delphi-BR" <delphi-br@yahoogrupos.com.br> Sent: Tuesday, March 15, 2005 9:05 AM Subject: [delphi-br] Criptografai de senha Amigos da lista, Mais uam vez venho recorrer a vocês. Estou usando o Firebir como meu SGBD só qeu como todos sabem a seguraça do mesmo em relação à senha é muito pequena, pois qualquer um poderia copiar a base de dados e abrir em outro computador com a senha padrão do banco. Sendo assim gostaria pelo menos de criptografar a senha dos usuários do sistema em minha base de dados. Alguem poderia me ajudar a gravar e ler no banco as senhas criptografadas. Alguém teria uma exemplo de como isso é feito. Desde já agradeço. [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.7.2 - Release Date: 11/03/2005 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
