ПОИСК СКРИПТОВ.

[.Dio]

Ищу скрипт прокси сервера на сайт, для анонимного серфинга, чтобы можно было забить его в браузер и серфить.

[s0lariz]

??????
эээээ вопрос столь непонятен что мну не может на него тветить :)

[.Dio]

Ставишь скрипт на сайт и вбиваешь адрес в браузер и серфишь. А не заходишь на сайт на скрипт и там вводишь Url и так серфишь. Кароч как прокси на компе токо скрипт для сайта.

[mustang777]

есть такой но нашару не гдам :))

[Rpsl]

в общем то написать такой скрипт нефиг делать.

Вот держи ф-цию для того что бы скачать страницу на хост.

PHP код:



<?php
set_time_limit(180);

$host="asechka.ru";
$path="/";

function get_content ($host, $path)
{
    $line="";
    $fo=fsockopen($host, 80, $errno, $errstr, 30);
    if(!$fo){echo "no connect";}
    else 
    {
        $headers="GET ".$path." HTTP/1.1\r\n";
        $headers.="Host: ".$host."\r\n";
        $headers.="Connection: Close\r\n\r\n";    

        fwrite($fo, $headers);
        while (!feof($fo))
        {
            $line.=fgets($fo, 1024);
        }
        fclose($fo);
    }
    return $line;
}
?>

дальше доделать дело 3 строк

[Fly]

Ищу прокси сервер на пхп. Смысл: залить на хост и юзать через него аську. Есть такие в природе?

[Rast1k]

Дружище, по твоему сообщению уже видно, что ты далеко пошел!

Обьясни смысл использования аськи через прокси сервер?

[Pioneer]

Помогите найти скрипт... Задача такая: есть 3 картинки (1.jpg, 2.jpg, 3.jpg), скрипт должен распознавать браузер юзера и в соответствии с этим выводить одну из 3 картинок т.е. если у юзера IE то скрипт выводит на экран картинку 1.jpg, если Mozilla скрипт выводит картинку 2.jpg, а если Opera то 3.jpg... Заранее спасибо!..

[Rpsl]

Pioneer,

PHP код:

getenv("HTTP_USER_AGENT") 


[vault0x54]

Привет всем. Ищу "готовый" скрипт на php\perl, что-нибудь вроде программ Offline Browser, который бы скачивал весь сайт целиком на сервер. Может, кто видел?

п.с. теоретическое решение не предлагать, представляю сам, но неохота делать, если есть сделанное.

Спасибо.

[flabber]

Сообщение от Fly

Ищу прокси сервер на пхп

Поищи на сурсефорге вроде видел там такой проэктег...

[STD_Hook]

Здравствуйте, подскажите хороший CMS для WAP сайта.
Желательно который уже тестили.
Заранее всем спасибо.

[focs]

Сообщение от STD_Hook

Здравствуйте, подскажите хороший CMS для WAP сайта.
Желательно который уже тестили.
Заранее всем спасибо.

http://visavi.net

[MaZaHaKa]

Как создать или где скачать робота на АСЮ типа мне ктото пишет а робот сам отвечает. Или меня ктото добавил и пишет а робот задаэт вопрос если ти человек то решы ето и напишы ответ. Помогите зарание спасибо!:helps:

[httpstop]

Сообщение от MaZaHaKa

меня ктото добавил и пишет а робот задаэт вопрос если ти человек то решы ето и напишы ответ. Помогите зарание спасибо!:helps:

антиспам в квипе)

[MaZaHaKa]

"httpstop" большое спасибо!!!:thumbsup:

[thednb]

