Početak›Forumi›Linuks›Programiranje›bash script pomoc??
- This topic has 1 odgovor, 2 glasa, and was last updated 16 years, 1 month ranije by dukenukem_4d.
-
AutorČlanci
-
4. februar 2008. u 4:21 pm #9785undergroundUčesnik
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/perluse 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]
4. februar 2008. u 11:08 pm #67142dukenukem_4dUčesnikhttp://bokehman.com/cracker/
http://www.gsmarena.com/motorola_a1200-1429.php
nemas dovoljnu snagu na 312 Mhz za to sto hocesvaljda 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) 😡 -
AutorČlanci
Moraš biti prijavljen da bi postavio komentar u ovoj temi.