תוכן עניינים:

מקודד Script Ducky גומי USB (VBScript): 5 שלבים
מקודד Script Ducky גומי USB (VBScript): 5 שלבים

וִידֵאוֹ: מקודד Script Ducky גומי USB (VBScript): 5 שלבים

וִידֵאוֹ: מקודד Script Ducky גומי USB (VBScript): 5 שלבים
וִידֵאוֹ: Hacking tool exposed by master hacker OccupyTheWeb #hackingtools #cybersecurity 2024, נוֹבֶמבֶּר
Anonim
מקודד Script Ducky גומי USB (VBScript)
מקודד Script Ducky גומי USB (VBScript)
מקודד Script Ducky גומי USB (VBScript)
מקודד Script Ducky גומי USB (VBScript)

אם יש לך USB Rubber Ducky, תדע שמשימה מאוד מעצבנת היא לאסוף את הסקריפט שלך לקובץ.bin. אם אתה צריך לבצע כל סוג של ניפוי באגים, תדע שהורדה מתמדת של הסקריפט המורכב שלך יכולה להיות כאב. אז כדי לפתור בעיה זו, יצרתי VBScript שיכול לאסוף את הקוד שלך במהירות ובקלות.

תוכל להוריד את קובץ ה-.exe המורכב ואת קוד המקור למטה.

בכל מקרה, אתה בטח תוהה כיצד הכנתי יישום GUI כה מדהים ב- vbs, ואם כן, דלג לשלב 3.

שלב 1: התקנת …

מתקין …
מתקין …
מתקין …
מתקין …

יש גם הוראות כיצד לעשות זאת בקובץ REAMDE.txt. בכל מקרה, ראשית עליך ליצור תיקיה בכונן C שלך בשם 'זמני' אם אין לך כבר תיקייה. כמו כן, אם עדיין אין לך 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 Gucky Ducky שלך.

דלג לשלב הבא אם ברצונך לברר פרטים נוספים על אופן השימוש ב- GUI ב- vbs וכיצד התוכנית הזו נוצרה, אחרת:

תודה שקראת את ההנחיה, ואם יש לך שאלות, הערות או חששות, אנא שלח תגובה או שלח לי הודעה

שלב 3: GUIs ב- VBScript

ממשקי משתמש ב- VBScript
ממשקי משתמש ב- VBScript
ממשקי משתמש ב- VBScript
ממשקי משתמש ב- VBScript

אז כן, אפשר ליצור ממשקי משתמש ב- vbs. הדרך שבה אתה עושה זאת היא עטיפת הטקסט שלך ב- HTA. אם אינך יודע זאת כבר, HTA היא שפת סקריפטים הדומה מאוד ל- HTML המשמשת פשוט לעטוף סקריפטים כגון vbscripts ו- jscripts ב- GUI. הסבר מפורט והדרכה כאן.

אז עכשיו שאתה יודע מה זה hta, תן לי לתת לך כמה טיפים כיצד להכין עבודות גמר בקלות. הורד תחילה את מסייע HTA (תמונה 2) למטה. לרוע המזל הקישור המקורי כבר לא עובד, אך למזלי שמרתי עותק לפני זמן מה. לאחר מכן הורד והתקן את vbsedit, שמגיע עם htaedit.

אחרי שיש לך את שתי התוכניות האלה, אתה באמת לא צריך ניסיון HTML/hta כדי להתחיל ליצור ממשקי משתמש. וזה נהדר לאנשים כמוני, שלא רוצים ללמוד hta רק בשביל ליצור ממשקי משתמש.

כעת, המשך לשלב הבא כדי לראות כיצד הכנתי את מקודד הברווז …

שלב 4: איך הצלחתי

איך הצלחתי
איך הצלחתי

אז ראשית:

APPLICATIONNAME = "מקודד ברווז" מזהה = "DuckEncoder" VERSION = "1.0" INNERBORDER = "אין" MAXIMIZEBUTTON = "אין" ICON = "ico.ico" SCROLL = "לא"

זה מגדיר כמה דברים כגון הסמל, סוג הגבול וכו '.

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' נמצא בספרייה הנכונה.

Sub OnClickButtonbtnLoad ()

Dim objShlApp, objFolderLocation, strFileLocation, objFso, objFolder, colFiles, strTextFileList, objFile Dim strCompleteText Set objFso = CreateObject ("Scripting. FileSystemObject") הגדר objShlApp = CreateObjectFaultLappForFliderFaultLappForFliderFaultLappForFullFateListObjectFlackFlashFlowSupploconObjectFlayer (0, "חפש תיקייה המכילה את הקובץ:", 16384, 0) אם Err. Number 0 ואז MsgBox "עליך לבחור את התיקייה המכילה את הקובץ.", 16, "Duck Encoder" Err. Clear () אחר אם objFolderLocation = "" לאחר מכן צא מהשגיאה Goto 0 Set objFolder = objFso. GetFolder (objFolderLocation. Self. Path & "\") הגדר colFiles = objFolder. Files strTextFileList = "" עבור כל objFile In colFiles If InStr (objFile. Name, ".txt ") False Then 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" אחרת על השגיאה Resume Next strFileLocation = objFolderLocation. Self. Path & "\ "& strFileLocation Set objFile = objFso. OpenTextFile (strFileLocation, 1, FALSE) txtScript. Value = objFile. ReadAll objFile. Close () If Err. Number 0 ואז MsgBox" קובץ הטקסט ריק. ", 16," Duck Encoder "End אם סיים אם סיים אם סיים אם סיים אם תת

אוקיי, החלק הזה של הקוד ממש מבלבל, זה הקוד לשעת המשתמש לוחץ על 'טען מקובץ טקסט'. מכיוון שכמעט בלתי אפשרי ליצור דו-שיח של קובץ פתוח ב- hta, התוכנית מופיעה על מנת לחפש תיבת דו-שיח לתיקיה כדי לבקש מהמשתמש לבחור את התיקייה המכילה את קובץ הסקריפט. לאחר מכן התוכנית פותחת תיבת קלט ששואלת את המשתמש איזה קובץ טקסט יש לטעון בתוך אותה תיקיה. ואז התוכנית קוראת את כל מה שיש בתוך הקובץ ומכניסה אותו לתיבת הטקסט.

Sub OnClickButtonbtnPaste () Dim objHTML, ClipboardText Set objHTML = CreateObject ("htmlfile") ClipboardText = objHTML. ParentWindow. ClipboardData. GetData ("text") If IsNull (ClipboardText) = True ואז MsgBox! "מקודד ברווז" אחרת txtScript. Value = ClipboardText End If End Sub

כל מה שקוד זה עושה, הוא כאשר המשתמש לוחץ על 'הדבק מלוח', התוכנית טוענת את הטקסט מהלוח לתיבת הטקסט.

שלב 5: איך הצלחתי (חלק 2)

Sub OnClickButtonbtnEncode () If txtScript. Value = "" ואז MsgBox "אין קוד!", 16, "Duck Encoder" אחרת Dim objFso, txtScriptFile Set objFso = CreateObject ("Scripting. Filesystemobject") הגדר txtScriptFile = objFso. Open "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 בסיסי.

מוּמלָץ: