Codificador de guiones USB Rubber Ducky (VBScript): 5 pasos

2024 Autor: John Day | [email protected]. Última modificación: 2024-01-30 08:41

Si tiene un USB Rubber Ducky, sabrá que una tarea muy molesta es compilar su script en un archivo.bin. Si tiene que hacer algún tipo de depuración, sabrá que la descarga constante de su script compilado puede ser una molestia. Entonces, para solucionar este problema, creé un VBScript que puede compilar su código rápida y fácilmente.

Puede descargar el.exe compilado y el código fuente a continuación.

De todos modos, probablemente se esté preguntando cómo hice una aplicación GUI tan impresionante en vbs, y si es así, vaya al paso 3.

Paso 1: Instalando…

También hay instrucciones sobre cómo hacer esto en el archivo REAMDE.txt. De todos modos, primero debe crear una carpeta en su unidad C llamada 'temp' si aún no tiene una. Además, si aún no tiene Java instalado, puede obtenerlo desde aquí. A continuación, descargue duckencode.jar y mueva el archivo a su carpeta c: / temp. A continuación, extraiga uno de los archivos.zip y ejecute Duck.hta en el mismo directorio que 'ico.ico' y 'pic.gif' si está utilizando la versión no compilada. O si está utilizando el.exe compilado, simplemente ejecute 'Duck.exe'.

Ahora podemos pasar al siguiente paso …

Paso 2: uso…

Este programa es realmente sencillo, para usarlo, simplemente haga clic en 'Pegar desde el portapapeles' para pegar automáticamente su código. O haga clic en cargar desde un archivo de texto para cargar el script desde un archivo de texto. Luego, su código aparecerá en el cuadro de texto a continuación. Realice los cambios finales que desee en su código y presione 'Codificar'. Vaya a c: / temp y mueva 'inject.bin' a su USB Rubber Ducky.

Quizás se esté preguntando qué es script.txt. Lo que es, es el código sin compilar del cuadro de texto. Se utiliza como copia de seguridad del código sin formato.

NOTA: Si desea hacer un pequeño script, simplemente escriba su código en el cuadro de texto. Una forma rápida y sencilla de probar tu patito de goma USB.

Vaya al siguiente paso si desea obtener más información sobre cómo las GUI en vbs y cómo se creó este programa, de lo contrario:

Gracias por leer este instructivo, y si tiene alguna pregunta, comentario o inquietud, publique un comentario o envíeme un mensaje

Paso 3: GUI en VBScript

Así que sí, es posible crear GUI en vbs. La forma en que lo hace es envolviendo su texto en una HTA. En caso de que aún no lo sepas, HTA es un lenguaje de secuencias de comandos muy similar a html que se usa simplemente para envolver secuencias de comandos como vbscripts y jscripts en una GUI. Explicación detallada y tutorial aquí.

Entonces, ahora que sabe qué es hta, permítame darle algunos consejos sobre cómo hacer tesis fácilmente. Primero descargue el helpomatic de HTA (imagen 2) a continuación. Desafortunadamente, el enlace original ya no funciona, pero afortunadamente guardé una copia hace un tiempo. A continuación, descargue e instale vbsedit, que viene con htaedit.

Después de tener estos dos programas, realmente no necesita experiencia en html / hta para comenzar a crear GUI. Lo cual es genial para personas como yo, que no quieren aprender hta solo para hacer GUI.

Ahora pase al siguiente paso para ver cómo hice el codificador Duck …

Paso 4: Cómo lo hice

Entonces, primero:

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

Esto configura algunas cosas como el icono, el tipo de borde, etc.

Sub Window_OnLoad self.resizeTo 400, 454 Dim objFso: Set objFso = CreateObject ("Scripting. FileSystemObject") Si no objFso. FileExists ("c: / temp / duckencode.jar") Entonces MsgBox "Error, archivo no encontrado: c: / temp / duckencode.jar ", 16," Codificador de pato "Self.close () End If End Sub

A continuación, este sub, se ejecuta automáticamente cada vez que se inicia el programa por primera vez. Lo que hace es cambiar el tamaño de la ventana y luego verificar que 'duckencode.jar' esté en el directorio correcto.

Sub OnClickButtonbtnLoad ()

Dim objShlApp, objFolderLocation, strFileLocation, objFso, objFolder, colFiles, strTextFileList, objFile Dim strCompleteText Set objFso = CreateObject ("Scripting. FileSystemObject") Set objShlApp = CreateFileSystemObject "Set objShlApp = CreateFileSystemObject" Set objShlApp = CreateFileSystemObject. (0, "Buscar la carpeta que contiene el archivo:", 16384, 0) If Err. Number 0 Then MsgBox "Debe seleccionar la CARPETA que contiene el archivo", 16, "Duck Encoder" Err. Clear () Else If objFolderLocation = "" Luego salga de Sub en caso de error Goto 0 Establezca objFolder = objFso. GetFolder (objFolderLocation. Self. Path & "\") Establezca colFiles = objFolder. Files strTextFileList = "" Para cada objFile en colFiles Si InStr (objFile. Name, ".txt ") False Entonces strTextFileList = strTextFileList & objFile. Name & vbCrLf End If Next strFileLocation = InputBox (" Por favor ingrese el archivo de texto correcto que desea codificar: "& vbCrLf & vbCrLf & strTextFileList," Ducky No es codificador ") (strFileLocation) Entonces si no objFso. FileExists (objFolder Location. Self. Path & "\" & strFileLocation) Luego MsgBox "Error, debe elegir un archivo de texto de la lista", 16, "Duck Encoder" Else On Error Continuar Siguiente strFileLocation = objFolderLocation. Self. Path & "\ "& strFileLocation Set objFile = objFso. OpenTextFile (strFileLocation, 1, FALSE) txtScript. Value = objFile. ReadAll objFile. Close () If Err. Number 0 Then MsgBox" El archivo de texto está vacío. ", 16," Duck Encoder "Fin If End If End If End if End Sub

Ok, esta parte del código es realmente confusa, este es el código para cuando el usuario hace clic en 'Cargar desde archivo de texto'. Dado que es prácticamente imposible crear un cuadro de diálogo de archivo abierto en hta, el programa muestra un cuadro de diálogo de búsqueda de carpetas para pedirle al usuario que seleccione la carpeta que contiene el archivo de script. Luego, el programa abre un cuadro de entrada que le pregunta al usuario qué archivo de texto cargar dentro de esa carpeta. Luego, el programa lee lo que esté dentro del archivo y lo coloca en el cuadro de texto.

Sub OnClickButtonbtnPaste () Dim objHTML, ClipboardText Set objHTML = CreateObject ("htmlfile") ClipboardText = objHTML. ParentWindow. ClipboardData. GetData ("text") If IsNull (ClipboardText) = True Entonces MsgBox! "Nada, 16 en el portapapeles!" "Codificador de pato" Else txtScript. Value = ClipboardText End If End Sub

Todo lo que hace este código es que cuando el usuario hace clic en 'Pegar desde el portapapeles', el programa carga el texto del portapapeles en el cuadro de texto.

Paso 5: Cómo lo hice (parte 2)

Sub OnClickButtonbtnEncode () If txtScript. Value = "" Entonces MsgBox "¡No hay código!", 16, "Duck Encoder" Else Dim objFso, txtScriptFile Set objFso = CreateObject ("Scripting. Filesystemobject") Set txtFileFile = objTextFsobject. Open "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: Establecer objWshShl = CreateObject ("WScript. Shell") objWshShl. Run "java.exe -jar c: / temp / duckencode.jar -ic: / temp / script.txt -oc: / temp / inject.bin ", 0 'MsgBox" Script compilado para inject.bin en c: / temp ", vbOKOnly + vbInformation," Ducky Encoder "End Sub

Este código se ejecuta al hacer clic en 'Codificar'.

Lo que hace es crear un archivo de texto llamado script.txt y le pone lo que esté dentro del cuadro de texto. Luego espera 0.8 segundos y luego lo compila.

El resto del código simplemente crea la GUI. Es bastante autoexplicativo si conoce hta básico.