USB gumeni Ducky Script Encoder (VBScript): 5 koraka

2024 Autor: John Day | [email protected]. Zadnja promjena: 2024-01-30 09:34

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 sastavljene skripte može biti bol. Stoga sam za rješavanje ovog problema stvorio VBScript koji može brzo i jednostavno sastaviti vaš kôd.

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

U svakom slučaju, vjerojatno se pitate kako sam napravio tako sjajnu aplikaciju za grafičko sučelje u vbs -u, i ako je tako, prijeđite na korak 3.

Korak 1: Instaliranje …

U datoteci REAMDE.txt postoje i upute kako to učiniti. U svakom slučaju, prvo morate stvoriti mapu na svom C pogonu pod nazivom 'temp' ako je već nemate. Također, ako već nemate instaliranu javu, možete je preuzeti odavde. Zatim preuzmite duckencode.jar i premjestite datoteku u svoju 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 prevedeni.exe, jednostavno pokrenite 'Duck.exe'.

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

Korak 2: Upotreba …

Ovaj je program doista jednostavan, da biste ga koristili, jednostavno kliknite "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 što je script.txt. Ono što jest, nekompilirani je kôd iz okvira za tekst. Koristi se kao sigurnosna kopija sirovog koda.

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

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

Hvala vam š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čko sučelje u VBScript -u

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

Pa 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, izvorna veza više ne radi, ali srećom sam neko vrijeme spremio kopiju. Zatim 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 s izradom grafičkog sučelja. Što je izvrsno 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"

Time se 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, ovaj pod -program automatski se pokreće svaki put kada 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 ()

Zatamni objShlApp, objFolderLocation, strFileLocation, objFso, objFolder, colFiles, strTextFileList, objFile Dim strCompleteText Postavi objFso = CreateObject ("Scripting. FileSystemObject") Postavi objShLFoption (0, "Pregledaj mapu 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," Ducky) "Duck (strFileLocation) Onda ako nije objFso. FileExists (objFolder Location. Self. Path & "\" & strFileLocation) Zatim MsgBox "Pogreška, morate odabrati tekstualnu datoteku s popisa!", 16, "Duck Encoder" Ostalo pri grešci Nastavi 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 kôd kada korisnik klikne na "Učitaj iz tekstualne datoteke". Budući da je praktički nemoguće napraviti dijalog otvorene datoteke u hta-i, program će iskočiti dijalog za pretraživanje mapa kako bi zatražio od korisnika da odabere mapu 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) = Istina Ništa "MsgBox," "Duck Encoder" Ostalo txtScript. Value = ClipboardText End If End Sub

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

Korak 5: Kako sam to uspio (dio 2)

Sub OnClickButtonbtnEncode () If txtScript. Value = "" Onda MsgBox "Nema koda!", 16, "Duck Encoder" Ostalo 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 ako znate osnovne hte.