Попинайте скрипт))

← →
kaZaNoVa © (2007-01-15 12:40) [0]

Имхо удобная уникальная разработка)

на правах рекламы ищу хостинг под него))

<? error_reporting(0); @error_reporting(0); set_magic_quotes_runtime(0); @set_time_limit(0); @ini_set("max_execution_time",0); @ini_set("output_buffering",0); header("Expires: Mon, 26 Jul 1997 05:00:00 GMT"); header("Last-Modified: ".gmdate("D, d M Y H:i:s")." GMT"); header("Cache-Control: post-check=0, pre-check=0", false); header("Cache-Control: no-store, no-cache, must-revalidate"); header("Pragma: no-cache"); if (!isset($HTTP_POST_VARS ["pget"])) { echo " <html><head> <meta http-equiv=Content-Type content="text/html; charset=windows-1251"> </head><BODY TEXT="#000000" BGCOLOR="#008080"> <br> <form method=post target="_blank"> <input type=text size=87 name=pget value="ya.ru"> <br><br> <input type=checkbox name=onlysize> только узнать размер <br><br> <input type=checkbox name=tag_s> убрать src- таги <br><br> <input type=checkbox name=tag_all> убрать ВСЕ- таги :) <br><br> <input type=checkbox name=pokaz> показать вывод (не записывая) <br><br> <input type=submit></form> </body></html> "; exit; } $pget=ereg_replace ("^http://","",$pget); $pget=ereg_replace ("^www.","",$pget); $phost=substr($pget,0,strpos($pget,"/")); $get_str=substr($pget,strpos($pget,"/"),5000); if ($get_str==""){$get_str="/";} /* echo $pget."<br><br>"; echo $phost."<br><br>"; echo $get_str."<br><br>"; //$phost="ya.ru"; //$get_str="/"; exit; //временно !! */ $t1="GET $get_str HTTP/1.0\r\n"; $t1.="Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, application/x-shockwave-flash, */*\r\n"; $t1.="Accept-Language: ru\r\n"; $t1.="Content-Type: text/html\r\n"; //$t1.="Accept-Encoding: deflate\r\n"; $t1.="User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows 2000)\r\n"; $t1.="Host: $phost\r\n"; //$t1.="Connection: Keep-Alive\r\n"; $t1.="Cache-Control: no-cache\r\n\r\n"; $fp = fsockopen($phost, 80, &$errno, &$errstr,12); if (!$fp) {die ("$errstr ($errno)<br>\n"); } fputs($fp,$t1); $content_http=""; while(fgets($fp,2048)!="\r\n" && !feof($fp)); while(!feof($fp)) { $content_http.= fgets($fp,1024); } fclose($fp); if (isset($HTTP_POST_VARS ["tag_s"])) { $content_http=preg_replace("!<(\w+)[^>]+src\s*=[^>]*>(?:.*?</\\1> )?!is", "", $content_http);} if (isset($HTTP_POST_VARS ["tag_all"])) { $content_http=strip_tags($content_http); $content_http=str_replace( " ","", $content_http ); $content_http=str_replace("\n\n","", $content_http ); $content_http=str_replace("\r\n\r\n","", $content_http ); } if (isset($HTTP_POST_VARS ["pokaz"])) {echo "<pre> $content_http </pre> " ; exit; } $f = fopen ("./afile.html", "wb"); fwrite ($f,$content_http); fclose ($f); exec("bzip2 afile.html"); $f_name_dl="afile.html.bz2"; if (isset($HTTP_POST_VARS ["onlysize"])) { echo " <html><head> <meta http-equiv=Content-Type content="text/html; charset=windows-1251"> </head><BODY TEXT="#000000" BGCOLOR="#008080"> <br>"; echo "Страница размером ".strlen($content_http)." байт сжато до ".filesize($f_name_dl)." байт"; $ts=strlen($content_http)/filesize($f_name_dl); $ts=round(100*$ts)/100; echo "<br><br>Сжатие ".$ts." раз ".filesize($f_name_dl)." байт"; echo "</body></html>"; @unlink($f_name_dl); exit; } header("Content-Type: application/force-download; name=\"$f_name_dl\""); header("Content-Transfer-Encoding: binary"); header("Content-Length: ".filesize($f_name_dl)); header("Content-Disposition: attachment; filename=\"$f_name_dl\""); @readfile($f_name_dl); @unlink($f_name_dl); exit; ?>

← →
pasha_golub © (2007-01-15 13:00) [1]

Чего делает-то? :)

← →
SerJaNT © (2007-01-15 13:11) [2]

сжимает что-то.

← →
Рамиль © (2007-01-15 13:11) [3]

А зачем сжимать?

← →
SerJaNT © (2007-01-15 13:18) [4]

а хрен знает. Может веб-странички?

← →
kaZaNoVa © (2007-01-15 13:26) [5]

скрипт сжимает для экономии траафика

← →
Rouse_ © (2007-01-15 14:41) [6]

Ну сжал ты и чего? Разжимать то кто будет? :)
ЗЫ: ... теперь пишу разархиватор ;)

← →
kaZaNoVa © (2007-01-15 14:59) [7]

Rouse_ © (15.01.07 14:41) [6]
WinRAR ^)))

← →
Rouse_ © (2007-01-15 15:01) [8]

> kaZaNoVa © (15.01.07 14:59) [7]

Охрененный серф по инету получиться. Скопипастил линк - загнал в скрипт, скачал результат, запустил винрар, посмотрел. Увидел хороший линк в распакованном и... Скопипастил линк - загнал в скрипт, скачал результат, запустил винрар, посмотрел. Увидел хороший линк в распакованном и... Скопипастил линк - загнал в скрипт, скачал результат, запустил винрар, посмотрел. Увидел хороший линк в распакованном и... ;)

Rouse_ © (15.01.07 15:01) [8]
не все так грустно)))
скрипт планировался для скачки страницы статистики с одного сайта (около 1 мб)

Ну тады - пойдет :)

Попинайте скрипт)) Найти похожие ветки