USB Roj Hmab Ducky Script Encoder (VBScript): 5 Kauj Ruam

2024 Tus sau: John Day | [email protected]. Kawg hloov kho: 2024-01-30 09:26

Yog tias koj muaj USB Roj Hmab Ducky, koj yuav paub tias txoj haujlwm tsis txaus ntseeg heev, tab tom sau koj cov ntawv mus rau.bin cov ntaub ntawv. Yog tias koj yuav tsum ua txhua yam kev debugging, koj yuav paub tias rub tawm tas li ntawm koj cov ntawv sau ua ke tuaj yeem ua rau mob. Yog li txhawm rau kho qhov teeb meem no, Kuv tsim VBScript uas tuaj yeem suav koj cov lej nrawm thiab yooj yim.

Koj tuaj yeem rub tawm cov ntawv sau ua ke.exe thiab qhov chaws hauv qab no.

Xijpeem, koj yuav xav tsis thoob tias kuv tau ua li cas txaus GUI daim ntawv thov hauv vbs, thiab yog li, hla mus rau qib 3.

Kauj ruam 1: Txhim kho…

Kuj tseem muaj cov lus qhia yuav ua li cas hauv REAMDE.txt cov ntaub ntawv. Xijpeem, ua ntej koj yuav tsum tsim cov ntawv tais ceev tseg hauv koj C tsav hu ua 'temp' yog tias koj tsis muaj ib qho lawm. Ntxiv thiab, yog tias koj tseem tsis tau teeb tsa java, koj tuaj yeem tau txais nws los ntawm no. Tom ntej rub tawm duckencode.jar thiab txav cov ntawv mus rau koj c: / temp nplaub tshev. Tom ntej no, rho tawm ib qho ntawm.zip cov ntaub ntawv thiab khiav Duck.hta hauv cov npe tib yam li 'ico.ico' thiab 'pic.gif' yog tias koj siv cov ntawv tsis suav sau. Lossis yog tias koj siv qhov suav sau.exe, tsuas yog khiav 'Duck.exe'.

Tam sim no peb tuaj yeem txav mus rau qib tom ntej…

Kauj ruam 2: Siv…

Qhov kev zov me nyuam no yooj yim heev, siv nws, tsuas yog nyem rau 'Paste from clipboard' kom cia li muab tshuaj txhuam rau hauv koj cov cai. Los yog nyem rau thauj los ntawm kab ntawv kab ntawv, txhawm rau thauj cov ntawv los ntawm kab ntawv. Tom qab ntawd koj tus lej yuav tshwm rau hauv kab ntawv hauv qab no. Ua qhov kev hloov pauv zaum kawg uas koj xav tau rau koj tus lej thiab ntaus 'Encode'. Nkag mus rau c: / temp thiab txav 'inject.bin' rau koj lub USB Roj Hmab Ducky.

Koj yuav xav tsis thoob tias script.txt yog dab tsi. Nws yog dab tsi, yog tus lej tsis tau sau los ntawm lub thawv ntawv. Nws yog siv los thaub qab ntawm cov cai nyoos.

NCO TSEG: Yog tias koj xav sau tsab ntawv me me, koj tuaj yeem yooj yim tsuas yog ntaus koj tus lej hauv kab ntawv. Txoj hauv kev nrawm thiab yooj yim los ntsuas koj li USB Roj Hmab Ducky.

Hla mus rau kauj ruam tom ntej yog tias koj xav paub ntau ntxiv txog yuav ua li cas GUIs hauv vbs thiab yuav ua li cas txoj haujlwm no tau ua, txwv tsis pub:

Ua tsaug rau kev nyeem cov lus qhia no, thiab yog tias koj muaj lus nug, lus pom, lossis kev txhawj xeeb, thov tshaj tawm cov lus lossis tawm tsam kuv

Kauj Ruam 3: GUIs hauv VBScript

Yog lawm, nws muaj peev xwm ua GUIs hauv vbs. Txoj kev koj ua, yog los ntawm kev qhwv koj cov ntawv hauv HTA. Txawm li cas los koj tseem tsis tau paub, HTA yog cov lus sau zoo ib yam li html siv yooj yim los qhwv cov ntawv xws li vbscripts thiab jscripts hauv GUI. Kev piav qhia ntxaws thiab qhia ntawm no.

Yog li tam sim no koj paub tias hta yog dab tsi, qhia rau kuv muab koj cov lus qhia yuav ua li cas thiaj yooj yim ua theses. Ua ntej rub tawm HTA helpomatic (daim duab 2) hauv qab no. Hmoov tsis zoo thawj qhov txuas tsis ua haujlwm ntxiv, tab sis hmoov zoo kuv tau khaws daim ntawv theej tawm rov qab. Tom ntej rub tawm thiab teeb tsa vbsedit, uas los nrog htaedit.

Tom qab koj muaj ob txoj haujlwm no, koj xav tau tiag tiag tsis muaj html/hta kev paub los pib ua GUIs. Uas yog qhov zoo rau tib neeg zoo li kuv, leej twg tsis xav kawm hta tsuas yog ua GUIs.

Tam sim no txav mus rau qib tom ntej kom pom tias kuv tau ua Duck Encoder li cas …

Kauj Ruam 4: Kuv Ua Li Cas

Yog li, thawj:

APPLICATIONNAME = "Duck Encoder" ID = "DuckEncoder" VERSION = "1.0" INNERBORDER = "tsis muaj" MAXIMIZEBUTTON = "tsis muaj" ICON = "ico.ico" SCROLL = "tsis muaj"

Qhov no teeb tsa ob peb yam xws li lub cim, hom ciam teb, ect.

