Kodér USB Rubber Ducky Script (VBScript): 5 kroků

2024 Autor: John Day | [email protected]. Naposledy změněno: 2024-01-30 08:21

Pokud máte USB Rubber Ducky, budete vědět, že je velmi nepříjemné sestavit skript do souboru.bin. Pokud budete muset provést jakýkoli druh ladění, budete vědět, že neustálé stahování vašeho kompilovaného skriptu může být bolestivé. Abych tento problém vyřešil, vytvořil jsem VBScript, který dokáže váš kód zkompilovat rychle a snadno.

Zkompilovaný.exe a zdrojový kód si můžete stáhnout níže.

Každopádně vás pravděpodobně zajímá, jak jsem vytvořil tak úžasnou aplikaci GUI ve vbs, a pokud ano, přejděte ke kroku 3.

Krok 1: Instalace…

V souboru REAMDE.txt jsou také pokyny, jak to provést. Každopádně nejprve musíte na disku C vytvořit složku s názvem „temp“, pokud ji ještě nemáte. Pokud ještě nemáte nainstalovanou javu, můžete ji získat odtud. Poté si stáhněte soubor duckencode.jar a přesuňte soubor do složky c: / temp. Dále rozbalte jeden ze souborů.zip a spusťte Duck.hta ve stejném adresáři jako 'ico.ico' a 'pic.gif', pokud používáte nekompilovanou verzi. Nebo pokud používáte kompilovaný.exe, jednoduše spusťte 'Duck.exe'.

Nyní můžeme přejít k dalšímu kroku…

Krok 2: Použití…

Tento program je opravdu přímočarý. Chcete -li jej použít, jednoduše klikněte na „Vložit ze schránky“a automaticky vložte kód. Nebo kliknutím na načíst z textového souboru načtete skript z textového souboru. Poté se váš kód zobrazí v textovém poli níže. Proveďte požadované konečné změny kódu a klikněte na 'Kódovat'. Přejděte na c: / temp a přesuňte 'inject.bin' na USB Rubber Ducky.

Možná si říkáte, co je script.txt. Co to je, je nekompilovaný kód z textového pole. Používá se jako záloha nezpracovaného kódu.

POZNÁMKA: Pokud chcete vytvořit malý skript, jednoduše zadejte kód do textového pole. Rychlý a snadný způsob testování USB Rubber Ducky.

Přejděte na další krok, pokud se chcete dozvědět více o tom, jak GUI ve vbs a jak byl tento program vytvořen, jinak:

Děkujeme, že jste si přečetli tento návod, a pokud máte nějaké dotazy, komentáře nebo obavy, napište komentář nebo mi napište

Krok 3: GUI ve VBScriptu

Takže ano, je možné vytvářet GUI ve vbs. Způsob, jakým to uděláte, je zabalení textu do HTA. Pokud ještě nevíte, HTA je skriptovací jazyk velmi podobný html, který se používá pouze k zabalení skriptů, jako jsou vbscripts a jscripts, do GUI. Podrobné vysvětlení a návod zde.

Takže teď, když víte, co je hta, dovolte mi, abych vám dal několik tipů, jak snadno vytvářet práce. Nejprve si stáhněte HTA helpomatic (obr. 2) níže. Původní odkaz již bohužel nefunguje, ale naštěstí jsem před časem kopii uložil. Dále stáhněte a nainstalujte vbsedit, který je dodáván s htaedit.

Poté, co máte tyto dva programy, opravdu nepotřebujete žádné zkušenosti s html/hta, abyste mohli začít vytvářet GUI. Což je skvělé pro lidi jako já, kteří se nechtějí učit hta jen proto, aby vytvářeli GUI.

Nyní přejděte k dalšímu kroku, abyste zjistili, jak jsem vytvořil Duck Encoder…

Krok 4: Jak jsem to udělal

Takže nejprve:

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

Tím se nastaví několik věcí, jako je ikona, typ ohraničení atd.

