ejemplosubperl

#!/usr/bin/env perl

# Ejemplo de uso de sub rutinas perl
# Hapy fake cracking :D

if ($ARGV[0] and $ARGV[1]) {
    if ($ARGV[1] eq 'brute' ) {

    my ($mail,$passwd) = ($ARGV[0],$ARGV[1]);

    &crack($mail,$passwd); } else { &uso(); }

}else {
    &uso();
}

sub uso {

    my $uso=<<EOF;
Uso :

$0 <mail> <brute>

Por: demianx864

EOF

    print $uso;

}

sub crack {

    my($m,$p) = @_;
    system('clear');
    print "Cracking...\n";
    system('sleep 1');
    my @pass = (aaaa..zzzz);
    foreach(@pass){
        print "Probando Pass para $m : ","$_\r";
    }
    print "\nNo se encontro coincidencia :(\n"
}