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