 |
|
21.02.2008, 15:29
|
|
Флудер
Регистрация: 20.11.2006
Сообщений: 3,315
С нами:
10248806
Репутация:
2371
|
|
Сообщение от $p01nt
Isis можно тоже самое только на перл ?
Нет))))Не знаю перл..увы
|
|
|
21.02.2008, 15:30
|
|
Участник форума
Регистрация: 21.02.2008
Сообщений: 255
С нами:
9589849
Репутация:
177
|
|
речь случайно не про гостевую на том сайте?
http://www.kyky.altnet.ru/guest/write.php
куда проще зафлудить, тем более там активная xss (но кавычки фильтрует)
Последний раз редактировалось imajo.ati; 21.02.2008 в 15:37..
|
|
|
|
21.02.2008, 15:37
|
|
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
С нами:
9591697
Репутация:
96
|
|
2all !! примеры , отрывки кода и т.д. и т.п. только на PERL !
imajo.ati да про ту , я знаю - просто использую как пример
|
|
|
|
21.02.2008, 16:00
|
|
Участник форума
Регистрация: 21.02.2008
Сообщений: 255
С нами:
9589849
Репутация:
177
|
|
именно для данного случая этот ид совсем не нужен. он не привязан ни к чему, а
потому это просто число. одно из чисел, которые сервер принимает за валидные.
проще сохранить форму на хард и наштамповать посты яваскриптом.
|
|
|
|
21.02.2008, 17:40
|
|
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
С нами:
9591697
Репутация:
96
|
|
у кого нибудь будет ответ который нужен мне ? как узнать id , плз пишите на примере , ЯП обязательно перл !
|
|
|
|
21.02.2008, 19:16
|
|
Участник форума
Регистрация: 21.02.2008
Сообщений: 255
С нами:
9589849
Репутация:
177
|
|
$p01nt
я ещё раз повторюсь. id постоянный он не генерируется. посмотри. 41c3c0244c353
сколько страницу не обновляй id будет один и тот же.
имхо неудачный пример для тренировки
а на твой вопрос уже ответил Isis, пост №8
Последний раз редактировалось imajo.ati; 21.02.2008 в 19:21..
|
|
|
|
21.02.2008, 19:19
|
|
Banned
Регистрация: 06.06.2006
Сообщений: 944
С нами:
10489346
Репутация:
1403
|
|
$p01nt Стучи в Осику напишем
|
|
|
|
21.02.2008, 19:52
|
|
Banned
Регистрация: 11.08.2006
Сообщений: 1,522
С нами:
10393869
Репутация:
2032
|
|
Сообщение от $p01nt
можно тоже самое только на перл ?
PHP код:
use LWP::UserAgent;
my $ua = LWP::UserAgent->new();
my $res = $ua->post($url,
[ 'param1' => 'val1',
'param2' => 'val2', ],
'header1' => 'val1',
'header2' => 'val2',
);
etc
|
|
|
|
22.02.2008, 20:15
|
|
Banned
Регистрация: 06.06.2006
Сообщений: 944
С нами:
10489346
Репутация:
1403
|
|
Пиф он имел регулярку ^^
Php:
PHP код:
$site = file_get_contents('http://www.antichat.ru');
preg_match("#<div>(.*)</div>#isU", $site, $out);
echo $out['1']; // Это твой id
Perl: (Покажу напримера файла)
Сделал файл page.html с содержанием:
Код HTML:
<html>
<head>
<title>PERL regexp</title>
</head>
<body>
<h1>File where I serach text</h1>
<DIV>I NEED THIS TEXT</DIV>
</body>
</html>
Тут I NEED THIS TEXT то что нам надо искать...
Вот perl скрипт:
PHP код:
#!/usr/bin/perl
open(DATAFILE, "scr/page.html") || die "Cannot open DATAFILE";
while(defined($file = <DATAFILE>))
{
if($file=~m%(<DIV>(.*)</DIV>)%igs)
{
$file=~s%(<DIV>(.*)</DIV>)%%igs;
print "Result: $2";
}
}
Запустил, результат:
C:\Perl\bin>perl scr/reg.pl
Result: I NEED THIS TEXT
C:\Perl\bin>
Последний раз редактировалось bul.666; 22.02.2008 в 22:36..
|
|
|
|
22.02.2008, 22:03
|
|
Banned
Регистрация: 11.08.2006
Сообщений: 1,522
С нами:
10393869
Репутация:
2032
|
|
Сообщение от bul.666
PHP код:
#!/usr/bin/perl
open(DATAFILE, "scr/page.html") || die "Cannot open DATAFILE";
while(defined($file = <DATAFILE>))
{
if($file=~m%(<A>(.*)</A>)%igs)
{
$file=~s%(<A>(.*)</A>)%%igs;
print "Result: $2";
}
}
PHP код:
#!/usr/bin/perl -w #вроде этот ключ исправляет некоторые ошибки в коде
open(DATAFILE, "scr/page.html") || die "Cannot open DATAFILE";
while(<DATAFILE>)
{
if(m/<A>(.+)<(backslash)/A>/igs)
{
s/<A>(.+)<(backslash)/A>/igs;
print "Result: ".$_;
}
}
close(DATAFILE);
^^
|
|
|
|
|
|
|
Предыдущая тема
Следующая тема
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
