USB Kauçuk Ducky Script Kodlayıcısı (VBScript): 5 addım

2024 Müəllif: John Day | [email protected]. Son dəyişdirildi: 2024-01-30 07:45

Bir USB Kauçuk Ducky varsa, çox zəhlətökən bir vəzifənin skriptinizi.bin faylına yığdığını bilirsiniz. Hər hansı bir ayıklama etməlisinizsə, tərtib edilmiş skriptinizin davamlı yüklənməsinin bir ağrı ola biləcəyini biləcəksiniz. Bu problemi həll etmək üçün kodunuzu tez və asan tərtib edə biləcək bir VBScript yaratdım.

Aşağıdakı tərtib edilmiş.exe və mənbə kodunu yükləyə bilərsiniz.

Hər halda, yəqin ki, vbs -də belə bir möhtəşəm GUI tətbiqini necə yaratdığımı düşünürsünüz və əgər varsa, 3 -cü addıma keçin.

Addım 1: Quraşdırma…

REAMDE.txt faylında bunun necə ediləcəyi ilə bağlı təlimatlar da var. Hər halda, əvvəlcə C sürücünüzdə "temp" adlı bir qovluq yaratmamalısınız. Ayrıca, hələ java yüklü deyilsə, buradan əldə edə bilərsiniz. Sonra duckencode.jar faylını yükləyin və faylı c: / temp qovluğuna köçürün. Sonra,.zip fayllarından birini çıxarın və tərtib edilməmiş versiyanı istifadə edirsinizsə, Duck.hta 'ico.ico' və 'pic.gif' ilə eyni qovluqda işləyin. Və ya tərtib edilmiş.exe istifadə edirsinizsə, sadəcə 'Duck.exe' işləyin.

İndi növbəti mərhələyə keçə bilərik …

Addım 2: İstifadə…

Bu proqram həqiqətən sadədir, istifadə etmək üçün kodunuzu avtomatik olaraq yapışdırmaq üçün 'Panodan yapışdır' düyməsini basın. Və ya mətni fayldan skript yükləmək üçün mətn faylından yükləmə düyməsini vurun. Sonra kodunuz aşağıdakı mətn qutusunda görünəcək. Kodunuzda istəyə biləcəyiniz son dəyişiklikləri edin və "Kodla" düyməsini basın. C: / temp -ə gedin və 'injection.bin' -i USB Kauçuk Duck -a köçürün.

Siz script.txt -in nə olduğunu maraqlandıra bilərsiniz. Bu nədir, mətn qutusundan yığılmamış koddur. Ham kodun ehtiyat nüsxəsi olaraq istifadə olunur.

Qeyd: Kiçik bir skript etmək istəyirsinizsə, kodunuzu mətn qutusuna yaza bilərsiniz. USB Rubber Ducky -ni sınamağın sürətli və asan bir yolu.

VBS -də GUI -lərin necə qurulduğu və bu proqramın necə qurulduğu haqqında daha çox məlumat əldə etmək istəyirsinizsə, növbəti addıma keçin, əks halda:

Bu təlimatı oxuduğunuz üçün təşəkkür edirəm və hər hansı bir sualınız, şərhiniz və ya narahatlığınız varsa, bir şərh yazın və ya mənə yazın

Addım 3: VBScript -də GUI -lər

Bəli, vbs -də GUI etmək mümkündür. Mətninizi HTA -ya bağlamaqla bunu edə bilərsiniz. Hələ bilmədiyiniz halda, HTA sadəcə bir GUI -də vbscripts və jscripts kimi skriptləri bağlamaq üçün istifadə olunan html -ə çox oxşar bir skript dilidir. Ətraflı izahat və təlimat burada.

İndi hta -nın nə olduğunu bildiyiniz üçün tezisləri asanlıqla necə düzəltməyinizə dair bir neçə ipucu verim. Əvvəlcə aşağıdakı HTA yardım cihazını yükləyin (şəkil 2). Təəssüf ki, orijinal link artıq işləmir, amma xoşbəxtlikdən bir nüsxəni bir müddət əvvəl saxladım. Sonrakı htaedit ilə gələn vbsedit'i yükləyin və quraşdırın.

Bu iki proqramı əldə etdikdən sonra, GUI yaratmağa başlamaq üçün həqiqətən heç bir html/hta təcrübəsinə ehtiyacınız yoxdur. Yalnız GUI etmək üçün hta öyrənmək istəməyən mənim kimi insanlar üçün əladır.

İndi ördək kodlayıcısını necə hazırladığımı görmək üçün növbəti addıma keçin …

Addım 4: Necə Yaratdım

Beləliklə, əvvəlcə:

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

Bu simge, sərhəd növü, ect kimi bir neçə şeyi qurur.

Sub Window_OnLoad self.resizeTo 400, 454 Dim objFso: ObjFso = CreateObject ("Scripting. FileSystemObject") Olmasa ObjFso. FileExists Olmasa ("c: / temp / duckencode.jar") Sonra MsgBox Xətası, fayl tapılmadı: c: / temp / duckencode.jar ", 16," Duck Encoder "Self.close () End Sub End

