檢視「指令碼及惡意網頁病毒.rar」中的指令碼程式碼,將txt修改為html檔案、測試,部分程式碼有瑕疵、需要修改完成,主要是「拷貝.txt」和「刪除.txt」,當目標資料夾不存在時要先建立目標資料夾,請自己用VBScript指令碼程式碼
建立目前資料夾。將修改後的所有程式碼(4個html檔案)以及相應的具有代表性的截圖檔案。
實驗解析,四個指令碼程式碼的操作步驟大致相同。
共同的前提是選擇一個瀏覽器(此處小啊嗚選擇了IE瀏覽器),
找到相關安全設定將其安全程度調到最低。
之後再進行相關操作。
建立.html
<HTML>
<HEAD>
<TITLE>建立檔案c:\TEST.HTM</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
Dim fso, f1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile("c:\TEST.HTM", True)
-->
</SCRIPT>
</HEAD>
<BODY>
選擇選定瀏覽器開啟建立.html
,允許阻止的內容。
允許互動。
檢查成果啦!
成功建立檔案。
注意mu_sFilePath為自己桌面的路徑。
拷貝.html
<HTML>
<HEAD>
<TITLE>複製c:\TEST.HTM檔案到桌面</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
Dim mu_sFilePath,mu_sFileName
mu_sFilePath = "C:\Users\Floret\Desktop\" '注意此處為自己桌面的路徑
mu_sFileName = mu_sFilePath & "TEST.HTM"
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.GetFile("c:\TEST.HTM")
if(fso.FolderExists(mu_sFilePath)) Then '檢測資料夾是否存在
MsgBox "資料夾已存在"
MsgBox "檔案拷貝成功!"
tf.Copy ("C:\Users\Floret\Desktop\TEST.HTM")
else
MsgBox "資料夾不存在"
fso.CreateFolder(mu_sFilePath) '建立資料夾
tf.Copy ("C:\Users\Floret\Desktop\TEST.HTM")
end if
-->
</SCRIPT>
</HEAD>
<BODY>
拷貝成功啦!
刪除.html:
<HTML>
<HEAD>
<TITLE>刪除桌面上的TEST.HTM</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.GetFile("C:\Users\Floret\Desktop\TEST.HTM")
tf.Delete
MsgBox "檔案已刪除!"
-->
</SCRIPT>
</HEAD>
<BODY>
修改.html:
<HTML>
<HEAD>
<TITLE>修改檔案內容c:\TEST.HTM</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("c:\TEST.HTM", True)
' 寫一行,並帶有一個換行字元。
tf.WriteLine("<html><body>由網頁尾本的方式修改已存在檔案內容成功</body></html>")
' 向檔案寫三個換行字元。
tf.WriteBlankLines(3)
' 寫一行。
tf.Write ("This is a test.")
tf.Close
-->
</SCRIPT>
</HEAD>
<BODY>
驗收成果啦!
成功修改目標檔案。
查閱檔案「病毒詳解及批次處理病毒製作:自啟動、修改密碼、定時關機、藍屏、程序關閉.mhtml」,選取其中至少2個專案,進行實踐操作並截圖:
過程小記詳見博文:
https://blog.csdn.net/qq_43543789/article/details/108742518
Ending!
更多課程知識學習記錄隨後再來吧!
就醬,嘎啦!
注:
人生在勤,不索何獲。