Form Login Dengan MD5 di Delphi

Form Login Sering digunakan untuk memprotek aplikasi agar tidak dapat digunakan oleh sembarang orang. Biasanya dalam Proses login akan meminta authentikasi Username dan Password. Untuk Keamanan Proses Authentikasi. Biasanya Programmer akan menambahkan Metode Ekripsi / Hash didalamnya. Metode Hash sendiri Salah satunya adalah dengan MD5.

Pada Postingan ini Admin Mau Sharing tentang cara membuat Form Loading sederhan Dengan MD5 di Delphi.Sebelumnya. Anda Membutuhkan Komponen-nya. Silahkan Download Disini Selesai Download Silahkan ditambahkan. Hasil Penambahan biasanya langsung berada di pallete terakhir. Jika Anda Berhasil, Nama Palletenya adalah (Kiyat).

Silahkan Tambahkan Komponennya kedalam Form Anda !

Untuk Desain Tampilan Saya Seperti ini :

Selanjutnya pada tombol login. tambahkan Code dibawah ini :

var
user,pass : string;
begin
user:=MD51.MD5Print(MD51.MD5String('admin'));
pass:=MD51.MD5Print(MD51.MD5String('masuk'));
If (MD51.MD5Print(MD51.MD5String(Edit1.Text))=user) and (MD51.MD5Print(MD51.MD5String(Edit2.Text))=pass) then
ShowMessage('Login Berhasil !!') else
ShowMessage('Login Gagal !!');
end;

Akan Lebih Bagus Jika anda mengganti Property Edit Password menjadi Password Char (*) sehingga Teks yang diinputkan akan berubah menjadi karakter *.