#use Expect;

my $tocrackrar = $ARGV[0];

my $hint = '1234';
my @wild = ('a'..'z','0'..'9');
my $wild = '{'. join(',',@wild).'}';
my @password = (<$hint$wild$wild>,
          	<$wild$hint$wild>,
          	<$wild$wild$hint>);

my $total = 0;

foreach $pw (@password)
{
        $total++;

	open(PIPE, "|./unrar e $tocrackrar");
	print(PIPE $pw);
	
	if(-e "./tocrack.txt")
	{
		print "$total : $pw";
		exit(0);
	}

        close PIPE;
}