USB gumeni Ducky Script Encoder (VBScript): 5 koraka

2025 Autor: John Day | [email protected]. Zadnja izmjena: 2025-01-23 14:37

Ako imate USB Rubber Ducky, znat ćete da je vrlo dosadan zadatak sastavljanje vaše skripte u.bin datoteku. Ako morate napraviti bilo kakvo otklanjanje pogrešaka, znat ćete da stalno preuzimanje vaše prevedene skripte može biti muka. Stoga sam za rješavanje ovog problema stvorio VBScript koji može brzo i jednostavno sastaviti vaš kôd.

U nastavku možete preuzeti kompajlirani.exe i izvorni kod.

U svakom slučaju, vjerojatno se pitate kako sam napravio tako odličnu GUI aplikaciju u vbs -u, pa ako jeste, prijeđite na korak 3.

Korak 1: Instaliranje …

Postoje i upute kako to učiniti u datoteci REAMDE.txt. U svakom slučaju, prvo morate stvoriti mapu na svom C disku pod nazivom 'temp' ako je već nemate. Takođe, ako već nemate instaliranu javu, možete je preuzeti odavde. Zatim preuzmite duckencode.jar i premjestite datoteku u mapu c: / temp. Zatim izdvojite jednu od.zip datoteka i pokrenite Duck.hta u istom direktoriju kao i 'ico.ico' i 'pic.gif' ako koristite nekompiliranu verziju. Ili, ako koristite kompajlirani.exe, jednostavno pokrenite 'Duck.exe'.

Sada možemo preći na sljedeći korak…

Korak 2: Upotreba …

Ovaj program je zaista jednostavan, da biste ga koristili, jednostavno kliknite na "Zalijepi iz međuspremnika" za automatsko umetanje koda. Ili kliknite na učitavanje iz tekstualne datoteke, da biste učitali skriptu iz tekstualne datoteke. Tada će se vaš kôd pojaviti u donjem okviru za tekst. Unesite konačne izmjene u svoj kôd i pritisnite 'Kodiraj'. Idite na c: / temp i pomaknite 'inject.bin' na svoj USB Rubber Ducky.

Možda se pitate šta je script.txt. Ono što je to, nekompilirani kôd iz okvira za tekst. Koristi se kao sigurnosna kopija sirovog koda.

NAPOMENA: Ako želite napraviti malu skriptu, možete jednostavno unijeti svoj kod u okvir za tekst. Brz i jednostavan način da isprobate svoj USB Rubber Ducky.

Pređite na sljedeći korak ako želite saznati više o tome kako su grafički interfejsi u vbs -u i kako je ovaj program napravljen, inače:

Hvala što ste pročitali ovo uputstvo, a ako imate bilo kakvih pitanja, komentara ili nedoumica, pošaljite komentar ili mi pišite

Korak 3: Grafički interfejsi u VBScript -u

Pa da, moguće je napraviti grafičke interfejse u vbs -u. Način na koji to radite je umotavanjem teksta u HTA. U slučaju da već ne znate, HTA je skriptni jezik koji je vrlo sličan html -u i koristi se jednostavno za umotavanje skripti kao što su vbscripts i jscripts u GUI. Detaljno objašnjenje i vodič ovdje.

Pa sad kad znate što je hta, dopustite mi da vam dam nekoliko savjeta kako lako izraditi teze. Prvo preuzmite HTA helpomatic (slika 2) ispod. Nažalost, originalna veza više ne radi, ali na sreću sačuvao sam kopiju prije nekog vremena. Sljedeće preuzmite i instalirajte vbsedit, koji dolazi s htaeditom.

Nakon što imate ova dva programa, zaista vam ne treba html/hta iskustvo da biste započeli izradu grafičkih sučelja. Što je odlično za ljude poput mene, koji ne žele naučiti hta samo za izradu grafičkih sučelja.

Sada prijeđite na sljedeći korak da vidite kako sam napravio Duck Encoder …

Korak 4: Kako sam uspio

Dakle, prvo:

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

Ovo postavlja nekoliko stvari kao što su ikona, vrsta obruba itd.

Sub Window_OnLoad self.resizeTo 400, 454 Dim objFso: Set objFso = CreateObject ("Scripting. FileSystemObject") If Not objFso. FileExists ("c: / temp / duckencode.jar") Onda MsgBox "Greška, datoteka nije pronađena: c: / temp / duckencode.jar ", 16," Duck Encoder "Self.close () End If End Sub

Zatim se ovaj pod -program automatski pokreće kad god se program prvi put pokrene. Ono što radi je promjena veličine prozora, a zatim provjerite je li 'duckencode.jar' u ispravnom direktoriju.

Sub OnClickButtonbtnLoad ()

Dim objShlApp, objFolderLocation, strFileLocation, objFso, objFolder, colFiles, strTextFileList, objFile Dim strCompleteText Postavi objFso = CreateObject ("Scripting. FileSystemObject") Set objShLFoppr (0, "Potražite fasciklu koja sadrži datoteku:", 16384, 0) Ako je Err. Number 0 Onda MsgBox "Morate odabrati FOLDER koji sadrži datoteku.", 16, "Duck Encoder" Err. Clear () Inače Ako je objFolderLocation = "" Zatim izađi iz greške pod uključivanjem Idi na 0 Postavi objFolder = objFso. GetFolder (objFolderLocation. Self. Path & "\") Postavi colFiles = objFolder. Files strTextFileList = "" Za svaki objFile u colFiles Ako je InStr (objFile. Name,.txt ") False Zatim strTextFileList = strTextFileList & objFile. Name & vbCrLf Završi ako je sljedeće strFileLocation = InputBox (" Molimo unesite ispravnu tekstualnu datoteku koju želite kodirati: "& vbCrLf & vbCrLf & strTextFileList," Duck) (strFileLocation) Onda ako nije objFso. FileExists (objFolder Location. Self. Path & "\" & strFileLocation) Zatim MsgBox "Greška, morate odabrati tekstualnu datoteku sa popisa!", 16, "Duck Encoder" U suprotnom Nastavi grešku Sljedeća 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 Encer Ako kraj Ako kraj Ako završi ako završi pod

U redu, ovaj dio koda je zbunjujući, ovo je kod za koji korisnik klikne na „Učitaj iz tekstualne datoteke“. Budući da je praktično nemoguće napraviti dijalog otvorene datoteke u hta-i, program će iskočiti dijalog za pretraživanje fascikli da zatraži od korisnika da odabere fasciklu koja sadrži datoteku skripte. Zatim program otvara okvir za unos pitajući korisnika koju tekstualnu datoteku treba učitati u tu mapu. Zatim program čita sve što je unutar datoteke i stavlja je u okvir za tekst.

Sub OnClickButtonbtnPaste () Dim objHTML, ClipboardText Set objHTML = CreateObject ("htmlfile") ClipboardText = objHTML. ParentWindow. ClipboardData. GetData ("text") Ako je Isključeno (ClipboardText) = Tačno "MsgBox," "Duck Encoder" Ostalo txtScript. Value = ClipboardText End If End Sub

Sve što ovaj kod radi, je kada korisnik klikne na 'Zalijepi iz međuspremnika', program učitava tekst iz međuspremnika u okvir za tekst.

Korak 5: Kako sam uspio (dio 2)

Sub OnClickButtonbtnEncode () If txtScript. Value = "" Onda MsgBox "Nema koda!", 16, "Duck Encoder" El Dim Dim objFso, txtScriptFile Postavite objFso = CreateObject ("Scripting. Filesystemobject") Postavite txtScriptFile = obxtFile (obris) "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: Postavi objWshShl = CreateObject ("WScript. Shell") objWshShl. Run "java.exe -jar c: / temp / duckencode.jar -ic: / temp / script.txt -oc: / temp / inject.bin ", 0 'MsgBox" Skripta sastavljena za inject.bin u c: / temp ", vbOKOnly+vbInformation," Ducky Encoder "End Sub

Ovaj kôd se pokreće kada kliknete na 'Kodiraj'.

Ono što radi je stvaranje tekstualne datoteke pod nazivom script.txt i stavljanje svega što se nalazi u okvir za tekst. Zatim čeka 0,8 sekundi i zatim ga sastavlja.

Ostatak koda samo stvara GUI. Prilično je razumljivo samo ako znate osnovne hte.