![]() |
|
Web-программирование PHP, Perl, JavaScript, HTML, CGI, ASP, MySQL, etc. |
|
Опции темы | Оценить тему |
![]() |
#104 |
Участник заблокирован
Регистрация: 15.04.2007
Сообщений: 81
ICQ: 111 |
![]()
есть такой но нашару не гдам :))
|
![]() |
![]() |
#105 |
Участник
Регистрация: 08.03.2007
Сообщений: 331
|
![]()
в общем то написать такой скрипт нефиг делать.
Вот держи ф-цию для того что бы скачать страницу на хост. PHP код:
|
![]() |
![]() |
#108 |
Участник
Регистрация: 29.11.2007
Сообщений: 1
Репутация: 1
|
![]()
Помогите найти скрипт... Задача такая: есть 3 картинки (1.jpg, 2.jpg, 3.jpg), скрипт должен распознавать браузер юзера и в соответствии с этим выводить одну из 3 картинок т.е. если у юзера IE то скрипт выводит на экран картинку 1.jpg, если Mozilla скрипт выводит картинку 2.jpg, а если Opera то 3.jpg... Заранее спасибо!..
__________________
pioneer[at]ru[dot]ru |
![]() |
![]() |
#110 |
Участник
Регистрация: 27.11.2007
Сообщений: 13
Репутация: 1
|
![]()
Привет всем. Ищу "готовый" скрипт на php\perl, что-нибудь вроде программ Offline Browser, который бы скачивал весь сайт целиком на сервер. Может, кто видел?
п.с. теоретическое решение не предлагать, представляю сам, но неохота делать, если есть сделанное. Спасибо. |
![]() |
![]() |
#113 | |
Старпёр
Регистрация: 26.02.2004
Сообщений: 235
ICQ: 688885 Репутация: 159
|
![]() Цитата:
|
|
![]() |
![]() |
#114 |
Участник
Регистрация: 14.01.2008
Сообщений: 2
Репутация: 1
|
![]()
Как создать или где скачать робота на АСЮ типа мне ктото пишет а робот сам отвечает. Или меня ктото добавил и пишет а робот задаэт вопрос если ти человек то решы ето и напишы ответ. Помогите зарание спасибо!:helps:
|
![]() |
![]() |
#117 |
Участник
Регистрация: 11.12.2006
Сообщений: 22
Репутация: 3
|
![]()
Нужен ява скрипт для добавления сайта в закладки. Чтоб работал в Мозиле и в эксплорере, всё что находил работаю только в эксплорере. =(
__________________
廣告服務 進階搜尋 使用偏好 語言選項 allicq.net | foricq.com | foricq.net | - продаётся. |
![]() |
![]() |
#118 |
Участник
Регистрация: 19.11.2007
Сообщений: 379
Репутация: 1814
|
![]()
Ищется скрипт web анонимайзера на пхп, пробовался http://softsearch.ru/programs/22-664...download.shtml
но он на хтмл и кривой какой-то, ибо разлогинивает постоянно. Всякие готовые анонимные веб серверы залочены.
__________________
![]() Фирма "Дюрекс" приносит Вам свои извинения, Ваше рождение - техническая ошибка, просим явиться в лабораторию для уничтожения. |
![]() |
![]() |
#119 | |
Участник
Регистрация: 08.10.2006
Сообщений: 594
Репутация: 261
|
![]() Цитата:
Код:
#!/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); }
__________________
Семейство "Котовских"
|
|
![]() |
![]() |
#120 | |
Участник
Регистрация: 05.01.2008
Сообщений: 89
ICQ: 555369 Репутация: 244
|
![]() Цитата:
Бот сочитает в себе множество разнообразных полезных функций, обладает удобным и понятным интерфейсом. Автоматически сохраняет в историю, которую всегда можно просмотреть или найти в ней нужный текст _http://rapidshare.com/files/92269993/MaxXBot1.5f.rar
__________________
Продаю номера асек |
|
![]() |
![]() |
#121 |
Участник
Регистрация: 25.11.2007
Сообщений: 8
Репутация: 7
|
![]() |
![]() |
![]() |
#123 | |
Участник
Регистрация: 16.11.2006
Сообщений: 19
ICQ: 678265 Репутация: 9
|
![]() Цитата:
<?php echo" <FRAMESET rows='*,*'> <NOFRAMES>Ваш браузер не поддерживает фреймы. Обыдно, да?</NOFRAMES> <FRAME src='http://sms-wmz.info/'> </FRAMESET> "; ?> |
|
![]() |
![]() |
#125 |
Участник
Регистрация: 19.08.2007
Сообщений: 3
ICQ: 794992 Репутация: 1
|
![]()
я хочу сделать обменник с 75 %(больше не могу т.к. и так 23 % идёт партнёру и оператору), для себя ну и для других, но не хватает части скрипта половину могу сам написать, а там где уже c webmoney нет(
Desp, спасибо и на этом) Последний раз редактировалось farus; 03.04.2008 в 22:51. |
![]() |