perl Blowfish模块

最新推荐文章于 2021-05-19 18:49:43 发布

bz201

最新推荐文章于 2021-05-19 18:49:43 发布

阅读量1.7k

点赞数

文章标签： perl 加密 string search 解密破解

本文链接：https://blog.csdn.net/bz201/article/details/483457

版权

Blowfish是一个强壮的可变长度由8个字节到56个字节(448位钥匙)的加密技术。
只有在双方持有相同的钥匙情况下才有可能解密数据。
他照比DES算发具有更高的安全性(目前无法破解)。
而且他的加密速度是最快的！
这里不讲他如何做的算法。我们只讲Crypt::Blowfish如何使用。

安装：
win32系统：
输入ppm命令，然后输入install Crypt::Blowfish回车等待安装结束，或search blowfish查看列表。

Linux下请到www.cpan.org下载模块，编译安装需要gcc

此模块是使用的最小8字节长度，最大56字节长度，在编写钥匙的时候如果不符合这个范围那么就将出现错误。
在加密的时候，需要将所加密的字符穿分割成为多个8字节长度的字符串，如果不够8字节可以填充空格等特殊字符。

以下是举例：

代码:

#!/usr/bin/perl
use Crypt::blowfish; #加载模块

#需要加密的资料
$data = qq~欢迎光临www.ilcatperl.org这里是Perl的天堂
欢迎喜欢Perl
如果你觉得Perl不行，那就是你水平太臭,回家看孩子玩吧~;

#构造对象
my $fish = new Crypt::Blowfish 'this is my key'; # 8 bytes < Key > 56 bytes

#编码
@data = &block($data); #将数据以8个字节块化，如果最后不够补充空格

foreach (@data) {
$encode .= $fish->encrypt($_);
}

#解码
@data = &block($encode); #将数据以8个字节块化，如果最后不够补充空格

foreach (@data) {
$decode .= $fish->decrypt($_);
}

#块化子程序
sub block
{
my ($string) = @_;
my (@blocks,$last_length,$nu,$ad);
my @blocks = unpack("a8 "x(int(length($data)/) . "a*", $string);

$last_length = length($blocks[$#blocks]);

if (($nu = 8 - $last_length) > 0) {
   for (my $i=1;$i<=$nu ;$i++) {
      $ad .= ' ';
   }
}
$blocks[$#blocks]= $blocks[$#blocks].$ad;

return(@blocks);
}

#以上代码encode是编码后decode是解码后