LawMac:Desktop Lawrence$ more bruteforcea.pl
#!/usr/bin/perl
use Getopt::Std;

getopts('u:d:');

die "Usage $0 -u -d \n" if (!$opt_u && !$opt_d);

#Guardamos parametros
my $uid=$opt_u;
my $dict=$opt_d;

open (FILE,"<$dict");

#Por cada posible contraseña generada, probamos
while ()
{
        chomp ($_);
        my $resp=`diskutil cs unlockvolume $uid -passphrase $_ `;

        #Si acertamos, indicamos la contraseña correcta
        if ($resp =~ m/successfully/i)
        {
                print "Password found!!! It was \"$_\"\n";
                print "$resp\n";
                exit(0);
        }
}
close (FILE);
print "Password not found in diccionary $dict. Insert coin and play again\n";