注册
登录
| 关键词： nbsp 密码 加密 file 文件 print 程序 MD5 perl 提示 |
学计算机程序的朋友最大的愿望就是能编出一款功能强大的程序，但实现起来却不容易，需要花很多时间来学习计算机语言，今天我就给大家介绍一个好用编程语言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环境。 由于本人的水平有限，如上程序有不妥之处还望各位斧正。 |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
