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

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

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование > PHP, PERL, MySQL, JavaScript
Перезагрузить страницу Perl , post
   
Ответ
Страница 2 из 4 < 1 2 3 4 >
 
Опции темы Поиск в этой теме Опции просмотра

  #11  
Старый 21.02.2008, 15:29
Isis
Флудер
Регистрация: 20.11.2006
Сообщений: 3,316
Провел на форуме:
16641028

Репутация: 2371


По умолчанию
Цитата:
Сообщение от $p01nt  
Isis можно тоже самое только на перл ?
Нет))))Не знаю перл..увы
 
Ответить с цитированием

  #12  
Старый 21.02.2008, 15:30
imajo.ati
Участник форума
Регистрация: 21.02.2008
Сообщений: 255
Провел на форуме:
975514

Репутация: 177
По умолчанию
речь случайно не про гостевую на том сайте?

http://www.kyky.altnet.ru/guest/write.php
куда проще зафлудить, тем более там активная xss (но кавычки фильтрует)
Последний раз редактировалось imajo.ati; 21.02.2008 в 15:37..
 
Ответить с цитированием

  #13  
Старый 21.02.2008, 15:37
$p01nt
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
Провел на форуме:
584540

Репутация: 96
По умолчанию
2all !! примеры , отрывки кода и т.д. и т.п. только на PERL !
imajo.ati да про ту , я знаю - просто использую как пример
 
Ответить с цитированием

  #14  
Старый 21.02.2008, 16:00
imajo.ati
Участник форума
Регистрация: 21.02.2008
Сообщений: 255
Провел на форуме:
975514

Репутация: 177
По умолчанию
именно для данного случая этот ид совсем не нужен. он не привязан ни к чему, а
потому это просто число. одно из чисел, которые сервер принимает за валидные.
проще сохранить форму на хард и наштамповать посты яваскриптом.
 
Ответить с цитированием

  #15  
Старый 21.02.2008, 17:40
$p01nt
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
Провел на форуме:
584540

Репутация: 96
По умолчанию
у кого нибудь будет ответ который нужен мне ? как узнать id , плз пишите на примере , ЯП обязательно перл !
 
Ответить с цитированием

  #16  
Старый 21.02.2008, 19:16
imajo.ati
Участник форума
Регистрация: 21.02.2008
Сообщений: 255
Провел на форуме:
975514

Репутация: 177
По умолчанию
$p01nt
я ещё раз повторюсь. id постоянный он не генерируется. посмотри. 41c3c0244c353
сколько страницу не обновляй id будет один и тот же.
имхо неудачный пример для тренировки


а на твой вопрос уже ответил Isis, пост №8
Последний раз редактировалось imajo.ati; 21.02.2008 в 19:21..
 
Ответить с цитированием

  #17  
Старый 21.02.2008, 19:19
bul.666
Banned
Регистрация: 06.06.2006
Сообщений: 944
Провел на форуме:
3986705

Репутация: 1403


Отправить сообщение для bul.666 с помощью ICQ
По умолчанию
$p01nt Стучи в Осику напишем
 
Ответить с цитированием

  #18  
Старый 21.02.2008, 19:52
Piflit
Banned
Регистрация: 11.08.2006
Сообщений: 1,522
Провел на форуме:
5128756

Репутация: 2032


Отправить сообщение для Piflit с помощью ICQ
По умолчанию
Цитата:
Сообщение от $p01nt  
можно тоже самое только на перл ?
PHP код:
use LWP::UserAgent;
my $ua = LWP::UserAgent->new();
my $res = $ua->post($url, 
            [ 'param1' => 'val1',
              'param2' => 'val2', ],
              'header1' => 'val1',
              'header2' => 'val2',
        ); 
etc
 
Ответить с цитированием

  #19  
Старый 22.02.2008, 20:15
bul.666
Banned
Регистрация: 06.06.2006
Сообщений: 944
Провел на форуме:
3986705

Репутация: 1403


Отправить сообщение для bul.666 с помощью ICQ
По умолчанию
Пиф он имел регулярку ^^

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..
 
Ответить с цитированием

  #20  
Старый 22.02.2008, 22:03
Piflit
Banned
Регистрация: 11.08.2006
Сообщений: 1,522
Провел на форуме:
5128756

Репутация: 2032


Отправить сообщение для Piflit с помощью ICQ
По умолчанию
Цитата:
Сообщение от 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); 
^^
 
Ответить с цитированием
Ответ
Страница 2 из 4 < 1 2 3 4 >



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
BookS: PHP, PERL, MySQL, JavaScript, HTML, ajax, Веб Дизайн M1nK0 PHP, PERL, MySQL, JavaScript 10 27.06.2009 21:35
Books Perl FRAGNATIC PHP, PERL, MySQL, JavaScript 0 11.08.2005 16:58
Безопасность приложений на Perl k00p3r Чужие Статьи 0 12.06.2005 09:39



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


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




ANTICHAT.XYZ