Codificador USB Ducky Script (VBScript): 5 passos

2024 Autora: John Day | [email protected]. Última modificació: 2024-01-30 08:13

Si teniu un USB Rubber Ducky, sabreu que una tasca molt molesta consisteix a compilar el vostre script en un fitxer.bin. Si heu de fer qualsevol tipus de depuració, sabreu que la descàrrega constant del vostre script compilat pot ser un problema. Per solucionar aquest problema, he creat un VBScript que pot compilar el vostre codi de forma ràpida i senzilla.

Podeu descarregar el fitxer.exe compilat i el codi font a continuació.

De totes maneres, probablement us pregunteu com he creat una aplicació GUI tan impressionant en vbs i, si és així, aneu al pas 3.

Pas 1: instal·lació …

També hi ha instruccions sobre com fer-ho al fitxer REAMDE.txt. De totes maneres, primer heu de crear una carpeta a la vostra unitat C anomenada "temp" si encara no en teniu cap. A més, si encara no teniu Java instal·lat, podeu obtenir-lo des d’aquí. A continuació, descarregueu duckencode.jar i moveu el fitxer a la carpeta c: / temp. A continuació, extreu qualsevol fitxer.zip i executeu Duck.hta al mateix directori que 'ico.ico' i 'pic.gif' si utilitzeu la versió no compilada. O si utilitzeu el fitxer.exe compilat, simplement executeu "Duck.exe".

Ara podem passar al següent pas …

Pas 2: Ús …

Aquest programa és molt senzill; per fer-lo servir, només cal que feu clic a "Enganxa del porta-retalls" per enganxar-lo automàticament al vostre codi. O bé feu clic a Carrega des d'un fitxer de text per carregar l'script des d'un fitxer de text. A continuació, el vostre codi apareixerà al quadre de text següent. Feu els canvis finals que vulgueu al vostre codi i premeu "Codifica". Aneu a c: / temp i moveu 'inject.bin' al vostre USB Rubber Ducky.

És possible que us pregunteu què és script.txt. El que és, és el codi no compilat del quadre de text. S'utilitza com a còpia de seguretat del codi en brut.

NOTA: Si voleu crear un petit script, només cal que escriviu el codi al quadre de text. Una manera ràpida i senzilla de provar el vostre USB Rubber Ducky.

Aneu al pas següent si voleu obtenir més informació sobre com es fabriquen les GUI a vbs i com es va fer aquest programa, en cas contrari:

Gràcies per llegir aquest document instructiu i, si teniu cap pregunta, comentari o inquietud, envieu-nos un comentari o vull contactar amb mi

Pas 3: GUI a VBScript

Així que sí, és possible crear GUI a vbs. La manera de fer-ho és embolicant el text en un HTA. Per si encara no ho sabeu, HTA és un llenguatge de script molt similar a html que s'utilitza simplement per embolicar scripts com vbscripts i jscripts en una GUI. Explicació detallada i tutorial aquí.

Ara que ja sabeu què és l’hta, deixeu-me donar-vos alguns consells sobre com fer tesis fàcilment. Primer descarregueu l'HTA helpomatic (foto 2) a continuació. Malauradament, l'enllaç original ja no funciona, però per sort vaig guardar-ne una còpia una estona enrere. A continuació, baixeu i instal·leu vbsedit, que ve amb htaedit.

Després de tenir aquests dos programes, realment no necessiteu experiència html / hta per començar a crear GUI. Això és fantàstic per a persones com jo, que no volen aprendre només a fer GUI.

Ara passeu al següent pas per veure com he creat el codificador d'ànec …

Pas 4: Com ho he aconseguit

Per tant, primer:

APPLICATIONNAME = "Codificador d'ànec" ID = "Coder d'ànec" VERSIÓ = "1.0" INNERBORDER = "no" MAXIMIZEBUTTON = "no" ICON = "ico.ico" SCROLL = "no"

Això configura algunes coses, com ara la icona, el tipus de vora, etc.

Sub Window_OnLoad self.resizeTo 400, 454 Dim objFso: Set objFso = CreateObject ("Scripting. FileSystemObject") Si no objFso. FileExists ("c: / temp / duckencode.jar") Llavors Error MsgBox ", no s'ha trobat el fitxer: c: / temp / duckencode.jar ", 16," Codificador d'ànec "Self.close () Finalitza si finalitza Sub

