$|=1; use LWP::Simple; use LWP::UserAgent; use LWP; use Socket; use HTTP::Request::Common; use File::Copy; #use LWP::Debug qw(level); level('+'); level('+'); # ## ïðîêñè-ñåðâåð. # $PROXY = '203.71.225.10:8080'; # ## íèê è ïàðîëü â ÷àòå # $NICK = 'Ïðèìåð_Íèêà'; $PASS = '33'; # ## òåêñò, êîòîðûé áóäåì îòñûëàòü â îáùàê # $MESSAGE[0]="ÄÀ ÇÄÐÀÑÒÂÓÈÒ ÏÐÀÑÒÈÒÓÖÛÎÍÛÉ ×ÀÒ ÁÈÇßÐ, ÃÄÅ ÊÀÆÄÀß ØËÞÕÀ ÌÎÆÅÒ ÍÀÉÒÈ ÑÅÁÅ ÊËÈÅÍÒÀ!!! _ ×ÀÒ ÃÄÅ ÓÌÑÒÂÅÍÎ ÎÒÑÒÀËÛÅ ÌÎÄÅÐÛ ÍÅ ÎÒËÅ×ÀÞÖÀ ÎÒ ØËÞÕ. _ ×ÀÒ, ÃÄÅ ÆÛÐÍÛÅ ÏÐÛÙÀÂÛÅ ÍÅÂÅÑÒÛ ÈÙÓÒ ÏÐÈÍÖÅÂ Ñ ÁÀÁËÎÌ ÍÀ ÌÀÖÀÖÛÊËÅ. _ ÀÌÈÍÜ. %3C2%3E%3CQ%3E ÄÓÐÈÊÈ, ß ÆÅ ÁÎÒ! ÏÎÃÎÂÎÐÈÒÅ ÑÎ ÌÍÎÉ. %3C1%3E"; $MESSAGE[1]="À ÄÀÂÀÉÒÅ ÇÄÅËÀÅÌ ×ÀÒÎÔÊÓ È ÄÀÄÈÌ ÌÎÄÅÐÀÌ Ï.È.Ç.Ä.Û? ÀÑÎÁÀ ÖÛÍÈ×ÍÀ È ÆÛÑÒÎÊÀ È ÍÅÏÀÑÐÅÄÑÒÂÅÍÀ. ÃËÀÇÅÊ ÈÌ ÂÛÊÀÂÛÐßÈÌ, Æ.Î.Ï.Ó ÍÀÕ ÏÀÐÂÅÌ È ÔÑÅ ÒÀÊÎÅ? ÈËÈ ËÀÏÀÒÎÉ ÏÀ Õ.Ó.Þ Ø×ÎËÊÍÅÌ. ÇÀ×ÅÌ ÒÀÊ ÆÛÑÒÎÊÀ, ÑÏÐÎÑÈÒ ÂÄÓÌ×ÈÂÛÉ ×ÈÒÀÒÅËÜ. À ÏÐÎÑÒÎ ÒÀÊ, ØÎÁ ÐÀÇÌÍÎÆÀËÈÑÜ ÌÅÍÜØÅ %3C1%3E"; $MESSAGE[2]=ÓÂÀÆÀÈÌÛÅ ×ÀÒËÀÍÅ! ÂÈÄÈÒÅ ÑÈÁß ÏÀ-×ÈËÀÂÅ×ÈÑÊÈ! ÂÛ ÂÅÄÜ ÂÑÅ ÊÐÎÌÅ ÌÎÄÅÐΠËÞÄÈ! ÆÛÂÈÒÅ ÌÈÐÍÎ È ÍÅ ÑÎÇÄÀÂÀÉÒÅ ÊÎÍÔËÈÊÒÍÛÕ ÑÈÒÓÀÖÈÉ ÏÐÈ ÏÎÌÎÙÈ ÔËÓÄÀ ÈËÈ ÀÑÊÀÐÁËÅÍÈÉ! ÏÎÌÍÈÒÅ -  ÐÎËÈ ÆÅÐÒÂÛ ÌÎÆÅÒÅ ÎÊÀÇÀÒÜÑß È ÂÛ! ÁÓÄÜÒÅ ËÞÄÜÌÈ (Ê ÌÎÄÅÐÀÌ ÍÈÀÒÍÎÑÈÖÖÀ)! ÑÏÀÑÈÁÎ ÇÀ ÏÎÍÈÌÀÍÈÅ!%3CQ%3E"; $NUM_MESSAGES=3; # ### ÍÈÆÅ ÍÈ×ÅÃÎ ÍÅ ÌÅÍßÒÜ!!! # $g_Parsed=0;$g_Counter=9;RESTART:$rnd=0;$TIMEOUT=150;$g_CurMessage=0; $WEBSITE="http://bizarre.kiev.ua";$USERAGENT="Mozilla/5.3 COMPATIBLE"; $COLARRAY='0123456789ABCDEFGHIJKLMN';$COLOR=substr($COLARRAY, int(length($COLARRAY)*rand()), 1); $GENDERARRAY='mf';$GENDER=substr($GENDERARRAY, int(length($GENDERARRAY)*rand()), 1); $REFERER="/cgi-bin/ch/inp.pl?strm=y&uid={UID}&color=$COLOR&sx=$GENDER&room=8-"; $loginURL='/cgi-bin/ch/login.pl';$loginPost = "name={NICK}&pass={PASS}&color=$COLOR&sx=$GENDER&room_I=I%2B&room_U=U%2B&room=8-&room_I=I%2B&room_U=U%2B&sc="; $nickURL="/cgi-bin/ch/stream.cgi?room=8-&uid={UID}&sx=$GENDER&col=G&dir=1&lp={LP}&lc={LC}&lu={LU}&st=a"; $roomURL="/cgi-bin/ch/inp.pl?strm=y&uid={UID}&color=$COLOR&sx=$GENDER&room=8-"; $sayURL="/cgi-bin/ch/say.pl";$sayPOST="OK=%C2%F1%E5%EC&EX={TEXT}&b=b&self=self&uid={UID}&color=$COLOR&room=8-"; $UID='';$LU='';$LP='';$loginPost=~s/{NICK}/$NICK/i;$loginPost=~s/{PASS}/$PASS/i; do{print "Logging in to BIZARRE... ($NICK) via $PROXY\n"; $page=PostPage($WEBSITE . $loginURL, $loginPost);; ## "