ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
28.02.2008, 14:58
|
|
Members of Antichat - Level 5
Регистрация: 24.10.2007
Сообщений: 256
Провел на форуме:
6905523
Репутация:
1174
|
|
Сообщение от Z@h
ZAMUT
и где по ссылке, что ты скинул есть описание \С ?
Код:
\C - Соответствует одному байту, даже при директиве use utf8.
|
|
|
28.02.2008, 22:12
|
|
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
Провел на форуме:
584540
Репутация:
96
|
|
мне то ответьте  |
|
|
|
29.02.2008, 08:15
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186
Репутация:
905
|
|
$p01nt, невнятгый какой-то вопрос. Нужно-то что, чтобы выводился текст, расположенный внутри тэга TITLE?
|
|
|
|
29.02.2008, 14:08
|
|
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
Провел на форуме:
584540
Репутация:
96
|
|
да , но выводиться ТЕКСТ НЕ ТОЙ СТРАНИЦЫ !!! я ӕто писал в первом посте по ӕтой теме
|
|
|
|
29.02.2008, 15:09
|
|
Banned
Регистрация: 22.08.2006
Сообщений: 608
Провел на форуме:
6144796
Репутация:
1095
|
|
>> да , но выводиться ТЕКСТ НЕ ТОЙ СТРАНИЦЫ !!!
тебе надо получить кукисы при успешной аутентификации, и использовать их, при посылке запросов на сайт..
пример:
Код:
use LWP::UserAgent;
use HTTP::Cookies;
my $cookie_jar = HTTP::Cookies->new;
my $ua = LWP::UserAgent->new;
$ua->agent('Opera/9.00 (Windows NT 5.1; U; ru)');
$ua->cookie_jar($cookie_jar);
my $req = $ua->post("http://$site$path",
Content => ['login_name' => "$login",
'login_password' => "$pass",
'login' => 'submit' ]);
$cookie_jar->extract_cookies($req);
затем делаем запросы с полученными кукисами:
Код:
my $ub = LWP::UserAgent->new;
$ub->agent('Opera/9.00 (Windows NT 5.1; U; ru)');
$ub->cookie_jar($cookie_jar);
my $rew = $ub->get("http://$site$path"."index.php?do=pm&doaction=newpm&user=$num")->as_string;
Последний раз редактировалось Digimortal; 29.02.2008 в 15:12..
|
|
|
|
29.02.2008, 22:51
|
|
Участник форума
Регистрация: 19.02.2008
Сообщений: 186
Провел на форуме:
584540
Репутация:
96
|
|
http://paste.org.ru/?9x0knz - вот сам скрипт с которым я мучаюсь ... поправте плз
|
|
|
|
01.03.2008, 00:23
|
|
Познавший АНТИЧАТ
Регистрация: 07.01.2007
Сообщений: 1,263
Провел на форуме:
3326855
Репутация:
702
|
|
Народ, в чём прикол? На моём сайте работал RSS парсер. Работал давно и исправно. Но несколько дней назад перестал. Стал выдавать:
XML error: not well-formed (invalid token) at line 3
В скрипте 3-я строка это session_start()
Ничего не пойму. Пытался и другой RSS фид ему скормить... Нифига не помогло. Вот сайт скрипт:
PHP код:
<?php
header( "Content-type: text/html; charset=UTF-8" );
error_reporting(E_ALL);
require_once( "./inc/Common.inc" );
$HTML_NEWS['text'] = "";
$HEADER = "Новости";
$type = isset($_REQUEST['type']) ? $_REQUEST['type'] : "menu";
$coli4 = isset($_REQUEST['num']) ? $_REQUEST['num'] : 3;
if($coli4 > 10)
$coli4 = 10;
if ($coli4 < 1)
$coli4 = 3;
switch (strtolower($type)){
case "world": default:
$file = "http://www.profootball.com.ua/rss/news.xml";
$HEADER .= " :: Новости мирового футбола";
break;
case "russian":
$file = "http://www.championat.ru/xml/rss_football_russiapl.xml";
$HEADER .= " :: Новости Российского футбола";
break;
case "ukraine": default:
$file = "http://news.yandex.ru/football.rss";
$HEADER .= " :: Новости футбола от yandex";
break;
case "menu":
$HEADER .= "";
break;
}
$HTML_NEWS['text'] .= <<< EOS
<div class="subtitle">
<b>Новости</b><br/>
</div>
<div class="text">
На этой странице находятся самые свежие футбольные новости. <br/>
</div>
<div class="text">
EOS;
if ($type=="menu")
{
$HTML_NEWS['text'] .= "<div class=\"subtitle\">Выберите категорию новостей</div><div class=\"text\">
<a href=?type=world&num=3>Новости мирового футбола</a><br>
<a href=?type=ya&num=3>Новости футбола от yandex</a><br>
<a href=?type=russian&num=3>Новости Российского футбола</a>";
}
else
{
$rss_channel = array();
$currently_writing = "";
$main = "";
$item_counter = 0;
function startElement($parser, $name, $attrs) {
global $rss_channel, $currently_writing, $main;
switch($name) {
case "RSS":
case "RDF:RDF":
case "ITEMS":
$currently_writing = "";
break;
case "CHANNEL":
$main = "CHANNEL";
break;
case "IMAGE":
$main = "IMAGE";
$rss_channel["IMAGE"] = array();
break;
case "ITEM":
$main = "ITEMS";
break;
default:
$currently_writing = $name;
break;
}
}
function endElement($parser, $name) {
global $rss_channel, $currently_writing, $item_counter;
$currently_writing = "";
if ($name == "ITEM") {
$item_counter++;
}
}
function characterData($parser, $data) {
global $rss_channel, $currently_writing, $main, $item_counter;
if ($currently_writing != "") {
switch($main) {
case "CHANNEL":
if (isset($rss_channel[$currently_writing])) {
$rss_channel[$currently_writing] .= $data;
} else {
$rss_channel[$currently_writing] = $data;
}
break;
case "IMAGE":
if (isset($rss_channel[$main][$currently_writing])) {
$rss_channel[$main][$currently_writing] .= $data;
} else {
$rss_channel[$main][$currently_writing] = $data;
}
break;
case "ITEMS":
if (isset($rss_channel[$main][$item_counter][$currently_writing])) {
$rss_channel[$main][$item_counter][$currently_writing] .= $data;
} else {
//print ("rss_channel[$main][$item_counter][$currently_writing] = $data<br>");
$rss_channel[$main][$item_counter][$currently_writing] = $data;
}
break;
}
}
}
$xml_parser = xml_parser_create();
xml_set_element_handler($xml_parser, "startElement", "endElement");
xml_set_character_data_handler($xml_parser, "characterData");
if (!($fp = fopen($file, "r"))) {
die("could not open XML input");
}
while ($data = fread($fp, 4096)) {
if (!xml_parse($xml_parser, $data, feof($fp))) {
die(sprintf("XML error: %s at line %d",
xml_error_string(xml_get_error_code($xml_parser)),
xml_get_current_line_number($xml_parser)));
}
}
xml_parser_free($xml_parser);
if (isset($rss_channel["ITEMS"])) {
if (count($rss_channel["ITEMS"]) > 0) {
for($i = 0;$i < $coli4;$i++) {
$HTML_NEWS['text'] .= "\n<div class=\"subtitle\">" . $rss_channel["ITEMS"][$i]["TITLE"] . "</b></div>";
$HTML_NEWS['text'] .= "<div class=\"text\">" . html_entity_decode($rss_channel["ITEMS"][$i]["DESCRIPTION"]) . "</div>";
}
} else {
$HTML_NEWS['text'] .= "<b>There are no articles in this feed.</b>";
}
}
$HTML_NEWS['text'] .= <<< EOS
<div class=\"subtitle\">
<form method=get action=news.php>
EOS;
$HTML_NEWS['text'] .= "<a href=?type=$type&num=10>Больше новостей >>></a></form>";
}
бла бла бла...
|
|
|
|
01.03.2008, 00:54
|
|
Постоянный
Регистрация: 09.07.2006
Сообщений: 937
Провел на форуме:
1948091
Репутация:
1686
|
|
и причем тут perl??????
|
|
|
|
01.03.2008, 01:05
|
|
Познавший АНТИЧАТ
Регистрация: 07.01.2007
Сообщений: 1,263
Провел на форуме:
3326855
Репутация:
702
|
|
ой...не туда...
|
|
|
|
02.03.2008, 02:22
|
|
Новичок
Регистрация: 06.03.2005
Сообщений: 19
Провел на форуме:
81759
Репутация:
5
|
|
Не шарю в Perl
Подскажите как в этом куске кода сделать коннект через прокси:
Код:
## Connect Socket with Variables Provided By User
my $sock = new IO::Socket::INET (
PeerAddr => "$host",
PeerPort => "80",
Proto => "tcp",
);
die "\nThe Socket Can't Connect To The Desired Host or the Host is MayBe DoSed: $!\n" unless $sock;
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид