برنامج تشفير البرنامج النصي المطاطي USB (VBScript): 5 خطوات

2024 مؤلف: John Day | [email protected]. آخر تعديل: 2024-01-30 07:38

إذا كان لديك USB Rubber Ducky ، فستعرف أن مهمة مزعجة للغاية هي تجميع البرنامج النصي الخاص بك إلى ملف.bin. إذا كان عليك القيام بأي نوع من تصحيح الأخطاء ، فستعرف أن التنزيل المستمر للنص البرمجي المترجم يمكن أن يكون بمثابة ألم. لحل هذه المشكلة ، قمت بإنشاء VBScript يمكنه تجميع التعليمات البرمجية الخاصة بك بسرعة وسهولة.

يمكنك تنزيل ملف exe المترجم وكود المصدر أدناه.

على أي حال ، ربما تتساءل كيف أنشأت تطبيقًا رائعًا لواجهة المستخدم الرسومية في 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 وانقل "injection.bin" إلى USB Rubber Ducky.

قد تتساءل ما هو script.txt. ما هو ، هو رمز غير مجمع من مربع النص. يتم استخدامه كنسخة احتياطية من الكود الخام.

ملاحظة: إذا كنت ترغب في عمل نص صغير ، يمكنك ببساطة كتابة التعليمات البرمجية في مربع النص. طريقة سريعة وسهلة لاختبار USB Rubber Ducky.

انتقل إلى الخطوة التالية إذا كنت تريد معرفة المزيد حول كيفية إنشاء واجهات المستخدم الرسومية في vbs وكيف تم إنشاء هذا البرنامج ، وإلا:

نشكرك على قراءة هذه التعليمات ، وإذا كان لديك أي أسئلة أو تعليقات أو مخاوف ، فيرجى نشر تعليق أو الاتصال بي

الخطوة 3: واجهات المستخدم الرسومية في VBScript

لذا نعم ، من الممكن إنشاء واجهات رسومية في vbs. الطريقة التي تقوم بها هي تغليف النص في HTA. إذا كنت لا تعرف بالفعل ، فإن HTA هي لغة برمجة تشبه إلى حد كبير لغة تأشير النص الفائق (html) تُستخدم ببساطة لالتفاف البرامج النصية مثل vbscripts و jscripts في واجهة المستخدم الرسومية. شرح مفصل وتعليمي هنا.

والآن بعد أن عرفت ما هو hta ، دعني أقدم لك بعض النصائح حول كيفية إعداد الأطروحات بسهولة. قم أولاً بتنزيل HTA helpomatic (صورة 2) أدناه. لسوء الحظ ، لم يعد الرابط الأصلي يعمل ، لكن لحسن الحظ أنني قمت بحفظ نسخة منه منذ فترة. بعد ذلك ، قم بتنزيل وتثبيت vbsedit ، الذي يأتي مع htaedit.

بعد أن يكون لديك هذين البرنامجين ، لا تحتاج حقًا إلى خبرة html / hta لبدء إنشاء واجهات المستخدم الرسومية. وهو أمر رائع للأشخاص مثلي ، الذين لا يريدون تعلم hta فقط لإنشاء واجهات المستخدم الرسومية.

انتقل الآن إلى الخطوة التالية لترى كيف صنعت Duck Encoder …

الخطوة 4: كيف صنعتها

لذلك أولا:

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

يقوم هذا بإعداد بعض الأشياء مثل الرمز ونوع الحدود وما إلى ذلك.

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 () End If End Sub

بعد ذلك ، يتم تشغيل هذا الجزء الفرعي تلقائيًا عندما يتم تشغيل البرنامج لأول مرة. ما يفعله هو تغيير حجم النافذة ثم التحقق للتأكد من أن "duckencode.jar" موجود في الدليل الصحيح.

Sub OnClickButtonbtnLoad ()

Dim objShlApp، objFolderLocation، strFileLocation، objFso، objFolder، colFiles، strTextFileList، objFile Dim strCompleteText Set objFso = CreateObject ("Scripting. FileSystemObject") تعيين objShlApp = CreateObject ("Shell. Application" تعيين objShlApp = CreateObject ("Shell. Application") (0 ، "الاستعراض بحثًا عن مجلد يحتوي على الملف:" ، 16384 ، 0) إذا كان Err. Number 0 ثم MsgBox "يجب عليك تحديد FOLDER الذي يحتوي على الملف."، 16، "Duck Encoder" Err. Clear () Else If objFolderLocation = "" ثم قم بإنهاء Sub On Error Goto 0 Set objFolder = objFso. GetFolder (objFolderLocation. Self. Path & "\") قم بتعيين colFiles = objFolder. Files strTextFileList = "" لكل ملف كائن في colFiles إذا كان InStr (objFile. Name، ".txt ") خطأ ثم strTextFileList = strTextFileList & objFile. Name & vbCrLf End If Next strFileLocation = InputBox (" الرجاء إدخال الملف النصي الصحيح الذي ترغب في ترميزه: "& vbCrLf & vbCrLf & strTextFileList،" If Not Isoder ") (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 "End إذا End If End If End إذا End Sub

حسنًا ، هذا الجزء من الكود محير حقًا ، هذا هو الرمز عندما ينقر المستخدم على "تحميل من ملف نصي". نظرًا لأنه من المستحيل عمليًا إنشاء مربع حوار مفتوح في hta ، فإن البرنامج ينبثق من مربع حوار استعراض للمجلد ليطلب من المستخدم تحديد المجلد الذي يحتوي على ملف البرنامج النصي. ثم يفتح البرنامج صندوق إدخال يسأل المستخدم عن الملف النصي الذي سيتم تحميله داخل هذا المجلد. ثم يقوم البرنامج بقراءة كل ما بداخل الملف ويضعه في مربع النص.

Sub OnClickButtonbtnPaste () Dim objHTML، ClipboardText Set objHTML = CreateObject ("htmlfile") ClipboardText = objHTML. ParentWindow. ClipboardData. GetData ("text") If IsNull (ClipboardText) = True Then MsgBox "لا شيء في الحافظة!"، 16 "Duck Encoder" آخر 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") قم بتعيين txtsoFile = objTextFile = objTextFile "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 / injection.bin "، 0 'MsgBox" برنامج نصي تم تجميعه لحقن.bin في c: / temp "، vbOKOnly + vbInformation،" Ducky Encoder "End Sub

يتم تشغيل هذا الرمز عند النقر فوق "ترميز".

ما يفعله هو إنشاء ملف نصي يسمى script.txt ويضع كل ما بداخل مربع النص إليه. ثم تنتظر 0.8 ثانية ثم تقوم بتجميعها.

ما تبقى من الكود يقوم فقط بإنشاء واجهة المستخدم الرسومية. إنها تشرح نفسها بنفسها إذا كنت تعرف hta الأساسي.