USB რეზინის Ducky Script Encoder (VBScript): 5 ნაბიჯი

2024 ავტორი: John Day | [email protected]. ბოლოს შეცვლილი: 2024-01-30 10:17

თუ თქვენ გაქვთ USB Rubber Ducky, თქვენ იცით, რომ ძალიან შემაშფოთებელი ამოცანაა თქვენი სკრიპტის შედგენა.bin ფაილში. თუ რაიმე სახის გამართვის გაკეთება გჭირდებათ, თქვენ იცით, რომ თქვენი შედგენილი სკრიპტის მუდმივი გადმოტვირთვა შეიძლება იყოს ტკივილი. ამ პრობლემის გადასაჭრელად, მე შევქმენი VBScript, რომელსაც შეუძლია თქვენი კოდის სწრაფად და მარტივად შედგენა.

თქვენ შეგიძლიათ ჩამოტვირთოთ შედგენილი.exe და კოდის ქვემოთ.

ყოველ შემთხვევაში, თქვენ ალბათ გაინტერესებთ როგორ გავაკეთე ასეთი გასაოცარი GUI პროგრამა vbs– ში და თუ ასეა, გადადით მე –3 საფეხურზე.

ნაბიჯი 1: ინსტალაცია…

ასევე არსებობს ინსტრუქცია, თუ როგორ უნდა გავაკეთოთ ეს REAMDE.txt ფაილში. ყოველ შემთხვევაში, ჯერ თქვენ უნდა შექმნათ საქაღალდე თქვენს C დისკში, სახელწოდებით 'temp', თუ ის ჯერ არ გაქვთ. ასევე, თუ თქვენ ჯერ არ გაქვთ Java დაინსტალირებული, შეგიძლიათ მიიღოთ აქედან. შემდეგ გადმოწერეთ duckencode.jar და გადაიტანეთ ფაილი თქვენს c: / temp საქაღალდეში. შემდეგი, ამოიღეთ რომელიმე.zip ფაილი და გაუშვით Duck.hta იმავე დირექტორიაში, როგორც 'ico.ico' და 'pic.gif', თუ თქვენ იყენებთ შედგენილ ვერსიას. ან თუ იყენებთ შედგენილ.exe- ს, უბრალოდ გაუშვით 'Duck.exe'.

ახლა ჩვენ შეგვიძლია გადავიდეთ შემდეგ ეტაპზე…

ნაბიჯი 2: გამოყენება…

ეს პროგრამა მართლაც მარტივია, მისი გამოსაყენებლად, უბრალოდ დააწკაპუნეთ 'ჩასვით ბუფერში', რომ თქვენი კოდი ავტომატურად ჩასვათ. ან დააწკაპუნეთ ტექსტური ფაილის ჩატვირთვაზე, სკრიპტი ტექსტური ფაილიდან ჩატვირთვაზე. შემდეგ თქვენი კოდი გამოჩნდება ქვემოთ მოცემულ ტექსტურ ყუთში. განახორციელეთ ნებისმიერი საბოლოო ცვლილება, რაც შეიძლება დაგჭირდეთ თქვენს კოდში და დააჭირეთ ღილაკს "კოდირება". გადადით c: / temp– ზე და გადაიტანეთ „inject.bin“თქვენს USB Rubber Ducky– ში.

ალბათ გაინტერესებთ რა არის script.txt. რა არის ის, არის ტექსტის ყუთიდან შედგენილი ტექსტი. იგი გამოიყენება როგორც ნედლი კოდის სარეზერვო საშუალება.

შენიშვნა: თუ გსურთ შექმნათ მცირე სკრიპტი, შეგიძლიათ უბრალოდ ჩაწეროთ თქვენი კოდი ტექსტის ყუთში. სწრაფი და მარტივი გზა თქვენი USB რეზინის დუკის შესამოწმებლად.

გადადით შემდეგ საფეხურზე, თუ გსურთ გაიგოთ მეტი იმის შესახებ, თუ როგორ GUI არის vbs– ში და როგორ შეიქმნა ეს პროგრამა, წინააღმდეგ შემთხვევაში:

გმადლობთ, რომ წაიკითხეთ ეს სასწავლო და თუ თქვენ გაქვთ რაიმე შეკითხვა, კომენტარი ან შეშფოთება, გთხოვთ გამოაქვეყნოთ კომენტარი ან მომწეროთ

ნაბიჯი 3: GUIs VBScript– ში

ასე რომ, დიახ, შესაძლებელია GUI– ების გაკეთება vbs– ში. როგორ აკეთებთ ამას, არის თქვენი ტექსტის შეფუთვა HTA– ში. თუ თქვენ ჯერ კიდევ არ იცით, HTA არის სკრიპტირების ენა, რომელიც ძალიან ჰგავს html– ს, რომელიც გამოიყენება სკრიპტების გადასატანად, როგორიცაა vbscripts და jscripts GUI– ში. დეტალური ახსნა და გაკვეთილი აქ.

ასე რომ, ახლა თქვენ იცით რა არის hta, ნება მომეცით მოგცეთ რჩევები, თუ როგორ მარტივად გააკეთოთ თეზისები. პირველი ჩამოტვირთეთ HTA helpomatic (სურათი 2) ქვემოთ. სამწუხაროდ, ორიგინალური ბმული აღარ მუშაობს, მაგრამ საბედნიეროდ, ასლი ცოტა ხნის წინ შევინახე. შემდეგი გადმოწერეთ და დააინსტალირეთ vbsedit, რომელსაც გააჩნია htaedit.

მას შემდეგ რაც თქვენ გაქვთ ეს ორი პროგრამა, თქვენ ნამდვილად არ გჭირდებათ html/hta გამოცდილება GUI– ების შესაქმნელად. რაც შესანიშნავია ჩემნაირი ადამიანებისთვის, რომლებსაც არ სურთ ისწავლონ მხოლოდ 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: Set objFso = CreateObject ("Scripting. FileSystemObject") If not objFso. FileExists ("c: / temp / duckencode.jar") მაშინ MsgBox "შეცდომა, ფაილი ვერ მოიძებნა: c: / temp / duckencode.jar ", 16," Duck Encoder "Self.close () დასრულება თუ დასრულდება ქვე

შემდეგი, ეს ქვე, ავტომატურად მუშაობს პროგრამის პირველად გაშვებისას. რას აკეთებს ეს არის ფანჯრის ზომის შეცვლა და შემდგომ შეამოწმეთ რომ "duckencode.jar" არის სწორ დირექტორიაში.

ქვე OnClickButtonbtn ჩატვირთვა ()