A continuació, aquest subexecutiu s'executa automàticament cada vegada que s'inicia el programa. El que fa és canviar la mida de la finestra i comprovar per assegurar-se que "duckencode.jar" es troba al directori correcte.

Sub OnClickButtonbtnLoad ()

Dim objShlApp, objFolderLocation, strFileLocation, objFso, objFolder, colFiles, strTextFileList, objFile Dim strCompleteText Set objFso = CreateObject ("Scripting. FileSystemObject") Set objShlApp = CreateObject ("Shell. Application" = ObjectFold Resume (0, "Cerca la carpeta que conté el fitxer:", 16384, 0) Si Err. Number 0 Llavors MsgBox "Heu de seleccionar la CARPETA que conté el fitxer.", 16, "Codificador d'ànec" Err. Clear () Altres Si objFolderLocation = "" A continuació, surt de l'error Sub Anar a 0 Establir objectFolder = objFso. GetFolder (objFolderLocation. Self. Path & "\") Establir colFiles = objFolder. Files strTextFileList = "" Per a cada objectFile de colFiles Si InStr (objFile. Name, ".txt ") False Llavors strTextFileList = strTextFileList & objFile. Name & vbCrLf Finalitza si següent StrFileLocation = InputBox (" Introduïu el fitxer de text correcte que vulgueu codificar: "& vbCrLf & vbCrLf & strTextFileList," Ducky Encoder ") (strFileLocation) Llavors, si no, objFso. FileExists (objFolder Location. Self. Path & "\" & strFileLocation) Després, MsgBox "Error, heu de triar un fitxer de text de la llista." "Establir & strFileLocation objFile = objFso. OpenTextFile (strFileLocation, 1, FALSE) txtScript. Value = objFile. ReadAll objFile. Close () Si Err. Number 0 Llavors MsgBox" El fitxer de text està buit. ", 16," Codificador d'ànec "Final Si Finalitza Si Finalitza Si Finalitza si Finalitza Sub

D’acord, aquesta part del codi és realment confusa, aquest és el codi per al qual l’usuari fa clic a "Carrega des del fitxer de text". Com que és pràcticament impossible crear un quadre de diàleg de fitxer obert a hta, el programa apareix en un diàleg de cerca de carpetes per demanar a l'usuari que seleccioni la carpeta que conté el fitxer de seqüència. A continuació, el programa obre una caixa d’entrada que demana a l’usuari quin fitxer de text carrega dins d’aquesta carpeta. A continuació, el programa llegeix tot el que hi ha dins del fitxer i el posa al quadre de text.

Sub OnClickButtonbtnPaste () Dim objHTML, ClipboardText Set objHTML = CreateObject ("htmlfile") ClipboardText = objHTML. ParentWindow. ClipboardData. GetData ("text") If IsNull (ClipboardText) = True Then MsgBox "Nothing in the clipboard!", 16, "Codificador d'ànec" Elxt txtScript. Value = ClipboardText Finalitza si finalitza Sub

Tot el que fa aquest codi és quan l'usuari fa clic a "Enganxa del porta-retalls", el programa carrega el text del porta-retalls al quadre de text.

Pas 5: Com ho vaig aconseguir (part 2)

Sub OnClickButtonbtnEncode () If txtScript. Value = "" Then MsgBox "There is no 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 ("Compila", 800, "VBScript") Finalitza si finalitza la subcompilació () window.clearTimeout (idTimer) Dim objWshShl: Defineix objWshShl = CreateObject ("WScript. Shell") objWshShl. Run "java.exe -jar c: / temp / duckencode.jar -ic: / temp / script.txt -oc: / temp / inject.bin ", 0 'MsgBox" Script compilat per inject.bin a c: / temp ", vbOKOnly + vbInformation," Ducky Encoder "End Sub

Aquest codi s'executa quan feu clic a "Codifica".

El que fa és crear un fitxer de text anomenat script.txt i hi posa el que hi ha dins del quadre de text. Després espera 0,8 segons i després el compila.

La resta del codi només crea la GUI. S’explica per si mateix si coneixeu l’hta bàsic.