USB Rubber Ducky Script Encoder (VBScript) - Ajarnpa

2024 Auteur: John Day | [email protected]. Laatst gewijzigd: 2024-01-30 11:16

Als je een USB Rubber Ducky hebt, weet je dat het een erg vervelende taak is om je script naar een.bin-bestand te compileren. Als je enige vorm van foutopsporing moet doen, weet je dat het constant downloaden van je gecompileerde script lastig kan zijn. Dus om dit probleem op te lossen, heb ik een VBScript gemaakt dat je code snel en gemakkelijk kan compileren.

U kunt de gecompileerde.exe en de broncode hieronder downloaden.

Hoe dan ook, je vraagt je waarschijnlijk af hoe ik zo'n geweldige GUI-applicatie in vbs heb gemaakt, en zo ja, ga dan naar stap 3.

Stap 1: Installeren…

Er zijn ook instructies om dit te doen in het REAMDE.txt-bestand. Hoe dan ook, je moet eerst een map op je C-schijf maken met de naam 'temp' als je die nog niet hebt. Ook als je Java nog niet hebt geïnstalleerd, kun je het hier vandaan halen. Download vervolgens de duckencode.jar en verplaats het bestand naar uw c:\temp map. Pak vervolgens een van de.zip-bestanden uit en voer Duck.hta uit in dezelfde map als 'ico.ico' en 'pic.gif' als je de niet-gecompileerde versie gebruikt. Of als u de gecompileerde.exe gebruikt, voert u gewoon 'Duck.exe' uit.

Nu kunnen we verder met de volgende stap…

Stap 2: Gebruik…

Dit programma is heel eenvoudig, om het te gebruiken, klik je gewoon op 'Plakken van klembord' om automatisch je code in te plakken. Of klik op laden uit tekstbestand, om het script uit een tekstbestand te laden. Dan verschijnt uw code in het onderstaande tekstvak. Breng eventuele laatste wijzigingen aan in uw code en klik op 'Coderen'. Navigeer naar c:\temp en verplaats 'inject.bin' naar je USB Rubber Ducky.

Je vraagt je misschien af wat script.txt is. Wat het is, is de niet-gecompileerde code uit het tekstvak. Het wordt gebruikt als een back-up van de onbewerkte code.

OPMERKING: Als u een klein script wilt maken, typt u gewoon uw code in het tekstvak. Een snelle en gemakkelijke manier om uw USB Rubber Ducky uit te testen.

Ga naar de volgende stap als je meer wilt weten over hoe GUI's in vbs en hoe dit programma is gemaakt, anders:

Bedankt voor het lezen van deze instructable, en als je vragen, opmerkingen of opmerkingen hebt, plaats dan een reactie of pm me

Stap 3: GUI's in VBScript

Dus ja, het is mogelijk om GUI's te maken in vbs. De manier waarop u dat doet, is door uw tekst in een HTA te verpakken. Voor het geval je het nog niet weet, HTA is een scripttaal die erg lijkt op html die eenvoudig wordt gebruikt om scripts zoals vbscripts en jscripts in een GUI in te pakken. Gedetailleerde uitleg en tutorial hier.

Dus nu je weet wat hta is, wil ik je wat tips geven over hoe je gemakkelijk scripties kunt maken. Download eerst de HTA helpomatic (foto 2) hieronder. Helaas werkt de originele link niet meer, maar gelukkig heb ik een tijdje terug een kopie bewaard. Download en installeer vervolgens vbsedit, dat bij htaedit wordt geleverd.

Nadat je deze twee programma's hebt, heb je echt geen html/hta-ervaring nodig om GUI's te maken. Dat is geweldig voor mensen zoals ik, die niet alleen hta willen leren om GUI's te maken.

Ga nu verder met de volgende stap om te zien hoe ik de Duck Encoder heb gemaakt…

Stap 4: Hoe ik het heb gemaakt

Dus eerst:

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

Dit stelt een paar dingen in, zoals het pictogram, het randtype, enz.

Sub Window_OnLoad self.resizeTo 400, 454 Dim objFso: Set objFso = CreateObject("Scripting. FileSystemObject") Indien niet objFso. FileExists("c:\temp\duckencode.jar") Dan MsgBox "Fout, bestand niet gevonden: c: \temp\duckencode.jar", 16, "Duck Encoder" Self.close() End If End Sub