Sonra, bu alt proqram ilk dəfə işə salındıqda avtomatik işləyir. Pəncərənin ölçüsünü dəyişdikdən sonra 'duckencode.jar' in düzgün qovluqda olmasını yoxlayın.

Alt OnClickButtonbtnLoad ()

Dim objShlApp, objFolderLocation, strFileLocation, objFso, objFolder, colFiles, strTextFileList, objFile Dim strCompleteText Set objFso = CreateObject ("Scripting. FileSystemObject") Set objShlApp ShellForForEbroObject () ". (0, "Dosyanı ehtiva edən qovluğa göz atın:", 16384, 0) Əgər Err. Number 0 Sonra MsgBox "Sənədi ehtiva edən QATLIĞI seçməlisiniz.", 16, "Duck Encoder" Err. Clear () Başqa Əgər objFolderLocation = "" Ardından Git 0 Hata Altında Çıxın ObjFolder = objFso. GetFolder (objFolderLocation. Self. Path & "\") colFiles = objFolder. Files strTextFileList = "" InStr (objFile. Name varsa) hər bir objFile üçün.txt ") Yanlış Sonra strTextFileList = strTextFileList & objFile. Name & vbCrLf Növbəti Olduqda Bitər strFileLocation = InputBox (" Zəhmət olmasa kodlaşdırmaq istədiyiniz düzgün mətn faylını daxil edin: "& vbCrLf & vbCrLf & strTextFileList," Ducky Encoder ") (strFileLocation) Sonra deyilsə objFso. FileExists (objFolder Location. Self. Path & "\" & strFileLocation) Sonra MsgBox "Xətası, siyahıdan bir mətn faylı seçməlisiniz!", 16, "Duck Encoder" Başqa bir Səhv Davam Edir Sonrakı strFileLocation = objFolderLocation. Self. Path & "\ "& strFileLocation Set objFile = objFso. OpenTextFile (strFileLocation, 1, FALSE) txtScript. Value = objFile. ReadAll objFile. Close () Err. Number 0 Sonra MsgBox" Mətn faylı boşdur. ", 16," Duck Encoder " Bitirsə Bitir Əgər Bitirsə Bitir Sub

Tamam, kodun bu hissəsi həqiqətən çaşdırıcıdır, istifadəçi 'Mətn sənədindən yüklə' düyməsini tıkladıqda bu koddur. Hta-da açıq fayl dialoqu qurmaq praktiki olaraq mümkün olmadığından, proqram istifadəçidən skript faylını ehtiva edən qovluğu seçməsini istəmək üçün qovluq dialoquna göz açılır. Sonra proqram istifadəçidən həmin qovluqda hansı mətn faylının yüklənməsini soruşan bir giriş qutusu açır. Sonra proqram faylın içində nə varsa oxuyur və mətn qutusuna qoyur.

Sub OnClickButtonbtnPaste () Dim objHTML, ClipboardText Set objHTML = CreateObject ("htmlfile") ClipboardText = objHTML. ParentWindow. ClipboardData. GetData ("text") IsNull (ClipboardText) = Doğrudan MsgBox, " "Ördək Kodlayıcısı" Başqa bir txtScript. Value = ClipboardText Alt Əgər Bitir

İstifadəçi 'Panodan yapışdır' düyməsini basdıqda, proqram bu mətni panodan mətn qutusuna yükləyir.

Addım 5: Necə Yaratdım (2 -ci hissə)

Alt OnClickButtonbtnEncode () If txtScript. Value = "" O zaman MsgBox "Kod yoxdur!", 16, "Duck Encoder" Başqa Dim objFso, txtScriptFile Set objFso = CreateObject ("Scripting. Filesystemobject") SetTxtTcriptToScriptFile "c: / temp / script.txt", 2, Doğru) txtScriptFile. WriteLine (txtScript. Value) txtScriptFile. Close () idTimer = window.setTimeout ("Kompilyasiya", 800, "VBScript") Bitir Alt Alt Kompilyasiya () window.clearTimeout (idTimer) Dim objWshShl: ObjWshShl = CreateObject ("WScript. Shell") objWshShl. Run "java.exe -jar c: / temp / duckencode.jar -ic: / temp / script.txt -oc qurun: / temp / injection.bin ", 0 'MsgBox" C: / temp ", vbOKOnly+vbInformation," Ducky Encoder "Son Altında injection.bin üçün tərtib edilmiş Script

Bu kod 'Kodla' düyməsini tıkladığınız zaman işə salınır.

Etdiyi şey script.txt adlı bir mətn faylı yaradır və mətn qutusunun içərisində olanları ona qoyur. Sonra 0.8 saniyə gözləyir və sonra tərtib edir.

Kodun qalan hissəsi GUI yaradır. Əsas hta-nı bilirsinizsə, bu olduqca özünü izah edir.