一个有趣的Pascal恶意程序+exec使用方法

程序很简单，原理就是通过exec这个语句不断打开自身，增加进程数量从而撑爆CPU。

破坏性几乎没有，运行后CPU使用率会飙到100%，加速球什么的也会到90几。但是CPU一般都是可以超频运行的，所以不会有问题，重启之后一切归零。所以只能叫做恶意程序。

如果你想看看这个程序的效果，不妨打开任务管理器看看。

uses dos; 
begin
    while true do exec('this program name.exe','');
end.

就是这么简单。

把this program name改成这个程序的名字并加上.exe即可。后面的空字符是传送的命令，不用管它，传一个空字节进去即可。

exec这个语句是在dos这个库里的，所以要在前方加上uses dos;。这个语句就是运行某个程序的用法，你也可以用它执行cmd命令，只要把this program name改成cmd.exe，后面的那个空字符改成你所要执行的命令即可。但是要在前方加上‘/c ’（有空格），否则无法运行。比如说我要运行'shutdown -s -t 3'这个命令，只需要这样写：

exec('cmd.exe','/c shutdown -s -t 3')

有兴趣的读者可以试着运行一下，自己探索。这里我就不写出来了，如果写出结果就没有意思了不是？哈哈