简单语言打造不简单的MD5密码破解工具


		 学计算机程序的朋友最大的愿望就是能编出一款功能强大的程序，但实现起来却不容易，需要花很多时间来学习计算机语言，今天我就给大家介绍一个好用编程语言Practical Extraction and Report Language（perl），严格的说它只是个脚本语言，Perl象C一样强大，象awk、sed等脚本描述语言一样方便。如果你用的是unix环境那你一定对perl很熟悉了，今天我要谈的是在windows下用perl来打造一个自己满意的程序，如果你学过c语言的话，那你上手一定很快,因为他很c语言很相似,如果你没学过程序也没关系，因为perl的随意，会让你感觉写程序是那样的简单，是不是动心了？Let’s go. 
程序实现目的： 
1.MD5密码破解  
2.用BASE64编码解码功能实现文本加密 
编程使用语言：perl 
编程环境：Windows 2000 + ActivePerl 5.8.0 Build 806 
首先，我们要安装ActivePerl 5.8.0 下载地址：http://downloads.activestate.com/ActivePerl/Windows/5.8/ActivePerl-5.8.0.806-MSWin32-x86.msi 
下载好了以后根据提示安装，我在这里就不详细介绍了。
第一个功能的实现： 
     MD5密码破解，有人就疑问了，用这个加密的密码是不可以破解的啊，怎么破解呢？呵呵，既然不可逆那我们就顺着来啊，思路：将明文密码用MD5算法加密，然后和需要破解的MD5密码对比。正好perl中也提供了MD5的加密功能，仔细查看帮助文档我们会发现有MD2、MD4、MD5，我们今天要实现的是MD5的破解，其他的我们不管了，MD5加密也是现在最流行的，很多BBS的数据库密码都使用它来加密。  
#MD5 password crack 
#write by fengze 
#usr/bin/perl! -w 
use Digest::MD5 qw(md5_hex); #载入MD5模块 
print "Please input MD5 password:"; #输出提示到屏幕，提示用户输入一个MD5加密的密码 
$MD5=<STDIN>; #等待键盘上输入数据赋值给$MD5 
chop($MD5); #把最后一个字符删除，也就是删除输入时的回车 
$pwd=lc($MD5); #将密码转换成小写（perl中生成的MD5密码都是小写 的）  
print "Please input password dictionary:"; #输出提示到屏幕，提示输入密码字典的名字 
$file=<STDIN>; #等待键盘上输入数据赋值给$file 
chop($file); #把最后一个字符删除 
open(FILE,"$file")||die "Can’t open password dictionary"; #打开字典文件 
while(@pass=<FILE>){ #从字典文件中读取密码放到pass数组 foreach $passwd(@pass){ #循环读取pass数组中的密码 
chop($passwd); #把最后一个字符删除（这个很重要） 
$md5pass=md5_hex($passwd); #把从密码字典读取的明文密码加密成MD5密码  
if($md5pass eq $pwd){ #将生成的MD5密码和输入的MD5密码比较如果完全匹print "MD5: $md5passwd Password: $passwdn"; 配则输出MD5密码和明文密码 
} 
} 
} 
    程序结束，是不是很简单啊，别不相信，可以自己试一下啊。这个程序只能猜解一个密码，如何猜解多个密码呢？相信聪明的你已经想到了吧，我就不多说了。
第二个功能的实现： 
    用BASE64编码解码功能实现文本加密，这个功能也是直接调用perl提供给我们的模块实现的。  
#BASE64 encode and decode TXT files. 
#write by fengze 
#!usr/bin/perl 
use MIME::Base64; #载入MIME::Base64模块 
new:print "1.encoden"; #new是配合goto语句使用的 
print "2.decoden"; #输出提示 
print "Please choose: "; #选择加密(encode)或解密(decode) 
$a=<STDIN>; #获取值来做判断 
chop($a); 
if($a<1 || $a>3){goto new;} #如果值不在范围内则返回new  
if($a==1){ #加密代码区域  
print "Please Input Encode Filename:"; #提示输入要加密的文件名 
$file=<STDIN>; 
print "Please Input Great Filename:"; #提示加密后生成的文件名 
$file1=<STDIN>;  
open(H,$file) || die "Can’t open $file file"; #打开文件为了读取 
open(HI,">>$file1") || die "Can’t great file1 file";#打开文件为了写入 
binmode(H);  
binmode(HI); #将文件用二进制函数处理  
while (@str=<H>){ #循环读取文件  
foreach $string(@str){ #将文件中的字符放到$string中 
print HI encode_base64($string); #将$string中的字符加密并输出到文件 
}} 
close H;  
close HI; #关闭文件 
} 
if($a==2){ 
print "Please Input Decode Filename:"; #这里我就不做解释了，根据上面的解释相信你 
$file=<STDIN>; 应该可以读懂的 
print "Please Input Great Filename:"; 
$file1=<STDIN>; 
open (H,$file) || die "Can’t open $file"; 
open (HI,">>$file1") || die "Can’t great $file1"; 
binmode(H); 
binmode(HI); 
while(@str=<H>){ 
foreach $string(@str){ 
print HI decode_base64($string); #这里将字符解密并输出到文件 
}} 
close H;  
close HI; 
} 
    好了，自己的工具的2个功能已经实现了，将他们写入一个文件，然后编译后就可以在windows中运行了，编译后的程序有点大，但不需要系统安装perl环境。
    perl能实现的东西很多，我以前写的一篇perl网络编程的学习日记放在了自己的小站上了，有兴趣的朋友可以到http://www.safetyie.com/fengze/来查看。由于本人的水平有限，如上程序有不妥之处还望各位斧正。

补充：综合编程 , 安全编程 ,