დაბინდული objShlApp, objFolderLocation, strFileLocation, objFso, objFolder, colFiles, strTextFileList, objFile Dim strCompleteText Set objFso = CreateObject ("Scripting. FileSystemObject") მითითება objShlAperFelFail = ObjectOffelSpullFailFail = ShellOppelFailFail = ShepOllOppelOppelOfferFailFail = ShiftOfelOppelOfferFail = OpBelOppelOppelOppelOppelOppelOppelOppEllOppElFel = აპლიკაცია (0, "დაათვალიერეთ საქაღალდე, რომელიც შეიცავს ფაილს:", 16384, 0) თუ Err. Number 0 მაშინ MsgBox "თქვენ უნდა აირჩიოთ ფაილის შემცველი საქაღალდე.", 16, "Duck Encoder" Err. Clear () სხვა თუ objFolderLocation = "" მაშინ Exit Sub On Error Goto 0 Set objFolder = objFso. GetFolder (objFolderLocation. Self. Path & "\") Set colFiles = objFolder. Files strTextFileList = "" თითოეული objFile In colFiles If InStr (objFile. Name,.txt ") მცდარია მაშინ strTextFileList = strTextFileList & objFile. Name & vbCrLf დასრულდება თუ შემდეგი strFileLocation = InputBox (" გთხოვთ შეიყვანოთ სწორი ტექსტური ფაილი, რომლის დაშიფვრა გსურთ: "& vbCrLf & vbCrLf & strTextFileLer", Ducky Encempt (strFileLocation) მაშინ თუ არა objFso. FileExists (objFolder Location. Self. Path & "\" & strFileLocation) შემდეგ MsgBox "შეცდომა, თქვენ უნდა აირჩიოთ ტექსტური ფაილი სიიდან!", 16, "Duck Encoder" Else On Error Resume შემდეგი strFileLocation = objFolderLocation. Self. Path & "\ "& strFileLocation Set objFile = objFso. OpenTextFile (strFileLocation, 1, FALSE) txtScript. Value = objFile. ReadAll objFile. Close () თუ Err. Number 0 მაშინ MsgBox" ტექსტური ფაილი ცარიელია. ", 16", იხვის კოდირება თუ დამთავრდა თუ დამთავრდა თუ დამთავრდა თუ დამთავრდა ქვე

კარგი, კოდის ეს ნაწილი მართლაც დამაბნეველია, ეს არის კოდი, როდესაც მომხმარებელი დააწკაპუნებს "ტექსტური ფაილის ჩატვირთვაზე". ვინაიდან პრაქტიკულად შეუძლებელია ღია ფაილის დიალოგის გაკეთება hta– ში, პროგრამა გამოჩნდება საქაღალდის დიალოგის დასათვალიერებლად, რათა მომხმარებელს სთხოვოს აირჩიოს სკრიპტის ფაილის შემცველი საქაღალდე. შემდეგ პროგრამა ხსნის შეყვანის ყუთს და ეკითხება მომხმარებელს რომელი ტექსტური ფაილი უნდა ჩატვირთოს ამ საქაღალდეში. შემდეგ პროგრამა კითხულობს იმას, რაც არის ფაილის შიგნით და ათავსებს მას ტექსტურ ყუთში.

Sub OnClickButtonbtnPaste () Dim objHTML, ClipboardText Set objHTML = CreateObject ("htmlfile") ClipboardText = objHTML. ParentWindow. ClipboardData. GetData ("ტექსტი") თუ IsNull (ClipboardText) არა "Mn", მართალია "არა "Duck Encoder" Else txtScript. Value = ClipboardText End If End Sub

ეს კოდი მხოლოდ იმას ნიშნავს, რომ როდესაც მომხმარებელი დააჭერს ღილაკს "ჩასვით ბუფერში", პროგრამა იტვირთება ტექსტი ბუფერში ტექსტის ყუთში.

ნაბიჯი 5: როგორ გავაკეთე ეს (ნაწილი 2)

Sub OnClickButtonbtnEncode () If txtScript. Value = "" მაშინ MsgBox "კოდი არ არის!", 16, "Duck Encoder" Else Dim objFso, txtScriptFile Set objFso = CreateObject ("Scripting. Filesystemobject") Set txtScriptFile = objFe = "c: / temp / script.txt", 2, True) txtScriptFile. WriteLine (txtScript. Value) txtScriptFile. Close () idTimer = window.setTimeout ("შედგენა", 800, "VBScript") დასრულება თუ დასრულდება ქვე ქვე კომპილირება () 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" სკრიპტი შედგენილია inject.bin- ში c: / temp ", vbOKOnly+vbInformation," Ducky Encoder "End Sub

ეს კოდი გააქტიურებულია, როდესაც დააწკაპუნებთ ღილაკზე "კოდირება".

რასაც აკეთებს, ქმნის ტექსტურ ფაილს, სახელწოდებით script.txt და ათავსებს მას შიგნით ტექსტში. შემდეგ ის ელოდება 0.8 წამს და შემდეგ ადგენს მას.

დანარჩენი კოდი უბრალოდ ქმნის GUI- ს. საკმაოდ გასაგებია თუ იცით ძირითადი HTA.