USB guminis „Ducky“scenarijų koduotojas (VBScript): 5 žingsniai

2024 Autorius: John Day | [email protected]. Paskutinį kartą keistas: 2024-01-30 10:46

Jei turite „USB Rubber Ducky“, žinosite, kad labai erzina užduotis - sudaryti scenarijų į.bin failą. Jei turite atlikti bet kokį derinimą, žinosite, kad nuolatinis jūsų surinkto scenarijaus atsisiuntimas gali būti kančia. Taigi, norėdamas išspręsti šią problemą, sukūriau „VBScript“, galintį greitai ir lengvai surinkti jūsų kodą.

Žemiau galite atsisiųsti sukompiliuotą.exe ir šaltinio kodą.

Bet kokiu atveju, jums tikriausiai įdomu, kaip aš sukūriau tokią nuostabią GUI programą vbs, ir jei taip, pereikite prie 3 veiksmo.

1 veiksmas: diegimas…

REAMDE.txt faile taip pat yra instrukcijų, kaip tai padaryti. Bet kokiu atveju pirmiausia turite savo C diske sukurti aplanką „temp“, jei jo dar neturite. Be to, jei dar neįdiegėte „Java“, galite ją gauti iš čia. Tada atsisiųskite duckencode.jar ir perkelkite failą į aplanką c: / temp. Tada išskleiskite vieną iš.zip failų ir paleiskite „Duck.hta“tame pačiame kataloge kaip „ico.ico“ir „pic.gif“, jei naudojate nekompiliuotą versiją. Arba, jei naudojate surinktą.exe, tiesiog paleiskite „Duck.exe“.

Dabar galime pereiti prie kito žingsnio…

2 žingsnis: naudojimas …

Ši programa yra tikrai paprasta, jei norite ją naudoti, tiesiog spustelėkite „Įklijuoti iš mainų srities“, kad automatiškai įklijuotumėte kodą. Arba spustelėkite įkelti iš teksto failo, jei norite įkelti scenarijų iš teksto failo. Tada jūsų kodas bus rodomas žemiau esančiame teksto laukelyje. Atlikite galutinius kodo pakeitimus ir paspauskite „Koduoti“. Eikite į c: / temp ir perkelkite „inject.bin“į „USB Rubber Ducky“.

Jums gali būti įdomu, kas yra „script.txt“. Kas tai yra, nesukompiliuotas kodas iš teksto laukelio. Jis naudojamas kaip pirminio kodo atsarginė kopija.

PASTABA: Jei norite sukurti nedidelį scenarijų, tiesiog įveskite savo kodą teksto laukelyje. Greitas ir paprastas būdas išbandyti „USB Rubber Ducky“.

Pereikite prie kito veiksmo, jei norite sužinoti daugiau apie tai, kaip „VBS“grafinės sąsajos ir kaip buvo sukurta ši programa, kitaip:

Dėkojame, kad perskaitėte šią instrukciją, ir jei turite klausimų, komentarų ar rūpesčių, rašykite komentarą arba parašykite man pm

3 žingsnis: GUI „VBScript“

Taigi taip, galima sukurti GUI vbs. Tai darote įvynioję tekstą į HTA. Jei dar nežinote, HTA yra scenarijų kalba, labai panaši į html, naudojama paprasčiausiai įvynioti tokius scenarijus kaip vbscripts ir jscripts į GUI. Išsamus paaiškinimas ir pamoka čia.

Taigi dabar, kai žinote, kas yra hta, leiskite man pateikti keletą patarimų, kaip lengvai padaryti tezes. Pirmiausia atsisiųskite „HTA helpomatic“(2 pav.). Deja, pradinė nuoroda nebeveikia, bet, laimei, kurį laiką išsaugojau kopiją. Tada atsisiųskite ir įdiekite „vbsedit“, kuris pateikiamas kartu su „htaedit“.

Po to, kai turite šias dvi programas, jums tikrai nereikia jokios html/hta patirties, kad pradėtumėte kurti GUI. Tai puikiai tinka tokiems žmonėms kaip aš, kurie nenori mokytis hta tik norėdami sukurti GUI.

Dabar pereikite prie kito žingsnio, kad pamatytumėte, kaip sukūriau „Duck Encoder“…

4 žingsnis: kaip aš tai padariau

Taigi, pirmiausia:

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

Taip nustatomi keli dalykai, tokie kaip piktograma, kraštinės tipas ir kt.

Sub Window_OnLoad self.resizeTo 400, 454 Dim objFso: Set objFso = CreateObject ("Scripting. FileSystemObject") If Not objFso. FileExists ("c: / temp / duckencode.jar") Tada MsgBox "Klaida, failas nerastas: c: / temp / duckencode.jar ", 16," Duck Encoder "Self.close () pabaiga jei pabaiga

Be to, šis poskyris paleidžiamas automatiškai kiekvieną kartą paleidus programą. Tai pakeičia lango dydį, tada patikrinkite, ar „duckencode.jar“yra teisingame kataloge.

Sub OnClickButtonbtnLoad ()

Dim objShlApp, objFolderLocation, strFileLocation, objFso, objFolder, colFiles, strTextFileList, objFile Dim strCompleteText Nustatyti objFso = CreateObject ("Scripting. FileSystemObject") Nustatyti objShlAppolppOrfOpp (0, "Naršyti aplanką, kuriame yra failas:", 16384, 0) Jei Err. Number 0 Tada MsgBox "Turite pasirinkti aplanką, kuriame yra failas.", 16, "Duck Encoder" Err. Clear () Else If objFolderLocation = "" Tada išeiti iš antrinės klaidos Goto 0 Nustatyti objFolder = objFso. GetFolder (objFolderLocation. Self. Path & "\") Nustatyti colFiles = objFolder. Files strTextFileList = "" Už kiekvieną objFile In colFiles If InStr (objFile. Name,.txt ") Netiesa Tada strTextFileList = strTextFileList & objFile. Name & vbCrLf End If Next strFileLocation = InputBox (" Įveskite teisingą teksto failą, kurį norite užkoduoti: "& vbCrLf & vbCrLf & strTextFileList Is" Ducky " (strFileLocation) Tada jei ne objFso. FileExists (objFolder Location. Self. Path & "\" & strFileLocation) Tada MsgBox "Klaida, jūs turite pasirinkti teksto failą iš sąrašo!", 16, "Duck Encoder" Else On Error Resume Next strFileLocation = objFolderLocation. Self. Path & "\ "& strFileLocation Set objFile = objFso. OpenTextFile (strFileLocation, 1, FALSE) txtScript. Value = objFile. ReadAll objFile. Close () Jei Err. Number 0 Tada MsgBox" Teksto failas tuščias. ", 16," Duck Encoder Jei pabaiga Jei pabaiga Jei pabaiga, jei pabaiga Sub

Gerai, ši kodo dalis yra tikrai paini, tai yra kodas, kai vartotojas spustelėja „Įkelti iš teksto failo“. Kadangi praktiškai neįmanoma sukurti atviro failo dialogo „hta“, programa iššokančiajame lange aplanko dialogo langą ir paprašo vartotojo pasirinkti aplanką, kuriame yra scenarijaus failas. Tada programa atveria įvesties dėžutę, kurioje vartotojas klausia, kokį teksto failą įkelti į tą aplanką. Tada programa nuskaito viską, kas yra failo viduje, ir įdeda jį į teksto lauką.

Sub OnClickButtonbtnPaste () Dim objHTML, ClipboardText Set objHTML = CreateObject ("htmlfile") ClipboardText = objHTML. ParentWindow. ClipboardData. GetData ("text") Jei IsNull (ClipboardText) = Tiesa, tada "MsgBox"! "Duck Encoder" Kitas txtScript. Value = ClipboardText End If End Sub

Viskas, ką šis kodas daro, yra tada, kai vartotojas spustelėja „Įklijuoti iš iškarpinės“, programa įkelia tekstą iš iškarpinės į teksto laukelį.

5 žingsnis: kaip aš tai padariau (2 dalis)

Sub OnClickButtonbtnEncode () If txtScript. Value = "" Tada MsgBox "Nėra kodo!", 16, "Duck Encoder" Else Dim objFso, txtScriptFile Set objFso = CreateObject ("Scripting. Filesystemobject") Nustatykite txtScriptFile = objext "c: / temp / script.txt", 2, tiesa) txtScriptFile. WriteLine (txtScript. Value) txtScriptFile. Close () idTimer = window.setTimeout ("Compile", 800, "VBScript") End If End Sub Sub Compile () window.clearTimeout (idTimer) Dim objWshShl: Nustatykite objWshShl = CreateObject ("WScript. Shell") objWshShl. Run "java.exe -jar c: / temp / duckencode.jar -ic: / temp / script.txt -oc: / temp / inject.bin ", 0 'MsgBox" Scenarijus, sudarytas į injekciją.bin į c: / temp ", vbOKOnly+vbInformation," Ducky Encoder "pabaigos poskyris

Šis kodas paleidžiamas spustelėjus „Koduoti“.

Tai sukuria tekstinį failą, vadinamą „script.txt“, ir įdeda į jį viską, kas yra teksto laukelyje. Tada jis laukia 0,8 sekundės ir tada jį sukompiliuos.

Likusi kodo dalis sukuria GUI. Tai gana savaime suprantama, jei žinote pagrindinę hta.