#!/usr/bin/perl
print("\n\x57\x68\x61\x74\x20\x59\x6F\x75\x20\x53\x61\x79\x21\x21\n");
sub k{($c)and(kill(9,$c));close(S)};$p=25;($t,$x)=@ARGV;($x)or($x="\x3
+2");
($t)or($t="\x31\x32\x37\x2E\x30\x2E\x30\x2E\x31");use Socket;$r="\x74\
+x63\x70";
$SIG{'Int'}=&k;$_=`hostname`;chop;$h=$_;($n,$a,$pr)=(getprotobyname($r
+));
($p =~ /^\d+$/)or(($n,$a,$pr)=(getservbyname($p,$r)));($n,$a,$y,$l,$hi
+)=
(gethostbyname($h));($n,$a,$y,$l,$ha)=(gethostbyname($t));if(socket
(S,AF_INET,SOCK_STREAM,$r)){print("\x31")}else{die($!)}$sa='S n a4 x8'
+;$this=
(pack($sa,AF_INET,0,$hi));$that=(pack($sa,AF_INET,$p,$ha));if(bind(S,$
+this))
{print("\x32")}else{die($!)}if(connect(S,$that)){print("\x33")}else{di
+e($!)}
print("\n");select(S);$|=1;select(STDOUT);if($c=fork){sleep($x);&k;pri
+nt
("\x34")}else{my($din);while($din.=$_=<S>){chomp;@fg=(split(/\s/));
print("\x4D\x58\:\x20$fg[1]\n[[@fg]]\n")}}
[download]

# Dross, Professional Dullard