Vervolgens wordt deze sub automatisch uitgevoerd wanneer het programma voor het eerst wordt gestart. Wat het doet, is het formaat van het venster wijzigen en vervolgens controleren of 'duckencode.jar' in de juiste map staat.

Sub OnClickButtonbtnLoad()

Dim objShlApp, objFolderLocation, strFileLocation, objFso, objFolder, colFiles, strTextFileList, objFile Dim strCompleteText Set objFso = CreateObject ("Scripting. FileSystemObject") Set objShlApp = CreateObject Next("") Set OnSell. (0, "Bladeren naar map die het bestand bevat: ", 16384, 0) If Err. Number 0 Then MsgBox "U moet de FOLDER selecteren die het bestand bevat.", 16, "Duck Encoder" Err. Clear() Else If objFolderLocation =".txt") False Then strTextFileList = strTextFileList & objFile. Name & vbCrLf End If Next strFileLocation = InputBox ("Voer het juiste tekstbestand in dat u wilt coderen: " & vbCrLf & vbCrLf & strTextFileList, "Ducky Encodempty") (strFileLocation) Dan, indien niet objFso. FileExists(objFolder Location. Self. Path & "\" & strFileLocation) Dan MsgBox "Fout, u moet een tekstbestand uit de lijst kiezen!", 16, "Duck Encoder" Anders Bij Fout Hervatten Volgende strFileLocation = objFolderLocation. Self. Path & "\ " & strFileLocation Stel objFile = objFso. OpenTextFile(strFileLocation, 1, FALSE) in txtScript. Value = objFile. ReadAll objFile. Close() If Err. Number 0 Dan MsgBox "Tekstbestand is leeg.", 16, "Duck Encoder" End Als Einde Als Einde Als Einde als Einde Sub

Ok, dit deel van de code is echt verwarrend, dit is de code voor als de gebruiker op 'Laden uit tekstbestand' klikt. Aangezien het praktisch onmogelijk is om in hta een dialoogvenster met een open bestand te maken, verschijnt er een dialoogvenster Bladeren naar map waarin de gebruiker wordt gevraagd de map te selecteren die het scriptbestand bevat. Vervolgens opent het programma een invoervak waarin de gebruiker wordt gevraagd welk tekstbestand in die map moet worden geladen. Dan leest het programma wat er in het bestand staat en plaatst het in het tekstvak.

Sub OnClickButtonbtnPaste() Dim objHTML, ClipboardText Set objHTML = CreateObject("htmlfile") ClipboardText = objHTML. ParentWindow. ClipboardData. GetData("text") If IsNull(ClipboardText) = True Dan MsgBox "Niets op het klembord!", 16, "Duck Encoder" Anders txtScript. Value = ClipboardText End If End Sub

Het enige wat deze code doet, is dat wanneer de gebruiker op 'Plakken van klembord' klikt, het programma de tekst van het klembord in het tekstvak laadt.

Stap 5: Hoe ik het heb gemaakt (deel 2)

Sub OnClickButtonbtnEncode() If txtScript. Value = "" Dan MsgBox "Er is geen code!", 16, "Duck Encoder" Anders Dim objFso, txtScriptFile Set objFso = CreateObject ("Scripting. Filesystemobject") Set txtScriptFileentTexFileentTexFile. "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: Set objWshShl = CreateObject("WScript. Shell") objWshShl. Run "java.exe -jar c:\temp\duckencode.jar -ic:\temp\script.txt -oc:\temp\inject.bin", 0 'MsgBox "Script gecompileerd naar inject.bin in c:\temp", vbOKOnly+vbInformation, "Ducky Encoder" End Sub

Deze code wordt uitgevoerd wanneer u op 'Encode' klikt.

Wat het doet, is een tekstbestand maken met de naam script.txt en alles erin plaatsen wat zich in het tekstvak bevindt. Dan wacht het 0,8 seconden en compileert het dan.

De rest van de code maakt alleen de GUI. Het is vrij duidelijk als je de basis-hta kent.