Tweet
boas galera,
como o google mudou ficou um pouco mais dificil achar vuls vou postar aki o cod de um scan em perl muito bom nisso hehehe
para usar basta executar no perl
no win baixe o activeperl
dpois no cmd digitar nesta sequencia:
cd\
cd perl
cd bin
scandork.pl
ai basta colocar a dork como por exemplo: /news.php?id= e enter
e ele buscará os vuls ae é só alegria hehehehe
espero que gostem
como o google mudou ficou um pouco mais dificil achar vuls vou postar aki o cod de um scan em perl muito bom nisso hehehe
#!/usr/bin/perl
use LWP::UserAgent;
print "Specify dork: ";
$dork = <STDIN>;
chomp($dork);
for ($i = 0; $i < 1000; $i += 10) {
$b = LWP::UserAgent->new(agent => 'Mozilla/4.8 [en] (Windows NT 6.0; U)');
$b->timeout(30);
$b->env_proxy;
$c = $b->get('http://www.bing.com/search?q=' . $dork . '&first=' . $i . '&FORM=PERE')->content;
$check = index($c, 'sb_pagN');
while (1) {
$n = index($c, '<h3><a href="');
if ($n == -1) {
last;
}
$c = substr($c, $n + 13);
$s = substr($c, 0, index($c, '"'));
print $s, "\n";
}
if ($check == -1) {
last;
}
}
use LWP::UserAgent;
print "Specify dork: ";
$dork = <STDIN>;
chomp($dork);
for ($i = 0; $i < 1000; $i += 10) {
$b = LWP::UserAgent->new(agent => 'Mozilla/4.8 [en] (Windows NT 6.0; U)');
$b->timeout(30);
$b->env_proxy;
$c = $b->get('http://www.bing.com/search?q=' . $dork . '&first=' . $i . '&FORM=PERE')->content;
$check = index($c, 'sb_pagN');
while (1) {
$n = index($c, '<h3><a href="');
if ($n == -1) {
last;
}
$c = substr($c, $n + 13);
$s = substr($c, 0, index($c, '"'));
print $s, "\n";
}
if ($check == -1) {
last;
}
}
no win baixe o activeperl
dpois no cmd digitar nesta sequencia:
cd\
cd perl
cd bin
scandork.pl
ai basta colocar a dork como por exemplo: /news.php?id= e enter
e ele buscará os vuls ae é só alegria hehehehe
espero que gostem
Comment