رمزگذار USB Rubber Ducky Script (VBScript): 5 مرحله

2024 نویسنده: John Day | [email protected]. آخرین اصلاح شده: 2024-01-30 08:54

اگر 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 شما.

اگر می خواهید در مورد نحوه رابط کاربری گرافیکی در vbs و نحوه ایجاد این برنامه بیشتر بدانید ، به مرحله بعدی بروید ، در غیر این صورت:

با تشکر از شما برای خواندن این مطالب آموزنده ، و اگر س questionsال ، نظر یا نگرانی دارید ، لطفاً نظر خود را ارسال کنید یا برای من پیام بگذارید

مرحله 3: رابط کاربری گرافیکی در VBScript

بنابراین بله ، امکان ایجاد رابط کاربری گرافیکی در vbs وجود دارد. روش انجام این کار این است که متن خود را در یک HTA پیچیده کنید. اگر هنوز نمی دانید ، HTA یک زبان برنامه نویسی بسیار شبیه به html است که فقط برای پیچاندن اسکریپت هایی مانند vbscript و jscript در GUI استفاده می شود. توضیحات و آموزش مفصل در اینجا.

بنابراین اکنون که می دانید hta چیست ، اجازه دهید نکاتی را در مورد چگونگی ساخت آسان تزها به شما ارائه دهم. ابتدا نرم افزار HTA helpomatic (تصویر 2) زیر را بارگیری کنید. متأسفانه پیوند اصلی دیگر کار نمی کند ، اما خوشبختانه چندی پیش یک نسخه را ذخیره کردم. سپس vbsedit را که با htaedit همراه است بارگیری و نصب کنید.

پس از داشتن این دو برنامه ، برای شروع ساختن رابط کاربری گرافیکی واقعاً نیازی به تجربه html/hta ندارید. که برای افرادی مانند من که نمی خواهند hta را فقط برای ایجاد GUI یاد بگیرند بسیار عالی است.

اکنون به مرحله بعدی بروید تا ببینید چگونه من رمزگذار اردک را ایجاد کردم…

مرحله 4: چگونه من آن را انجام دادم

بنابراین ، ابتدا:

APPLICATIONNAME = "رمزگذار اردک" 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") If Not objFso. FileExists ("c: / temp / duckencode.jar") سپس MsgBox "خطا ، فایل پیدا نشد: c: / temp / duckencode.jar "، 16،" Duck Encoder "Self.close () End If End Sub

بعد ، این زیر ، هر زمان که برنامه برای اولین بار راه اندازی شد ، به طور خودکار اجرا می شود. آنچه انجام می دهد تغییر اندازه پنجره است و سپس بررسی کنید تا مطمئن شوید که "duckencode.jar" در فهرست صحیح است.

Sub OnClickButtonbtnLoad ()

dim objShlApp، objFolderLocation، strFileLocation، objFso، objFolder، colFiles، strTextFileList، objFile Dim strCompleteText Set objFso = CreateObject ("Scripting. FileSystemObject") تنظیم objShlAporFjel = Object = "Object": (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 If InStr (objFile. Name ،.txt ") False then strTextFileList = strTextFileList & objFile. Name & vbCrLf پایان اگر بعدی strFileLocation = InputBox (" لطفاً فایل متنی صحیح را که می خواهید رمزگذاری شود وارد کنید: "& vbCrLf & vbCrLf & strTextFileLer" "Ducky Encempt") (strFileLocation) If 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 ،" رمزگذار اردک " اگر پایان اگر پایان اگر پایان اگر زیر پایان

خوب ، این قسمت از کد واقعا گیج کننده است ، این کد زمانی است که کاربر روی "بارگیری از فایل متنی" کلیک می کند. از آنجا که ایجاد گفتگوی فایل باز در hta عملاً غیرممکن است ، برنامه یک فهرست مرور پوشه را باز می کند تا از کاربر بخواهد پوشه حاوی فایل اسکریپت را انتخاب کند. سپس برنامه یک صندوق ورودی باز می کند که از کاربر می پرسد کدام فایل متنی را در آن پوشه بارگذاری کند. سپس برنامه هر آنچه در داخل فایل است می خواند و آن را در کادر متن قرار می دهد.

Sub OnClickButtonbtnPaste () Dim objHTML، ClipboardText Set objHTML = CreateObject ("htmlfile") ClipboardText = objHTML. ParentWindow. ClipboardData. GetData ("text") اگر IsNull (ClipboardText) در "" هیچ چیز ، درست " "رمزگذار اردک" دیگر txtScript. Value = ClipboardText End If End Sub

تنها کاری که این کد انجام می دهد این است که وقتی کاربر روی "چسباندن از کلیپ بورد" کلیک می کند ، برنامه متن را از کلیپ بورد به جعبه متن بارگذاری می کند.

مرحله 5: چگونه آن را انجام دادم (قسمت 2)

Sub OnClickButtonbtnEncode () If txtScript. Value = "" سپس MsgBox "کدی وجود ندارد!" ، 16 ، "Encoder Duck" Else Dim objFso، txtScriptFile Set objFso = CreateObject ("Scripting. Filesystemobject") txtScriptFile = txtScriptFile = "c: / temp / script.txt" 2 () 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" اسکریپت کامپایل شده است برای تزریق.bin در c: / temp "، vbOKOnly+vbInformation،" Ducky Encoder "End Sub

این کد زمانی اجرا می شود که روی "Encode" کلیک کنید.

کاری که انجام می دهد این است که یک فایل متنی به نام script.txt ایجاد می کند و هر چیزی که داخل جعبه متن است را در آن قرار می دهد. سپس 0.8 ثانیه منتظر می ماند و سپس آن را کامپایل می کند.

بقیه کد فقط GUI ایجاد می کند. اگر hta اولیه را می شناسید ، کاملاً قابل توضیح است.