USB Rubber Ducky Script Encoder (VBScript): 5 pași

2024 Autor: John Day | [email protected]. Modificat ultima dată: 2024-01-30 11:43

Dacă aveți un USB Rubber Ducky, veți ști că o sarcină foarte enervantă este să vă compilați scriptul într-un fișier.bin. Dacă trebuie să faceți orice fel de depanare, veți ști că descărcarea constantă a scriptului compilat poate fi o durere. Deci, pentru a remedia această problemă, am creat un VBScript care vă poate compila codul rapid și ușor.

Puteți descărca.exe compilat și codul sursă de mai jos.

Oricum, probabil că vă întrebați cum am creat o aplicație GUI atât de minunată în vbs și, dacă da, treceți la pasul 3.

Pasul 1: Instalarea …

Există, de asemenea, instrucțiuni despre cum să faceți acest lucru în fișierul REAMDE.txt. Oricum, mai întâi trebuie să creați un folder în unitatea dvs. C numit „temp” dacă nu aveți deja unul. De asemenea, dacă nu aveți deja java instalat, îl puteți obține de aici. Apoi descărcați duckencode.jar și mutați fișierul în folderul c: / temp. Apoi, extrageți oricare dintre fișierele.zip și rulați Duck.hta în același director ca „ico.ico” și „pic.gif” dacă utilizați versiunea necompilată. Sau dacă utilizați.exe compilat, pur și simplu rulați „Duck.exe”.

Acum putem trece la pasul următor …

Pasul 2: utilizare …

Acest program este foarte simplu, pentru al utiliza, trebuie doar să faceți clic pe „Lipire din clipboard” pentru a lipi automat codul. Sau faceți clic pe Încărcare din fișier text, pentru a încărca scriptul dintr-un fișier text. Apoi, codul dvs. va apărea în caseta de text de mai jos. Efectuați modificările finale pe care le doriți codului dvs. și apăsați pe „Codificare”. Navigați la c: / temp și mutați „inject.bin” pe USB Rubber Ducky.

Este posibil să vă întrebați ce este script.txt. Ce este, este codul necompilat din caseta de text. Este folosit ca o copie de rezervă a codului brut.

NOTĂ: Dacă doriți să creați un mic script, puteți pur și simplu să introduceți codul în caseta de text. O modalitate rapidă și ușoară de a testa USB Rubber Ducky.

Treceți la pasul următor dacă doriți să aflați mai multe despre modul în care GUI în vbs și modul în care a fost realizat acest program, altfel:

Vă mulțumim că ați citit acest lucru instructiv și, dacă aveți întrebări, comentarii sau nelămuriri, vă rugăm să postați un comentariu sau să-mi spuneți

Pasul 3: GUI-uri în VBScript

Deci da, este posibil să creați GUI în vbs. Modul în care o faceți este prin împachetarea textului într-un HTA. În caz că nu știți deja, HTA este un limbaj de scriptare foarte similar cu html folosit pur și simplu pentru a înfășura scripturi precum vbscripts și jscripts într-o GUI. Explicații detaliate și tutorial aici.

Deci, acum, când știți ce este hta, permiteți-mi să vă dau câteva sfaturi despre cum să faceți cu ușurință teze. Mai întâi descărcați HTA helpomatic (imaginea 2) de mai jos. Din păcate, link-ul original nu mai funcționează, dar din fericire am salvat o copie cu ceva timp în urmă. Apoi descărcați și instalați vbsedit, care vine cu htaedit.

După ce aveți aceste două programe, nu aveți nevoie de experiență html / hta pentru a începe să creați GUI. Ceea ce este minunat pentru oameni ca mine, care nu doresc să învețe hta doar pentru a crea interfețe grafice.

Acum treceți la pasul următor pentru a vedea cum am realizat codificatorul de rață …

Pasul 4: Cum am reușit

Deci, mai întâi:

APPLICATIONNAME = "Codor Duck" ID = "DuckEncoder" VERSION = "1.0" INNERBORDER = "nu" MAXIMIZEBUTTON = "nu" ICON = "ico.ico" SCROLL = "nu"

