#!/usr/bin/perl

use Digest::MD5 qw(md5_hex);
my ($d,$login,$c1,$c2,$c3,$c4);
my @char1 = ("3","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z","1","2","a","4","5","6","7","8","9","0");

$login = 'efe9a291126db752c894564c694db35a';

foreach $c1 (@char1) {
	foreach $c2 (@char1) {
		foreach $c3 (@char1) {
			foreach $c4 (@char1) {
						$d = $c1.$c2.$c3.$c4;
						print $d,"\n";
			if ($login eq md5_hex("$d")) {
						print "Pass is: ".$d,"\n";
						exit;
}}}}}