USB Резина Ducky Script Encoder (VBScript): 5 кадам

2024 Автор: John Day | [email protected]. Акыркы өзгөртүү: 2024-01-30 10:40

Эгерде сизде USB Резина Даки бар болсо, сиз билесиз, бул абдан тажатма иш, скриптиңизди.bin файлына түзүп жатат. Эгерде сиз кандайдыр бир мүчүлүштүктөрдү оңдоого туура келсе, анда сиз түзгөн сценарийиңизди үзгүлтүксүз жүктөө оорчулук жаратарын билесиз. Ошентип, бул көйгөйдү чечүү үчүн, мен кодуңузду тез жана оңой түзө турган VBScript түздүм.

Түзүлгөн.exe жана төмөнкү булак кодун жүктөп алсаңыз болот.

Баары бир, сиз, балким, кантип vbsте ушундай сонун GUI тиркемесин түзгөнүмдү ойлоп жатасыз, эгер андай болсо, 3 -кадамга өтүңүз.

1 -кадам: Орнотуу…

REAMDE.txt файлында муну кантип жасоо боюнча көрсөтмөлөр да бар. Кандай болбосун, адегенде сизде C дискте 'temp' деп аталган папка түзүү керек, эгерде сизде жок болсо. Ошондой эле, эгерде сизде java орнотула элек болсо, аны бул жерден алсаңыз болот. Кийинки duckencode.jar жүктөп алып, файлды c: / temp папкаңызга жылдырыңыз. Андан кийин,.zip файлдарынын бирин чыгарыңыз жана эгер сиз компиляцияланбаган версияны колдонуп жатсаңыз, "ico.ico" жана "pic.gif" сыяктуу каталогдо Duck.hta файлын иштетиңиз. Же эгер сиз.exe түзгөн болсоңуз, жөн гана 'Duck.exe'ди иштетиңиз.

Эми биз кийинки кадамга өтө алабыз …

2 -кадам: Колдонуу…

Бул программа чынында жөнөкөй, аны колдонуу үчүн кодуңузду автоматтык түрдө чаптоо үчүн "Алмашуу буферинен чаптоо" баскычын чыкылдатыңыз. Же текст файлынан скриптти жүктөө үчүн текст файлынан жүктөөнү чыкылдатыңыз. Андан кийин сиздин кодуңуз төмөнкү текст кутучасында пайда болот. Кодуңузга каалаган акыркы өзгөртүүлөрдү киргизип, "Encode" баскычын басыңыз. C: / tempге өтүңүз жана "injection.bin "ди USB Резина Дакиңизге жылдырыңыз.

Сиз script.txt деген эмне деп ойлонушуңуз мүмкүн. Бул эмне, текст кутучасынан компиляцияланбаган код. Бул чийки коддун камдык көчүрмөсү катары колдонулат.

ЭСКЕРТҮҮ: Эгерде сиз кичинекей скрипт жасоону кааласаңыз, жөн эле текст кутучасына кодуңузду терсеңиз болот. USB Резина Дакини сыноонун тез жана оңой жолу.

Кийинки кадамга өтүңүз, эгер сиз vbsтеги GUIлер жана бул программа кантип жасалгандыгы жөнүндө көбүрөөк билгиңиз келсе, анда:

Бул көрсөтмөнү окуганыңыз үчүн рахмат, эгер сизде кандайдыр бир суроолор, комментарийлер же тынчсыздануулар болсо, комментарий калтырыңыз же мага жазыңыз

3 -кадам: VBScriptтеги GUIлер

Ооба, vbs менен GUI түзсө болот. Сиздин муну жасооңуз - бул текстти HTAга ороо. Сиз билбегениңизден улам, HTA - htmlге окшош сценарий тили, жөн гана GBS интерфейсинде vbscripts жана jscripts сыяктуу скрипттерди ороо үчүн колдонулат. Толук түшүндүрмө жана үйрөткүч бул жерде.

Эми сиз hta деген эмне экенин билесиз, сизге тезисти оңой жасоо боюнча бир нече кеңеш берейин. Адегенде HTA аналоматикасын түшүрүңүз (2 -сүрөт). Тилекке каршы, баштапкы шилтеме иштебей калды, бирок, бактыга жараша, мен бир аздан кийин көчүрмөсүн сактап калдым. Кийинки htaedit менен келген vbseditти жүктөп алып, орнотуңуз.

Бул эки программага ээ болгондон кийин, GUI түзүүнү баштоо үчүн сизге html/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: Set objFso = CreateObject ("Scripting. FileSystemObject") If If ObjFso. FileExists ("c: / temp / duckencode.jar") Андан кийин MsgBox "Ката, файл табылган жок: c: / temp / duckencode.jar ", 16," Duck Encoder "Self.close () End If End End

Андан кийин, бул суб, программа биринчи жолу ишке кирген сайын автоматтык түрдө иштейт. Бул терезенин өлчөмүн өзгөртүү, андан кийин 'duckencode.jar' туура каталогдо экендигин текшерүү.

Sub OnClickButtonbtnLoad ()

Dim objShlApp, objFolderLocation, strFileLocation, objFso, objFolder, colFiles, strTextFileList, objFile Dim strCompleteText Set objFso = CreateObject ("Scripting. FileSystemObject") Орнотуу objShlApp ShellForFlorEngError. (0, "Файлды камтыган папканы издеңиз:", 16384, 0) Эгерде Err. Number 0 Анда MsgBox "Сиз файлды камтыган Папканы тандашыңыз керек.", 16, "Duck Encoder" Err. Clear () Башка Эгерде objFolderLocation = "" Андан кийин катадан чыгыңыз 0 Goto 0 Set objFolder = objFso. GetFolder (objFolderLocation. Self. Path & "\") colFiles = objFolder. Files strTextFileList = "" Ар бир objFile үчүн colFiles ичинде InStr болсо (objFile. Name,).txt ") Жалган анда strTextFileList = strTextFileList & objFile. Name & vbCrLf Кийинки болсо Аяктоо 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 () If Err. Number 0 Ошондо MsgBox" Текст файлы бош. ", 16," Duck Encoder. " If End эгер End эгер End эгер End End

Макул, коддун бул бөлүгү чындап эле түшүнүксүз, бул колдонуучу "Текст файлынан жүктөө" баскычын чыкылдатканда. Ачык файл диалогун hta-де жасоо иш жүзүндө мүмкүн болбогондуктан, программа скрипт файлы бар папканы тандап алууну сурануу үчүн папка диалогун карап чыгат. Андан кийин программа кирүү кутусун ачат, ошол папкага кайсы текст файлын жүктөөнү суранат. Андан кийин программа файлдын ичиндегилерди окуйт жана текст кутусуна салат.

Sub OnClickButtonbtnPaste () Dim objHTML, ClipboardText Set objHTML = CreateObject ("htmlfile") ClipboardText = objHTML. ParentWindow. ClipboardData. GetData ("text") If IsNull (ClipboardText) = Чын эле, анда MsgBox, " "Duck Encoder" Башка txtScript. Value = ClipboardText End End Sub

Бул коддун баары колдонуучу "Алмашуу буферинен чаптоо" баскычын чыкылдатканда, программа текстти алмашуу буферинен текст кутусуна жүктөйт.

5 -кадам: Мен аны кантип жасадым (2 -бөлүк)

Sub OnClickButtonbtnEncode () If txtScript. Value = "" Анда MsgBox "Эч кандай код жок!", 16, "Duck Encoder" Башка Dim objFso, txtScriptFile Set objFso = CreateObject ("Scripting. Filesystemobject") SetTxtTcriptFsoFile "c: / temp / script.txt", 2, True) txtScriptFile. WriteLine (txtScript. Value) txtScriptFile. Close () idTimer = window.setTimeout ("Compile", 800, "VBScript") 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" сценарийи c: / temp ", vbOKOnly+vbInformation," Ducky Encoder "End Sub ичинде injection.bin үчүн түзүлгөн

Бул код "Encode" баскычын басканда иштейт.

Ал эмне кылат script.txt деп аталган текст файлын түзөт жана ага текст кутусунун ичиндегилердин баарын коет. Андан кийин ал 0,8 секунд күтөт, анан аны түзөт.

Калган коддор GUIди түзөт. Эгер сиз негизги хта билсеңиз, бул өзүн-өзү түшүндүрөт.