Aceasta setează câteva lucruri, cum ar fi pictograma, tipul chenarului, ect.

Sub Window_OnLoad self.resizeTo 400, 454 Dim objFso: Set objFso = CreateObject ("Scripting. FileSystemObject") Dacă nu objFso. FileExists ("c: / temp / duckencode.jar") Apoi MsgBox "Eroare, fișierul nu a fost găsit: c: / temp / duckencode.jar ", 16," Duck Encoder "Self.close () End If End Sub

Apoi, acest sub, rulează automat de fiecare dată când programul este lansat pentru prima dată. Ceea ce face este să redimensionați fereastra, apoi verificați pentru a vă asigura că „duckencode.jar” se află în directorul corect.

Sub OnClickButtonbtnLoad ()

Dim objShlApp, objFolderLocation, strFileLocation, objFso, objFolder, colFiles, strTextFileList, objFile Dim strCompleteText Set objFso = CreateObject ("Scripting. FileSystemObject") Set objShlApp = CreateObject ("Shell. Application" = ObjectFolder ObjectFold (0, "Căutați folderul care conține fișierul:", 16384, 0) Dacă Err. Number 0 Apoi MsgBox "Trebuie să selectați FOLDER-ul care conține fișierul.", 16, "Duck Encoder" Err. Clear () Altfel Dacă objFolderLocation = "" Apoi ieșiți din sub eroare Mergeți 0 Setați obiectFolder = objFso. GetFolder (objFolderLocation. Self. Path & "\") Set colFiles = objFolder. Files strTextFileList = "" Pentru fiecare obiectFile În colFiles Dacă InStr (objFile. Name, ".txt ") Fals Apoi strTextFileList = strTextFileList & objFile. Name & vbCrLf End If Next strFileLocation = InputBox (" Vă rugăm să introduceți fișierul text corect pe care doriți să îl codificați: "& vbCrLf & vbCrLf & strTextFileList," Ducky Encoder ") (strFileLocation) Atunci dacă nu objFso. FileExists (objFolder Location. Self. Path & "\" & strFileLocation) Apoi MsgBox "Eroare, trebuie să alegeți un fișier text din listă!", 16, "Duck Encoder" Altfel La eroare Reîncepe Următorul 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

Bine, această parte a codului este într-adevăr confuză, acesta este codul pentru care utilizatorul dă clic pe „Încărcare din fișier text”. Deoarece este practic imposibil să creați un dialog de fișiere deschise în hta, programul afișează o fereastră de dialog pentru căutarea folderului pentru a cere utilizatorului să selecteze folderul care conține fișierul script. Apoi programul deschide o casetă de intrare care îi cere utilizatorului ce fișier text să încarce în acel folder. Apoi programul citește tot ceea ce se află în fișier și îl pune în caseta de text.

Sub OnClickButtonbtnPaste () Dim objHTML, ClipboardText Set objHTML = CreateObject ("htmlfile") ClipboardText = objHTML. ParentWindow. ClipboardData. GetData ("text") If IsNull (ClipboardText) = True Then MsgBox "Nothing in the clipboard!", 16, „Codificator de rață” Altfel txtScript. Value = ClipboardText End If End Sub

Tot ce face acest cod este atunci când utilizatorul face clic pe „Lipire din clipboard”, programul încarcă textul din clipboard în caseta de text.

Pasul 5: Cum am reușit (partea 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. OpenTextFile "c: / temp / script.txt", 2, True) txtScriptFile. WriteLine (txtScript. Value) txtScriptFile. Close () idTimer = window.setTimeout ("Compile", 800, "VBScript") Termină dacă Termină Sub Compilare Sub () 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 compilat pentru inject.bin în c: / temp ", vbOKOnly + vbInformation," Ducky Encoder "End Sub

Acest cod este rulat când faceți clic pe „Codificare”.

Ceea ce face este să creeze un fișier text numit script.txt și să pună tot ce este în interiorul casetei text. Apoi așteaptă 0,8 secunde și apoi îl compilează.

Restul codului creează doar interfața grafică. Este destul de auto-explicativ dacă știți hta de bază.