Delphi MD5 Şifreleme

Merhabalar, İlk defa yakın bir süre önce kendi projemde gerek duymamdan kaynaklanan sebeblerden dolayı araştırınca Delphinin MD5 şifreleme için kendi kütüphanelerinin olduğunu fark ettim ve bunu sizlerle paylaşmak istedim. Kullanımı çok basitir. Örnek kod ile göstermeye çalışacağım.

Uses IdHashMessageDigest; // Mutlaka ekliyoruz.

 

//Kullanımı

//Örneğin site ismimizi MD5 teknik ile şifreleyelim

IdMD5.HashStringAsHex('brsatalay.com');

//Dönen değer aşağıdakidir.

{E3BACBDA1115398D93FC2EFC06DA663E}

procedure TForm10.Md5ButtonClick(Sender: TObject);
var
IdMD5: TIdHashMessageDigest5;
begin
IdMD5 := TIdHashMessageDigest5.Create;
try
Memo1.Text := Memo1.Text + IdMD5.HashStringAsHex(edit1.Text) + #13+#10;
finally
IdMD5.Free;
end;
end;