USB Rubber Ducky Script Encoder (VBScript): 5 trinn

2024 Forfatter: John Day | [email protected]. Sist endret: 2024-01-30 11:22

Hvis du har en USB Rubber Ducky, vet du at en veldig irriterende oppgave er å kompilere skriptet til en.bin -fil. Hvis du må gjøre noen form for feilsøking, vil du vite at konstant nedlasting av det kompilerte skriptet ditt kan være smertefullt. Så for å fikse dette problemet, opprettet jeg et VBScript som kan kompilere koden din raskt og enkelt.

Du kan laste ned den kompilerte.exe og kildekoden nedenfor.

Uansett, du lurer sikkert på hvordan jeg har laget en så fantastisk GUI -applikasjon i vbs, og i så fall hopper du til trinn 3.

Trinn 1: Installer …

Det er også instruksjoner om hvordan du gjør dette i filen REAMDE.txt. Uansett må du først opprette en mappe i C -stasjonen som heter 'temp' hvis du ikke allerede har en. Hvis du ikke allerede har Java installert, kan du få det herfra. Last deretter ned duckencode.jar og flytt filen til mappen c: / temp. Pakk deretter ut en av zip-filene og kjør Duck.hta i samme katalog som 'ico.ico' og 'pic.gif' hvis du bruker den ikke-kompilerte versjonen. Eller hvis du bruker den kompilerte.exe, bare kjør 'Duck.exe'.

Nå kan vi gå videre til neste trinn …

Trinn 2: Bruk …

Dette programmet er veldig enkelt, for å bruke det, klikker du bare på 'Lim inn fra utklippstavlen' for å lime inn koden automatisk. Eller klikk på last fra tekstfil, for å laste skriptet fra en tekstfil. Da vil koden din vises i tekstboksen nedenfor. Gjør endelige endringer i koden din, og trykk "Kode". Naviger til c: / temp og flytt 'inject.bin' til USB Rubber Ducky.

Du lurer kanskje på hva script.txt er. Hva det er, er den ukompilerte koden fra tekstboksen. Den brukes som en sikkerhetskopi av råkoden.

MERK: Hvis du vil lage et lite skript, kan du bare skrive inn koden i tekstboksen. En rask og enkel måte å teste USB Rubber Ducky på.

Gå til neste trinn hvis du vil finne ut mer om hvordan brukergrensesnitt i vbs og hvordan dette programmet ble laget, ellers:

Takk for at du leste dette instruerbare, og hvis du har spørsmål, kommentarer eller bekymringer, vennligst legg ut en kommentar eller send meg en pm

Trinn 3: GUIer i VBScript

Så ja, det er mulig å lage GUI -er i vbs. Måten du gjør det på, er ved å pakke inn teksten i en HTA. Hvis du ikke allerede vet det, er HTA et skriptspråk som er veldig likt HTML som bare brukes til å pakke inn skript som vbscripts og jscripts i en GUI. Detaljert forklaring og opplæring her.

Så nå som du vet hva hta er, la meg gi deg noen tips om hvordan du enkelt kan lage teser. Last ned først HTA helpomatic (bilde 2) nedenfor. Dessverre fungerer ikke den originale lenken lenger, men heldigvis lagret jeg en kopi for en stund tilbake. Last ned og installer neste vbsedit, som følger med htaedit.

Etter at du har disse to programmene, trenger du virkelig ingen html/hta -opplevelse for å begynne å lage GUI -er. Noe som er flott for folk som meg, som ikke vil lære hta bare for å lage GUI -er.

Gå nå videre til neste trinn for å se hvordan jeg lagde Duck Encoder …

Trinn 4: Hvordan jeg klarte det

Så, først:

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

Dette setter opp noen ting som ikonet, kanttype, ect.

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

Deretter kjører denne suben automatisk når programmet først lanseres. Det den gjør er å endre størrelsen på vinduet, og kontroller deretter at 'duckencode.jar' er i riktig katalog.

Sub OnClickButtonbtnLoad ()

Dim objShlApp, objFolderLocation, strFileLocation, objFso, objFolder, colFiles, strTextFileList, objFile Dim strCompleteText Angi objFso = CreateObject ("Scripting. FileSystemObject") Set objShlApp = CreateObject ("Shell. AppLOFOFLOFOFLOFOFLOFOFLOFLOFOFLOFOFLOFOFLOFOFLOFOFLOFLOFOFLOFOFLOBLOFOFLOBLOFOFLICOFOBLICOFOFLICOFOBLICOFOBLICO. (0, "Søk etter mappe som inneholder filen:", 16384, 0) Hvis Err. Number 0 Deretter MsgBox "Du må velge mappen som inneholder filen.", 16, "Duck Encoder" Err. Clear () Else If objFolderLocation = "" Deretter avslutter du Sub On Error Gå til 0 Sett objFolder = objFso. GetFolder (objFolderLocation. Self. Path & "\") Sett colFiles = objFolder. Files strTextFileList = "" For hver objFile I colFiles If InStr (objFile. Name, ".txt ") False Then strTextFileList = strTextFileList & objFile. Name & vbCrLf End If Next strFileLocation = InputBox (" Skriv inn riktig tekstfil du vil kode: "& vbCrLf & vbCrLf & strTextFileList," Ducky Encoder ") (strFileLocation) Then If Not objFso. FileExists (objFolder Location. Self. Path & "\" & strFileLocation) Deretter MsgBox "Error, du må velge en tekstfil fra listen!", 16, "Duck Encoder" Ellers On Error Resume Next 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, denne delen av koden er virkelig forvirrende, dette er koden for når brukeren klikker på 'Last inn fra tekstfil'. Siden det er praktisk talt umulig å lage en åpen fil-dialog i hta, åpner programmet en søk etter mappedialogbok for å be brukeren om å velge mappen som inneholder skriptfilen. Deretter åpner programmet en inndataboks som spør brukeren hvilken tekstfil som skal lastes inn i den mappen. Deretter leser programmet det som er inne i filen og legger det i tekstboksen.

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

Alt denne koden gjør, er når brukeren klikker på "Lim inn fra utklippstavlen", laster programmet teksten fra utklippstavlen til tekstboksen.

Trinn 5: Hvordan jeg klarte 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 compiled to inject.bin in c: / temp ", vbOKOnly+vbInformation," Ducky Encoder "End Sub

Denne koden kjøres når du klikker på 'Kode'.

Det den gjør er å lage en tekstfil som kalles script.txt og legger det som er inne i tekstboksen til den. Deretter venter den 0,8 sekunder og kompilerer den.

Resten av koden lager bare GUI. Det er ganske selvforklarende hvis du kjenner grunnleggende hta.