MD5 com Delphi usando Indy

Ir em baixo

MD5 com Delphi usando Indy

Mensagem por Coca em Sab 24 Jul 2010 - 15:37

Esta dica apresenta a função (ou método) para exemplificar como implementar a criptografia utilizando MD5, com Delphi e Indy, Achei essa Função no Forum INW e Resolvi postar aqui no CSHP para estrear a área Delphi

Inclua na seção uses a unit IdHashMessageDigest.

Primeiramente, façamos as seguintes implementações das funções que chamarão os métodos implementados na unit IdHashMessageDigest::
//Criptografar uma String
function MD5(const texto: string): string;
var
idmd5: TIdHashMessageDigest5;
begin
idmd5 := TIdHashMessageDigest5.Create;
try
result := idmd5.HashStringAsHex(texto);
finally
idmd5.Free;
end;
end;

//Criptografar um arquivo inteiro
function MD5File(const fileName: string): string;
var
idmd5 : TIdHashMessageDigest5;
fs : TFileStream;
begin
idmd5 := TIdHashMessageDigest5.Create;
fs := TFileStream.Create(fileName, fmOpenRead OR fmShareDenyWrite) ;
try
result := idmd5.HashStreamAsHex(fs);
finally
fs.Free;
idmd5.Free;
end;
end;

Agora, para criptografar uma String, faça:
ShowMessage( MD5('teste') ); //MD5(edtSenha.Text);
E para obter o hash MD5 de um arquivo, basta chamar a respectiva função passando o caminho completo do arquivo que queremos criptografar, ex:
ShowMessage( MD5File('C:\arquivo.xml') );


Preucuramos moderador e coordenador e game zone, por favor entra em contato com Coca.
ENIVAR MP.

FireHackers A procura de novos Membros e cada vez melhor.
avatar
Coca
Administrador
Administrador

<b>Mensagens/Posts</b> Mensagens/Posts : 77
Moedas Moedas : 5462
Idade Idade : 21
<b>Localização</b> Localização : Hacking

Compras
   : Compro o Fórum..

http://firehackers.rg3.net

Voltar ao Topo Ir em baixo

Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum