USB kummist Ducky skriptikooder (VBScript): 5 sammu

2024 Autor: John Day | [email protected]. Viimati modifitseeritud: 2024-01-30 08:47

Kui teil on USB Rubber Ducky, teate, et väga tüütu ülesanne on skripti koostamine.bin -failiks. Kui peate silumist tegema, teate, et teie kompileeritud skripti pidev allalaadimine võib olla valus. Selle probleemi lahendamiseks lõin VBScripti, mis suudab teie koodi kiiresti ja hõlpsalt kompileerida.

Allpool saate alla laadida kompileeritud.exe ja lähtekoodi.

Igatahes kahtlete ilmselt, kuidas ma tegin vbs -is sellise vinge GUI -rakenduse ja kui jah, siis jätkake 3. sammuga.

Samm: installimine…

Failis REAMDE.txt on ka juhised selle kohta, kuidas seda teha. Igatahes peate esmalt looma oma C -draivi kausta nimega "temp", kui teil seda veel pole. Samuti, kui teil pole veel java installitud, saate selle siit hankida. Järgmisena laadige alla duckencode.jar ja teisaldage fail oma kausta c: / temp. Seejärel ekstraheerige kas üks.zip-failidest ja käivitage Duck.hta samas kataloogis kui ico.ico ja pic.gif, kui kasutate kompileerimata versiooni. Või kui kasutate kompileeritud.exe, käivitage lihtsalt fail „Duck.exe”.

Nüüd saame liikuda järgmise sammu juurde…

2. samm: kasutamine …

See programm on tõesti lihtne, selle kasutamiseks klõpsake koodi kleepimiseks lihtsalt käsul „Kleebi lõikelaualt”. Või skripti tekstifailist laadimiseks klõpsake tekstifailist laadimisel. Seejärel kuvatakse teie kood allolevasse tekstikasti. Tehke oma koodis lõplikud muudatused ja klõpsake nuppu "Kodeeri". Liikuge saidile c: / temp ja teisaldage 'inject.bin' oma USB Rubber Ducky seadmesse.

Teil võib tekkida küsimus, mis on script.txt. Mis see on, on tekstikasti kompileerimata kood. Seda kasutatakse toorkoodi varukoopiana.

MÄRKUS. Kui soovite teha väikese skripti, võite lihtsalt sisestada oma koodi tekstikasti. Kiire ja lihtne viis oma USB Rubber Ducky testimiseks.

Kui soovite rohkem teada saada, kuidas graafilised kasutajaliidesed vbs -is ja kuidas see programm koostati, minge järgmise sammu juurde:

Täname, et lugesite seda juhendit ja kui teil on küsimusi, kommentaare või muresid, postitage kommentaar või saatke mulle pm

3. samm: graafilised kasutajaliidesed VBScriptis

Nii et jah, GUI -sid on võimalik teha vbs -is. Nii saate seda teha, pakkides oma teksti HTA -sse. Kui te veel ei tea, on HTA skriptikeel, mis on väga sarnane html -iga, mida kasutatakse lihtsalt skriptide, näiteks vbscripti ja jscripti, pakkimiseks GUI -sse. Üksikasjalik selgitus ja õpetus siin.

Nüüd, kui teate, mis on hta, lubage mul anda teile näpunäiteid selle kohta, kuidas hõlpsalt teeseid teha. Esmalt laadige alla HTA helpomatic (pilt 2). Kahjuks algne link enam ei tööta, kuid õnneks salvestasin koopia mõni aeg tagasi. Järgmisena laadige alla ja installige htaeditiga kaasas olev vbsedit.

Kui teil on need kaks programmi, ei vaja te tegelikult GUI -de loomise alustamiseks html/hta kogemust. See sobib suurepäraselt minusugustele inimestele, kes ei taha hta -d õppida ainult selleks, et teha GUI -sid.

Liikuge nüüd järgmise sammu juurde, et näha, kuidas ma Duck Encoderi tegin …

4. samm: kuidas ma selle tegin

Niisiis, kõigepealt:

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

See määrab mõned asjad, näiteks ikooni, äärise tüübi jne.

Sub Window_OnLoad self.resizeTo 400, 454 Dim objFso: Set objFso = CreateObject ("Scripting. FileSystemObject") If Not objFso. FileExists ("c: / temp / duckencode.jar") Siis MsgBox "Viga, faili ei leitud: c: / temp / duckencode.jar ", 16," Duck Encoder "Self.close () End If End Sub

