Кодировщик сценариев USB Rubber Ducky (VBScript): 5 шагов

2024 Автор: John Day | [email protected]. Последнее изменение: 2024-01-30 11:51

Если у вас есть USB Rubber Ducky, вы знаете, что очень неприятная задача - это компиляция вашего скрипта в файл.bin. Если вам нужно выполнить какую-либо отладку, вы будете знать, что постоянная загрузка вашего скомпилированного скрипта может быть проблемой. Чтобы решить эту проблему, я создал VBScript, который может быстро и легко компилировать ваш код.

Вы можете скачать скомпилированный.exe и исходный код ниже.

В любом случае, вам, вероятно, интересно, как я сделал такое замечательное приложение с графическим интерфейсом в vbs, и если да, переходите к шагу 3.

Шаг 1. Установка…

Инструкции о том, как это сделать, также есть в файле REAMDE.txt. В любом случае, сначала вы должны создать папку на вашем диске C под названием «temp», если у вас ее еще нет. Кроме того, если у вас еще не установлена Java, вы можете получить ее отсюда. Затем загрузите duckencode.jar и переместите файл в папку c: / temp. Затем извлеките один из файлов.zip и запустите Duck.hta в том же каталоге, что и ico.ico и pic.gif, если вы используете некомпилированную версию. Или, если вы используете скомпилированный.exe, просто запустите «Duck.exe».

Теперь мы можем перейти к следующему шагу …

Шаг 2. Использование…

Эта программа действительно проста. Чтобы использовать ее, просто нажмите «Вставить из буфера обмена», чтобы автоматически вставить свой код. Или нажмите «Загрузить из текстового файла», чтобы загрузить сценарий из текстового файла. Затем ваш код появится в текстовом поле ниже. Внесите любые окончательные изменения в свой код и нажмите «Кодировать». Перейдите в папку c: / temp и переместите inject.bin на свой USB Rubber Ducky.

Вам может быть интересно, что такое script.txt. Это некомпилированный код из текстового поля. Он используется как резервная копия исходного кода.

ПРИМЕЧАНИЕ. Если вы хотите создать небольшой сценарий, вы можете просто ввести свой код в текстовое поле. Быстрый и простой способ проверить свой USB Rubber Ducky.

Перейдите к следующему шагу, если хотите узнать больше о графических интерфейсах в vbs и о том, как была создана эта программа, в противном случае:

Спасибо за то, что прочитали это руководство, и если у вас есть какие-либо вопросы, комментарии или проблемы, пожалуйста, оставьте комментарий или напишите мне в личку

Шаг 3: графические интерфейсы в VBScript

Так что да, можно создавать графические интерфейсы в vbs. Вы делаете это путем переноса текста в HTA. Если вы еще не знаете, HTA - это язык сценариев, очень похожий на html, используемый просто для обертывания сценариев, таких как vbscripts и jscripts, в графическом интерфейсе. Подробное объяснение и руководство здесь.

Итак, теперь, когда вы знаете, что такое hta, позвольте мне дать вам несколько советов, как легко писать тезисы. Сначала загрузите HTA helpomatic (рис. 2) ниже. К сожалению, исходная ссылка больше не работает, но, к счастью, я сохранил копию некоторое время назад. Затем загрузите и установите vbsedit, который поставляется с htaedit.

После того, как у вас есть эти две программы, вам действительно не понадобится опыт работы с html / hta, чтобы начать создавать графические интерфейсы. Это отлично подходит для таких людей, как я, которые не хотят изучать hta только для того, чтобы создавать графические интерфейсы.

Теперь переходите к следующему шагу, чтобы увидеть, как я сделал Duck Encoder …

Шаг 4: Как я это сделал

Итак, сначала:

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

Это устанавливает несколько вещей, таких как значок, тип границы и т. Д.

Sub Window_OnLoad self.resizeTo 400, 454 Dim objFso: Set objFso = CreateObject ("Scripting. FileSystemObject") Если не objFso. FileExists ("c: / temp / duckencode.jar"), то MsgBox "Ошибка, файл не найден: c: / temp / duckencode.jar ", 16," Duck Encoder "Self.close () End If End Sub

