USB Rubber Ducky Script Encoder (VBScript): 5 ขั้นตอน

2025 ผู้เขียน: John Day | [email protected]. แก้ไขล่าสุด: 2025-01-23 15:12

หากคุณมี USB Rubber Ducky คุณจะรู้ว่างานที่น่ารำคาญมากคือการรวบรวมสคริปต์ของคุณเป็นไฟล์.bin หากคุณต้องทำการดีบักใดๆ คุณจะรู้ว่าการดาวน์โหลดสคริปต์ที่คอมไพล์ของคุณอย่างต่อเนื่องอาจเป็นเรื่องเจ็บปวด เพื่อแก้ไขปัญหานี้ ฉันได้สร้าง VBScript ที่สามารถคอมไพล์โค้ดของคุณได้อย่างรวดเร็วและง่ายดาย

คุณสามารถดาวน์โหลด.exe ที่คอมไพล์แล้วและซอร์สโค้ดด้านล่าง

อย่างไรก็ตาม คุณอาจสงสัยว่าฉันสร้างแอปพลิเคชัน GUI ที่ยอดเยี่ยมใน vbs ได้อย่างไร และถ้าเป็นเช่นนั้น ให้ข้ามไปยังขั้นตอนที่ 3

ขั้นตอนที่ 1: กำลังติดตั้ง…

นอกจากนี้ยังมีคำแนะนำเกี่ยวกับวิธีการทำเช่นนี้ในไฟล์ REAMDE.txt อย่างไรก็ตาม ก่อนอื่น คุณต้องสร้างโฟลเดอร์ในไดรฟ์ C ชื่อ 'temp' หากคุณยังไม่มี นอกจากนี้ หากคุณยังไม่ได้ติดตั้งจาวา คุณสามารถรับได้จากที่นี่ จากนั้นให้ดาวน์โหลด duckencode.jar และย้ายไฟล์ไปที่โฟลเดอร์ c:\temp ของคุณ ถัดไป ให้แตกไฟล์.zip ไฟล์ใดไฟล์หนึ่งและเรียกใช้ Duck.hta ในไดเร็กทอรีเดียวกันกับ 'ico.ico' และ 'pic.gif' หากคุณใช้เวอร์ชันที่ไม่ได้คอมไพล์ หรือหากคุณใช้.exe ที่คอมไพล์แล้ว ให้เรียกใช้ 'Duck.exe'

ตอนนี้เราสามารถไปยังขั้นตอนต่อไป…

ขั้นตอนที่ 2: การใช้…

โปรแกรมนี้ตรงไปตรงมามาก ในการใช้งาน เพียงคลิกที่ 'วางจากคลิปบอร์ด' เพื่อวางโค้ดของคุณโดยอัตโนมัติ หรือคลิกที่โหลดจากไฟล์ข้อความเพื่อโหลดสคริปต์จากไฟล์ข้อความ จากนั้นรหัสของคุณจะปรากฏในกล่องข้อความด้านล่าง ทำการเปลี่ยนแปลงขั้นสุดท้ายที่คุณอาจต้องการในโค้ดของคุณและกด 'Encode' ไปที่ c:\temp และย้าย 'inject.bin' ไปยัง USB Rubber Ducky ของคุณ

คุณอาจสงสัยว่า script.txt คืออะไร มันคืออะไร คือรหัสที่ไม่ได้คอมไพล์จากกล่องข้อความ มันถูกใช้เป็นข้อมูลสำรองของรหัสดิบ

หมายเหตุ: หากคุณต้องการสร้างสคริปต์ขนาดเล็ก คุณเพียงแค่พิมพ์รหัสของคุณลงในกล่องข้อความ วิธีที่รวดเร็วและง่ายดายในการทดสอบ USB Rubber Ducky ของคุณ

ข้ามไปยังขั้นตอนถัดไป หากคุณต้องการทราบข้อมูลเพิ่มเติมเกี่ยวกับวิธีการ GUI ใน vbs และวิธีสร้างโปรแกรมนี้ มิฉะนั้น:

ขอบคุณที่อ่านคำแนะนำนี้ และหากคุณมีคำถาม ความคิดเห็น หรือข้อกังวลใด ๆ โปรดโพสต์ความคิดเห็นหรือ pm มา

ขั้นตอนที่ 3: GUI ใน VBScript

ใช่ มันเป็นไปได้ที่จะสร้าง GUI ใน vbs วิธีที่คุณทำคือตัดข้อความใน HTA ในกรณีที่คุณยังไม่ทราบ HTA เป็นภาษาสคริปต์ที่คล้ายกับ html ที่ใช้เพียงเพื่อตัดสคริปต์ เช่น vbscripts และ jscripts ใน GUI คำอธิบายโดยละเอียดและการสอนที่นี่

ตอนนี้คุณรู้แล้วว่า hta คืออะไร ให้ฉันให้คำแนะนำเกี่ยวกับวิธีการทำวิทยานิพนธ์อย่างง่าย ก่อนอื่นให้ดาวน์โหลด HTA helpomatic (รูปที่ 2) ด้านล่าง น่าเสียดายที่ลิงก์เดิมใช้งานไม่ได้อีกต่อไป แต่โชคดีที่ฉันได้บันทึกสำเนาไว้ก่อนหน้านี้ ดาวน์โหลดและติดตั้ง vbsedit ถัดไปซึ่งมาพร้อมกับ htaedit

หลังจากที่คุณมีโปรแกรมทั้งสองนี้แล้ว คุณไม่จำเป็นต้องมีประสบการณ์ html/hta เพื่อเริ่มสร้าง GUI ซึ่งเหมาะสำหรับคนอย่างฉันที่ไม่ต้องการเรียนรู้ 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' อยู่ในไดเร็กทอรีที่ถูกต้อง

ย่อย OnClickButtonbtnLoad()

Dim objShlApp, objFolderLocation, strFileLocation, objFso, objFolder, colFiles, strTextFileList, objFile Dim strCompleteText Set objFso = CreateObject ("Scripting. FileSystemObject") ตั้งค่า objShlApp = CreateObject ("Shell. Application ถัดไป") บนชุดข้อผิดพลาด ResjFoldhlForSume (0, "เรียกดูโฟลเดอร์ที่มีไฟล์: ", 16384, 0) หาก Err. Number 0 แล้ว MsgBox "คุณต้องเลือกโฟลเดอร์ที่มีไฟล์", 16, "Duck Encoder" Err. Clear() อื่น ๆ หาก objFolderLocation = "" จากนั้นออกจาก Sub ด้วยข้อผิดพลาด ไปที่ 0 ตั้งค่า objFolder = objFso. GetFolder(objFolderLocation. Self. Path & "\") ตั้งค่า colFiles = objFolder. Files strTextFileList = "" สำหรับแต่ละ objFile ใน colFiles ถ้า InStr (objFile. Name ".txt") เป็นเท็จ จากนั้น strTextFileList = strTextFileList & objFile. Name & vbCrLf End If Next strFileLocation = InputBox("โปรดป้อนไฟล์ข้อความที่ถูกต้องที่คุณต้องการเข้ารหัส: " & vbCrLf & vbCrLf & strTextFileList, "Ducky Encoder") ถ้าไม่ว่าง (strFileLocation) ถ้าไม่ใช่ objFso. FileExists(objFolder Location. Self. Path & "\" & strFileLocation) จากนั้น MsgBox "เกิดข้อผิดพลาด คุณต้องเลือกไฟล์ข้อความจากรายการ!", 16, "Duck Encoder" อื่นเมื่อเกิดข้อผิดพลาด ดำเนินการต่อ 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" สิ้นสุด ถ้าจบ ถ้าจบ ถ้าจบ ถ้าจบ Sub

โอเค โค้ดส่วนนี้สร้างความสับสนมาก นี่คือรหัสสำหรับเวลาที่ผู้ใช้คลิก 'โหลดจากไฟล์ข้อความ' เนื่องจากแทบจะเป็นไปไม่ได้เลยที่จะสร้างไดอะล็อกเปิดไฟล์ใน hta โปรแกรมจึงเปิดกล่องโต้ตอบเรียกดูโฟลเดอร์เพื่อขอให้ผู้ใช้เลือกโฟลเดอร์ที่มีไฟล์สคริปต์ จากนั้นโปรแกรมจะเปิดช่องป้อนข้อมูลเพื่อขอให้ผู้ใช้โหลดไฟล์ข้อความภายในโฟลเดอร์นั้น จากนั้นโปรแกรมจะอ่านสิ่งที่อยู่ภายในไฟล์และใส่ลงในกล่องข้อความ

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, "Duck Encoder" อื่น ๆ txtScript. Value = ClipboardText End ถ้า End Sub

รหัสทั้งหมดนี้ทำได้เมื่อผู้ใช้คลิกที่ 'วางจากคลิปบอร์ด' โปรแกรมจะโหลดข้อความจากคลิปบอร์ดไปยังกล่องข้อความ

ขั้นตอนที่ 5: ฉันทำมันได้อย่างไร (ตอนที่ 2)

Sub OnClickButtonbtnEncode () ถ้า txtScript. Value = "" จากนั้น MsgBox "ไม่มีรหัส!", 16, "Duck Encoder" Else Dim objFso, txtScriptFile Set objFso = CreateObject ("Scripting. Filesystemobject") ตั้งค่า txtScriptFile = objFso. OpenTextFile ("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 "สคริปต์ที่คอมไพล์เป็น inject.bin ใน c:\temp", vbOKOnly+vbInformation, "Ducky Encoder" End Sub

รหัสนี้ทำงานเมื่อคุณคลิกที่ 'เข้ารหัส'

สิ่งที่ทำคือสร้างไฟล์ข้อความชื่อ script.txt และใส่ทุกอย่างที่อยู่ในกล่องข้อความลงไป จากนั้นรอ 0.8 วินาทีแล้วคอมไพล์

โค้ดที่เหลือสร้าง GUI มันค่อนข้างอธิบายตนเองได้ถ้าคุณรู้ hta พื้นฐาน