USB Rubber Ducky Script Encoder (VBScript): 5 stappe

2024 Outeur: John Day | [email protected]. Laas verander: 2024-01-30 07:25

As u 'n USB Rubber Ducky het, sal u weet dat dit 'n baie irriterende taak is om u script na 'n.bin -lêer saam te stel. As u enige ontfouting moet doen, sal u weet dat voortdurende aflaai van u saamgestelde skrif pynlik kan wees. Om hierdie probleem op te los, het ek 'n VBScript geskep wat u kode vinnig en maklik kan saamstel.

U kan die saamgestelde.exe en die bronkode hieronder aflaai.

U wonder in elk geval waarskynlik hoe ek so 'n wonderlike GUI -toepassing in vbs gemaak het, en as dit so is, gaan dan na stap 3.

Stap 1: Installeer …

Daar is ook instruksies oor hoe u dit moet doen in die REAMDE.txt -lêer. U moet in elk geval 'n gids in u C -skyf met die naam 'temp' skep as u nog nie een het nie. As u java nog nie geïnstalleer het nie, kan u dit hier aflaai. Laai dan die duckencode.jar af en skuif die lêer na u c: / temp -lêergids. Pak dan een van die.zip-lêers uit en voer Duck.hta in dieselfde gids as 'ico.ico' en 'pic.gif' as u die nie-saamgestelde weergawe gebruik. Of as u die saamgestelde.exe gebruik, voer eenvoudig 'Duck.exe' uit.

Nou kan ons voortgaan met die volgende stap …

Stap 2: Gebruik …

Hierdie program is eenvoudig: om dit te gebruik, klik eenvoudig op 'Plak van knipbord' om u kode outomaties in te plak. Of klik op laai uit tekslêer om die skrif uit 'n tekslêer te laai. Dan verskyn u kode in die onderstaande tekskassie. Maak die laaste veranderinge wat u aan u kode wil doen, en klik op 'Encode'. Gaan na c: / temp en skuif 'inject.bin' na u USB Rubber Ducky.

U wonder miskien wat script.txt is. Wat dit is, is die nie -saamgestelde kode uit die tekskassie. Dit word gebruik as 'n rugsteun van die rou kode.

OPMERKING: as u 'n klein skrif wil maak, kan u eenvoudig u kode in die tekskassie invoer. 'N Vinnige en maklike manier om u USB Rubber Ducky te toets.

Gaan na die volgende stap as u meer wil uitvind oor hoe GUI's in vbs en hoe hierdie program gemaak is, anders:

Dankie dat u hierdie instruksies gelees het, en as u vrae, kommentaar of kommer het, plaas 'n opmerking of pm my

Stap 3: GUI's in VBScript

So ja, dit is moontlik om GUI's in vbs te maak. Die manier waarop u dit doen, is deur u teks in 'n HTA te draai. As u dit nie alreeds weet nie, is HTA 'n skriptaal wat baie soortgelyk is aan html wat gebruik word om skrifte soos vbscripts en jscripts in 'n GUI te draai. Gedetailleerde verduideliking en handleiding hier.

Noudat u weet wat hta is, kan ek u 'n paar wenke gee oor hoe u tesisse maklik kan maak. Laai eers die HTA helpomatic (foto 2) hieronder af. Ongelukkig werk die oorspronklike skakel nie meer nie, maar ek het gelukkig 'n rukkie terug gestoor. Laai dan af en installeer vbsedit, wat saam met htaedit kom.

Nadat u hierdie twee programme gehad het, het u regtig geen html/hta -ervaring nodig om GUI's te begin maak nie. Dit is wonderlik vir mense soos ek, wat nie hta wil leer nie, net om GUI's te maak.

Gaan nou na die volgende stap om te sien hoe ek die Duck Encoder gemaak het …

Stap 4: Hoe ek dit reggekry het

Dus, eers:

APPLICATIONNAME = "Eend Encoder" ID = "DuckEncoder" VERSION = "1.0" INNERBORDER = "nee" MAXIMIZEBUTTON = "nee" ICON = "ico.ico" SCROLL = "nee"

Dit stel 'n paar dinge op, soos die ikoon, grense, ens.

Sub Window_OnLoad self.resizeTo 400, 454 Dim objFso: Set objFso = CreateObject ("Scripting. FileSystemObject") If Not objFso. FileExists ("c: / temp / duckencode.jar") Then MsgBox "Error, file not found: c: / temp / duckencode.jar ", 16," Duck Encoder "Self.close () Einde As Einde Sub