Далее, эта подпрограмма запускается автоматически при первом запуске программы. Что он делает, так это изменяет размер окна, а затем проверяет, находится ли «duckencode.jar» в правильном каталоге.

Sub OnClickButtonbtnLoad ()

Dim objShlApp, objFolderLocation, strFileLocation, objFso, objFolder, colFiles, strTextFileList, objFile Dim strCompleteText Установить objFso = CreateObject ("Scripting. FileSystemObject") Установить объект ObjShumeAppleShell. (0, «Найдите папку, содержащую файл:», 16384, 0) Если Err. Number 0, то MsgBox «Вы должны выбрать ПАПКУ, содержащую файл.», 16, «Duck Encoder» Err. Clear () Иначе, если objFolderLocation = "" Затем выйти из Sub при ошибке Перейти к 0 Установить objFolder = objFso. GetFolder (objFolderLocation. Self. Path & "\") Установить colFiles = objFolder. Files strTextFileList = "" Для каждого objFile в colFiles Если InStr (objFile. Name,.txt ") False Then strTextFileList = strTextFileList & objFile. Name & vbCrLf End If Next strFileLocation = InputBox (" Пожалуйста, введите правильный текстовый файл, который вы хотите закодировать: "& vbCrLf & vbCrLf & strTextFileLcoder," DuckyFileLcoder " (strFileLocation) Тогда, если не objFso. FileExists (objFolder Location. Self. Path & "\" & strFileLocation) Затем MsgBox "Ошибка, вы должны выбрать текстовый файл из списка!", 16, "Duck Encoder" Остальное при ошибке Возобновить Далее strFileLocation = objFolderLocation. Self. Path & "\ "& strFileLocation Set objFile = objFso. OpenTextFile (strFileLocation, 1, FALSE) txtScript. Value = objFile. ReadAll objFile. Close () Если Err. Number 0 Тогда MsgBox" Текстовый файл пуст. ", 16," End Duck Encoder " If End If End If End if End Sub

Хорошо, эта часть кода действительно сбивает с толку, это код, когда пользователь нажимает «Загрузить из текстового файла». Поскольку в hta практически невозможно создать диалог открытия файла, программа выдает всплывающее окно просмотра папки, чтобы попросить пользователя выбрать папку, содержащую файл сценария. Затем программа открывает поле ввода, спрашивая пользователя, какой текстовый файл загрузить в эту папку. Затем программа считывает все, что находится внутри файла, и помещает это в текстовое поле.

Sub OnClickButtonbtnPaste () Dim objHTML, ClipboardText Set objHTML = CreateObject ("htmlfile") ClipboardText = objHTML. ParentWindow. ClipboardData. GetData ("text") Если IsNull (ClipboardText) = True, тогда Null (ClipboardText) = True, тогда N "Duck Encoder" Иначе txtScript. Value = ClipboardText End If End Sub

Весь этот код делает: когда пользователь нажимает «Вставить из буфера обмена», программа загружает текст из буфера обмена в текстовое поле.

Шаг 5: Как я это сделал (часть 2)

Sub OnClickButtonbtnEncode () Если txtScript. Value = "" Then MsgBox "Код отсутствует!", 16, "Duck Encoder" Иначе Dim objFso, txtScriptFile Set objFso = CreateObject ("Scripting. Filesystemobject") Установить txtScriptFilepenTxtScriptFilepenTxt "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: Установить objWshShl = CreateObject ("WScript. Shell") objWshShl. Run "java.exe -jar c: / temp / duckencode.jar -ic: / temp / script.txt -oc: / temp / inject.bin ", 0 'MsgBox" Скрипт, скомпилированный в inject.bin в c: / temp ", vbOKOnly + vbInformation," Ducky Encoder "End Sub

Этот код запускается, когда вы нажимаете «Кодировать».

Он создает текстовый файл с именем script.txt и помещает в него все, что находится внутри текстового поля. Затем он ждет 0,8 секунды, а затем компилирует его.

Остальной код просто создает графический интерфейс. Это довольно понятно, если вы знаете основы hta.