VPF::Вопрос - Форум программистов

zet36

Дата 23.6.2008, 03:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 31
Регистрация: 31.5.2008

Репутация: нет
Всего: нет

Здравствуйте, приведите пожайлусто пример скрипта который отправляет запрос на авторизацию какого нибуть сайта и выводит переменную авторизированных куков после входа, заранее благодарен

gcc

Дата 23.6.2008, 03:55 (ссылка)

(нет голосов)

Загрузка ...

Агент алкомафии

Профиль
Группа: Участник
Сообщений: 2691
Регистрация: 25.4.2008
Где: %&й

Репутация: 1
Всего: 17

куки - это данные которые служат для убодства браузеру
а что вам именно надо?
вот тут куки сохраняються в файл

Код


my $cookie_jar = HTTP::Cookies ->new(file => 'cookies.txt',autosave => 1,

http://forum.vingrad.ru/forum/topic-209139...user-agent.html

Это сообщение отредактировал(а) gcc - 23.6.2008, 03:56

--------------------

Perl FAQ
freelance
perl, jquery, js, php
perl, jquery

nitr

Дата 23.6.2008, 11:44 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84

zet36, смотрите по форуму в поиске - LWP

--------------------

I love ArchLinux

zet36

Дата 24.6.2008, 10:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 31
Регистрация: 31.5.2008

Репутация: нет
Всего: нет

Спасибо но хотелось бы сделать без файла к стати вот скрипт получающий переменную куков без сохранения в файл на примере mail.ru

Код


use HTTP::Cookies;  


$ua = LWP::UserAgent->new; 
my $req = HTTP::Request->new(POST => 'http://win.mail.ru/cgi-bin/auth'); 

my $cookie_jar = HTTP::Cookies->new; 
$ua->timeout(60); 
$ua->cookie_jar($cookie_jar); 
$req->content("Mpopl=603148841&Login=lpgin&Domain=mail.ru&Password=pass"); 
$req->content_type('application/x-www-form-urlencoded'); 
$req->referer('http://mail.ru/'); 
my $res = $ua->request($req); 

if ($res->status_line=~'302'==1)  
{print "[~] Auth: OK\n"}; 


$req = HTTP::Request->new(GET => 'http://win.mail.ru/cgi-bin/auth'); 
$req->header('Accept' => 'text/html'); 
$req->referer('http://win.mail.ru/cgi-bin/auth'); 
$res = $ua->request($req); 

$cook = $cookie_jar->as_string; 
@res_arr = split(/n/, $cook); 
$cookies = ''; 
foreach (@res_arr) 
{if (/^Set-Cookie3: ([^;]*);(.*)/){ 
$cookies = $1; chomp($cookies);}} 


print $cookies;

но пробую аналогично использовать для vkontakte.ru авторизованных куков нет, кто что может сказать?

nitr

Дата 24.6.2008, 12:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84

zet36, для каких целей собираетесь использовать? Спаммить или флудить?
Такие цели не поддерживаются форумом.

Т.к. даже ваш пример, больше будет использоваться для создания ящик и дальнейшего спама!!!
А разбор, хоть и простой защиты вконтакте - тем более следует "нехорошим" затеям...

--------------------

I love ArchLinux

zet36

Дата 24.6.2008, 18:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 31
Регистрация: 31.5.2008

Репутация: нет
Всего: нет

Нет)) не спамить и не флудить , для спама или флуда на мой взгляд лутьше подходит php ,просто раньше там была хсс в флеш приложении, просто бы хотелось разобрать каким методом её закрыли

Это сообщение отредактировал(а) zet36 - 24.6.2008, 18:19

nitr

Дата 24.6.2008, 20:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84

zet36, спросите у них...
Про куки тему имхо закрывайте.

--------------------

I love ArchLinux

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »