ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
05.01.2010, 20:23
|
|
Познающий
Регистрация: 11.09.2008
Сообщений: 99
Провел на форуме:
2753780
Репутация:
585
|
|
1NtR0
Что значит " заходит только на ип сервера" ?
А что за херню вы посылаете заместо http-запроса?
BluR
А причем тут Perl?
Fepsis
Последнюю строку можно просто выводить без переноса строки:
Код:
perl -e"$|++; print qq($_\r) and sleep 1 for 1..20"
Последний раз редактировалось cr0w; 05.01.2010 в 20:49..
|
|
|
05.01.2010, 21:30
|
|
Участник форума
Регистрация: 14.04.2007
Сообщений: 197
Провел на форуме:
1122391
Репутация:
209
|
|
Сообщение от cr0w
1NtR0
Что значит " заходит только на ип сервера" ?
А что за херню вы посылаете заместо http-запроса?
Заходит например не на ww.2ip.ru а на 188.40.74.9 (это ип адрес сервера, на котором находиться 2ip.ru)
ВОт и я незнаю что за херня, знал бы не спрашивал.. Как правильно сделать ?
|
|
|
|
06.01.2010, 01:55
|
|
Познающий
Регистрация: 06.08.2009
Сообщений: 56
Провел на форуме:
425261
Репутация:
29
|
|
Сообщение от cr0w
BluR
А причем тут Perl?
При том что это в ответ получай perl скрипт ... хотелось бы знать не может ли быть в нём проблемы ??? может я что то недоотправляю ... как я понимаю ошибка в том что мак адрес не соответствует тому для которого сгенерированна переменная , которая в свою очередь выдергивается из страницы которую скрипт получает до этого ... да и если бы переменная была бы не верной выдавалась бы другая ошибка ...
P.s : с perl знаком от силы неделю .... поэтому и спрашиваю ...
|
|
|
|
05.01.2010, 22:06
|
|
Познающий
Регистрация: 11.09.2008
Сообщений: 99
Провел на форуме:
2753780
Репутация:
585
|
|
1NtR0
Код:
print $f "GET http://2ip.ru/ HTTP/1.1\n"
. "Host: 2ip.ru\n\n";
С HTTP-протоколом начинай знакомиться. (;
|
|
|
|
05.01.2010, 22:43
|
|
Участник форума
Регистрация: 14.04.2007
Сообщений: 197
Провел на форуме:
1122391
Репутация:
209
|
|
Сообщение от cr0w
1NtR0
Код:
print $f "GET http://2ip.ru/ HTTP/1.1\n"
. "Host: 2ip.ru\n\n";
С HTTP-протоколом начинай знакомиться. (;
Твой код ничего не выводит
|
|
|
|
06.01.2010, 14:33
|
|
Познающий
Регистрация: 11.09.2008
Сообщений: 99
Провел на форуме:
2753780
Репутация:
585
|
|
Сообщение от 1NtR0
Твой код ничего не выводит
Мой код пишет http-запрос в сокет, а выводить что-то должен твой код.
Кстати, если работешь с socks5, то попробуй еще модуль IO::Socket::Socks, он поудобней:
Код:
use strict;
use warnings;
use IO::Socket::Socks;
my $socks = new IO::Socket::Socks(
ProxyAddr => '98.203.236.60',
ProxyPort => 43981,
ConnectAddr => '2ip.ru',
ConnectPort => 80
) or die 'can\'t conect to proxy';
print $socks "GET / HTTP/1.1\n"
. "Host: 2ip.ru\n\n";
print while <$socks>;
$socks->close();
BluR
Тут кодеры на вопросы отвечают, а не экстрасенсы. Показать свой сверхсекретный код не желаешь? (;
|
|
|
|
06.01.2010, 18:48
|
|
Познающий
Регистрация: 06.08.2009
Сообщений: 56
Провел на форуме:
425261
Репутация:
29
|
|
Сообщение от cr0w
BluR
Тут кодеры на вопросы отвечают, а не экстрасенсы. Показать свой сверхсекретный код не желаешь? (;
Ничего секретного ... вот кусок кода ... весь код большой ... да и до этого есть только гет запросы которые в ответ получают нормальные страницы ...
$answ =~ s/\s*.*VIEWSTATE"\svalue="//igxsm;
$answ =~ s/"\s*.*\s*//igxsm;
my $VIEWSTATE = uri_escape("$answ");
$eve =~ s/\s*.*id="__EVENTVALIDATION"\s*value="//igxsm;
$eve =~ s/"\s*.*\s*//igxsm;
my $EVENTVALIDATION = uri_escape("$eve");
my $reg = $ua->post("http://profil.centrum.cz/icq.aspx",
['__EVENTTARGET' => ,
'__EVENTARGUMENT' => ,
'__VIEWSTATE' =>$VIEWSTATE,
'ua_icqstatus' => '1',
'ua_icq' => ,
'icqpassword' => ,
'passwordset' => '0',
'ua_securitycode_question' =>$scr,
'ua_securitycode_answer' =>$captcha,
'btnconnect' => '',
'__VIEWSTATEENCRYPTED=' => ,
'__EVENTVALIDATION' =>$EVENTVALIDATION,])->as_string;
|
|
|
|
06.01.2010, 00:07
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186
Репутация:
905
|
|
1NtR0, вооружайтесь RFC и снифером и смотрите, какие пакеты отсылаются и принимаются. Для примера работы с соксами на перле можете посмотреть Toolza от Pashkela. Там все на сокетах реализовано
|
|
|
|
06.01.2010, 21:30
|
|
Познающий
Регистрация: 06.08.2009
Сообщений: 56
Провел на форуме:
425261
Репутация:
29
|
|
Проблема решена ... сори за беспокойство )))
|
|
|
|
09.01.2010, 20:11
|
|
Новичок
Регистрация: 21.02.2009
Сообщений: 8
Провел на форуме:
6449
Репутация:
0
|
|
Очень прошу помощи. Хотелось бы сделать небольшую регистрацию на сайте и запретить регистрацию ников меньше 5 символов. Написал:
Код:
if ($domen => 5) {
# если больше или равно
}
else {
#если меньше
}
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид