Bộ mã hóa tập lệnh Ducky cao su USB (VBScript): 5 bước

2024 Tác giả: John Day | [email protected]. Sửa đổi lần cuối: 2024-01-30 13:32

Nếu bạn có USB Rubber Ducky, bạn sẽ biết rằng một nhiệm vụ rất khó chịu, đó là biên dịch tập lệnh của bạn thành tệp.bin. Nếu bạn phải thực hiện bất kỳ loại gỡ lỗi nào, bạn sẽ biết rằng việc tải xuống liên tục tập lệnh đã biên dịch của bạn có thể là một điều khó khăn. Vì vậy, để khắc phục sự cố này, tôi đã tạo một VBScript có thể biên dịch mã của bạn nhanh chóng và dễ dàng.

Bạn có thể tải xuống.exe đã biên dịch và mã nguồn bên dưới.

Dù sao, bạn có thể đang tự hỏi làm thế nào tôi tạo ra một ứng dụng GUI tuyệt vời như vậy trong vbs và nếu vậy, hãy chuyển sang bước 3.

Bước 1: Cài đặt…

Cũng có hướng dẫn về cách thực hiện việc này trong tệp REAMDE.txt. Dù sao đi nữa, trước tiên bạn phải tạo một thư mục trong ổ C có tên là 'tạm thời' nếu bạn chưa có. Ngoài ra, nếu bạn chưa cài đặt java, bạn có thể tải nó từ đây. Tiếp theo, tải xuống duckencode.jar và di chuyển tệp vào thư mục c: / temp của bạn. Tiếp theo, giải nén một trong các tệp.zip và chạy Duck.hta trong cùng thư mục với 'ico.ico' và 'pic.gif' nếu bạn đang sử dụng phiên bản không biên dịch. Hoặc nếu bạn đang sử dụng.exe đã biên dịch, chỉ cần chạy 'Duck.exe'.

Bây giờ chúng ta có thể chuyển sang bước tiếp theo…

Bước 2: Sử dụng…

Chương trình này thực sự đơn giản, để sử dụng nó, chỉ cần nhấp vào 'Dán từ khay nhớ tạm' để tự động dán mã của bạn. Hoặc nhấp vào tải từ tệp văn bản, để tải tập lệnh từ tệp văn bản. Sau đó, mã của bạn sẽ xuất hiện trong hộp văn bản bên dưới. Thực hiện bất kỳ thay đổi cuối cùng nào bạn có thể muốn đối với mã của mình và nhấn 'Mã hóa'. Điều hướng đến c: / temp và di chuyển 'injection.bin' vào USB Cao su Ducky của bạn.

Bạn có thể tự hỏi script.txt là gì. Nó là gì, là mã chưa được biên dịch từ hộp văn bản. Nó được sử dụng như một bản sao lưu của mã thô.

LƯU Ý: Nếu bạn muốn tạo một tập lệnh nhỏ, bạn có thể chỉ cần nhập mã của mình vào hộp văn bản. Một cách nhanh chóng và dễ dàng để kiểm tra USB Cao su Ducky của bạn.

Chuyển sang bước tiếp theo nếu bạn muốn tìm hiểu thêm về cách GUI trong vbs và cách chương trình này được tạo ra, nếu không:

Cảm ơn bạn đã đọc hướng dẫn này, và nếu bạn có bất kỳ câu hỏi, nhận xét hoặc mối quan tâm nào, vui lòng gửi bình luận hoặc gửi cho tôi

Bước 3: GUI trong VBScript

Vì vậy, có thể tạo GUI trong vbs. Cách bạn làm điều đó là gói văn bản của bạn trong một HTA. Trong trường hợp bạn chưa biết, HTA là một ngôn ngữ kịch bản rất giống với html được sử dụng đơn giản để bọc các tập lệnh như vbscripts và jscripts trong GUI. Lời giải chi tiết và hướng dẫn tại đây.

Vì vậy, bây giờ bạn đã biết hta là gì, hãy để tôi cung cấp cho bạn một số mẹo về cách dễ dàng làm luận văn. Trước tiên, hãy tải xuống trợ giúp HTA (hình 2) bên dưới. Thật không may, liên kết ban đầu không còn hoạt động, nhưng may mắn là tôi đã lưu một bản sao một thời gian trước. Tiếp theo tải xuống và cài đặt vbsedit, đi kèm với htaedit.

Sau khi bạn có hai chương trình này, bạn thực sự không cần kinh nghiệm html / hta để bắt đầu tạo GUI. Điều này thật tuyệt vời cho những người như tôi, những người không muốn học hta chỉ để làm GUI.

Bây giờ hãy chuyển sang bước tiếp theo để xem cách tôi tạo ra Duck Encoder…

Bước 4: Tôi đã tạo ra nó như thế nào

Vì vậy, đầu tiên:

APPLICATIONNAME = "Bộ mã hóa Vịt" ID = "DuckEncoder" VERSION = "1.0" INNERBORDER = "no" MAXIMIZEBUTTON = "no" ICON = "ico.ico" SCROLL = "không"

