USB Rubber Ducky Script Encoder (VBScript) ՝ 5 քայլ

2024 Հեղինակ: John Day | [email protected]. Վերջին փոփոխված: 2024-01-30 09:47

Եթե ունեք USB Rubber Ducky, ապա կիմանաք, որ շատ անհանգստացնող խնդիր է ՝ ձեր սցենարը կազմել.bin ֆայլում: Եթե ստիպված լինեք կարգաբերում կատարել ցանկացած կարգի, ապա կիմանաք, որ ձեր կազմած սցենարի անընդհատ ներբեռնումը կարող է ցավ պատճառել: Այսպիսով, այս խնդիրը շտկելու համար ես ստեղծեցի VBScript, որը կարող է արագ և հեշտ կազմել ձեր կոդը:

Ստորև կարող եք ներբեռնել կազմված.exe- ն և սկզբնական կոդը:

Ամեն դեպքում, ձեզ հավանաբար հետաքրքրում է, թե ինչպես եմ ես այսպիսի հիանալի GUI ծրագիր կատարել vbs- ում, և եթե այո, ապա անցեք 3 -րդ քայլին:

Քայլ 1: Տեղադրում…

Կան նաև հրահանգներ, թե ինչպես դա անել REAMDE.txt ֆայլում: Ինչևէ, նախ դուք պետք է ձեր C կրիչում ստեղծեք «temp» կոչվող թղթապանակ, եթե այն արդեն չունեք: Բացի այդ, եթե արդեն չունեք Java տեղադրված, կարող եք այն ստանալ այստեղից: Հաջորդը ներբեռնեք duckencode.jar- ը և ֆայլը տեղափոխեք ձեր c: / temp պանակ: Հաջորդը. Կամ, եթե օգտագործում եք կազմված.exe ֆայլը, պարզապես գործարկեք «Duck.exe»:

Այժմ մենք կարող ենք անցնել հաջորդ քայլին…

Քայլ 2: Օգտագործում…

Այս ծրագիրը իսկապես պարզ է, այն օգտագործելու համար պարզապես կտտացրեք «Կպցնել սեղմատախտակից» կոդին ՝ ձեր կոդը ինքնաբերաբար տեղադրելու համար: Կամ կտտացրեք տեքստային ֆայլից բեռնելուն ՝ տեքստային ֆայլից սցենարը բեռնելու համար: Այնուհետեւ ձեր կոդը կհայտնվի ստորեւ բերված տեքստային դաշտում: Կատարեք ձեր վերջնական փոփոխությունները ձեր ծածկագրում և կտտացրեք «Կոդավորել»: Գնացեք c: / temp և տեղափոխեք «inject.bin» ձեր USB Rubber Ducky- ին:

Ձեզ կարող է հետաքրքրել, թե ինչ է script.txt- ը: Ինչ է դա, տեքստային տուփից չհավաքված ծածկագիր է: Այն օգտագործվում է որպես հում կոդի կրկնօրինակում:

ՈEՇԱԴՐՈԹՅՈՆ. Եթե ցանկանում եք փոքր սցենար պատրաստել, կարող եք պարզապես մուտքագրել ձեր ծածկագիրը տեքստային դաշտում: Ձեր USB Rubber Ducky- ն փորձարկելու արագ և հեշտ միջոց:

Անցեք հաջորդ քայլին, եթե ցանկանում եք ավելին իմանալ vBS- ում GUI- ների մասին և ինչպես է ստեղծվել այս ծրագիրը, հակառակ դեպքում.

Շնորհակալություն այս ուսանելի դասընթացի համար, և եթե ունեք հարցեր, մեկնաբանություններ կամ մտահոգություններ, խնդրում ենք տեղադրել մեկնաբանություն կամ գրել ինձ:

Քայլ 3: GUI- ներ VBScript- ում

Այսպիսով, այո, հնարավոր է գրաֆիկական ինտերվեյներ պատրաստել vbs- ում: Ինչպես եք դա անում, ձեր տեքստը HTA- ով փաթաթելով է: Եթե դուք դեռ չգիտեք, HTA- ն սցենարական լեզու է, որը շատ նման է html- ին, որն օգտագործվում է պարզապես GUI- ում այնպիսի սցենարներ փաթաթելու համար, ինչպիսիք են vbscript- երը և jscript- ները: Մանրամասն բացատրություն և ձեռնարկ այստեղ:

Այսպիսով, այժմ, երբ դուք գիտեք, թե ինչ է hta- ն, թույլ տվեք ձեզ մի քանի խորհուրդ տալ, թե ինչպես հեշտությամբ կատարել թեզեր: Նախ ներբեռնեք HTA helpomatic- ը (նկար 2) ստորև: Unfortunatelyավոք, օրիգինալ հղումն այլևս չի աշխատում, բայց բարեբախտաբար որոշ ժամանակ առաջ ես պահեցի դրա պատճենը: Հաջորդը ներբեռնեք և տեղադրեք vbsedit- ը, որը գալիս է htaedit- ով:

Այս երկու ծրագրերն ունենալուց հետո GUI- ներ պատրաստելու համար ձեզ իսկապես HTML/HTA փորձ պետք չէ: Ինչը հիանալի է ինձ նման մարդկանց համար, ովքեր չեն ցանկանում սովորել hta միայն GUI- ներ պատրաստելու համար:

Այժմ անցեք հաջորդ քայլին ՝ տեսնելու, թե ինչպես եմ պատրաստել Duck Encoder…

Քայլ 4: Ինչպես եմ դա հասցրել

Այսպիսով, նախ.

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

Սա սահմանում է մի քանի բան, ինչպիսիք են պատկերակը, եզրագծի տեսակը և այլն:

