Form Login Dengan MD5 di Delphi 7

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 gambar diatas :

Selanjutnya pada tombol login. tambahkan Code dibawah ini :

1	var
2	user,pass : string;

3	begin
4	user:=MD51.MD5Print(MD51.MD5String('admin'));

5	pass:=MD51.MD5Print(MD51.MD5String('masuk'));
6	If (MD51.MD5Print(MD51.MD5String(Edit1.Text))=user) and (MD51.MD5Print(MD51.MD5String(Edit2.Text))=pass) then

7	ShowMessage('Login Berhasil !!') else
8	ShowMessage('Login Gagal !!');

9

end;

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