этом - Xakep Online

63Íó è, íàêîíåö, Perl îáëàäàåò íåèëëþçîðíîé ïåðåíîñèìîñòüþ,÷òî òàêæå ÷ðåçâû÷àéíî âàæíî. Åñëè âîçíèêíåòíåîáõîäèìîñòü çàïóñòèòü óäàëåííûéýêñïëîéò íà êàêîì-ëèáî øåëëå, ýòî ïîëó÷èòñÿ ïî÷òèíàâåðíÿêà, íåâçèðàÿ íà óñòàíîâëåííóþ íà øåëëåîïåðàöèîííóþ ñèñòåìó. Êîíå÷íî, åñëè êîä íå áóäåòîïèðàòüñÿ íà îñîáåííîñòè êîíêðåòíîé îïåðàöèîíêè,è íà íóæíîé íàì ìàøèíå áóäåò óñòàíîâëåí Perl-èíòåðïðåòàòîð.Îá îñîáåííîñòÿõ Perl ìîæíî ãîâîðèòüî÷åíü äîëãî, íî äàííàÿ ñòàòüÿ íåìíîãî íå îá ýòîì :). îáùåì, ÿ óâåðåí, ÷òî âñåì, êòî òîëüêî íà÷èíàåò ïèñàòüñâîè ýêñïëîéòû, ñòîèò ïîïðîáîâàòü äåëàòü ýòîíà Perl, êàê íà ñàìîì âûèãðûøíîì ïî ñîîòíîøåíèþ«çàòðàòû/ðåçóëüòàò» èíñòðóìåíòå.ïðîñòàÿ ðàáîòà ñ www. ×òî ìîæåò íàì â ïåðâóþî÷åðåäü ïîíàäîáèòüñÿ ïðè íàïèñàíèè óäàëåííîãîýêñïëîéòà íà web-èíòåðôåéñ? Êîíå÷íî æå, âîçìîæíîñòüôîðìèðîâàòü HTTP-çàïðîñû è îáðàáàòûâàòüîòâåòû. Íàïðèìåð, ïðè ðåàëèçàöèè ýêñïëîéòà,èñïîëüçóþùåãî SQL-èíúåêöèþ èëè ïåðåïîëíåíèåáóôåðà (äà è âîîáùå, ëþáóþ óÿçâèìîñòü, îñíîâàííóþíà íåäîñòàòî÷íîé ôèëüòðàöèè ïàðàìåòðîâ webñêðèïòîâ),ýòî, ôàêòè÷åñêè, åäèíñòâåííîå, ÷òî íàìïîíàäîáèòñÿ.Ïåðâàÿ áèáëèîòåêà, êîòîðàÿ íàì ïðèãîäèòñÿ —LWP (LWP — The World-Wide Web library for Perl).Ïî íàçâàíèþ óæå ïðèìåðíî ïîíÿòíî, ÷òî ñ ïîìîùüþýòîé áèáëèîòåêè ìîæíî ðàáîòàòü ñ www, è ñåé÷àñ ìûâûÿñíèì, êàê èìåííî ýòî äåëàåòñÿ. Èòàê, ýòà áèáëèîòåêàïðåäñòàâëÿåò ñîáîé íàáîð ìîäóëåé äëÿ ïðîñòîéðàáîòû ñ www: ñ åå ïîìîùüþ ìû ìîæåì ôîðìèðîâàòüçàïðîñû ê êàêèì óãîäíî ñòàíäàðòíûì ñåðâèñàì(ftp, http, file, smtp, etc.) è äàæå ïîñûëàòü e-mail'û.Îäíàêî íàäî ïîìíèòü, ÷òî ïðîâåðêà ïðàâèëüíîñòèçàïðîñîâ öåëèêîì ëîæèòñÿ íà íàñ, òàê êàê ñàì LWPìîäóëüíå ãàðàíòèðóåò, ÷òî, ïîñëàâ êðèâîé çàïðîñ íàêàêîé-ëèáî ñåðâåð, òû ïîëó÷èøü õîòü êàêîé-òî îòâåò.Ðàáîòà ýòîãî ìîäóëÿ îñíîâàíà íà HTTP-style ñîåäèíåíèè,òî åñòü ñîåäèíåíèè ïî òèïó «çàïðîñ-îòâåò».Ðàáîòàåò âñå ýòî î÷åíü ïðîñòî.  íà÷àëå ìû ôîðìèðóåìîáúåêò çàïðîñà HTTP::Request (íå ñòîèò ïóãàòüñÿóïîìèíàíèÿ ïðîòîêîëà HTTP â íàçâàíèè êëàññà —îí óêàçûâàåò íà èñïîëüçóåìóþ èäåîëîãèþ ñîåäèíåíèÿè íèêàê íå îãðàíè÷èâàåò èõ âîçìîæíûé òèï), ïîñëå÷åãî ïåðåäàåì åãî â ìåòîä request êëàññàLWP::UserAgent, êîòîðûé ïðåäñòàâëÿåò ñîáîé èíòåðôåéñ,ñêðûâàþùèé âñþ íèçêîóðîâíåâóþ ðàáîòóñ ñåòüþ è âîçâðàùàþùèé îòâåò â âèäå îáúåêòàHTTP::Response. Ñàì ïî ñåáå îáúåêò LWP::UserAgentñîäåðæèò ìíîãî àòðèáóòîâ, êîòîðûå êîíôèãóðèðóþòåãî âçàèìîäåéñòâèå ñ ñåòüþ.  ÷àñòíîñòè, ïðè ðàáîòåñ HTTP íåêîòîðûå àòðèáóòû âñòðàèâàþòñÿâ HTTP-çàãîëîâîê. Ðàññìîòðèì îñíîâíûå àòðèáóòûîáúåêòà HTTP::Request:— METHOD — ÑÒÐÎÊÀ,ÈÄÅÍÒÈÔÈÖÈÐÓÞÙÀß ÒÈÏ ÇÀÏÐÎÑÀ(ÍÀÈÁÎËÅÅ ×ÀÑÒÎ ÈÑÏÎËÜÇÓÞÒÑßPOST, GET, PUT È Ò.Ä.).— URI (UNIFORM RESOURCE IDENTIFIER) —ÑÒÐÎÊÀ, ÑÎÄÅÐÆÀÙÀß ÏÐÎÒÎÊÎË,ÑÅÐÂÅÐ È ÈÌß ÇÀÏÐÀØÈÂÀÅÌÎÃΫÄÎÊÓÌÅÍÒÀ», ÊÎÒÎÐÀß ÌÎÆÅÒÑÎÄÅÐÆÀÒÜ È ÄÐÓÃÈÅ ÏÀÐÀÌÅÒÐÛ,ÎÁÐÀÁÀÒÛÂÀÅÌÛÅ ÑÅÐÂÅÐÎÌ,ÍÀÏÐÈÌÅÐ, «HTTP:://MEGASITING.EE:-8080/SCRIPT.CGI?PARAM=PAM&PAM=PAM».— HEADERS —  ÎÁÙÅÌ ÑËÓ×ÀÅ —ÄÎÏÎËÍÈÒÅËÜÍÀß ÈÍÔÎÐÌÀÖÈßÎ ÇÀÏÐÎÑÅ Â ÂÈÄÅ ÏÀЫÊËÞ×-ÇÍÀ×ÅÍÈÅ».  ÑËÓ×ÀÅHTTP-ÑÎÅÄÈÅÍÈß — ÏÀÐÀÌÅÒÐÛÇÀÃÎËÎÂÊÀ.— CONTENT — ÄÀÍÍÛÅ, ÅÑËÈ ÎÍÈÍÅÎÁÕÎÄÈÌÛ.ÎÒÂÅÒ ÑÅÐÂÅÐÀ, ÊÀÊ ÓÆÅ ÁÛËÎÓÏÎÌßÍÓÒÎ — ÝÒÎ ÎÁÚÅÊÒHTTP::RESPONSE, ÑÎÄÅÐÆÀÙÈÉÑËÅÄÓÞÙÈÅ ÏÀÐÀÌÅÒÐÛ, ÄÎÑÒÓÏÍÛÅÑ ÏÎÌÎÙÜÞ ÎÄÍÎÈÌÅÍÍÛÕ ÌÅÒÎÄÎÂ:1 CODE — ÊÎÄ ÎÒÂÅÒÀ ÑÅÐÂÅÐÀ (200 —ÂÑÅ ÍÎÐÌÀËÜÍÎ, 404 — FILENOT FOUND, 500 — ÎØÈÁÊÀÏÐÈ ÎÁÐÀÁÎÒÊÅ ÑÊÐÈÏÒÀ…);2 MESSAGE — ÊÐÀÒÊÎÅ ÏÎßÑÍÅÍÈÅ ÊÎÄÀÂÎÇÂÐÀÒÀ ( ÓÄÎÁÎ×ÈÒÀÅÌÎÉ ÔÎÐÌÅ);3 HEADERS — ÏÀÐÀÌÅÒÐÛ ÇÀÃÎËÎÂÊÀÎÒÂÅÒÀ.  ÎÁÙÅÌ ÑËÓ×ÀÅ — ÎÏÈÑÀÍÈÅÊÎÍÒÅÍÒÀ;4 CONTENT — ÑÎÁÑÒÂÅÍÍÎ, ÄÀÍÍÛÅ.Ïðîäåìîíñòðèðóåì, êàê âñå ýòî ðàáîòàåò íà ïðèìåðåäîñòóïà ê HTTP-ñåðâåðó (ëèñòèíã 1).Êàê ìû âèäèì, âñå î÷åíü ïðîñòî.  ïåðâîé ñòðî÷êåìû ïîäêëþ÷àåì ìîäóëü LWP::UserAgent, ïîñëå ÷åãîñîçäàåì íîâûé îáúåêò. Íàäî çàìåòèòü, ÷òî êîíñòðóêòîðûâ Perl îáû÷íî ïîíèìàþò ãèáêèé íàáîð ïàðàìåòðîâ.Ýòî ñâÿçàíî ñ îñîáåííîñòÿìè ðåàëèçàöèè ÎÎ-ïîäõîäàè ñïîñîáîì ïåðåäà÷è ïàðàìåòðîâ â ìåòîäû êëàññà (ìûíå áóäåì óãëóáëÿòüñÿ â ýòó òåìó â ðàìêàõ äàííîéñòàòüè, òàê êàê îíà òÿíåò íà îòäåëüíûé ñïåö-âûïóñê).Íàïðèìåð, LWP::UserAgent ìîæåò ïðèíèìàòü â êà÷åñòâåïàðàìåòðîâ ïóñòîé ñïèñîê èëè íàáîð èç ïàð «êëþ÷çíà÷åíèå»:LWP::UserAgent->new(from!'pupkin@gov.no',agent->'MyMegaMailSender/2.5.7', …) # ïðè ôîðìèðîâàíèèSMTP-çàïðîñà. òðåòüåé ñòðîêå ïðèâåäåííîãî ëèñòèíãàìû ìåíÿåì îäèí èç àòðèáóòîâ çàïðîñà — agent, êîòîðûéñëóæèò äëÿ èäåíòèôèêàöèè íàøåãî ïðèëîæåíèÿ. ñëó÷àå HTTP-çàïðîñà, ýòîò àòðèáóò âñòðà-CPAN (ComprehensivePerl Archive Network)CPAN (COMPREHENSIVE PERL ARCHIVENETWORK) — ÝÒÎ ÎÃÐÎÌÍÛÉ ÀÐÕÈÂÂÑÅÂÎÇÌÎÆÍÎÃÎ ÑÎÔÒÀ ÍÀ PERL È ÄÎ-ÊÓÌÅÍÒÀÖÈÈ Ê ÍÅÌÓ, ÊÎÒÎÐÛÉ ÐÀÑÏÎ-ËÀÃÀÅÒÑß ÏÎ ÀÄÐÅÑÓ CPAN.ORG. ÑÒÐÀ-ÍÈÖÀ SEARCH.CPAN.ORG — ÑÀÌÀß ÏÎ-ÑÅÙÀÅÌÀß ÑÒÐÀÍÈÖÀ WEB-ÐÀÇÐÀÁÎÒ-×ÈÊÀ, ÈÑÏÎËÜÇÓÞÙÅÃÎ Â ÑÂÎÅÉ ÐÀÁÎ-ÒÅ PERL. ÎÍÀ ÑÎÄÅÐÆÈÒ ÂÑÞ ÍÅÎÁÕÎ-ÄÈÌÓÞ ÄÎÊÓÌÅÍÒÀÖÈÞ ÏÎ ÑÒÀÍÄÀÐÒ-ÍÛÌ ÂÎÇÌÎÆÍÎÑÒßÌ PERL È ÍÅÂÅÐÎßÒÍÓÞÊÓ×Ó ÂÑÅÂÎÇÌÎÆÍÛÕ ÃÎÒÎÂÛÕÐÅØÅÍÈÉ, ÊÎÒÎÐÛÅ ÎÁÛ×ÍÎ ÕÎÐÎØÎÄÎÊÓÌÅÍÒÈÐÎÂÀÍÛ. ËÈ×ÍÎ Ó ÌÅÍß ÎÁ-ÄÓÌÛÂÀÍÈÅ ÊÀÊÎÉ-ËÈÁÎ ÇÀÄÀ×È ÍÀ-×ÈÍÀÅÒÑß Ñ ÏÎÕÎÄÀ ÍÀ CPAN.ORGÈ ÏÎÈÑÊÀ ÑÎÎÒÂÅÒÑÒÂÓÞÙÈÕ ÌÎÄÓ-ËÅÉ. ×ÀÙÅ ÂÑÅÃÎ ÍÓÆÍÛÅ ÌÍÅ ÌÎÄÓ-ËÈ ÍÀÕÎÄßÒÑß, ×ÒÎ Î×ÅÍÜ, Î×ÅÍÜÑÈËÜÍÎ ÝÊÎÍÎÌÈÒ ÂÐÅÌß, ÊÎÒÎÐÎÅ,ÊÀÊ ÈÇÂÅÑÒÍÎ — ÄÅÍÜÃÈ. ÏÎ ØÈÐÎÊÎÐÀÑÏÐÎÑÒÐÀÍÅÍÍÎÌÓ ÌÍÅÍÈÞ,CPAN — ÝÒÎ ÅÄÈÍÑÒÂÅÍÍÀß ÑÒÐÀÍÈÖÀ,ÊÎÒÎÐÀß ÍÓÆÍÀ ÄËß ÏÎËÍÎÖÅÍÍÎÉÐÀÁÎÒÛ Ñ PERL. ÄÎÁÀÂÈÒÜ ÑÂÎÉ ÌÎ-ÄÓËÜ Â ÝÒÎÒ ÀÐÕÈ ÌÎÆÅÒ ÊÒÎ ÓÃÎÄ-ÍÎ, ×ÒÎ ÏÎÌÈÌÎ ÍÅÑÎÌÍÅÍÍÛÕ ÁËÀÃÏÎÐÎÆÄÀÅÒ È ÐßÄ ÏÐÎÁËÅÌ. ÈÑÏÎËÜ-ÇÓß ÌÎÄÓËÈ, ÑÊÀ×ÀÍÍÛÅ Ñ CPAN,ÒÛ ÄÅÉÑÒÂÓÅØÜ ÍÀ ÑÂÎÉ ÑÒÐÀÕÈ ÐÈÑÊ, ÈÁÎ ÎÍÈ ÏÎÑÒÀÂËßÞÒÑß ÁÅÇÊÀÊÈÕ ËÈÁÎ ÃÀÐÀÍÒÈÉ. ×ÀÑÒÎ ÁÛÂÀÅÒÒÀÊ, ×ÒÎ ÝÒÈ ÌÎÄÓËÈ ÏÐÎÑÒÎ-ÍÀÏÐÎ-ÑÒÎ ÍÅ ÐÀÁÎÒÀÞÒ. ÍÎ ÂÑÅ-ÒÀÊÈ ÇÍÀ×È-ÒÅËÜÍÎ ÁÎËÜØÅ ÒÅÕ, ÊÎÒÎÐÛÅ ÐÀÁÎ-ÒÀÞÒ ÍÎÐÌÀËÜÍÎ. ×ÒÎÁÛ ÎÖÅÍÈÒÜÌÎÙÜ ÝÒÎÃÎ ÀÐÕÈÂÀ, ÏÐÅÄËÀÃÀÞ ÒÅÁÅÇÀÉÒÈ ÍÀ SEARCH.CPAN.ORG È ÏÎÏÐÎ-ÁÎÂÀÒÜ ÒÀÊÈÅ ÇÀÏÐÎÑÛ, ÊÀÊ «WWW»,«NET», «RSS» È ÒÀÊ ÄÀËÅÅ. ÄÓÌÀÞ,ÒÛ ÁÓÄÅØÜ ÓÄÈÂËÅÍ ÎÁÈËÈÅÌ ÏÐÅÄ-ËÀÃÀÅÌÛÕ ÐÅØÅÍÈÉ. ÁÅÇÓÑËÎÂÍÎ,CPAN — ÝÒÎ ÎÄÈÍ ÈÇ ÑÀÌÛÕ ÂÅÑÎÌÛÕÏËÞÑΠPERL, ÊÎÒÎÐÛÉ ÏÎÄÎÃÐÅÂÀÅÒËÞÁÎÂÜ ÅÃÎ ÏÎÊËÎÍÍÈÊÎÂ.