Source Code Checksum MD5 unicode & MD5 String In Vb 6

                    

         Source Code Checksum MD5 unicode & MD5 String In Vb 6

 Pertama

 Buka MS. Visual Basic Anda => Project exe

Kemudian Stelah Aplikasinya Terbuka Tambahkanlah Sebuah Component Yakni 

COMDLG32.ocx {Microsoft Common Dialog Control 6.0 (Sp3)}  Dengan Cara Klik Menu  ” Project => Components…. “  Atau Dengan Cara Menekan “Ctrl + T”

Pertama Buat Sebuah Mudule Dengan Nama “ModMD5” Lalu isikan Code Berikut Ke dalam Module tersebut 

Code::

Lalu Setelah ModMD5 sudah terisi Kode Tersebut Buatlah

a.       2 buah command Button

b.      1 buah Commondialog

c.       2 buah label

d.      3 Buah Textbox

Seperti Gambar Berikut ini 

Lalu Masukan Kode Berikut Ke Dalam Form Tesebut

Private Sub Command1_Click()

CommonDialog1.ShowOpen

Text1.Text = CommonDialog1.FileName

End Sub

Private Sub Command2_Click()

Text2.Text = Md5_File_Calc(Text1.Text)

Text3.Text = Md5_String_Calc(Text1.Text)

End Sub

Sumber : http://dewa-sumberilmu.blogspot.com