ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование_OLD > PHP, PERL, MySQL, JavaScript
Перезагрузить страницу [Perl] Новичкам: задаем вопросы
   
 
Страница 142 из 156 « Первая < 4292132 138 139 140 141 142 143 144 145 146 152 > Последняя »
 
Опции темы Поиск в этой теме Опции просмотра

  #1411  
Старый 06.01.2010, 14:33
cr0w
Познающий
Регистрация: 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

Тут кодеры на вопросы отвечают, а не экстрасенсы. Показать свой сверхсекретный код не желаешь? (;
 

  #1412  
Старый 06.01.2010, 18:48
BluR
Познающий
Регистрация: 06.08.2009
Сообщений: 56
Провел на форуме:
425261

Репутация: 29
Отправить сообщение для BluR с помощью ICQ
По умолчанию
Цитата:
Сообщение от 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;
 

  #1413  
Старый 06.01.2010, 21:30
BluR
Познающий
Регистрация: 06.08.2009
Сообщений: 56
Провел на форуме:
425261

Репутация: 29
Отправить сообщение для BluR с помощью ICQ
По умолчанию
Проблема решена ... сори за беспокойство )))
 

  #1414  
Старый 09.01.2010, 20:11
vladan
Новичок
Регистрация: 21.02.2009
Сообщений: 8
Провел на форуме:
6449

Репутация: 0
По умолчанию
Очень прошу помощи. Хотелось бы сделать небольшую регистрацию на сайте и запретить регистрацию ников меньше 5 символов. Написал:

Код:
if ($domen => 5) {
# если больше или равно
}
else {
#если меньше
}
 

  #1415  
Старый 09.01.2010, 21:10
krypt3r
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186

Репутация: 905


По умолчанию
А в чем затруднение-то?
Код:
if (length $username >= 5) {
  # Good
} else {
  # Error
}
 

  #1416  
Старый 09.01.2010, 21:16
vladan
Новичок
Регистрация: 21.02.2009
Сообщений: 8
Провел на форуме:
6449

Репутация: 0
По умолчанию
Цитата:
Сообщение от krypt3r  
А в чем затруднение-то?
Код:
if (length $username >= 5) {
  # Good
} else {
  # Error
}
Огромное спасибо!!!!

PS перл начал учить неделю назад. Надо будет почитать про length
 

  #1417  
Старый 09.01.2010, 21:34
[Life]
Banned
Регистрация: 07.01.2010
Сообщений: 132
Провел на форуме:
63422

Репутация: 8
По умолчанию
Доброго времени суток!) Вот пишу скрипт, обрабатывающий определенным образом инет страницу(указываем урл). Суть проблемы в том, что я не знаю какой модуль использовать для парсинга страниц? И что делать, например, с сылками вида www.site.ru/page1/ , где не указан конкрентный файл?
 

  #1418  
Старый 09.01.2010, 23:04
krypt3r
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186

Репутация: 905


По умолчанию
Для парсинга страниц используются регулярные выражения, дополнительные модули тут не нужны. Для получения содержимого страниц юзайте модуль LWP
 

  #1419  
Старый 13.01.2010, 18:49
vladan
Новичок
Регистрация: 21.02.2009
Сообщений: 8
Провел на форуме:
6449

Репутация: 0
По умолчанию
Может кто подскажет как работать с модулем dbi?
Код:
$dbh->do("ЗАПРОС");
Возвращает кол-во измененных строк, как мне показать сами строки?Запрос примерно такой

Код:
SELECT `namesite` FROM  `users` WHERE  `name` LIKE  '$domen'
 

  #1420  
Старый 13.01.2010, 19:10
Kaimi
Reservists Of Antichat - Level 6
Регистрация: 23.08.2007
Сообщений: 1,237
Провел на форуме:
18127311

Репутация: 1676


Отправить сообщение для Kaimi с помощью ICQ
По умолчанию
А с документацией по модулю ознакомиться - не вариант?
http://search.cpan.org/~timb/DBI-1.609/DBI.pm
 
 
Страница 142 из 156 « Первая < 4292132 138 139 140 141 142 143 144 145 146 152 > Последняя »



« Предыдущая тема | Следующая тема »


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