USB kauchuk Ducky Script kodlovchi (VBScript): 5 qadam

2024 Muallif: John Day | [email protected]. Oxirgi o'zgartirilgan: 2024-01-30 13:24

Agar sizda USB Rubber Ducky bo'lsa, bilasizki, juda zerikarli vazifa sizning skriptingizni.bin fayliga yig'ishdir. Agar siz har qanday nosozliklarni tuzatishga to'g'ri kelsa, siz o'zingiz tuzgan skriptni doimiy ravishda yuklab olish og'riq bo'lishi mumkinligini bilasiz. Shunday qilib, bu muammoni hal qilish uchun kodingizni tez va oson kompilyatsiya qila oladigan VBScript yaratdim.

Siz tuzilgan.exe va manba kodini quyida yuklab olishingiz mumkin.

Yaxshiyamki, siz vbs -da qanday ajoyib GUI dasturini yaratganimni qiziqtirasiz va agar shunday bo'lsa, 3 -bosqichga o'ting.

1 -qadam: O'rnatish…

REAMDE.txt faylida buni qanday bajarish bo'yicha ko'rsatmalar ham mavjud. Yaxshiyamki, avval C diskida "temp" deb nomlangan papkani yaratish kerak. Bundan tashqari, agar sizda java o'rnatilmagan bo'lsa, uni shu erdan olishingiz mumkin. Keyin duckencode.jar -ni yuklab oling va faylni c: / temp papkasiga o'tkazing. Keyin,.zip fayllaridan birini chiqarib oling va Duck.hta-ni "ico.ico" va "pic.gif" katalogida ishga tushiring, agar siz kompilyatsiya qilinmagan versiyadan foydalansangiz. Yoki kompilyatsiya qilingan.exe dan foydalanayotgan bo'lsangiz, shunchaki "Duck.exe" ni ishga tushiring.

Endi biz keyingi bosqichga o'tishimiz mumkin …

2 -qadam: Foydalanish …

Bu dastur haqiqatan ham sodda, uni ishlatish uchun kodni avtomatik joylashtirish uchun "Buferdan joylashtirish" tugmasini bosish kifoya. Yoki skriptni matnli fayldan yuklash uchun matnli fayldan yuklashni bosing. Keyin sizning kodingiz quyidagi matn maydonida paydo bo'ladi. Kodingizga kerakli o'zgartirishlarni kiriting va "Kodlash" tugmasini bosing. C: / temp -ga o'ting va 'injection.bin' -ni USB Rubber Ducky -ga o'tkazing.

Siz script.txt nima ekanligini qiziqtirgan bo'lishingiz mumkin. Bu nima, bu matn qutisidan tuzilmagan kod. U xom kodning zaxira nusxasi sifatida ishlatiladi.

QAYD: Agar siz kichik skript yaratmoqchi bo'lsangiz, kodingizni matn maydoniga kiriting. USB Rubber Duck -ni sinab ko'rishning tez va oson usuli.

Agar siz vbs -dagi GUI -lar va bu dastur qanday yaratilganligi haqida ko'proq bilmoqchi bo'lsangiz, keyingi bosqichga o'ting, aks holda:

Ushbu ko'rsatmalarni o'qiganingiz uchun tashakkur va agar sizda biron bir savol, sharh yoki xavotir bo'lsa, iltimos, menga sharh yozing yoki menga yozing

3 -qadam: VBScript -da GUI -lar

Ha, vbuda GUI yaratish mumkin. Sizning usulingiz - matnni HTA -ga o'rash. Siz bilmasangiz ham, HTA - bu html -ga juda o'xshash skript tili, vbscripts va jscripts kabi skriptlarni GUI -da o'rash uchun ishlatiladi. Bu erda batafsil tushuntirish va qo'llanma.

Endi siz hta nima ekanligini bilganingizdan so'ng, men sizga tezislarni osonlikcha tuzish bo'yicha maslahatlar beray. Avval HTA yordam telefonini yuklab oling (2 -rasm). Afsuski, asl havola endi ishlamayapti, lekin xayriyatki, men uning nusxasini biroz oldin saqladim. Keyingi htaedit bilan birga keladigan vbsedit -ni yuklab oling va o'rnating.

Ushbu ikkita dasturga ega bo'lgandan so'ng, GUI -ni yaratishni boshlash uchun sizga html/hta tajribasi kerak emas. Bu men kabi odamlar uchun juda yaxshi, ular faqat GUI yaratish uchun hta o'rganishni xohlamaydilar.

Endi "Duck Encoder" ni qanday yaratganimni bilish uchun keyingi bosqichga o'ting …

4 -qadam: Men buni qanday qildim

Shunday qilib, birinchi navbatda:

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

Bu belgi, chegara turi va boshqalar kabi bir nechta narsalarni o'rnatadi.

