Memasukkan File Binary ke dalam Script (Join Binary File into Script)

Mungkin banyak diantara kita yang beranggapan bahwa untuk memasukkan file-file seperti file exe ataupun gambar, lagu, icon, dsb ke dalam script (seperti vbscript, html, dsb) adalah hal yang mustahil mengingat file script berbentuk teks sementara file executable, gambar dsb adalah file binary.

Tetapi kemustahilan tersebut bisa diakali. Ada satu trik yang dapat diterapkan pada script untuk memasukkan (join) binary file ke dalam script. Trik ini pertama kali saya ketahui saat menggunakan tool pembuat virus, yaitu “vbswg 200b”. Lalu saya temukan juga pada html yang terinfeksi “virus Ramnit”. Jika dieksekusi maka file html yang terinfeksi virus Ramnit itu akan membuat file induk dari virus tersebut.

Triknya adalah dengan cara File yang ingin kita sisipkan ke dalam script (dalam kesempatan ini kita akan menggunakan VBScript) harus diubah ke dalam bentuk Hex. Hex apa yah?? Hex saya kurang tahu pengertiannya, yang saya tahu Hex terdiri atas huruf A-F dan angka 0-9. Biasanya kita lihat di Hex Editor. Lalu kita masukkan hasil konversi tersebut ke dalam file VBScript dalam bentuk string, dan kita buat fungsi untuk mengubah bilangan Hex tersebut ke bentuk karakter yang diwakilinya dan di simpan ke sebuah file.

Langkah-langkahnya adalah sbb:

1.  Download dulu Tool pendukungnya, yang khusus saya buat untuk artikel ini. download

2.  Ekstrak Tool tersebut dengan cara Klik Kanan file yang sudah di download, pilih Ekstract Here atau pilih Winrar > Extract Here

3.  Buka “HexConv.exe” pilih Open lalu pilih file anda.

4.  Klik Start…

5.  Setelah proses selesai, simpan hasil konversi dengan mengklik Save.

6.  Selanjutnya buka Notepad dengan cara Start > Accessories > Notepad

7.  Copy paste code berikut:

dim fileAnda, objFS, BrowseDBox, input,SelFolder, crFile, fullP

set objFS = CreateObject("Scripting.FileSystemObject")

Set BrowseDBox = WScript.CreateObject("Shell.Application")

fileAnda = "copy paste hasil konversi di sini, pastikan diapit oleh petik ganda"

input = InputBox("Masukkan Nama File Beserta Ekstensi")

Set SelFolder = BrowseDBox.BrowseForFolder(0, "Pilih folder untuk menyimpan File. Jangan simpan di root seperti C:\ tetapi simpan file di sebuah Folder",&H0001)

fullP = SelFolder.ParentFolder.ParseName(SelFolder.Title).Path

If InStr(1, TypeName(SelFolder),"Folder") = 0 Then

Wscript.Quit

Else

