运行了一个超级玛丽病毒(free pascal)程序,然后整个桌面都是txt文件,怎么停下来 程序如下 5
vara,b,c,d,e:char;tdh:text;w:string;beginfora:='0'to'9'dobeginforb:='0'to'9'dobeginfo...
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. 展开
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. 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询