USB gumijas Ducky skriptu kodētājs (VBScript): 5 soļi

2024 Autors: John Day | [email protected]. Pēdējoreiz modificēts: 2024-01-30 10:54

Ja jums ir USB Rubber Ducky, jūs zināt, ka skripta apkopošana.bin failā ir ļoti kaitinošs uzdevums. Ja jums ir jāveic jebkāda veida atkļūdošana, jūs zināt, ka jūsu apkopotā skripta pastāvīga lejupielāde var radīt sāpes. Lai atrisinātu šo problēmu, es izveidoju VBScript, kas var ātri un viegli apkopot jūsu kodu.

Apkopoto.exe un avota kodu varat lejupielādēt zemāk.

Jebkurā gadījumā jūs, iespējams, domājat, kā es izveidoju tik lielisku GUI lietojumprogrammu vbs, un, ja tā, pārejiet uz 3. darbību.

1. darbība: instalēšana…

Failā REAMDE.txt ir arī norādījumi, kā to izdarīt. Jebkurā gadījumā vispirms C diskā jāizveido mape ar nosaukumu “temp”, ja jums tāda vēl nav. Turklāt, ja jums vēl nav instalēta java, varat to iegūt šeit. Tālāk lejupielādējiet duckencode.jar un pārvietojiet failu uz mapi c: / temp. Pēc tam izvelciet vienu no.zip failiem un palaidiet Duck.hta tajā pašā direktorijā kā “ico.ico” un “pic.gif”, ja izmantojat neapkopotu versiju. Vai arī, ja izmantojat apkopoto.exe, vienkārši palaidiet “Duck.exe”.

Tagad mēs varam pāriet uz nākamo soli…

2. darbība: lietošana…

Šī programma ir patiešām vienkārša, lai to izmantotu, vienkārši noklikšķiniet uz "Ielīmēt no starpliktuves", lai automātiski ielīmētu kodu. Vai arī noklikšķiniet uz ielādēt no teksta faila, lai ielādētu skriptu no teksta faila. Pēc tam jūsu kods parādīsies zemāk esošajā tekstlodziņā. Veiciet visas nepieciešamās izmaiņas savā kodā un noklikšķiniet uz "Kodēt". Pārejiet uz c: / temp un pārvietojiet “inject.bin” uz savu USB Rubber Ducky.

Jums var rasties jautājums, kas ir skripts.txt. Kas tas ir, tekstlodziņā nav apkopots kods. To izmanto kā neapstrādāta koda rezerves kopiju.

PIEZĪME. Ja vēlaties izveidot nelielu skriptu, tekstlodziņā varat vienkārši ierakstīt savu kodu. Ātrs un vienkāršs veids, kā pārbaudīt savu USB gumijas Ducky.

Pārejiet uz nākamo soli, ja vēlaties uzzināt vairāk par to, kā lietotāja saskarnes vbs un kā tika izveidota šī programma, pretējā gadījumā:

Paldies, ka izlasījāt šo pamācību, un, ja jums ir kādi jautājumi, komentāri vai bažas, lūdzu, ievietojiet komentāru vai rakstiet man pm

3. darbība. GUI VBScript

Tātad, jā, ir iespējams izveidot GUI vbs. Jūs to darāt, iesaiņojot tekstu HTA. Ja jūs vēl nezināt, HTA ir skriptu valoda, kas ir ļoti līdzīga html, ko izmanto, lai vienkārši iesaiņotu tādus skriptus kā vbscripts un jscripts GUI. Detalizēts skaidrojums un apmācība šeit.

Tagad, kad jūs zināt, kas ir hta, ļaujiet man sniegt dažus padomus, kā viegli izveidot tēzes. Vispirms lejupielādējiet HTA helpomatic (2. attēls) zemāk. Diemžēl sākotnējā saite vairs nedarbojas, bet par laimi kādu laiku atpakaļ es saglabāju kopiju. Tālāk lejupielādējiet un instalējiet vbsedit, kas tiek piegādāts kopā ar htaedit.

Kad esat ieguvis šīs divas programmas, jums patiešām nav nepieciešama html/hta pieredze, lai sāktu veidot GUI. Kas ir lieliski piemērots tādiem cilvēkiem kā es, kuri nevēlas mācīties hta tikai, lai izveidotu GUI.

Tagad pārejiet pie nākamā soļa, lai redzētu, kā es izveidoju pīles kodētāju …

