DELPHI7 :: Enkripsi MD5 pada Delphi

download dulu file berikut ini. Chash

setelah didwnload file di atas, jangan lupa diextract ya, kemudian file cHash.pass simpan pada C:\Program Files\Borlan\Delphi7\Imports.  Setelah sukses buka Program Delphinya ya, kemudian buat form inputan seperti berikut .

Pindah pada bagian script,

pada bagian uses tuliskan chash, seperti di bawah ini:

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, chash;

kemudian pada tombol enkripsi tuliskan script berikut ini.

procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.Text:=MD5DigestToHex(CalcMD5(edit1.Text));

end;

silahkan sobat depmoto run kemudian inputkan karakter huruf, angka, simbol kemudian klik tombol enkripsi maka pada edit2 tampil hasil enkripsi md5 nya.

sekian dulu artikel kali ini, selamat mencoba semoga berguna.