Тест атаки методом перебора пароля для файла

Взлом паролей методом грубой силы очень неэффективен, поэтому полезен только в качестве доказательства концепции. У вас есть 4-значный буквенный пароль, что является довольно тривиальным случаем.

Во-первых, вы можете написать:

my @alpha =( "a".."z" );

Генерация слов по мере того, как вы делаете, будет работать, но вы вставите перевод строки, что означает, что любая команда system, которую вы выполняете, не будет работать.

Вы также можете обнаружить, что попытки на ходу улучшат вашу скорость, не в последнюю очередь потому, что вы можете тривиально использовать многопроцессорность для такого рода операций.

Также - вы можете перехватить код возврата для system, чтобы увидеть, когда вы добьетесь успеха. Захват текстового вывода системы не поможет - вам нужно проверить $? - см. http://perldoc.perl.org/functions/system.html

Что-то вроде этого, может быть?

#!/usr/bin/perl

use strict;
use warnings;
use Parallel::ForkManager;

my $parallel = 8;

my @alpha = ( "a" .. "z" );

my $manager = Parallel::ForkManager->new($parallel);

my $parent_pid = $$; 

for my $one (@alpha) {
    for my $two (@alpha) {
        for my $three (@alpha) {
            for my $four (@alpha) {
                $manager->start and next;
                system(
                    "unzip -qq -o -P $one$two$three$four secret_file_brute.zip > /dev/null 2>&1"
                );
                if ( not $? ) {
                      print "Password was $one$two$three$four\n";
                      kill $parent_pid;
                }

                $manager->finish;
            }
        }
    }
}