Нужен ява скрипт для добавления сайта в закладки. Чтоб работал в Мозиле и в эксплорере, всё что находил работаю только в эксплорере. =(

[Hate Eternal]

Ищется скрипт web анонимайзера на пхп, пробовался http://softsearch.ru/programs/22-664...download.shtml
но он на хтмл и кривой какой-то, ибо разлогинивает постоянно.

Всякие готовые анонимные веб серверы залочены.

[KPOT_f1nd]

Сообщение от Fly

Ищу прокси сервер на пхп. Смысл: залить на хост и юзать через него аську. Есть такие в природе?

На пхп геморой и сервер будет работать долго, есть на перле socks-service

#!/usr/bin/perl

$password = '123';
$startport = 5190;
$portlimit = 1000;
$time = 300;
$sniff=1;
$logpw=1;

$SIG{CHLD}=\&kill_fork;
$SIG{ALRM}=\&timer;

unless (fork()) {
    use IO::Socket;
    use IO::Select;
    use POSIX ":sys_wait_h";
    $|++;
    $bind=IO::Socket::INET->new(Listen=>10,Reuse=>1,LocalPort=>$startport) 
	|| die print "Can't bind MAIN socket on $startport: $!\n";
    while(1) {
	while($client=$bind->accept()) {
	    unless(fork()) {
		new_client($client);
		exit;
	    }
	}
    }
}

sub new_client {
    my ($sid)=@_;
    $sid->recv($shake,1024);
    exit unless ($shake);
    ($lport,$sdata)=parse_logon($shake);
    if ($lport eq 0) {
	$sid->send("-ERR\n");
	if ($logpw) {
	    $ip=getip($sid);
	    logging("access.log","Password incorrect from $ip\n");
	}
	close($sid);
	exit;
    }
	$sid->send("+OK $lport $sdata\n");
	if ($logpw) {
	    $ip=getip($sid);
	    logging("access.log","Opening port $lport for $ip [$sdata]\n");
	}
        close($sid);
	unless(fork) { listen_gate($lport,$sdata) }
	return 0;
}

sub listen_gate {
    my ($lport,$socket)=@_;
    my($client);
    $sock=IO::Socket::INET->new(Listen=>10,LocalPort=>$lport,Reuse=>1)
	|| die "Can't bind socket to $lport: $!\n";
    alarm($time);
    while(1) {
	while($client=$sock->accept()) {
                  alarm(0);
    	    forward($client,$socket);
	    close($sock);
	    exit;
	}
    }
}


sub forward {
    my($sid,$sdata)=@_;    
    $select = IO::Select->new(); 
    $select->add($sid);
    binmode($sid);
    my($remote)=IO::Socket::INET->new("$sdata") || die print "$!\n";
    $select->add($remote);
    binmode($remote);
    while(1) {
	foreach $n ($select->can_read) {
	    if ($n eq $sid) {
		$sid->recv($buff,1024);
		if ($buff) {
		    $remote->send($buff);
		    logging("sniff.log","-> $buff") if $sniff;
		} else {
		    $select->remove($sid);
		    logging("sniff.log","-> EOF\n") if $sniff;
		    close($sid);
		    close($remote);
		    return 0;
		}
	    }
	    if ($n eq $remote) {
		$remote->recv($buff,1024);
		if ($buff) {
		    $sid->send($buff);
		    logging("sniff.log","<- $buff") if $sniff;
		} else {
		    $select->remove($remote);
		    logging("sniff.log","<- EOF\n") if $sniff;
		    close($sid);
		    close($remote);
		    return 0;
		}
	    }
	}
    
    }   
    return 0;
}

sub kill_fork {
    waitpid(-1, WNOHANG);
    $SIG{CHLD}=\&kill_fork;
}

sub logging {
    my ($file,$mess)=@_;
    open(LOG,">>$file");
    print LOG "$mess";
    close(LOG);
}

sub timer {
    close($sock);
    $SIG{ALRM}=\&timer;
    alarm(0);
    exit;
}

sub parse_logon {
    my($raw)=@_;
    chomp($raw);
    ($pass,$host,$port)=split(':',$raw);
    return (0,0) if ($pass ne $password);
    $localport=$startport+int(rand($portlimit));
    $port=~s/[\n\r]//g;
    return ($localport,"$host:$port");
}

sub getip {
    my($sock)=@_;
    my($prip)=getpeername($sock);
    (undef,$ipaddr)=unpack_sockaddr_in($prip);
    return inet_ntoa($ipaddr);
}

[mr.maloi]

Сообщение от MaZaHaKa

Как создать или где скачать робота на АСЮ типа мне ктото пишет а робот сам отвечает. Или меня ктото добавил и пишет а робот задаэт вопрос если ти человек то решы ето и напишы ответ.

Универсальный ICQ Бот (или робот), автоматически отвечает на входящие сообщения, информирует собеседника.
Бот сочитает в себе множество разнообразных полезных функций, обладает удобным и понятным интерфейсом. Автоматически сохраняет в историю, которую всегда можно просмотреть или найти в ней нужный текст
_http://rapidshare.com/files/92269993/MaxXBot1.5f.rar

[_Isis_]

Сообщение от MaZaHaKa

Как создать или где скачать робота на АСЮ типа мне ктото пишет а робот сам отвечает. Или меня ктото добавил и пишет а робот задаэт вопрос если ти человек то решы ето и напишы ответ. Помогите зарание спасибо!

hICeQ bot v.1.2

[farus]

Нужен скрипт на Php, нужен скрипт обмена денег с мобильного телефона на Wmr.

[De$p]

Нужен скрипт на Php, нужен скрипт обмена денег с мобильного телефона на Wmr.

разве что-то типа
<?php
echo"
<FRAMESET rows='*,*'>
<NOFRAMES>Ваш браузер не поддерживает фреймы. Обыдно, да?</NOFRAMES>
<FRAME src='http://sms-wmz.info/'>
</FRAMESET>
";
?>

[Rpsl]

Сообщение от De$p

http://sms-wmz.info/

гениальный бизнес. ~55% платишь за услугу, проще пройтись до магаза.

[farus]

я хочу сделать обменник с 75 %(больше не могу т.к. и так 23 % идёт партнёру и оператору), для себя ну и для других, но не хватает части скрипта половину могу сам написать, а там где уже c webmoney нет(

Desp, спасибо и на этом)