set crFile = objFS.CreateTextFile(fullP&"\"&input)

crFile.Write decode(fileAnda)

Wscript.Sleep 500

crFile.close

end if

Function decode(file)

dim i

For i = 1 To Len(file) Step 2

decode = decode & Chr("&h" & Mid(file, i, 2))

Next

End Function

8. Klik file > Save As

9. Pada kolom File Name masukkan nama file dengan ekstensi vbs. Contoh belajar.vbs

10. Pada kolom Save As Type Pilih All Files

11. Klik Save

12. Buka folder tempat anda menyimpan file tersebut contoh belajar.vbs. Lalu klik dua kali file belajar.vbs.

13. Akan muncul kotak Input. Masukkan nama file beserta ekstensi pada kolom (Contoh game.exe). Klik OK.

14. Pilih Folder untuk menyimpan.

Contoh Penggunaan:

dim fileAnda, objFS, BrowseDBox, input,SelFolder, crFile, fullP

set objFS = CreateObject("Scripting.FileSystemObject")

Set BrowseDBox = WScript.CreateObject("Shell.Application")

fileAnda = "00000100010010101800000000006803000016000000280000001000000020000000010018000000000000030000000000000000000000000000000000000000000000000000000000000000000000002EAE8B24A98625A8852FAE8B0000000000000000000000000000000000000000000000000000000000003CB5952B816039AF5533AC5033AC5027816034B1903DB6950000000000000000000000000000000000005AC7AA40A38555BF6E49B86341B35C3DB1593DB15943B55E51BC6A389D7E4BBD9E90C1AD00000000000000000089B39B4FB09166C87D5AC17250BC694AB86447B76247B7624EBA6758C1716DCC824FBFA15AC5A800000000000000000067CCB078D28C6BCB8160C57758C07152BE6C50BC6A52BD6B57C07062C6794CBE9F54C1A45EC6AA6ACCB100000073C4B24EA07C7CD59070CE8667C97E60C5785CC3745BC2735CC37461C6784DBE9F52C0A359C4A762C8AC6DCEB30000007BD4BB8DDC9F81D79477D28B6FCD8469CA7F66C87C65C87B66C97D51C0A254C1A358C4A65FC7AA67CBAF70CFB57DD5BC7FD6BD92DEA387DA997ED69277D28B72CF876FCD856FCD8456C2A557C3A65AC5A85FC7AA61BFA1619E7C74D2B881D7BE83D8C098E1A88EDD9F86DA9880D7937BD48F79D38D5DC6A95DC6A95FC7AA61C8AC62B698ECCB9D71D0B67AD4BB85D8C189DAC3A6E9B396E0A68EDD9F89DB9B85D99765CAAE64C9AE64C9AE65CAAE68CBB0EFC18370D0B577D3B980D6BE8BDAC3A4E5D386D8C19EE3AC97E0A792DEA26ECFB46CCEB36BCDB26BCDB26DCEB368B29277C39E77D3B97ED6BD87D9C191DDC60000008CDBC4A6E6B3A0E4AE79D4BA75D2B873D1B772D1B672D1B6EAC28C76D2B87AD4BA7FD6BD86D8C18DDBC597DFCA000000B0E8D98CDBC486D9C181D7BE7ED5BD7BD5BB7AD4BB73B6987CD4BA7ED6BD82D7BF87D9C18DDBC494DEC89DE2CD0000000000009CE0CB8FDCC58ADAC387D9C185D8C084D8C084D8C085D8C087D9C18BDAC38FDCC695DEC99CE1CCA4E4D1000000000000000000BFEDE093DDC78FDCC68DDBC58CDBC48CDBC48DDBC590DCC693DEC897DFCA9DE1CDA3E4D0ABE7D400000000000000000000000000000091D4C296DFC995DEC995DEC996DFC998E0CA9BE1CC9FE2CEA5E4D1ABE7D4B2EAD8FC3F0000F00F0000C003000080030000800100000001000000000000000000000000000000000000000000008000000080000000C0000000E0000000F800000000"

input = InputBox("Masukkan Nama File Beserta Ekstensi",,”icon.ico”)

Set SelFolder = BrowseDBox.BrowseForFolder(0, "Pilih folder untuk menyimpan File. Jangan simpan di root seperti C:\ tetapi simpan file di sebuah Folder",&H0001)

fullP = SelFolder.ParentFolder.ParseName(SelFolder.Title).Path

If InStr(1, TypeName(SelFolder),"Folder") = 0 Then

Wscript.Quit

Else

set crFile = objFS.CreateTextFile(fullP&"\"&input)

crFile.Write decode(fileAnda)

Wscript.Sleep 500

crFile.close

end if

Function decode(file)

dim i

For i = 1 To Len(file) Step 2

decode = decode & Chr("&h" & Mid(file, i, 2))

Next

End Function

Sekian tutorial dari saya mungkin masih banyak kekurangan tetapi semoga bermanfaat. Jangan disalahgunakan. Kerusakan yang ditimbulkan tidak ditanggung penulis. Jika anda ingin copy paste tutorial ini silahkan dengan menyertakan sumber dengan link hidup. Dari newbie untuk newbie.