bash script pomoc??

naso sam md5 cracker napisan u perl-u ali meni treba md5 cracker napisan u bashu kako bi ga  mogao da ga pokrecem sa motorole a1200
ako bi neko moga da mi pomogne kako da napravim !!!
evo perl skripta
[code]    #!/usr/bin/perl

    use Digest::MD5 ‘md5_hex’;

    @char = (’a’..’z’, ‘A’..’Z’,0..9,’`’,’-‘,’=’,’~’,’!’,’@’,’$’,’%’,’^’, ‘&’,’*’,'(’,’)’,’_’,’+’,'{’,’}’,’|’,’:’,’”‘,’<’,'>’,’ ‘);

    print “Enter the MD5 hash…\n”;

    chomp($hash = );
    $hash =~ s/^\s+//g;
    $hash =~ s/\s+$//g;

    &bad_use unless length($hash) eq 32;
    makelist();

    sub makelist {

    for ($br = 1; $br <= 12; $br++) {     for ($len1 = 0; $len1 <= 62; $len1++) {     $word[1] = $char[$len1];     for ($len2 = 0; $len2 <= 83; $len2++) {     $word[2] = $char[$len2];     if ($br <= 2) {     add(@word);     }     else {     for ($len3 = 0; $len3 <= 62; $len3++) {     $word[3] = $char[$len3];     if ($br <= 3) {     add(@word);     }     else {     for ($len4 = 0; $len4 <= 62; $len4++) {     $word[4] = $char[$len4];     if ($br <= 4) {     add(@word);     }     else {     for ($len5 = 0; $len5 <= 62; $len5++) {     $word[5] = $char[$len5];     if ($br <= 5) {     add(@word);     }     else {     for ($len6 = 0; $len6 <= 62; $len6++) {     $word[6] = $char[$len6];     if ($br <= 6) {     add(@word);     }     else {     for ($len7 = 0; $len7 <= 62; $len7++) {     $word[7] = $char[$len7];     if ($br <= 7) {     add(@word);     }     else {     for ($len8 = 0; $len8 <= 62; $len8++) {     $word[8] = $char[$len8];     if ($br <= 8) {     add(@word);     }     else {     for ($len9 = 0; $len9 <= 62; $len9++) {     $word[9] = $char[$len9];     if ($br <= 9) {     add(@word);     }     else {     for ($len10 = 0; $len10 <= 62; $len10++) {     $word[10] = $char[$len10];     if ($br <= 10) {     add(@word);     }     else {     for ($len11 = 0; $len11 <= 62; $len11++) {     $word[11] = $char[$len11];     if ($br <= 11) {     add(@word);     }     else {     for ($len12 = 0; $len12 <= 62; $len12++) {     $word[12] = $char[$len12];     if ($br <= 12) {     add(@word);     }     else {     for ($len13 = 0; $len13 <= 62; $len13++) {     $word[13] = $char[$len13];     if ($br <= 13) {     add(@word);     }     else {     for ($len14 = 0; $len14 <= 62; $len14++) {     $word[14] = $char[$len14];     if ($br <= 14) {     add(@word);     }}}}}}}}}}}}}}}}}}}}}}}}}}}}}     sub add {     @entry = @_;     $ascii = join “”, @entry;     $md5 = md5_hex $ascii;     print $md5.”\n”;     if ($md5 eq $hash){     print “\nFound Hash: “.$ascii.”\n\n”;     exit;     }     }     sub bad_use {     print “Enter a valid hash\n”;     exit;     } [/code]