Форум: "Прочее";
Текущий архив: 2007.02.04;
Скачать: [xml.tar.bz2];
Вниз
Попинайте скрипт)) Найти похожие ветки
← →
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]
Охрененный серф по инету получиться. Скопипастил линк - загнал в скрипт, скачал результат, запустил винрар, посмотрел. Увидел хороший линк в распакованном и... Скопипастил линк - загнал в скрипт, скачал результат, запустил винрар, посмотрел. Увидел хороший линк в распакованном и... Скопипастил линк - загнал в скрипт, скачал результат, запустил винрар, посмотрел. Увидел хороший линк в распакованном и... ;)
← →
kaZaNoVa © (2007-01-15 15:04) [9]Rouse_ © (15.01.07 15:01) [8]
не все так грустно)))
скрипт планировался для скачки страницы статистики с одного сайта (около 1 мб)
← →
Rouse_ © (2007-01-15 15:08) [10]Ну тады - пойдет :)
← →
homm © (2007-01-15 15:47) [11]> kaZaNoVa ©
toonel.net
Страницы: 1 вся ветка
Форум: "Прочее";
Текущий архив: 2007.02.04;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.05 c