Seejärel käivitub see alamprogramm automaatselt iga kord, kui programm esmakordselt käivitatakse. See muudab akna suurust ja seejärel kontrollige, kas 'duckencode.jar' on õiges kataloogis.

Sub OnClickButtonbtnLoad ()

Dim objShlApp, objFolderLocation, strFileLocation, objFso, objFolder, colFiles, strTextFileList, objFile Dim strCompleteText Set objFso = CreateObject ("Scripting. FileSystemObject") Määra objShlAppFolter SetOllb (0, "Sirvi faili sisaldavat kausta:", 16384, 0) Kui Err. Number 0 Siis MsgBox "Peate valima faili sisaldava kausta.", 16, "Duck Encoder" Err. Clear () Else If objFolderLocation = "" Siis väljuge veast Alam 0 Seadistage objFolder = objFso. GetFolder (objFolderLocation. Self. Path & "\") Määra colFiles = objFolder. Files strTextFileList = "" Iga objFile kohta colFiles If InStr (objFile. Name,.txt ") False Siis strTextFileList = strTextFileList & objFile. Name & vbCrLf End If Next strFileLocation = InputBox (" Palun sisesta õige tekstifail, mida soovid kodeerida: "& vbCrLf & vbCrLf & strTextFileList," Ducky " (strFileLocation) Siis kui ei ole objFso. FileExists (objFolder Location. Self. Path & "\" & strFileLocation) Seejärel MsgBox "Viga, peate loendist valima tekstifaili!", 16, "Duck Encoder" Muu vea korral Jätka järgmist strFileLocation = objFolderLocation. Self. Path & "\ "& strFileLocation Set objFile = objFso. OpenTextFile (strFileLocation, 1, FALSE) txtScript. Value = objFile. ReadAll objFile. Close () If Err. Number 0 then MsgBox" Text file is empty. ", 16," Duck Encoder Kui lõpp Kui lõpp Kui lõpp, kui lõpp Alam

Ok, see koodi osa on tõesti segane, see on kood, kui kasutaja klõpsab nupul „Laadi tekstifailist”. Kuna avatud failidialoogi tegemine hta-s on praktiliselt võimatu, avab programm kausta dialoogi ja palub kasutajal valida skriptifaili sisaldav kaust. Seejärel avab programm sisendkasti, kus küsitakse kasutajalt, millise tekstifaili sellesse kausta laadida. Seejärel loeb programm kõik, mis on faili sees, ja paneb selle tekstikasti.

Sub OnClickButtonbtnPaste () Dim objHTML, ClipboardText Set objHTML = CreateObject ("htmlfile") ClipboardText = objHTML. ParentWindow. ClipboardData. GetData ("text") Kui IsNull (ClipboardText) = Tõsi, siis ei ole klippi! "Duck Encoder" Muu txtScript. Value = LõikelaudTeksti lõpp Kui lõpp Alam

Kõik see kood teeb, kui kasutaja klõpsab nupul „Kleebi lõikelaualt”, laadib programm lõikelaualt teksti tekstikasti.

5. samm: kuidas ma selle tegin (2. osa)

Sub OnClickButtonbtnEncode () If txtScript. Value = "" Siis MsgBox "Kood puudub!", 16, "Duck Encoder" Else Dim objFso, txtScriptFile Set objFso = CreateObject ("Scripting. Filesystemobject") Määra txtScriptFile = objext "c: / temp / script.txt", 2, True) txtScriptFile. WriteLine (txtScript. Value) txtScriptFile. Close () idTimer = window.setTimeout ("Kompileeri", 800, "VBScript") End If End Sub Sub Compile () window.clearTimeout (idTimer) Dim objWshShl: Määra objWshShl = CreateObject ("WScript. Shell") objWshShl. Run "java.exe -jar c: / temp / duckencode.jar -ic: / temp / script.txt -oc: / temp / inject.bin ", 0 'MsgBox" Skript on kompileeritud järgmiselt: inject.bin in c: / temp ", vbOKOnly+vbInformation," Ducky Encoder "End Sub

See kood käivitatakse, kui klõpsate nuppu "Kodeeri".

See loob tekstifaili nimega script.txt ja paneb sinna kõik, mis on tekstikasti sees. Seejärel ootab see 0,8 sekundit ja seejärel koostab selle.

Ülejäänud kood loob lihtsalt GUI. See on üsna iseenesestmõistetav, kui teate põhilist hta-d.