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
<*> 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