Sub Window_OnLoad self.resizeTo 400, 454 Dim objFso: Set objFso = CreateObject ("Scripting. FileSystemObject") If Not objFso. FileExists ("c: / temp / duckencode.jar") Then MsgBox "Chyba, soubor nenalezen: c: / temp / duckencode.jar ", 16," Duck Encoder "Self.close () End If End Sub

Dále se tento dílčí díl spustí automaticky při každém prvním spuštění programu. Co to dělá, je změnit velikost okna a zkontrolovat, zda je 'duckencode.jar' ve správném adresáři.

Sub OnClickButtonbtnLoad ()

Dim objShlApp, objFolderLocation, strFileLocation, objFso, objFolder, colFiles, strTextFileList, objFile Dim strCompleteText Set objFso = CreateObject ("Scripting. FileSystemObject") Set objShlApp = CreateObject ("Shell. A (0, "Procházet složku obsahující soubor:", 16384, 0) If Err. Number 0 Then MsgBox "Musíte vybrat FOLDER obsahující soubor.", 16, "Duck Encoder" Err. Clear () Jinak If objFolderLocation = "" Potom Ex Sub Sub Chyba Přejít 0 Nastavit objFolder = objFso. GetFolder (objFolderLocation. Self. Path & "\") Set colFiles = objFolder. Files strTextFileList = "" Pro každý objFile v colFiles Pokud InStr (objFile. Name, ".txt ") False Then strTextFileList = strTextFileList & objFile. Name & vbCrLf End If Next strFileLocation = InputBox (" Zadejte prosím správný textový soubor, který chcete zakódovat: "& vbCrLf & vbCrLf & strTextFileList," Not Ducky " (strFileLocation) Then If Not objFso. FileExists (objFolder Location. Self. Path & "\" & strFileLocation) Potom MsgBox "Chyba, musíte vybrat textový soubor ze seznamu!", 16, "Duck Encoder" Jinak při chybě Pokračovat Další strFileLocation = objFolderLocation. Self. Path & "\ "& strFileLocation Set objFile = objFso. OpenTextFile (strFileLocation, 1, FALSE) txtScript. Value = objFile. ReadAll objFile. Close () If Err. Number 0 Then MsgBox" Text file is empty. ", 16," Duck Encoder "End If End If End If End if End Sub

Dobře, tato část kódu je opravdu matoucí, toto je kód, když uživatel klikne na „Načíst z textového souboru“. Protože je v hta prakticky nemožné vytvořit dialog s otevřeným souborem, program vyskočí do dialogového okna Procházet složky a požádá uživatele, aby vybral složku obsahující soubor skriptu. Poté program otevře vstupní pole s dotazem na uživatele, který textový soubor má do této složky načíst. Poté program přečte vše, co je uvnitř souboru, a umístí jej do textového pole.

Sub OnClickButtonbtnPaste () Dim objHTML, ClipboardText Set objHTML = CreateObject ("htmlfile") ClipboardText = objHTML. ParentWindow. ClipboardData. GetData ("text") If IsNull (ClipboardText) = True Then MsgBox "Nic ve schránce!" "Duck Encoder" Jinak txtScript. Value = ClipboardText End If End Sub

Vše, co tento kód dělá, je, když uživatel klikne na „Vložit ze schránky“, program načte text ze schránky do textového pole.

Krok 5: Jak jsem to udělal (část 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.pen "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 zkompilovaný do inject.bin v c: / temp ", vbOKOnly+vbInformation," Ducky Encoder "End Sub

Tento kód se spustí po kliknutí na 'Kódovat'.

To, co dělá, je vytvoření textového souboru s názvem script.txt a vložení všeho, co je uvnitř textového pole. Poté počká 0,8 sekundy a poté jej zkompiluje.

Zbytek kódu jen vytvoří GUI. Je to docela samozřejmé, pokud znáte základní hta.