USB Rubber Ducky Script Encoder (VBScript): 5 Langkah

2024 Pengarang: John Day | [email protected]. Terakhir diubah: 2024-01-30 09:55

Jika Anda memiliki USB Rubber Ducky, Anda akan tahu bahwa tugas yang sangat mengganggu adalah mengkompilasi skrip Anda ke file.bin. Jika Anda harus melakukan debugging apa pun, Anda akan tahu bahwa mengunduh skrip yang dikompilasi secara terus-menerus bisa merepotkan. Jadi untuk memperbaiki masalah ini, saya membuat VBScript yang dapat mengkompilasi kode Anda dengan cepat dan mudah.

Anda dapat mengunduh.exe yang dikompilasi dan kode sumber di bawah ini.

Bagaimanapun, Anda mungkin bertanya-tanya bagaimana saya membuat aplikasi GUI yang luar biasa di vbs, dan jika demikian, lewati ke langkah 3.

Langkah 1: Memasang…

Ada juga petunjuk tentang cara melakukannya di file REAMDE.txt. Bagaimanapun, pertama-tama Anda harus membuat folder di drive C Anda yang disebut 'temp' jika Anda belum memilikinya. Juga, jika Anda belum menginstal Java, Anda bisa mendapatkannya dari sini. Selanjutnya unduh duckencode.jar dan pindahkan file ke folder c:\temp Anda. Selanjutnya, ekstrak salah satu file.zip dan jalankan Duck.hta di direktori yang sama dengan 'ico.ico' dan 'pic.gif' jika Anda menggunakan versi yang tidak dikompilasi. Atau jika Anda menggunakan.exe yang dikompilasi, jalankan saja 'Duck.exe'.

Sekarang kita bisa melanjutkan ke langkah berikutnya…

Langkah 2: Penggunaan…

Program ini sangat mudah, untuk menggunakannya, cukup klik 'Tempel dari clipboard' untuk secara otomatis menempelkan kode Anda. Atau klik muat dari file teks, untuk memuat skrip dari file teks. Kemudian kode Anda akan muncul di kotak teks di bawah ini. Buat perubahan terakhir yang Anda inginkan pada kode Anda dan tekan 'Encode'. Arahkan ke c:\temp dan pindahkan 'inject.bin' ke USB Rubber Ducky Anda.

Anda mungkin bertanya-tanya apa itu script.txt. Apa itu, adalah kode yang tidak dikompilasi dari kotak teks. Ini digunakan sebagai cadangan kode mentah.

CATATAN: Jika Anda ingin membuat skrip kecil, Anda cukup mengetikkan kode Anda di kotak teks. Cara cepat dan mudah untuk menguji USB Rubber Ducky Anda.

Lewati ke langkah berikutnya jika Anda ingin mengetahui lebih lanjut tentang bagaimana GUI di vbs dan bagaimana program ini dibuat, jika tidak:

Terima kasih telah membaca instruksi ini, dan jika Anda memiliki pertanyaan, komentar, atau masalah, silakan kirim komentar atau pm saya

Langkah 3: GUI di VBScript

Jadi ya, dimungkinkan untuk membuat GUI di vbs. Cara Anda melakukannya, adalah dengan membungkus teks Anda dalam HTA. Jika Anda belum tahu, HTA adalah bahasa scripting yang sangat mirip dengan html yang digunakan hanya untuk membungkus skrip seperti vbscripts dan jscripts dalam GUI. Penjelasan dan tutorial lengkapnya ada di sini.

Jadi sekarang setelah Anda tahu apa itu hta, izinkan saya memberi Anda beberapa tips tentang cara membuat tesis dengan mudah. Download dulu HTA helpomatic (gambar 2) di bawah. Sayangnya tautan asli tidak lagi berfungsi, tetapi untungnya saya menyimpan salinannya beberapa waktu lalu. Selanjutnya unduh dan instal vbsedit, yang disertakan dengan htaedit.

Setelah Anda memiliki dua program ini, Anda benar-benar tidak memerlukan pengalaman html/hta untuk mulai membuat GUI. Yang sangat bagus untuk orang seperti saya, yang tidak ingin belajar hta hanya untuk membuat GUI.

Sekarang lanjutkan ke langkah berikutnya untuk melihat bagaimana saya membuat Duck Encoder…

Langkah 4: Bagaimana Saya Membuatnya

Jadi, pertama:

APPLICATIONNAME="Duck Encoder" ID="DuckEncoder" VERSION="1.0" INNERBORDER="tidak" MAXIMIZEBUTTON="tidak" ICON="ico.ico" SCROLL="tidak"

Ini mengatur beberapa hal seperti ikon, jenis perbatasan, dll.

Sub Window_OnLoad self.resizeTo 400, 454 Dim objFso: Set objFso = CreateObject("Scripting. FileSystemObject") Jika Tidak objFso. FileExists("c:\temp\duckencode.jar") Lalu MsgBox "Error, file not found: c: \temp\duckencode.jar", 16, "Duck Encoder" Self.close() End If End Sub