Điều này thiết lập một số thứ như biểu tượng, kiểu đường viền, v.v.

Sub Window_OnLoad self.resizeTo 400, 454 Dim objFso: Đặt objFso = CreateObject ("Scripting. FileSystemObject") If Not objFso. FileExists ("c: / temp / duckencode.jar") Sau đó MsgBox "Lỗi, không tìm thấy tệp: c: / temp / duckencode.jar ", 16," Duck Encoder "Self.close () End If End Sub

Tiếp theo, phụ này, chạy tự động bất cứ khi nào chương trình được khởi chạy lần đầu tiên. Những gì nó làm là thay đổi kích thước cửa sổ, sau đó kiểm tra để đảm bảo rằng 'duckencode.jar' nằm trong đúng thư mục.

Sub OnClickButtonbtnLoad ()

Dim objShlApp, objFolderLocation, strFileLocation, objFso, objFolder, colFiles, strTextFileList, objFile Dim strCompleteText Đặt objFso = CreateObject ("Scripting. FileSystemObject") Đặt objShlderApp = CreateObject. (0, "Duyệt tìm thư mục chứa tệp:", 16384, 0) Nếu Err. Number 0 Thì MsgBox "Bạn phải chọn THƯ MỤC chứa tệp.", 16, "Duck Encoder" Err. Clear () Khác Nếu objFolderLocation = "" Sau đó thoát khỏi Sub On Error Goto 0 Đặt objFolder = objFso. GetFolder (objFolderLocation. Self. Path & "\") Đặt colFiles = objFolder. Files strTextFileList = "" Đối với mỗi objFile Trong colFiles If InStr (objFile. Name, ".txt ") False Sau đó strTextFileList = strTextFileList & objFile. Name & vbCrLf End If Next strFileLocation = InputBox (" Vui lòng nhập đúng tệp văn bản bạn muốn mã hóa: "& vbCrLf & vbCrLf & strTextFileList," Nếu không may mắn mã hóa ") (strFileLocation) Sau đó nếu không objFso. FileExists (objFolder Location. Self. Path & "\" & strFileLocation) Sau đó MsgBox "Lỗi, bạn phải chọn một tệp văn bản từ danh sách!", 16, "Duck Encoder" Khác Khi Tiếp tục Lỗi Tiếp theo strFileLocation = objFolderLocation. Self. Path & "\ "& strFileLocation Set objFile = objFso. OpenTextFile (strFileLocation, 1, FALSE) txtScript. Value = objFile. ReadAll objFile. Close () If Err. Number 0 Then MsgBox" Tệp văn bản trống. ", 16," Duck Encoder "End Nếu kết thúc Nếu kết thúc Nếu kết thúc nếu kết thúc Sub

Ok, đoạn mã này thực sự khó hiểu, đây là đoạn mã khi người dùng nhấp vào 'Tải từ tệp văn bản'. Vì thực tế không thể tạo hộp thoại tệp mở trong hta, Chương trình bật lên hộp thoại duyệt thư mục để yêu cầu người dùng chọn thư mục chứa tệp kịch bản. Sau đó, chương trình sẽ mở ra một hộp nhập liệu hỏi người dùng tải tệp văn bản nào bên trong thư mục đó. Sau đó, chương trình đọc bất cứ thứ gì bên trong tệp và đặt nó vào hộp văn bản.

Sub OnClickButtonbtnPaste () Dim objHTML, ClipboardText Set objHTML = CreateObject ("htmlfile") ClipboardText = objHTML. ParentWindow. ClipboardData. GetData ("text") If IsNull (ClipboardText) = True Then MsgBox "Không có gì trong clipboard!", 16 "Duck Encoder" Khác txtScript. Value = ClipboardText End If End Sub

Tất cả những gì mã này thực hiện, là khi người dùng nhấp vào 'Dán từ khay nhớ tạm', chương trình sẽ tải văn bản từ khay nhớ tạm vào hộp văn bản.

Bước 5: Làm thế nào tôi đã tạo ra nó (phần 2)

Sub OnClickButtonbtnEncode () If txtScript. Value = "" Then MsgBox "Không có mã!", 16, "Duck Encoder" Khác Dim objFso, txtScriptFile Set objFso = CreateObject ("Scripting. Filesystemobject") Đặt 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: Đặt objWshShl = CreateObject ("WScript. Shell") objWshShl. Run "java.exe -jar c: / temp / duckencode.jar -ic: / temp / script.txt -oc: / temp / injection.bin ", 0 'MsgBox" Tập lệnh được biên dịch thành injection.bin trong c: / temp ", vbOKOnly + vbInformation," Ducky Encoder "End Sub

Mã này được chạy khi bạn nhấp vào 'Mã hóa'.

Những gì nó làm là tạo một tệp văn bản có tên script.txt và đặt bất cứ thứ gì bên trong hộp văn bản vào đó. Sau đó, nó đợi 0,8 giây và sau đó biên dịch nó.

Phần còn lại của mã chỉ tạo GUI. Nó khá dễ hiểu nếu bạn biết hta cơ bản.