Esta função permite encriptar e desencriptar strings. O código de
encriptação é bastante simples, por isso pode ser melhorado, sendo este
apenas um exemplo de como fazê-lo em Delphi.
function EnDecryptString(StrValue : String; Chave: Word) : String;
var
I: Integer;
OutValue : String;
begin
OutValue := '';
for I := 1 to Length(StrValue) do
OutValue := OutValue + char(Not(ord(StrValue[I])-Chave));
Result := OutValue;
end;
Exemplo de utilização:
Iniciar um novo projeto, copiar a função para uma unit, colocar três TEdit
(Edit1, Edit2, Edit3) e dois TButton (Button1 e Button2) na form.
Sendo que o primeiro edit é o que vc vai digitar a senha, o segundo edit é o
que vai aparecer a senha e o terceiro edit é o que vai aparecer a senha
descriptografada...
Obotton1 é o que criptografa e o botton2 é o que descriptografa...
No evento OnClick do Button1 deve chamar a função, em que os parâmetros de
entrada são o texto do Edit1 e uma chave de encriptação do tipo word.
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.text:=EnDecryptString(Edit1.text, 236);
end;
No evento OnClick do Button2 deve chamar a função EnDecryptString, em que os
parâmetros de entrada são o texto encriptado do Edit2 a chave de encriptação
usada para encriptar a string.
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit3.text:=EnDecryptString(Edit2.text, 236);
end;
Espero ter ajudado.
----- Original Message -----
From: "Osmar de Souza Júnior" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, December 06, 2004 9:12 AM
Subject: [delphi-br] CRIPTOGRAFIA
preciso saber se alguem conhece rotinas de criptografia, e onde
encontra-las... (menos no google, obvio, ja procurei)...
preciso criptografar e descriptografar dados...
valews...
--
<<<<< 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
