Membuat Packer Checker dengan VisualBasic6.0
Packer executable adalah segala cara mengompresi file yang dapat dieksekusi dan menggabungkan Kompresor yang dapat dieksekusi sering disebut sebagai "runtime packers", "packers perangkat lunak. VisualBasic bisa kita gunakan sebagai alat untuk melihat apakah sebuah apliasi di pack menggunakan aplikasi packer seperti UPX, PETITE, PEPACK. karena sebenarnya di dalam aplikasi hasil pack tersebut pasti ada kata dari pack tersebut.
Baca Juga : Solusi Datagrid tidak Muncul di Windows7
Cara Membuatnya langsung saja ya .....
Buatlah pada sebuah form isi dengan...
3 buah tombol
1 Combobox
1 Text
Masuukan Kode Berikut :
Private Sub Command1_Click()
Cd.ShowOpen
If Len(Cd.FileName) > 0 Then Text1.Text = Cd.FileName
Cd.Filter = "Application|*.exe"
End Sub
Private Sub Command2_Click()
isvb (Text1.Text)
End Sub
Function isvb(alamat As String)
Dim sTemp As String
Open alamat For Binary As #1
sTemp = Space(LOF(1))
Get #1, , sTemp
Close #1
If InStr(sTemp, (Combo1.Text)) Then _
MsgBox "Ini packernya" Else _
MsgBox "bukan Ini packernya"
End Function
Private Sub Command3_Click()
List1.AddItem Combo1.Text
Combo1.SetFocus
End Sub
Private Sub Form_Load()
Combo1.AddItem "UPX1"
Combo1.AddItem "petite"
Combo1.AddItem "PEPACK"
Combo1.AddItem "FPException"
End Sub
Baca Juga : Membuat Log Nomor Transaksi dengan VisualBasic6.0
Demikian artikel sederhana mengenai Membuat Packer Checker dengan VisualBasic6.0
Jika artikel ini bermanfaat silahkan di share !!!
Jika ada kritik dan saran silahkan tulis di kolom komentar !!!
daftarkan email anda untuk berlangganan artikel dengan gratis !!
0 komentar:
Posting Komentar