Sub Window_OnLoad self.resizeTo 400, 454 Dim objFso: Սահմանել objFso = CreateObject ("Scripting. FileSystemObject") Եթե ոչ objFso. FileExists ("c: / temp / duckencode.jar") Այնուհետեւ MsgBox "Սխալ, ֆայլը չի գտնվել: c: / temp / duckencode.jar ", 16," Duck Encoder "Self.close () Ավարտ, եթե ավարտի ենթ.

Հաջորդը, այս ենթախումբը ինքնաբերաբար աշխատում է, երբ ծրագիրը առաջին անգամ գործարկվի: Այն, ինչ անում է, չափափոխել պատուհանը, այնուհետև ստուգել ՝ համոզվելու համար, որ «duckencode.jar» - ը ճիշտ գրացուցակում է:

Sub OnClickButtonbtnLoad ()

Dim objShlApp, objFolderLocation, strFileLocation, objFso, objFolder, colFiles, strTextFileList, objFile Dim strCompleteText Set objFso = CreateObject ("Scripting. FileSystemObject") Սահմանել objShlApperFail. JelOpp. Folder. JelOppEck. Oppel: (0, "Փնտրեք ֆայլը պարունակող պանակը", 16384, 0) Եթե Err. Number 0 Ապա MsgBox "Դուք պետք է ընտրեք ֆայլը պարունակող Թղթապանակը:", 16, "Duck Encoder" Err. Clear () Այլ Եթե objFolderLocation = "" Ապա Ելք Ենթադրյալ Սխալով 0 -ի կարգավորում objFolder = objFso. GetFolder (objFolderLocation. Self. Path & "\") Սահմանել colFiles = objFolder. Files strTextFileList = "" Յուրաքանչյուր objFile- ում colFiles If InStr (objFile. Name, ".txt ") Կեղծ Ապա strTextFileList = strTextFileList & objFile. Name & vbCrLf Ավարտի Եթե Հաջորդը strFileLocation = InputBox (" Խնդրում ենք մուտքագրել ճիշտ տեքստային ֆայլը, որը ցանկանում եք կոդավորել. (strFileLocation) Ապա If Not objFso. FileExists (objFolder Location. Self. Path & "\" & strFileLocation) Հետո MsgBox "Error, դուք պետք է տեքստային ֆայլ ընտրեք ցուցակից:", 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 () Եթե Err. Number 0 Այնուհետեւ MsgBox" Տեքստային ֆայլը դատարկ է ", 16", "Duck Encoder Եթե ավարտի, եթե ավարտվի, եթե ավարտվի, եթե ավարտվի ենթ

Լավ, կոդի այս հատվածը իսկապես շփոթեցնող է, սա այն կոդը է, երբ օգտվողը կտտացնում է «Բեռնել տեքստային ֆայլից» կոճակին: Քանի որ գործնականում անհնար է բաց ֆայլի երկխոսություն կատարել hta- ում, ծրագիրը բացում է թղթապանակի երկխոսության թերթում `օգտվողին խնդրելով ընտրել սցենարի ֆայլը պարունակող թղթապանակը: Այնուհետև ծրագիրը բացում է մուտքագրման տուփ ՝ օգտվողին հարցնելով, թե որ տեքստային ֆայլը պետք է բեռնվի այդ պանակի ներսում: Այնուհետև ծրագիրը կարդում է այն, ինչ կա ֆայլի ներսում և դնում այն տեքստային դաշտում:

Sub OnClickButtonbtnPaste () Dim objHTML, ClipboardText Set objHTML = CreateObject ("htmlfile") ClipboardText = objHTML. ParentWindow. ClipboardData. GetData ("text") If IsNull (ClipboardText) Inxt » "Duck Encoder" Else txtScript. Value = ClipboardText Ավարտ, եթե ավարտվի ենթակետ

Այս կոդն անում է, երբ օգտվողը կտտացնում է «Տեղադրեք սեղմատախտակից», ծրագիրը տեքստը բեռնում է սեղմատախտակից տեքստային տուփ:

Քայլ 5. Ինչպես եմ դա արել (մաս 2)

Sub OnClickButtonbtnEncode () If txtScript. Value = "" Ապա MsgBox "Կոդ չկա", 16, "Duck Encoder" Else Dim objFso, txtScriptFile Set objFso = CreateObject ("Scripting. Filesystemobject") Սահմանել txtScriptFile = "c: / temp / script.txt", 2, True) txtScriptFile. WriteLine (txtScript. Value) txtScriptFile. Close () idTimer = window.setTimeout ("Compile", 800, "VBScript") Ավարտել, եթե ավարտվի Sub Sub Compile () window.clearTimeout (idTimer) Dim objWshShl: Սահմանել objWshShl = CreateObject ("WScript. Shell") objWshShl. Run "java.exe -jar c: / temp / duckencode.jar -ic: / temp / script.txt -oc: / temp / inject.bin ", 0 'MsgBox" Script compiled to inject.bin in c: / temp ", vbOKOnly+vbInformation," Ducky Encoder "End Sub

Այս կոդը գործարկվում է, երբ սեղմում եք «Կոդավորել» կոճակը:

Այն, ինչ անում է, ստեղծում է տեքստային ֆայլ, որը կոչվում է script.txt և դնում այն, ինչ կա տեքստում: Այնուհետև այն սպասում է 0,8 վայրկյան, այնուհետև կազմում է այն:

Մնացած ծածկագիրը պարզապես ստեղծում է GUI: Դա բավականին ինքնին բացատրելի է, եթե դուք գիտեք հիմնական hta- ն: