ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
23.02.2008, 23:22
|
|
Banned
Регистрация: 11.08.2006
Сообщений: 1,522
Провел на форуме:
5128756
Репутация:
2032
|
|
Сообщение от Digimortal
>> foreach $line (@loleg) { $lolarr[$i] = $line; $i++;}
можно поинтересоваться, в чем заключается глубинный смысл этой строки ? +)
if($i == 1){$i = 1;}
ммм... узнаем длину массива... хз)
|
|
|
23.02.2008, 23:27
|
|
Banned
Регистрация: 22.08.2006
Сообщений: 608
Провел на форуме:
6144796
Репутация:
1095
|
|
>> ммм... узнаем длину массива... хз)
и для этого ты создал еще один масив и переложил в него в цикле по одному все элемены массива, чтоб пересчитать их ??
/me ф шоке, честно говоря.. ))
з.ы. длина массива = scalar @massiv
+)
|
|
|
|
24.02.2008, 11:39
|
|
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
Провел на форуме:
584540
Репутация:
96
|
|
сори народ я протупил , нужно было параметр g (глобальный поиск) использовать .
@loleg=$content =~m {<[<th>]+/?>(.+?)</?[\/th]+>}g;
|
|
|
|
24.02.2008, 14:45
|
|
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
Провел на форуме:
584540
Репутация:
96
|
|
и еще один вопросик от меня . авторизируюсь на сайте xaker.ru , с авторизацией вроде все ок . Как получить урл на который меня перебрасывает после авторизации ?
http://paste.org.ru/?j8xlt9
|
|
|
|
24.02.2008, 16:17
|
|
Banned
Регистрация: 22.08.2006
Сообщений: 608
Провел на форуме:
6144796
Репутация:
1095
|
|
$p01nt
>> $url = '?????????????';
>> $content = get $url;
вот это не понял к чему.. раз начал использовать io::socket, то юзай его и дальше..
получаешь ответ своего пост-запроса:
$sock->recv($content, 400);
и глядишь в $content нужные заголовки..
|
|
|
|
24.02.2008, 23:18
|
|
Постоянный
Регистрация: 03.08.2007
Сообщений: 367
Провел на форуме:
876216
Репутация:
209
|
|
$p01nt: Нужный тебе заголовок Location:
|
|
|
|
25.02.2008, 23:20
|
|
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
Провел на форуме:
584540
Репутация:
96
|
|
и опять я  вообщем теперь вопрос по парсингу странички .
document.forms.auth.action="http://******.ru/au/authen.phtml?u=случайное значение &s=&i=0.0&a_cd=случайное значение";
надо вытащить u=случайное значение &s=&i=0.0&a_cd=случайное значение
получается только http://****.ru/au/authen.phtml?u=*****&s=&i=0.0&a_cd=******
юзаю @mass=$content =~ m/document.forms.auth.action="(\S+)"/i; |
|
|
|
26.02.2008, 00:19
|
|
Banned
Регистрация: 28.01.2008
Сообщений: 18
Провел на форуме:
233275
Репутация:
14
|
|
http://www.codenet.ru/webmast/perl/regex.php читать до просвятления
|
|
|
|
26.02.2008, 01:37
|
|
Banned
Регистрация: 06.06.2006
Сообщений: 944
Провел на форуме:
3986705
Репутация:
1403
|
|
Если тебе нужно получить только строку:
u=СТРОКА&s=&i=0.0&a_cd=СТРОКА
То вот тебе скрипт:
PHP код:
#!/usr/bin/perl
use Socket;
$host="www_САЙТ_ru"; #Замени на нужный тебе (Я уже знаю, какой тебе нужен и уже его проверил ) ^^
$port="80";
socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
$iaddr = inet_aton($host);
$paddr = sockaddr_in($port, $iaddr);
connect(SOCK, $paddr);
$header = "GET /index.phtml HTTP/1.0\r\n"
."User-Agent: Opera/10.84 (Windows NT 5.1; U; ru)\r\n"
."Host: $host\r\n"
."Referer: http://chicks-for-hackers.com/\r\n"
."Proxy-Connection: close\r\n"
."Content-type: application/x-www-form-urlencoded\r\n\r\n";
send (SOCK, $header, 0);
@data=<SOCK>;
close(SOCK);
$size = @data;
for ($i=0;$i<$size;$i++) {
$str=@data[$i];
if ($str =~m/document.forms.auth.action/) { #Обрабатываем ответ, выдираем строчки, которые соответсвуютт шаблону
@parse = split("[?]",$str); #Разделяем строчку, тоесть в первый элемент массива parse будет строка до вопросительного знака, а второй элемент после, то что нам нужно
$out = @parse_need[1]; #Тут наша строка + 4 символа - "; и два пробельных
$out = substr($out,0, length($out)-4); #Убираем 4 последних символа
print $out; #Выводим результат
exit; #Завершаем работу скрипта, т.к. другие строчки нас не интересуют
}
}
|
|
|
|
26.02.2008, 01:58
|
|
Banned
Регистрация: 22.08.2006
Сообщений: 608
Провел на форуме:
6144796
Репутация:
1095
|
|
Код:
print $2 if $content =~ m|document.forms.auth.action="http://******.ru/au/authen.phtml?u=(.*?)&s=&i=0.0&a_cd=(.*?)";|;
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид