瑞星卡卡安全论坛

这是PASCAL语言，简易而有效（菜鸟专用）

program virus(input,output);
var s1:string[30]; a:integer; f1,f2:text;
begin
  write('input the virus file:');
  read(s1);assign(f1,s1);assign(f2,'d:\123.txt');
rewrite(f1);reset(f2);
while not eof(f2) do
  begin
    while not roln(f2) do
      begin 
          read(f2,a);
            write(f1,a);
      end;
      readln(f2);
        writeln(f1);
      end;
    close(f1); close(f2);
end.

(注：要在PASCAL里运行，运行前先在D盘你建123。TXT 内容随便输 ，运行后即可手动删毒）

用户系统信息：Mozilla/4.0 (compatible; MSIE 6.0; Windows 98)

:default87: :default87: :default87: 没人？