USB Rubber Ducky Script Encoder (VBScript): 5 steg

2024 Författare: John Day | [email protected]. Senast ändrad: 2024-01-30 12:41

Om du har en USB Rubber Ducky vet du att en mycket irriterande uppgift är att kompilera ditt skript till en.bin -fil. Om du måste göra någon form av felsökning kommer du att veta att konstant nedladdning av ditt kompilerade manus kan vara en smärta. Så för att åtgärda detta problem skapade jag ett VBScript som kan sammanställa din kod snabbt och enkelt.

Du kan ladda ner den sammanställda.exe och källkoden nedan.

Hur som helst, du undrar förmodligen hur jag gjorde en så fantastisk GUI -applikation i vbs, och i så fall, hoppa till steg 3.

Steg 1: Installerar …

Det finns också instruktioner om hur du gör detta i filen REAMDE.txt. Hur som helst, först måste du skapa en mapp i din C -enhet som heter 'temp' om du inte redan har en. Om du inte redan har Java installerat kan du hämta det härifrån. Ladda sedan ner duckencode.jar och flytta filen till mappen c: / temp. Extrahera sedan antingen en av.zip-filerna och kör Duck.hta i samma katalog som 'ico.ico' och 'pic.gif' om du använder den icke-kompilerade versionen. Eller om du använder den kompilerade.exe, kör helt enkelt 'Duck.exe'.

Nu kan vi gå vidare till nästa steg …

Steg 2: Användning …

Det här programmet är verkligen enkelt, för att använda det, klicka helt enkelt på "Klistra in från urklipp" för att automatiskt klistra in din kod. Eller klicka på ladda från textfil för att ladda skriptet från en textfil. Då kommer din kod att visas i textrutan nedan. Gör eventuella slutliga ändringar i din kod och tryck på "Koda". Navigera till c: / temp och flytta 'inject.bin' till din USB Rubber Ducky.

Du kanske undrar vad script.txt är. Vad det är, är den okompilerade koden från textrutan. Det används som en säkerhetskopia av råkoden.

OBS: Om du vill skapa ett litet skript kan du helt enkelt skriva in din kod i textrutan. Ett snabbt och enkelt sätt att testa din USB Rubber Ducky.

Hoppa till nästa steg om du vill veta mer om hur GUI: er i vbs och hur detta program gjordes, annars:

Tack för att du läste detta instruerbara, och om du har några frågor, kommentarer eller funderingar, skicka en kommentar eller pm mig

Steg 3: GUI i VBScript

Så ja, det är möjligt att göra GUI i vbs. Sättet du gör det på är att förpacka din text i en HTA. Om du inte redan vet, är HTA ett skriptspråk som liknar html och används helt enkelt för att linda in skript som vbscripts och jscripts i ett GUI. Detaljerad förklaring och handledning här.

Så nu när du vet vad hta är, låt mig ge dig några tips om hur du enkelt gör avhandlingar. Ladda ner först HTA helpomatic (bild 2) nedan. Tyvärr fungerar den ursprungliga länken inte längre, men lyckligtvis sparade jag en kopia för ett tag sedan. Ladda sedan ner och installera vbsedit, som kommer med htaedit.

När du har dessa två program behöver du verkligen ingen html/hta -upplevelse för att börja skapa GUI: er. Vilket är bra för människor som jag, som inte vill lära sig hta bara för att göra GUI: er.

Gå nu vidare till nästa steg för att se hur jag gjorde Duck Encoder …

Steg 4: Hur jag klarade det

Så först:

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

Detta sätter upp några saker som ikonen, kanttyp, ect.

Sub Window_OnLoad self.resizeTo 400, 454 Dim objFso: Set objFso = CreateObject ("Scripting. FileSystemObject") If Not objFso. FileExists ("c: / temp / duckencode.jar") Då MsgBox "Fel, fil hittades inte: c: / temp / duckencode.jar ", 16," Duck Encoder "Self.close () End If End Sub

Därefter körs denna del automatiskt varje gång programmet startas. Vad det gör är att ändra storlek på fönstret och kontrollera att "duckencode.jar" finns i rätt katalog.

Sub OnClickButtonbtnLoad ()

Dim objShlApp, objFolderLocation, strFileLocation, objFso, objFolder, colFiles, strTextFileList, objFile Dim strCompleteText Set objFso = CreateObject ("Scripting. FileSystemObject") Ställ in objShlApp = CreateObject ("Shell. AppLFOFOFLOFOFLOFOFLOFOFLOFOFLOFOFLOFOFLOFOFLICOFLOFOFLICOFLOFOFLICOFOFLICHFOFLICHFOFLOCK" (0, "Bläddra efter mapp som innehåller filen:", 16384, 0) Om Err. Number 0 Sedan MsgBox "Du måste välja den MAPPA som innehåller filen.", 16, "Duck Encoder" Err. Clear () Else If objFolderLocation = "" Avsluta sedan Sub On Error Gå till 0 Set objFolder = objFso. GetFolder (objFolderLocation. Self. Path & "\") Set colFiles = objFolder. Files strTextFileList = "" For each objFile In colFiles If InStr (objFile. Name, ".txt ") False Then strTextFileList = strTextFileList & objFile. Name & vbCrLf End If Next strFileLocation = InputBox (" Ange rätt textfil som du vill koda: "& vbCrLf & vbCrLf & strTextFileList," Ducky Encoder ")" Ducky Encoder " (strFileLocation) Then If Not objFso. FileExists (objFolder Location. Self. Path & "\" & strFileLocation) Sedan MsgBox "Error, du måste välja en textfil från listan!", 16, "Duck Encoder" Annat vid fel Återuppta nästa 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

Ok, den här delen av koden är verkligen förvirrande, det här är koden för när användaren klickar på "Ladda från textfil". Eftersom det är praktiskt taget omöjligt att skapa en öppen-fil-dialog i hta, öppnar programmet en bläddring efter mappdialogrutan för att be användaren att välja mappen som innehåller skriptfilen. Sedan öppnar programmet en inmatningslåda som frågar användaren vilken textfil som ska laddas inuti den mappen. Sedan läser programmet det som finns i filen och lägger det i textrutan.

Sub OnClickButtonbtnPaste () Dim objHTML, ClipboardText Set objHTML = CreateObject ("htmlfile") ClipboardText = objHTML. ParentWindow. ClipboardData. GetData ("text") If IsNull (ClipboardText) = True Then MsgBox "Nothing, MsgBox" Nothing, Nothing, MsgBox "Nothing, MsgBox" Nothing, Nothing, MsgBox "Nothing, None "Duck Encoder" Annat txtScript. Value = ClipboardText End If End Sub

Allt den här koden gör, är när användaren klickar på "Klistra in från urklipp", laddar programmet texten från Urklipp till textrutan.

Steg 5: Hur jag klarade det (del 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. 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: Set objWshShl = CreateObject ("WScript. Shell") objWshShl. Run "java.exe -jar c: / temp / duckencode.jar -ic: / temp / script.txt -oc: / temp / inject.bin ", 0 'MsgBox" Script sammanställt för att injicera.bin i c: / temp ", vbOKOnly+vbInformation," Ducky Encoder "End Sub

Denna kod körs när du klickar på "Koda".

Vad den gör är att skapa en textfil som heter script.txt och lägger det som finns i textrutan till den. Sedan väntar den 0,8 sekunder och kompilerar den sedan.

Resten av koden skapar bara GUI. Det är ganska självförklarande om du kan grundläggande hta.