perl版MD5破解工具

2009-8-3 10:48 486 0

摘要: 　　###################################　　#cracker md5 （perl）　　###################################　　#!/...

关键词： nbsp print md hash LWP UserAgent security cracker found HTTP

　　###################################　　#cracker md5 （perl）　　###################################　　#!/usr/bin/perl　　print "\n\t*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*\n";　　print "\t* Md5 Cracker *\n";　　print "\t* www.dz-security.net *\n";　　print "\t* dzh4cker[at]gmail[dot]com *\n";　　print "\t- Coded By sub-zero -\n";　　print "\t* Ex:md5.pl md5_hash *\n";　　print "\t*-*-*-*-*-*-*-*-**-*-*-*-*-*-*-*-**-*-*\n";　　use LWP::UserAgent;　　use HTTP::Request::Common;　　my $md5 = shift;　　if （！$md5 | （length（$md5） != 32）） {　　die "not found or this is not md5\n";　　}　　else {　　$lwp = LWP::UserAgent->new;　　$lwa = $lwp->get（'http://md5.rednoize.com/?p&s=md5&q='.$md5）；　　$hash = $lwa->content;　　if （$hash or die "Not Found.\n"） {　　print "cracked: $hash\n";　　}　　}　　# dz-security [ 25-01-2009 ]

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除