Membuat Packer Checker dengan VisualBasic6.0

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 !!