Bom Tarde!
Segue um código simples:
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: "Mauro Pena" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Friday, March 18, 2005 4:52 PM
Subject: [delphi-br] Encriptador / Decriptador
Alguem tem alguma boa rotina de encriptar e decriptar pra me enviar??
Obrigado.
--
<<<<< 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.3 - Release Date: 15/03/2005
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.7.3 - Release Date: 15/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
