Pengkod Skrip Rubber Ducky USB (VBScript): 5 Langkah

2024 Pengarang: John Day | [email protected]. Diubah suai terakhir: 2024-01-30 11:08

Sekiranya anda mempunyai USB Rubber Ducky, anda akan tahu bahawa tugas yang sangat menjengkelkan adalah menyusun skrip anda ke fail.bin. Sekiranya anda perlu melakukan penyahpepijatan apa pun, anda akan tahu bahawa memuat turun skrip yang disusun secara berterusan boleh menyakitkan. Oleh itu, untuk menyelesaikan masalah ini, saya membuat VBScript yang dapat menyusun kod anda dengan cepat dan mudah.

Anda boleh memuat turun.exe yang disusun dan kod sumber di bawah.

Bagaimanapun, anda mungkin tertanya-tanya bagaimana saya membuat aplikasi GUI yang hebat di vbs, dan jika ya, lompat ke langkah 3.

Langkah 1: Memasang…

Terdapat juga arahan mengenai cara melakukannya dalam fail REAMDE.txt. Bagaimanapun, pertama anda mesti membuat folder dalam pemacu C anda yang dipanggil 'temp' jika anda belum memilikinya. Sekiranya anda belum memasang java, anda boleh mendapatkannya dari sini. Seterusnya muat turun duckencode.jar dan pindahkan fail ke folder c: / temp anda. Seterusnya, ekstrak salah satu fail.zip dan jalankan Duck.hta dalam direktori yang sama dengan 'ico.ico' dan 'pic.gif' jika anda menggunakan versi yang tidak disusun. Atau jika anda menggunakan.exe yang disusun, jalankan 'Duck.exe'.

Sekarang kita boleh beralih ke langkah seterusnya …

Langkah 2: Penggunaan…

Program ini sangat mudah, untuk menggunakannya, cukup klik pada 'Tampal dari papan keratan' untuk menampal kod anda secara automatik. Atau klik muat dari fail teks, untuk memuat skrip dari fail teks. Kemudian kod anda akan muncul di kotak teks di bawah. Buat perubahan terakhir yang mungkin anda mahukan pada kod anda dan tekan 'Encode'. Navigasi ke c: / temp dan pindahkan 'inject.bin' ke USB Rubber Ducky anda.

Anda mungkin tertanya-tanya apa itu script.txt. Apa itu, adalah kod yang tidak disusun dari kotak teks. Ia digunakan sebagai sandaran kod mentah.

CATATAN: Sekiranya anda ingin membuat skrip kecil, anda cukup memasukkan kod anda di kotak teks. Kaedah yang cepat dan mudah untuk menguji USB Rubber Ducky anda.

Langkau ke langkah seterusnya jika anda ingin mengetahui lebih lanjut mengenai bagaimana GUI di vbs dan bagaimana program ini dibuat, jika tidak:

Terima kasih kerana membaca arahan ini, dan jika anda mempunyai pertanyaan, komen, atau kemusykilan, sila hantarkan komen atau pm saya

Langkah 3: GUI dalam VBScript

Jadi, mungkin untuk membuat GUI dalam vbs. Cara anda melakukannya, adalah dengan membungkus teks anda dalam HTA. Sekiranya anda belum tahu, HTA adalah bahasa skrip yang sangat mirip dengan html yang digunakan hanya untuk membungkus skrip seperti vbscript dan jscript dalam GUI. Penjelasan dan tutorial terperinci di sini.

Oleh itu, setelah anda mengetahui apa itu, izinkan saya memberi anda beberapa petua tentang cara membuat tesis dengan mudah. Muat turun pertama HTA helpomatic (gambar 2) di bawah. Sayangnya pautan asal tidak lagi berfungsi, tetapi mujurlah saya menyimpan salinannya sebentar lagi. Muat turun dan pasang vbsedit seterusnya, yang disertakan dengan htaedit.

Setelah anda mempunyai dua program ini, anda tidak memerlukan pengalaman html / hta untuk mula membuat GUI. Yang bagus untuk orang seperti saya, yang tidak mahu belajar hanya untuk membuat GUI.

Sekarang teruskan ke langkah seterusnya untuk melihat bagaimana saya membuat Duck Encoder…

Langkah 4: Bagaimana Saya Membuatnya

Jadi, pertama:

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

Ini menetapkan beberapa perkara seperti ikon, jenis sempadan, dll.

