Usimbuaji wa Hati ya Mpira wa USB (VBScript): Hatua 5

2024 Mwandishi: John Day | [email protected]. Mwisho uliobadilishwa: 2024-01-30 12:51

Ikiwa unayo Ducky ya Mpira wa USB, utajua kuwa kazi inayokasirisha sana, ni kuandaa hati yako kuwa faili ya.bin. Ikiwa lazima ufanye utatuzi wowote, utajua kuwa upakuaji wa kila wakati wa hati yako iliyokusanywa inaweza kuwa maumivu. Ili kurekebisha shida hii, niliunda VBScript ambayo inaweza kukusanya nambari yako haraka na rahisi.

Unaweza kupakua.exe iliyokusanywa na nambari ya chanzo hapa chini.

Kwa hivyo, labda unashangaa jinsi nilivyofanya programu ya kushangaza ya GUI kwenye vbs, na ikiwa ni hivyo, ruka hatua ya 3.

Hatua ya 1: Inasakinisha…

Pia kuna maagizo ya jinsi ya kufanya hivyo katika faili ya REAMDE.txt. Kwa hivyo, kwanza lazima uunda folda kwenye gari lako la C inayoitwa 'temp' ikiwa huna tayari. Pia, ikiwa tayari haujawekwa java, unaweza kuipata kutoka hapa. Ifuatayo pakua duckencode.jar na uhamishe faili kwenye folda yako ya c: / temp. Ifuatayo, toa mojawapo ya faili za.zip na uendesha Duck.hta katika saraka sawa na 'ico.ico' na 'pic.gif' ikiwa unatumia toleo ambalo halijakusanywa. Au ikiwa unatumia.exe iliyokusanywa, fanya tu 'Duck.exe'.

Sasa tunaweza kuendelea na hatua inayofuata…

Hatua ya 2: Matumizi…

Programu hii ni ya moja kwa moja, kuitumia, bonyeza tu kwenye "Bandika kutoka kwenye clipboard" ili kubandika kiatomati kwenye nambari yako. Au bonyeza kwenye mzigo kutoka faili ya maandishi, kupakia hati kutoka kwa faili ya maandishi. Kisha nambari yako itaonekana kwenye kisanduku cha maandishi hapa chini. Fanya mabadiliko yoyote ya mwisho unayotaka kwenye nambari yako na ubonyeze 'Encode'. Nenda kwa c: / temp na songa 'inject.bin' kwenye USB yako ya Mpira Ducky.

Unaweza kujiuliza script.txt ni nini. Ni nini, ni nambari isiyokusanywa kutoka kwa kisanduku cha maandishi. Inatumika kama chelezo ya nambari mbichi.

KUMBUKA: Ikiwa unataka kutengeneza hati ndogo, unaweza kuandika tu nambari yako kwenye kisanduku cha maandishi. Njia ya haraka na rahisi ya kupima Ducky yako ya Mpira wa Ducky.

Ruka kwa hatua inayofuata ikiwa unataka kujua zaidi juu ya jinsi GUI katika vbs na jinsi mpango huu ulifanywa, vinginevyo:

Asante kwa kusoma hii inayoweza kufundishwa, na ikiwa una maswali yoyote, maoni, au wasiwasi, tafadhali weka maoni au jioni yangu

Hatua ya 3: GUI katika VBScript

Kwa hivyo ndio, inawezekana kutengeneza GUI katika vbs. Njia unayofanya, ni kwa kufunika maandishi yako katika HTA. Ikiwa haujui tayari, HTA ni lugha ya maandishi sawa na html inayotumiwa tu kufunga hati kama vile vbscript na jscript katika GUI. Maelezo ya kina na mafunzo hapa.

Kwa hivyo sasa kwa kuwa unajua hta ni nini, wacha nikupe vidokezo juu ya jinsi ya kutengeneza theses kwa urahisi. Kwanza pakua msaada wa HTA (picha 2) hapa chini. Kwa bahati mbaya kiunga cha asili hakifanyi kazi tena, lakini kwa bahati nzuri nilihifadhi nakala muda mfupi uliopita. Pakua baadaye na usakinishe vbsedit, ambayo inakuja na htaedit.

Baada ya kuwa na programu hizi mbili, hauitaji uzoefu wa html / hta kuanza kutengeneza GUI. Ambayo ni nzuri kwa watu kama mimi, ambao hawataki kujifunza hta tu kutengeneza GUI.

Sasa nenda kwenye hatua inayofuata ili uone jinsi nilivyotengeneza kisimbuzi cha Bata…

Hatua ya 4: Jinsi nilivyoifanya

Kwa hivyo, kwanza:

APPLICATIONNAME = "Encoder ya bata" ID = "DuckEncoder" VERSION = "1.0" INNERBORDER = "hapana" MAXIMIZEBUTTON = "hapana" ICON = "ico.ico" SCROLL = "hapana"

Hii inaweka vitu kadhaa kama ikoni, aina ya mpaka, ect.

Sub Window_OnLoad self.resizeTo 400, 454 Dim objFso: Set objFso = CreateObject ("Scripting. FileSystemObject") Ikiwa Sio objFso. FileExists ("c: / temp / duckencode.jar") Kisha MsgBox "Kosa, faili haikupatikana: c: / temp / duckencode.jar ", 16," Encoder ya bata "Self.close () Mwisho ikiwa End Sub

Ifuatayo, kifungu hiki, huendesha kiatomati wakati wowote mpango unapozinduliwa kwa mara ya kwanza. Inachofanya ni kubadilisha ukubwa wa dirisha kisha angalia ili kuhakikisha kuwa 'duckencode.jar' iko kwenye saraka sahihi.

Sub OnClickButtonbtnLoad ()

Punguza objShlApp, objFolderLocation, strFileLocation, objFso, objFolder, colFiles, strTextFileList, objFile Dim strCompleteText Set objFso = CreateObject ("Scripting. FileSystemObject") Weka objShlApp = WekaObjectBerterThisProjectBroseFold.html. (0, "Vinjari folda iliyo na faili:", 16384, 0) Ikiwa Nambari. Nambari 0 Kisha MsgBox "Lazima uchague FOLDER iliyo na faili.", 16, "Encoder ya Bata" Err. Clear () Kingine Ikiwa objFolderLocation = "" Kisha Toka kwenye Kosa la Goto 0 Weka 0.txt ") Uongo Kisha strTextFileList = strTextFileList & objFile. Name & vbCrLf End End If Next strFileLocation = InputBox (" Tafadhali ingiza faili sahihi ya maandishi unayotaka kusimba: "& vbCrLf & vbCrLf & strTextFileList," Ducky Isoder " (strFileLocation) Halafu Ikiwa Sio objFso. FileExists (objFolder Mahali. Self. Path & "\" & strFileLocation) Kisha MsgBox "Kosa, lazima uchague faili ya maandishi kutoka kwenye orodha!", 16, "Encoder ya Bata" Else On Error Endelea Ifuatayo strFileLocation = objFolderLocation. Self. Path & "\ "& strFileLocation Set objFile = objFso. OpenTextFile (strFileLocation, 1, FALSE) txtScript. Value = objFile. ReadAll objFile. Close () Ikiwa Err. Number 0 Kisha MsgBox" Faili ya maandishi haina kitu. ", 16," Encucker ya Bata "Mwisho Kama Mwisho Kama Mwisho Kama Mwisho Kama Mwisho Sub

Sawa, sehemu hii ya nambari inachanganya sana, hii ndio nambari ya nambari mtumiaji anapobofya kwenye 'Mzigo kutoka faili ya maandishi'. Kwa kuwa haiwezekani kufanya mazungumzo ya faili wazi katika hta, Programu hiyo inatafuta kuvinjari kwa mazungumzo ya folda ili kumwuliza mtumiaji kuchagua folda iliyo na faili ya hati. Kisha programu inafungua sanduku la kuingiza kuuliza mtumiaji faili ya maandishi kupakia ndani ya folda hiyo. Kisha programu inasoma chochote kilicho ndani ya faili na kuiweka kwenye kisanduku cha maandishi.

Sub OnClickButtonbtnPaste () Dim objHTML, ClipboardText Set objHTML = CreateObject ("htmlfile") ClipboardText = objHTML. ParentWindow. ClipboardData. GetData ("maandishi") Ikiwa IsNull (ClipboardText) = Kweli Kisha MsgBox "Hakuna kitu kwenye clipboard, Hakuna kitu kwenye clipboard. "Encoder ya bata" Mwingine txtScript. Value = ClipboardText End End End End Sub

Nambari hii yote hufanya, ni wakati mtumiaji anabofya kwenye 'Bandika kutoka kwenye ubao wa kunakili', programu hupakia maandishi kutoka kwa clipboard hadi kwenye sanduku la maandishi.

Hatua ya 5: Jinsi Nilivyoifanya (sehemu ya 2)

Sub OnClickButtonbtnEncode () Ikiwa txtScript. Value = "" Halafu MsgBox "Hakuna nambari!", 16, "Encoder ya Bata" Else Dim objFso, txtScriptFile Set objFso = CreateObject ("Scripting. Filesystemobject") Set txtScriptFile = objFsoext "c: / temp / script.txt", 2, Kweli) txtScriptFile. WriteLine (txtScript. Value) txtScriptFile. Close () idTimer = window.setTimeout ("Compile", 800, "VBScript") End End End Sub Sub Compile () window.clearTimeout (idTimer) Punguza objWshShl: Weka objWshShl = UndaObject ("WScript. Shell") objWshShl. Run "java.exe -jar c: / temp / duckencode.jar -ic: / temp / script.txt -oc: / temp / inject.bin ", 0 'MsgBox" Hati imekusudiwa kuingiza.bin katika c: / temp ", vbOKOnly + vbInform," Ducky Encoder "End Sub

Nambari hii inaendeshwa unapobofya kwenye 'Encode'.

Inachofanya ni kuunda faili ya maandishi inayoitwa script.txt na kuweka chochote kilicho ndani ya sanduku la maandishi kwake. Halafu inasubiri sekunde 0.8 na kisha kuikusanya.

Nambari iliyobaki inaunda tu GUI. Inajielezea vizuri ikiwa unajua hta ya msingi.