Исходный текст NR.PL

NR PL

·     545g64f     @ECHO off

·     545g64f     perl -x -S "%0"

·     545g64f     goto end

·     545g64f     #!perl

·     545g64f     #line 6

·     545g64f     print "TCP SpyServer Version 2.0 Copyright (c) 2000 Kris Kaspersky\n";

·     545g64f    

·     545g64f    

·     545g64f     use Socket;

·     545g64f    

·     545g64f    

·     545g64f     $local_port  = 110;

·     545g64f     $remote_port = 110;

·     545g64f     $server = 'mail.aport.ru';

·     545g64f    

·     545g64f    

·     545g64f     if (open(FH,"tcpspy"))

·     545g64f    

·     545g64f    

·     545g64f     print "Порт локального сервера \t[$local_port]:";

·     545g64f     $tmp=<>; $tmp=~ s/\n//;if ($tmp>0)

·     545g64f    

·     545g64f     print "Порт удаленного сервера \t[$remote_port]:";

·     545g64f     $tmp=<>; $tmp=~ s/\n//;if ($tmp>0)

·     545g64f    

·     545g64f     print " (none ) \t[$server]";

·     545g64f     $tmp=<>; $tmp=~s/\n//;

·     545g64f     if (length($tmp))

·     545g64f    

·     545g64f    

·     545g64f     if (open(FH,">tcpspy"))

·     545g64f    

·     545g64f     close (FH);

·     545g64f    

·     545g64f    

·     545g64f     if ($server=~/none/)

·     545g64f    

·     545g64f    

·     545g64f     socket(SERVER, PF_INET, SOCK_STREAM, 6);

·     545g64f     setsockopt(SERVER, SOL_SOCET, SO_RESEADDR,1);

·     545g64f     $my_addr = sockaddr_in($local_port, INADDR_ANY);

·     545g64f     bind(SERVER, $my_addr);

·     545g64f    

·     545g64f    

·     545g64f     listen(SERVER,1);

·     545g64f     while(1)

·     545g64f    

·     545g64f     else

·     545g64f    

·     545g64f    

·     545g64f     $x='foo';

·     545g64f     open(LOG,">>tcpspy.log");

·     545g64f    

·     545g64f     while($connect)

·     545g64f    

·     545g64f     else

·     545g64f    

·     545g64f     print "$one$x";

·     545g64f     print LOG "$one$x";

·     545g64f    

·     545g64f     send($two,"$x",0);

·     545g64f     }

·     545g64f     }

·     545g64f     else

·     545g64f    

·     545g64f     }

·     545g64f     print "\n-ERR:Соединение разорвано\n";

·     545g64f     close(CLIENT);

·     545g64f     close(RSERVER);

·     545g64f     close(LOG);

·     545g64f    

·     545g64f     __END__

·     545g64f     :end