Sub Window_OnLoad self.resizeTo 400, 454 Dim objFso: Set objFso = CreateObject ("Scripting. FileSystemObject") If Not objFso. FileExists ("c: / temp / duckencode.jar") Kemudian MsgBox "Kesalahan, fail tidak dijumpai: c: / temp / duckencode.jar ", 16," Duck Encoder "Self.close () Tamat Jika Akhir Sub

Selanjutnya, sub ini, berjalan secara automatik setiap kali program dilancarkan pertama kali. Apa yang dilakukannya adalah mengubah saiz tetingkap kemudian periksa untuk memastikan bahawa 'duckencode.jar' berada di direktori yang betul.

Sub OnClickButtonbtnLoad ()

Dim objShlApp, objFolderLocation, strFileLocation, objFso, objFolder, colFiles, strTextFileList, objFile Dim strCompleteText Set objFso = CreateObject ("Scripting. FileSystemObject") Tetapkan objShlApp = CreateObjectSuplayerApliksiApliksiAplikator (0, "Telusuri folder yang mengandungi fail:", 16384, 0) Jika Err. Number 0 Kemudian MsgBox "Anda mesti memilih FOLDER yang mengandungi fail.", 16, "Duck Encoder" Err. Clear () Lain-lain Jika objFolderLocation = "" Kemudian Keluar Sub Pada Kesalahan Pergi 0 Tetapkan objFolder = objFso. GetFolder (objFolderLocation. Self. Path & "\") Tetapkan colFiles = objFolder. Files strTextFileList = "" Untuk Setiap objFile In colFiles If InStr (objFile. Name, ".txt ") False Kemudian strTextFileList = strTextFileList & objFile. Name & vbCrLf End if Next strFileLocation = InputBox (" Sila masukkan fail teks yang betul yang ingin anda kodkan: "& vbCrLf & vbCrLf & strTextFileList," Ducky Isoder " (strFileLocation) Kemudian Jika Tidak objFso. FileExists (objFolder Location. Self. Path & "\" & strFileLocation) Kemudian MsgBox "Ralat, anda mesti memilih fail teks dari senarai!", 16, "Duck Encoder" Else On Error Resume Next strFileLocation = objFolderLocation. Self. Path & "\ Next "& strFileLocation Set objFile = objFso. OpenTextFile (strFileLocation, 1, FALSE) txtScript. Value = objFile. ReadAll objFile. Close () Jika Err. Number 0 Kemudian MsgBox" File teks kosong. ", 16," Duck Encoder "End Sekiranya Tamat Jika Berakhir Jika Tamat jika Akhir Sub

Ok, bahagian kod ini benar-benar membingungkan, ini adalah kod ketika pengguna mengklik 'Muat dari fail teks'. Oleh kerana mustahil untuk membuat dialog berkas terbuka di hta, Program ini muncul untuk mencari dialog folder untuk meminta pengguna memilih folder yang berisi file skrip. Kemudian program membuka kotak input yang meminta pengguna fail teks mana yang akan dimuat di dalam folder itu. Kemudian program membaca apa sahaja yang ada di dalam fail dan memasukkannya ke dalam kotak teks.

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

Semua kod ini dilakukan, adalah ketika pengguna mengklik 'Tampal dari papan keratan', program memuat teks dari papan keratan ke kotak teks.

Langkah 5: Bagaimana Saya Membuatnya (bahagian 2)

Sub OnClickButtonbtnEncode () If txtScript. Value = "" Kemudian MsgBox "Tidak ada kod!", 16, "Duck Encoder" Else Dim objFso, txtScriptFile Set objFso = CreateObject ("Scripting. Filesystemobject") Set txtScriptFile = objFso. Open "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: Tetapkan objWshShl = CreateObject ("WScript. Shell") objWshShl. Run "java.exe -jar c: / temp / duckencode.jar -ic: / temp / script.txt -oc: / temp / inject.bin ", 0 'MsgBox" Skrip disusun untuk inject.bin dalam c: / temp ", vbOKOnly + vbInformation," Ducky Encoder "End Sub

Kod ini dijalankan semasa anda mengklik 'Encode'.

Apa yang dilakukannya ialah membuat fail teks yang disebut script.txt dan meletakkan apa sahaja yang ada di dalam kotak teks kepadanya. Kemudian menunggu 0.8 saat dan kemudian menyusunnya.

Selebihnya kod hanya membuat GUI. Cukup jelas jika anda tahu asas hta.