bash script pomoc??

[underground]

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]

[dukenukem_4d]

http://bokehman.com/cracker/
http://www.gsmarena.com/motorola_a1200-1429.php
nemas dovoljnu snagu na 312 Mhz za to sto hoces

valjda ne moze dva ista fajla da imaju isti md5.

(ako neko oce da pomaze oko programiranja ima neresene skripte za onaj actiontec
sa kojima se mucimo)  😡

[Аутор]

Чланци