USB Rubber Ducky Script Encoder (VBScript) - Gunook

2024 Autor: John Day | [email protected]. Zuletzt bearbeitet: 2024-01-30 07:17

Wenn Sie ein USB Rubber Ducky haben, wissen Sie, dass es eine sehr lästige Aufgabe ist, Ihr Skript in eine.bin-Datei zu kompilieren. Wenn Sie irgendeine Art von Debugging durchführen müssen, werden Sie wissen, dass das ständige Herunterladen Ihres kompilierten Skripts mühsam sein kann. Um dieses Problem zu beheben, habe ich ein VBScript erstellt, das Ihren Code schnell und einfach kompilieren kann.

Sie können die kompilierte.exe und den Quellcode unten herunterladen.

Wie auch immer, Sie fragen sich wahrscheinlich, wie ich eine so großartige GUI-Anwendung in vbs erstellt habe, und wenn ja, fahren Sie mit Schritt 3 fort.

Schritt 1: Installieren…

Eine Anleitung dazu finden Sie auch in der Datei REAMDE.txt. Wie auch immer, zuerst müssen Sie auf Ihrem Laufwerk C einen Ordner namens 'temp' erstellen, wenn Sie noch keinen haben. Wenn Sie Java noch nicht installiert haben, können Sie es hier herunterladen. Laden Sie als nächstes die duckencode.jar herunter und verschieben Sie die Datei in Ihren c:\temp-Ordner. Als nächstes entpacken Sie eine der ZIP-Dateien und führen Duck.hta im selben Verzeichnis wie 'ico.ico' und 'pic.gif' aus, wenn Sie die nicht kompilierte Version verwenden. Oder wenn Sie die kompilierte.exe verwenden, führen Sie einfach 'Duck.exe' aus.

Jetzt können wir zum nächsten Schritt übergehen…

Schritt 2: Verwendung…

Dieses Programm ist wirklich unkompliziert. Um es zu verwenden, klicken Sie einfach auf "Aus der Zwischenablage einfügen", um Ihren Code automatisch einzufügen. Oder klicken Sie auf Aus Textdatei laden, um das Skript aus einer Textdatei zu laden. Dann erscheint Ihr Code im Textfeld unten. Nehmen Sie die letzten gewünschten Änderungen an Ihrem Code vor und klicken Sie auf 'Encode'. Navigieren Sie zu c:\temp und verschieben Sie 'inject.bin' auf Ihren USB Rubber Ducky.

Sie fragen sich vielleicht, was script.txt ist. Was es ist, ist der unkompilierte Code aus dem Textfeld. Es wird als Backup des Rohcodes verwendet.

HINWEIS: Wenn Sie ein kleines Skript erstellen möchten, können Sie einfach Ihren Code in das Textfeld eingeben. Eine schnelle und einfache Möglichkeit, Ihr USB Rubber Ducky zu testen.

Fahren Sie mit dem nächsten Schritt fort, wenn Sie mehr darüber erfahren möchten, wie GUIs in vbs und wie dieses Programm erstellt wurde, andernfalls:

Vielen Dank für das Lesen dieses instructable, und wenn Sie Fragen, Kommentare oder Bedenken haben, posten Sie bitte einen Kommentar oder pm mich

Schritt 3: GUIs in VBScript

Also ja, es ist möglich, GUIs in vbs zu erstellen. Sie tun dies, indem Sie Ihren Text in eine HTA einschließen. Falls Sie es noch nicht wissen, HTA ist eine Skriptsprache, die html sehr ähnlich ist und einfach verwendet wird, um Skripte wie vbscripts und jscripts in eine GUI einzuschließen. Ausführliche Erklärung und Tutorial hier.

Nun, da Sie wissen, was hta ist, möchte ich Ihnen einige Tipps geben, wie Sie problemlos Abschlussarbeiten erstellen können. Laden Sie zuerst die HTA Helpomatic (Bild 2) unten herunter. Leider funktioniert der Originallink nicht mehr, aber zum Glück habe ich vor einiger Zeit eine Kopie gespeichert. Laden Sie als nächstes vbsedit herunter und installieren Sie es, das mit htaedit geliefert wird.

Nachdem Sie diese beiden Programme haben, benötigen Sie wirklich keine HTML/HTA-Erfahrung, um mit der Erstellung von GUIs zu beginnen. Das ist großartig für Leute wie mich, die nicht hta lernen wollen, nur um GUIs zu erstellen.

Fahren Sie nun mit dem nächsten Schritt fort, um zu sehen, wie ich den Duck Encoder gemacht habe…

Schritt 4: Wie ich es gemacht habe

So zuerst:

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

Dadurch werden einige Dinge wie das Symbol, der Rahmentyp usw. eingerichtet.