Sub Window_OnLoad self.resizeTo 400, 454 Dim objFso: Teeb objFso = CreateObject ("Scripting. FileSystemObject") Yog Tsis ObFso. FileExists ("c: / temp / duckencode.jar") Tom qab ntawd MsgBox "Yuam kev, tsis pom cov ntaub ntawv: c: / temp / duckencode.jar ", 16," Duck Encoder "Self.close () Xaus Yog Xaus Sub

Tom ntej no, ntu no, sau cia thaum twg los xij qhov kev zov me nyuam tau pib ua ntej. Nws ua dab tsi yog hloov kho lub qhov rais tom qab ntawv xyuas kom paub tseeb tias 'duckencode.jar' nyob hauv cov npe raug.

Sub OnClickButtonbtnLoad ()

Dim objShlApp, objFolderLocation, strFileLocation, objFso, objFolder, colFiles, strTextFileList, objFile Dim strCompleteText Set objFso = CreateObject ("Scripting. FileSystemObject") Set objShlApp = CreateObject ("Shell. ApplicationSFolderFolder") (0, "Xauj rau daim nplaub tshev uas muaj cov ntawv:", 16384, 0) Yog Err. Number 0 Tom qab ntawd MsgBox "Koj yuav tsum xaiv FOLDER uas muaj cov ntawv.", 16, "Duck Encoder" Err. Clear () Lwm Yam Yog objFolderLocation = "" Tom qab ntawd Tawm Tawm Sub Ntawm Qhov Yuam Kev 0 Teeb objFolder = objFso. GetFolder (objFolderLocation. Self. Path & "\") Teeb colFiles = objFolder. Files strTextFileList = "" Rau Txhua objFile Hauv colFiles Yog InStr (objFile. Name, ".txt ") Cuav Ces strTextFileList = strTextFileList & objFile. Name & vbCrLf Xaus Yog Tom ntej strFileLocation = InputBox (" Thov nkag mus rau kab ntawv raug uas koj xav tau rau encode: "& vbCrLf & vbCrLf & strTextFileList," DuckyE Encoderm) (strFileLocation) Yog Tsis Yog ObFso. FileExists (objFolder Location. Self. Path & "\" & strFileLocation) Tom qab ntawd MsgBox "Yuam kev, koj yuav tsum xaiv cov ntawv sau los ntawm daim ntawv teev npe!", 16, "Duck Encoder" Lwm Yam Ntawm Qhov Ua Tsis Tau Zoo Tom ntej strFileLocation = objFolderLocation. Self. Path & " "& strFileLocation Teeb objFile = objFso. OpenTextFile (strFileLocation, 1, FALSE) txtScript. Value = objFile. ReadAll objFile. Close () Yog Err. Number 0 Tom qab ntawd MsgBox" Cov ntawv xa ntawv tsis muaj. ", 16," Duck Encoder "Xaus Yog End Yog End Yog End Yog End Yog End Sub

Ok, ib feem ntawm txoj cai yog qhov tsis meej pem, qhov no yog tus lej rau thaum tus neeg siv nyem rau ntawm 'Load from text file'. Txij li nws yog qhov ua tsis tau los ua qhov qhib-sib tham hauv hta, Qhov kev zov me nyuam pop-up tshawb rau cov lus sib tham kom nug tus neeg siv xaiv cov ntawv uas muaj cov ntawv sau. Tom qab ntawv qhov kev zov me nyuam qhib lub thawv nkag uas nug tus neeg siv cov ntawv twg kom thauj khoom hauv cov ntawv ntawd. Tom qab ntawv qhov kev zov me nyuam nyeem txhua yam uas nyob hauv cov ntawv thiab muab tso rau hauv lub thawv ntawv.

Sub OnClickButtonbtnPaste () Dim objHTML, ClipboardText Set objHTML = CreateObject ("htmlfile") ClipboardText = objHTML. ParentWindow. ClipboardData. GetData ("text") Yog IsNull (ClipboardText) = Muaj tseeb ces MsgBox "Tsis muaj dab tsi hauv daim ntawv teev lus! "Duck Encoder" Lwm txtScript. Value = ClipboardText End Yog Xaus Sub

Txhua txoj cai no ua, yog thaum tus neeg siv nyem rau 'Muab tshuaj txhuam los ntawm daim ntawv los teev cia', qhov kev zov me nyuam thauj cov ntawv los ntawm kab ntawv los rau hauv lub thawv ntawv.

Kauj Ruam 5: Kuv Ua Li Cas (ntu 2)

Sub OnClickButtonbtnEncode () Yog txtScript. Value = "" Tom qab ntawd MsgBox "Tsis muaj tus lej!", 16, "Duck Encoder" Lwm Dim DimFso, txtScriptFile Teeb objFso = CreateObject ("Scripting. Filesystemobject") Teeb txtScriptFile = objFso. OpenText "c: / temp / script.txt", 2, Tseeb) txtScriptFile. WriteLine (txtScript. Value) txtScriptFile. Close () idTimer = window.setTimeout ("Compile", 800, "VBScript") Xaus Yog Xaus 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" Tsab ntawv sau ua ke rau inject.bin hauv c: / temp ", vbOKOnly+vbInformation," Ducky Encoder "End Sub

Cov cai no tau khiav thaum koj nyem rau 'Encode'.

Nws ua dab tsi yog tsim cov ntawv sau hu ua script.txt thiab tso txhua yam uas yog sab hauv lub thawv ntawv rau nws. Tom qab ntawd nws tos 0.8 vib nas this thiab tom qab ntawv suav nws.

Tus so ntawm txoj cai tsuas yog tsim GUI. Nws zoo nkauj piav qhia tus kheej yog tias koj paub theem pib hta.