USB Rubber Ducky Script Encoder (VBScript): 5 korakov

2024 Avtor: John Day | [email protected]. Nazadnje spremenjeno: 2024-01-30 12:04

Če imate USB Rubber Ducky, boste vedeli, da je zelo moteča naloga sestavljanje vašega skripta v datoteko.bin. Če morate odpraviti kakršne koli napake, boste vedeli, da je nenehno nalaganje prevedenega skripta lahko bolečina. Zato sem za odpravo te težave ustvaril VBScript, ki lahko hitro in enostavno sestavi vašo kodo.

Preneseni.exe in izvorno kodo lahko prenesete spodaj.

Kakorkoli že, verjetno se sprašujete, kako sem naredil tako super aplikacijo z grafičnim vmesnikom v vbs, in če je tako, pojdite na 3. korak.

1. korak: Namestitev …

V datoteki REAMDE.txt so tudi navodila, kako to storiti. Kakorkoli že, najprej morate ustvariti mapo v pogonu C, imenovano 'temp', če je še nimate. Če tudi nimate nameščene jave, jo lahko dobite tukaj. Nato prenesite duckencode.jar in datoteko premaknite v mapo c: / temp. Nato izvlecite eno od datotek.zip in zaženite Duck.hta v istem imeniku kot »ico.ico« in »pic.gif«, če uporabljate nekompilirano različico. Ali če uporabljate prevedeni.exe, preprosto zaženite 'Duck.exe'.

Zdaj lahko preidemo na naslednji korak …

2. korak: Uporaba…

Ta program je zelo preprost, če ga želite uporabiti, preprosto kliknite »Prilepi iz odložišča«, da samodejno prilepite kodo. Ali kliknite nalaganje iz besedilne datoteke, če želite naložiti skript iz besedilne datoteke. Nato se bo vaša koda prikazala v spodnjem besedilnem polju. Naredite vse potrebne spremembe v kodi in pritisnite »Kodiraj«. Pomaknite se do c: / temp in premaknite 'inject.bin' na vaš USB Rubber Ducky.

Morda se sprašujete, kaj je script.txt. Kaj je to, je nekompilirana koda iz besedilnega polja. Uporablja se kot varnostna kopija surove kode.

OPOMBA: Če želite narediti majhen skript, lahko preprosto vnesete kodo v besedilno polje. Hiter in enostaven način za preizkus USB gume Ducky.

Preskočite na naslednji korak, če želite izvedeti več o tem, kako so grafični vmesniki v vbs in kako je bil ta program narejen, sicer:

Hvala, ker ste prebrali ta navodila, in če imate kakršna koli vprašanja, pripombe ali pomisleke, prosim, napišite komentar ali mi pišite

3. korak: grafični vmesniki v VBScript

Torej, ja, v VBS je mogoče narediti grafične vmesnike. To naredite tako, da svoje besedilo zavijete v HTA. Če še ne poznate, je HTA skriptni jezik, zelo podoben html, ki se uporablja preprosto za zavijanje skriptov, kot sta vbscripts in jscripts, v grafični vmesnik. Podrobna razlaga in vadnica tukaj.

Zdaj, ko veste, kaj je hta, naj vam dam nekaj nasvetov, kako enostavno narediti teze. Najprej naložite HTA helpomatic (slika 2) spodaj. Na žalost izvirna povezava ne deluje več, vendar sem na srečo nekaj časa nazaj shranil kopijo. Nato prenesite in namestite vbsedit, ki je priložen htaedit.

Ko imate ta dva programa, res ne potrebujete html/hta izkušenj, da začnete izdelovati grafične vmesnike. Kar je super za ljudi, kot sem jaz, ki se ne želijo naučiti hta samo za izdelavo grafičnih vmesnikov.

Zdaj pojdite na naslednji korak, da vidite, kako sem naredil Duck Encoder …

4. korak: Kako mi je uspelo

Torej, najprej:

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

To nastavi nekaj stvari, kot so ikona, vrsta obrobe itd.

Sub Window_OnLoad self.resizeTo 400, 454 Dim objFso: Set objFso = CreateObject ("Scripting. FileSystemObject") If Not objFso. FileExists ("c: / temp / duckencode.jar") Potem MsgBox "Napaka, datoteka ni najdena: c: / temp / duckencode.jar ", 16," Duck Encoder "Self.close () End If End Sub

Nato se ta podprogram samodejno zažene, ko se program prvič zažene. Spremeni velikost okna in nato preveri, ali je 'duckencode.jar' v pravilnem imeniku.

Sub OnClickButtonbtnLoad ()

Zatemni objShlApp, objFolderLocation, strFileLocation, objFso, objFolder, colFiles, strTextFileList, objFile Dim strCompleteText Nastavi objFso = CreateObject ("Scripting. FileSystemObject") Nastavi objShLAbFoAppment (0, "Poišči mapo, ki vsebuje datoteko:", 16384, 0) Če Err. Number 0 Potem MsgBox "Morate izbrati FOLDER, ki vsebuje datoteko.", 16, "Duck Encoder" Err. Clear () Drugače Če objFolderLocation = "" Potem Exit Sub On Error Pojdi na 0 Nastavi objFolder = objFso. GetFolder (objFolderLocation. Self. Path & "\") Nastavi colFiles = objFolder. Files strTextFileList = "" Za vsako datoteko objFile In colFiles Če je InStr (objFile. Name,.txt ") False Nato strTextFileList = strTextFileList & objFile. Name & vbCrLf Konec Naprej Če je naslednji strFileLocation = InputBox (" Prosimo, vnesite pravilno besedilno datoteko, ki jo želite kodirati: "& vbCrLf & vbCrLf & strTextFileList," Duck) "Duck (strFileLocation) Potem če ni objFso. FileExists (objFolder Location. Self. Path & "\" & strFileLocation) Nato MsgBox "Napaka, izbrati morate besedilno datoteko s seznama!", 16, "Duc Encoder" Sicer pri napaki Nadaljuj Naprej 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 text is empty. ", 16," Duck Encer Če End Če Konec Če Konec, če End Sub

V redu, ta del kode je res zmeden, to je koda, ko uporabnik klikne »Naloži iz besedilne datoteke«. Ker v hti praktično ni mogoče ustvariti pogovornega okna z odprto datoteko, program prikaže pogovorno okno za brskanje po mapah in prosi uporabnika, da izbere mapo, ki vsebuje datoteko skripta. Nato program odpre polje za vnos, ki uporabnika vpraša, katero besedilno datoteko naj naloži v to mapo. Nato program prebere vse, kar je znotraj datoteke, in jo vstavi v besedilno polje.

Sub OnClickButtonbtnPaste () Dim objHTML, ClipboardText Set objHTML = CreateObject ("htmlfile") ClipboardText = objHTML. ParentWindow. ClipboardData. GetData ("text") Če je IsNull (ClipboardText) = True, potem ni nič "MsgB, "Duck Encoder" Else txtScript. Value = ClipboardText End If End Sub

Ta koda naredi, ko uporabnik klikne na "Prilepi iz odložišča", program naloži besedilo iz odložišča v besedilno polje.

5. korak: Kako mi je uspelo (2. del)

Sub OnClickButtonbtnEncode () Če je txtScript. Value = "" Potem MsgBox "Ni kode!", 16, "Duc Encoder" Else Dim objFso, txtScriptFile Set objFso = CreateObject ("Scripting. Filesystemobject") Set txtScriptFile = obctFext "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: Nastavi objWshShl = CreateObject ("WScript. Shell") objWshShl. Run "java.exe -jar c: / temp / duckencode.jar -ic: / temp / script.txt -oc: / temp / inject.bin ", 0 'MsgBox" Skript preveden v inject.bin v c: / temp ", vbOKOnly+vbInformation," Ducky Encoder "End Sub

Ta koda se zažene, ko kliknete »Kodiraj«.

Ustvari besedilno datoteko, imenovano script.txt, in vanj postavi vse, kar je v besedilnem polju. Nato počaka 0,8 sekunde in jo nato sestavi.

Preostali del kode samo ustvari grafični vmesnik. To je precej samoumevno, če poznate osnovno hto.