csv用来生成密码的小程序

时间：2008-03-21 来源：starB6

#!/usr/bin/perl
srand (time());
my $randletter = "(int (rand (26)) + (int (rand (1) + .5) % 2 ? 65 : 97))";
my $salt = sprintf ("%c%c", eval $randletter, eval $randletter);
my $plaintext = shift;
my $crypttext = crypt ($plaintext, $salt);
print "${crypttext}\n"; tips:
srand : Sets the random number seed for the rand operator. The point of the function is to "seed" the rand function so that rand can produce a different sequence each time you run your program.
$randletter : 生成随机数

$salt : 得到salt ,供加密用。
$plaintext: 如果外面有参数输入，则对它进行加密
crypt：加密算法
---crypt()简介---key 和 salt 在Unix/Linux下存在多种散列算法。可以通过库函数crypt()调用这些系统支持的算法。crypt()有key和salt两个参数，并返回相应的散列值。salt亦即我们常说的“盐”，它只是简单的字符串，它的长度取决于所使用的算法，不同的散列算法它有不同的取值范围。所以，即使是相同的算法，相同的原始口令，使用不同的salt，也会得到不同的加密口令。salt的目的也就是为了加大口令破解的难度，当我们使用passwd命令来修改密码时，它会随机选择一个salt. s a l t使得使用预编译字典对加密口令进行攻击变得更困难。代替为字典中每个单词做一次单独加密，攻击者现在不得不对字典中每个单词的4 0 9 6种排列进行加密和储存。在2 0年前，s a l t是作为本质上的资源障碍引入的，但现在1 2位s a l t不再被认为是一种有效的防御方法。
crypt()可以在C程序中直接调用，甚至可以用perl直接调用，(详细信息请man 3 crypt),如下例：
%perl -e 'print crypt("mypass","s1"),"\n"'
s1tROevFyi.yQ
%perl -e 'print crypt("mypass","s2"),"\n"'
s2JQ85JElCMeU
以上两例中s1、s2分别为salt 值，可以看到，相同的口令（上例中为mypass）使用不同的salt将得到不同的散列值。以上两例使用的都是DES算法，加密后的散列值将salt值作为其前缀。