[VB 6.0] Drop File Program

Pada tutorial ini,saya ingin memberi contoh aksi Drop File Executable pada program Executable lainnya..
misalnya anda ingin membuat Trojan atau software yang mempunyai fungsi "menelurkan" atau mengeluarkan file lain ketika program anda sedang berjalan,maka tutorial ini cukup membantu anda dalam menuntaskan keinginan jahat anda =)

pertama buka Microsoft Visual Basic 6 anda,buat project baru dengan tipe standar EXE,kemudian buat 1 form
pilih Tools - Resource Editor,lalu klik icon Add Custom Resource
lihat gambar:

pilih file executable yang anda inginkan lalu Open,file yang di buka akan dibuat menjadi ber-ekstensi .RES,sehingga bisa menjadi resource dan disimpan ke dalam program.

save kemudian beri nama misalnya project1.RES,resource akan otomatis tersimpan ke dalam project..
ketik kode berikut pada form :

 'membuat fungsi KeluarkanFile untuk ekstrak file

Private Function KeluarkanFile(JenisRes As String, IDRes As Long, OFile As String)
On Error Resume Next
Dim DROP() As Byte
DROP = LoadResData(IDRes, JenisRes)
Open OFile For Binary As #1
Put #1, , DROP
Close #1
End Function

Private Sub Form_Load()
'fungsi keluarkanfile dipanggil saat program dieksekusi,ganti nama hehe.exe sesuai keinginan anda
KeluarkanFile "CUSTOM", 101, App.Path & "\hehe.exe"
End Sub

Save project kemudian jalankan saja,maka akan muncul file bernama hehe.exe di direktori yang sama dengan program anda berada

referensi:
http://support.microsoft.com/kb/141505
http://www.bigresource.com/VB-Help-Using-LoadResData-Function-SOLVED--eSHNkmzLLd.html

Semoga Bermanfaat =)

Artikel ini dibuat oleh Yudha Tri Putra,segala macam bentuk pengcopyan atau menyalin sebagian atau seluruh halaman ini,dapat dikenakan sanksi dan melanggar Hak Cipta Yudha Tri Putra sebagai Blogger