Sub Window_OnLoad self.resizeTo 400, 454 Dim objFso: ObjFso = CreateObject ("Scripting. FileSystemObject") bo'lmasa ObjFso. FileExists ("c: / temp / duckencode.jar") o'rnating, keyin MsgBox "Xato, fayl topilmadi: c: / temp / duckencode.jar ", 16," Duck Encoder "Self.close () End If End End

Keyingi, bu bo'lim, dastur birinchi marta ishga tushirilganda avtomatik ravishda ishlaydi. U nima qilsa, derazaning o'lchamini o'zgartiradi, keyin "duckencode.jar" to'g'ri katalogda ekanligini tekshiring.

Sub OnClickButtonbtnLoad ()

Dim objShlApp, objFolderLocation, strFileLocation, objFso, objFolder, colFiles, strTextFileList, objFile Dim strCompleteText Set objFso = CreateObject ("Scripting. FileSystemObject") ObjShlApp ShellFeroObroObror ("Sozlamalar) (0, "Faylli papkani ko'rib chiqing:", 16384, 0) Agar Err. Number 0 Keyin MsgBox "Siz faylni o'z ichiga olgan Jildni tanlashingiz kerak.", 16, "Duck Encoder" Err. Clear () Boshqa ObjFolderLocation = "" Keyin "Goto 0" xatosida pastki qismdan chiqing objFolder = objFso. GetFolder (objFolderLocation. Self. Path & "\") ni belgilang colFiles = objFolder. Files strTextFileList = "" InFtr (objFile. Name bo'lsa, colFilesdagi har bir objFile uchun), ".txt ") Yolg'on Keyin strTextFileList = strTextFileList & objFile. Name & vbCrLf Oxirgi bo'lsa Keyingi strFileLocation = InputBox (" Iltimos, kodlashni xohlagan to'g'ri matnli faylni kiriting: "& vbCrLf & vbCrLf & strTextFileList," Ducky Encoder ") (strFileLocation) Keyin bo'lmasa ObjFso. FileExists (objFolder Location. Self. Path & "\" & strFileLocation) Keyin MsgBox "Xato, siz ro'yxatdan matnli faylni tanlashingiz kerak!", 16, "Duck Encoder" Boshqa xato qilganda davom eting strFileLocation = objFolderLocation. Self. Path & "\ "" Agar tugasa, tugasa, tugasa, sub tugasa

OK, kodning bu qismi chindan ham chalkash, bu foydalanuvchi "Matn faylidan yuklash" tugmasini bosganda. Ochiq faylli muloqotni hta-da amalga oshirish deyarli imkonsiz bo'lgani uchun, dastur skriptli faylni o'z ichiga olgan papkani tanlashini so'rash uchun papkani ochish oynasini ochadi. Keyin dastur kirish qutisini ochadi va foydalanuvchidan qaysi papkani yuklashini so'raydi. Keyin dastur fayl ichidagi hamma narsani o'qiydi va uni matn maydoniga qo'yadi.

Sub OnClickButtonbtnPaste () Dim objHTML, ClipboardText Set objHTML = CreateObject ("htmlfile") ClipboardText = objHTML. ParentWindow. ClipboardData. GetData ("text") If IsNull (ClipboardText) = Haqiqatan ham, MsgBox! " "Duck Encoder" boshqa txtScript. Value = ClipboardText oxiri tugasa

Bu kodni bajaradi, agar foydalanuvchi "Buferdan joylashtirish" tugmachasini bossa, dastur matnni buferdan matn maydoniga yuklaydi.

5 -qadam: Men buni qanday qildim (2 -qism)

Sub OnClickButtonbtnEncode () If txtScript. Value = "" Keyin MsgBox "Kod yo'q!", 16, "Duck Encoder" Boshqa Dim objFso, txtScriptFile Set objFso = CreateObject ("Scripting. Filesystemobject") ObjectTjToScriptFile "c: / temp / script.txt", 2, True) txtScriptFile. WriteLine (txtScript. Value) txtScriptFile. Close () idTimer = window.setTimeout ("Compile", 800, "VBScript") End Sub Sub Compile tugasa () window.clearTimeout (idTimer) Dim objWshShl: ObjWshShl = CreateObject ("WScript. Shell") objWshShl. Run "java.exe -jar c: / temp / duckencode.jar -ic: / temp / script.txt -oc ni o'rnating: / temp / inject.bin ", 0 'MsgBox" skriptlari injection.bin uchun c: / temp ", vbOKOnly+vbInformation," Ducky Encoder "End Sub bo'limida tuzilgan.

Ushbu kod "Kodlash" tugmachasini bosganingizda ishlaydi.

Bu nima qilsa, script.txt deb nomlangan matnli faylni yaratadi va unga matn qutisidagi hamma narsani qo'yadi. Keyin u 0,8 soniya kutadi va keyin uni tuzadi.

Kodning qolgan qismi GUIni yaratadi. Agar siz asosiy hta-ni bilsangiz, bu o'z-o'zidan tushunarli.