Sub Window_OnLoad self.resizeTo 400, 454 Dim objFso: Set objFso = CreateObject("Scripting. FileSystemObject") If Not objFso. FileExists("c:\temp\duckencode.jar") Then MsgBox "Fehler, Datei nicht gefunden: c: \temp\duckencode.jar", 16, "Duck Encoder" Self.close() End If End Sub

Als nächstes wird dieses Unterprogramm automatisch ausgeführt, wenn das Programm zum ersten Mal gestartet wird. Was es tut, ist die Größe des Fensters zu ändern und dann zu überprüfen, ob sich 'duckencode.jar' im richtigen Verzeichnis befindet.

Sub OnClickButtonbtnLoad()

Dim objShlApp, objFolderLocation, strFileLocation, objFso, objFolder, colFiles, strTextFileList, objFile Dim strCompleteText Set objFso = CreateObject("Scripting. FileSystemObject") Set objShlApp = CreateObject("Shell. Application") On Error (0, "Nach Ordner suchen, der die Datei enthält: ", 16384, 0) If Err. Number 0 Then MsgBox "Sie müssen den ORDNER auswählen, der die Datei enthält.", 16, "Duck Encoder" Err. Clear() Else If objFolderLocation = "" Then Exit Sub On Error Goto 0 Set objFolder = objFso. GetFolder(objFolderLocation. Self. Path & "\") Set colFiles = objFolder. Files strTextFileList = "" Für jede objFile in colFiles If InStr(objFile. Name, ".txt") False Then strTextFileList = strTextFileList & objFile. Name & vbCrLf End If Next strFileLocation = InputBox("Bitte geben Sie die richtige Textdatei ein, die Sie codieren möchten: " & vbCrLf & vbCrLf & strTextFileList, "Ducky Encoder") If Not IsEmpty (strFileLocation) Then If not objFso. FileExists(objFolder Location. Self. Path & "\" & strFileLocation) Dann MsgBox "Fehler, Sie müssen eine Textdatei aus der Liste auswählen!", 16, "Duck Encoder" Sonst bei Fehler Fortsetzen Weiter strFileLocation = objFolderLocation. Self. Path & "\ " & strFileLocation Set objFile = objFso. OpenTextFile(strFileLocation, 1, FALSE) txtScript. Value = objFile. ReadAll objFile. Close() If Err. Number 0 Then MsgBox "Textdatei ist leer.", 16, "Duck Encoder" End Wenn Ende Wenn Ende Wenn Ende, wenn Ende Unter

Ok, dieser Teil des Codes ist wirklich verwirrend, das ist der Code, wenn der Benutzer auf 'Aus Textdatei laden' klickt. Da es praktisch unmöglich ist, in hta einen Dialog zum Öffnen einer Datei zu erstellen, öffnet das Programm einen Dialog zum Durchsuchen des Ordners, um den Benutzer aufzufordern, den Ordner auszuwählen, der die Skriptdatei enthält. Dann öffnet das Programm ein Eingabefeld und fragt den Benutzer, welche Textdatei in diesen Ordner geladen werden soll. Dann liest das Programm alles, was sich in der Datei befindet, und fügt es in das Textfeld ein.

Sub OnClickButtonbtnPaste() Dim objHTML, ClipboardText Set objHTML = CreateObject("htmlfile") ClipboardText = objHTML. ParentWindow. ClipboardData. GetData("text") If IsNull(ClipboardText) = True Then MsgBox "Nichts in der Zwischenablage!", 16, "Duck Encoder" Else txtScript. Value = ClipboardText End If End Sub

Alles, was dieser Code tut, ist, wenn der Benutzer auf 'Aus Zwischenablage einfügen' klickt, lädt das Programm den Text aus der Zwischenablage in das Textfeld.

Schritt 5: Wie ich es gemacht habe (Teil 2)

Sub OnClickButtonbtnEncode() If txtScript. Value = "" Then MsgBox "Es gibt keinen Code!", 16, "Duck Encoder" Else Dim objFso, txtScriptFile Set objFso = CreateObject("Scripting. Filesystemobject") Set txtScriptFile = objFso. OpenTextFile("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 "Skript kompiliert zu inject.bin in c:\temp", vbOKOnly+vbInformation, "Ducky Encoder" End Sub

Dieser Code wird ausgeführt, wenn Sie auf 'Encode' klicken.

Es erstellt eine Textdatei namens script.txt und fügt alles, was sich in der Textbox befindet, darin ein. Dann wartet es 0,8 Sekunden und kompiliert es dann.

Der Rest des Codes erstellt nur die GUI. Es ist ziemlich selbsterklärend, wenn Sie grundlegende hta kennen.