可以在生产环境中使用的Perl crypt（）的替代方法

Question

Perl的crypt（）函数是一种非常快速且易于使用的加密例程。不幸的是，它具有局限性，其中要加密的字符串的长度不能超过8个字符。当您将它用于一些严重的问题时（此功能的Perl参考/文档为here）

我正在寻找crypt（）的替代品，您实际上可以将其用于严肃的事情，但仍然像标准crypt（）函数一样非常易于使用。

它还必须是一个对不能解密的字符串进行加密的函数。如果使用起来非常简单，我可以经常将其合并到我的代码的许多部分中，而无需编写许多麻烦的代码行。

Answer 1

有几种单向加密工具可以提供与crypt相同的功能，并且许多工具易于使用。盐和密码可以是任意长度。

use Digest::SHA 'sha1_base64';
$crypted = sha1_base64($salt . $password);

use Digest::MD5 'md5_base64';
$crypted = md5_base64($salt . $password);

有关其他许多建议，请参见Digest。