Selanjutnya, sub ini, berjalan secara otomatis setiap kali program pertama kali diluncurkan. Apa yang dilakukannya adalah mengubah ukuran jendela kemudian memeriksa untuk memastikan bahwa 'duckencode.jar' berada di direktori yang benar.

Sub OnClickButtonbtnLoad()

Redupkan objShlApp, objFolderLocation, strFileLocation, objFso, objFolder, colFiles, strTextFileList, objFile Dim strCompleteText Atur objFso = CreateObject("Scripting. FileSystemObject") Atur objShlApp = CreateObject("Shell. Browse objFolderLocation") Pada Kesalahan Result Result (0, "Jelajahi folder yang berisi file: ", 16384, 0) If Err. Number 0 Kemudian MsgBox "Anda harus memilih FOLDER yang berisi file tersebut.", 16, "Duck Encoder" Err. Clear() Else If objFolderLocation = "" Kemudian Keluar Sub Pada Kesalahan Goto 0 Atur objFolder = objFso. GetFolder(objFolderLocation. Self. Path & "\") Setel colFiles = objFolder. Files strTextFileList = "" Untuk Setiap objFile Dalam colFiles Jika InStr(objFile. Name, ".txt") False Kemudian strTextFileList = strTextFileList & objFile. Name & vbCrLf End If Next strFileLocation = InputBox("Silakan masukkan file teks yang benar yang ingin Anda encode: " & vbCrLf & vbCrLf & strTextFileList, "Ducky Encoder") If Not IsEmpty (strFileLocation) Kemudian Jika Tidak objFso. FileExists(objFolder Location. Self. Path & "\" & strFileLocation) Kemudian MsgBox "Error, Anda harus memilih file teks dari daftar!", 16, "Duck Encoder" Else On Error Resume Next strFileLocation = objFolderLocation. Self. Path & "\ " & strFileLocation Atur objFile = objFso. OpenTextFile(strFileLocation, 1, FALSE) txtScript. Value = objFile. ReadAll objFile. Close() If Err. Number 0 Kemudian MsgBox "File teks kosong.", 16, "Duck Encoder" End Jika Berakhir Jika Berakhir Jika Berakhir Jika Berakhir Sub

Ok, bagian kode ini benar-benar membingungkan, ini adalah kode ketika pengguna mengklik 'Muat dari file teks'. Karena hampir tidak mungkin membuat dialog file terbuka di hta, Program memunculkan dialog jelajah folder untuk meminta pengguna memilih folder yang berisi file skrip. Kemudian program membuka kotak input yang menanyakan kepada pengguna file teks mana yang akan dimuat di dalam folder itu. Kemudian program membaca apa pun yang ada di dalam file dan memasukkannya ke dalam kotak teks.

Sub OnClickButtonbtnPaste() Redupkan objHTML, ClipboardText Set objHTML = CreateObject("htmlfile") ClipboardText = objHTML. ParentWindow. ClipboardData. GetData("text") If IsNull(ClipboardText) = True Kemudian MsgBox "Tidak ada di clipboard!", 16, "Duck Encoder" Else txtScript. Value = ClipboardText End If End Sub

Semua kode ini tidak, adalah ketika pengguna mengklik 'Tempel dari clipboard', program memuat teks dari clipboard ke kotak teks.

Langkah 5: Bagaimana Saya Membuatnya (bagian 2)

Sub OnClickButtonbtnEncode() Jika txtScript. Value = "" Kemudian MsgBox "Tidak ada kode!", 16, "Duck Encoder" Lain Dim objFso, txtScriptFile Set objFso = CreateObject("Scripting. Filesystemobject") Atur txtScriptFile = objFso. OpenTextFile("c:\temp\script.txt", 2, True) txtScriptFile. WriteLine(txtScript. Value) txtScriptFile. Close() idTimer = window.setTimeout("Compile", 800, "VBScript") End If End Sub Sub Compile () window.clearTimeout(idTimer) Dim objWshShl: Setel objWshShl = CreateObject("WScript. Shell") objWshShl. Run "java.exe -jar c:\temp\duckencode.jar -ic:\temp\script.txt -oc:\temp\inject.bin", 0 'MsgBox "Script dikompilasi ke inject.bin di c:\temp", vbOKOnly+vbInformation, "Ducky Encoder" End Sub

Kode ini dijalankan ketika Anda mengklik 'Encode'.

Apa yang dilakukannya adalah membuat file teks bernama script.txt dan meletakkan apa pun yang ada di dalam kotak teks ke dalamnya. Kemudian menunggu 0,8 detik dan kemudian mengkompilasinya.

Sisa kode hanya membuat GUI. Cukup jelas jika Anda tahu hta dasar.