【没创意】制造垃圾的程序(文件名随机，扩展名随机，目录随机……)

program dust;
  const
    m=200;
  var
    randmenu:integer;
    i:integer;
    dst:text;
  procedure makedust;
    var
      sj1,sj2,full:string;
      j:integer;
    begin
      randmenu:=random(6);
      {0-C disc root 1-D disc root }
      {2 E disc root 3-Programfile }
      {4 Windows Folder 5 Upper Folder}
      case randmenu of
        0:full:='C:\';
        1:full:='D:\';
        2:full:='E:\';
        3:full:='C:\Program Files\';
        4:full:='C:\windows\';
        5:full:='..\';
      end;
      for j:=1 to 8 do
        begin
          randmenu:=random(16);
          If randmenu<10
            then
              full:=full+chr(randmenu+48)
            else
              full:=full+chr(randmenu+55);
        end;
      full:=full+'.';
      for j:=1 to 4 do
        begin
          randmenu:=random(16);
          If randmenu<10
            then
              full:=full+chr(randmenu+48)
            else
              full:=full+chr(randmenu+55);
        end;
      assign(dst,full);
      writeln(dst,'jiongjiongjiongjiongjiong');
      close(dst);
  end;
begin
  randomize;
  for i:=1 to m do
    makedust;
end.