Vervolgens loop hierdie sub outomaties wanneer die program die eerste keer begin word. Wat dit doen, is om die grootte van die venster te verander en te kyk of 'duckencode.jar' in die regte gids is.

Sub OnClickButtonbtnLoad ()

Dim objShlApp, objFolderLocation, strFileLocation, objFso, objFolder, colFiles, strTextFileList, objFile Dim strCompleteText Stel objFso = CreateObject ("Scripting. FileSystemObject") Stel objShlApp = CreateObjectFaultBlackFlickObjectFaultLappForFlayerFaultLappFormationObjectFaultLapplayer (0, "Blaai na die gids wat die lêer bevat:", 16384, 0) As Err. Number 0 Dan MsgBox "U moet die MAPPER met die lêer kies.", 16, "Duck Encoder" Err. Clear () Anders as objFolderLocation = "" Dan verlaat Sub op fout Gaan na 0 Stel objFolder = objFso. GetFolder (objFolderLocation. Self. Path & "\") Stel colFiles = objFolder. Files strTextFileList = "" Vir elke objFile In colFiles If InStr (objFile. Name, ".txt ") Onwaar dan strTextFileList = strTextFileList & objFile. Name & vbCrLf Einde as volgende strFileLocation = InputBox (" Voer die korrekte tekslêer in wat u wil kodeer: "& vbCrLf & vbCrLf & strTextFileList," Ducky Encoder ") (strFileLocation) Dan indien nie objFso. FileExists (objFolder Location. Self. Path & "\" & strFileLocation) Dan MsgBox "Error, u moet 'n tekslêer uit die lys kies!", 16, "Duck Encoder" Anders op fout Hervat Volgende strFileLocation = objFolderLocation. Self. Path & "\ "& strFileLocation Stel objFile = objFso. OpenTextFile (strFileLocation, 1, ONWAAR) txtScript. Value = objFile. ReadAll objFile. Close () As Err. Number 0 Dan eindig MsgBox" Teks lêer leeg. ", 16," Eend Encoder "Einde As Einde As Einde As Einde as Einde Sub

Ok, hierdie deel van die kode is regtig verwarrend; dit is die kode vir wanneer die gebruiker op 'Laai uit tekslêer' klik. Aangesien dit feitlik onmoontlik is om 'n oop lêerdialoog in hta te maak, verskyn 'n blaai-na-vouer-dialoog om die gebruiker te vra om die gids met die skriplêer te kies. Dan maak die program 'n invoerbus oop wat die gebruiker vra watter tekslêer in die gids moet laai. Dan lees die program alles wat in die lêer is en plaas dit in die tekskassie.

Sub OnClickButtonbtnPaste () Dim objHTML, ClipboardText Set objHTML = CreateObject ("htmlfile") ClipboardText = objHTML. ParentWindow. ClipboardData. GetData ("text") If IsNull (ClipboardText) = True Then MsgBox "Nothing, the MsgBox" Nothing "Duck Encoder" Anders txtScript. Value = ClipboardText Einde As Einde Sub

Al wat hierdie kode doen, is wanneer die gebruiker op 'Plak van knipbord' klik, laai die program die teks van die knipbord na die tekskassie.

Stap 5: Hoe ek dit reggekry het (deel 2)

Sub OnClickButtonbtnEncode () If txtScript. Value = "" Dan is MsgBox "Daar is geen kode nie!", 16, "Duck Encoder" Anders Dim objFso, txtScriptFile Set objFso = CreateObject ("Scripting. Filesystemobject") Stel txtScriptFile = objFso. Open "c: / temp / script.txt", 2, waar) txtScriptFile. WriteLine (txtScript. Value) txtScriptFile. Close () idTimer = window.setTimeout ("Compile", 800, "VBScript") End If End Sub Sub Compile () window.clearTimeout (idTimer) Dim objWshShl: Stel objWshShl = CreateObject ("WScript. Shell") objWshShl. Run "java.exe -jar c: / temp / duckencode.jar -ic: / temp / script.txt -oc: / temp / inject.bin ", 0 'MsgBox" Script saamgestel om inject.bin in c: / temp ", vbOKOnly+vbInformation," Ducky Encoder "End Sub

Hierdie kode word uitgevoer as u op 'Encode' klik.

Wat dit doen, is om 'n tekslêer genaamd script.txt te skep en alles wat in die teksbus is, daarby te plaas. Dan wag dit 0,8 sekondes en stel dit dan saam.

Die res van die kode skep net die GUI. Dit is redelik vanselfsprekend as u basiese hta ken.