4. solis: kā es to izdarīju

Tātad, vispirms:

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

Tādējādi tiek iestatītas dažas lietas, piemēram, ikona, apmales veids utt.

Sub Window_OnLoad self.resizeTo 400, 454 Dim objFso: Set objFso = CreateObject ("Scripting. FileSystemObject") If Not objFso. FileExists ("c: / temp / duckencode.jar") Tad MsgBox "Kļūda, fails nav atrasts: c: / temp / duckencode.jar ", 16," Duck Encoder "Self.close () End If End Sub

Pēc tam šī apakšprogramma tiek palaista automātiski, kad programma tiek pirmo reizi palaista. Tas ļauj mainīt loga izmērus, pēc tam pārbaudiet, vai “duckencode.jar” ir pareizajā direktorijā.

Sub OnClickButtonbtnLoad ()

Dim objShlApp, objFolderLocation, strFileLocation, objFso, objFolder, colFiles, strTextFileList, objFile Dim strCompleteText Set objFso = CreateObject ("Scripting. FileSystemObject") Iestatīt objShlAppolppOppFolter Set (0, "Pārlūkot mapi, kurā ir fails:", 16384, 0) Ja Err. Number 0 Tad MsgBox "Jums jāizvēlas mape, kurā ir fails.", 16, "Duck Encoder" Err. Clear () Else If objFolderLocation = "" Pēc tam iziet no apakškļūdas kļūdas gadījumā Goto 0 Set objFolder = objFso. GetFolder (objFolderLocation. Self. Path & "\") Set colFiles = objFolder. Files strTextFileList = "" Katram objFile In colFiles If InStr (objFile. Name, " (strFileLocation) Tad, ja ne ObjFso. FileExists (objFolder Location. Self. Path & "\" & strFileLocation) Tad MsgBox "Kļūda, jums jāizvēlas teksta fails no saraksta!", 16, "Duck Encoder" Else On Error Resume Next strFileLocation = objFolderLocation. Self. Path & "\ "& strFileLocation Set objFile = objFso. OpenTextFile (strFileLocation, 1, FALSE) txtScript. Value = objFile. ReadAll objFile. Close () Ja Err. Number 0 Tad MsgBox" Teksta fails ir tukšs. ", 16," Duck Encoder Ja beigas Ja beigas Ja beigas, ja beigu apakš

Labi, šī koda daļa ir patiešām mulsinoša, tas ir kods, kad lietotājs noklikšķina uz “Ielādēt no teksta faila”. Tā kā praktiski nav iespējams izveidot atvērtā faila dialoglodziņu programmā hta, programma uznirstošajā logā pārlūko mapes dialoglodziņu un lūdz lietotājam izvēlēties mapi, kurā ir skripta fails. Pēc tam programma atver ievades lodziņu, kurā lietotājam tiek jautāts, kurš teksta fails jāielādē šajā mapē. Pēc tam programma nolasa visu, kas atrodas failā, un ievieto to tekstlodziņā.

Sub OnClickButtonbtnPaste () Dim objHTML, ClipboardText Set objHTML = CreateObject ("htmlfile") ClipboardText = objHTML. ParentWindow. ClipboardData. GetData ("text") Ja IsNull (ClipboardText) = Patiesa, tad MsgBox! "Duck Encoder" Cits txtScript. Value = Starpliktuves teksta beigas Ja beigas Sub

Viss šis kods ir, kad lietotājs noklikšķina uz "Ielīmēt no starpliktuves", programma ielādē tekstu no starpliktuves uz tekstlodziņu.

5. darbība. Kā es to izveidoju (2. daļa)

Sub OnClickButtonbtnEncode () If txtScript. Value = "" Tad MsgBox "Nav koda!", 16, "Duck Encoder" Else Dim objFso, txtScriptFile Set objFso = CreateObject ("Scripting. Filesystemobject") Iestatīt txtScriptFile = objext "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" Skripts, kas apkopots, lai inject.bin c: / temp ", vbOKOnly+vbInformation," Ducky Encoder "beigu apakšnodaļa

Šis kods tiek palaists, noklikšķinot uz "Kodēt".

Tas rada teksta failu ar nosaukumu script.txt un ievieto visu, kas atrodas tekstlodziņā. Tad tas gaida 0,8 sekundes un pēc tam to apkopo.

Pārējais kods tikai izveido GUI. Tas ir diezgan pašsaprotami, ja jūs zināt pamata hta.