Perl加密解密问题：密码存储后无法用decode_base64还原求助

首先得指出你代码里的核心问题：crypt是单向哈希函数，不是可逆加密算法，它的输出是无法还原成原密码的——这个函数本来就是用来验证密码（比如对比输入密码的哈希和存储的哈希是否一致），而不是用来加密后再解密还原的。另外你解密时用decode_base64完全是无效操作，因为加密阶段根本没用到Base64编码，这两步完全不匹配，自然得不到正确的密码。

下面给你两种可行的实现方案，从简单到安全：

方案1：轻量级XOR+Base64（无需额外模块，适合测试/非敏感场景） #

这个方案不用安装额外模块，用Perl自带的MIME::Base64和简单的XOR加密，虽然安全性不高，但满足你“加密存储、解密还原”的基本需求。

加密代码 #

use MIME::Base64;
use Term::ReadKey;

# 自定义密钥（请自行修改，保持加密解密一致）
my $secret_key = "my_secure_key_123";

my $msg = "Enter password for ".$ENV{'USERNAME'}." : ";
print $msg;
# 隐藏输入的密码
ReadMode('noecho');
chomp(my $password = ReadLine());
ReadMode('normal');
print "\n"; # 输入完成后换行

# XOR加密逻辑
my $encrypted = join '', 
    map { 
        chr(ord(substr($password, $_, 1)) ^ ord(substr($secret_key, $_ % length($secret_key), 1))) 
    } 0..length($password)-1;

# 转成Base64格式方便存储（避免不可打印字符）
$encrypted = encode_base64($encrypted);

my $pwdFile = 'c:/Localdata/nexus_upload_'.$ENV{'USERNAME'}.'.pwd';
if (open(my $fh, '>', $pwdFile)) {
    print $fh $encrypted;
    close($fh);
    print "Password saved to file successfully.\n";
} else {
    die "Failed to open password file: $!";
}

解密代码 #

use MIME::Base64;

# 和加密时完全相同的密钥
my $secret_key = "my_secure_key_123";

my $password = '';
my $pwdFile = 'c:/Localdata/nexus_upload_'.$ENV{'USERNAME'}.'.pwd';

if ($password eq '' && -e $pwdFile) {
    if (open(my $fh, '<', $pwdFile)) {
        chomp(my $encrypted = <$fh>);
        close($fh);
        
        # 先解码Base64
        $encrypted = decode_base64($encrypted);
        
        # XOR解密还原密码
        $password = join '', 
            map { 
                chr(ord(substr($encrypted, $_, 1)) ^ ord(substr($secret_key, $_ % length($secret_key), 1))) 
            } 0..length($encrypted)-1;
        
        print "Password loaded from file.\n";
    } else {
        die "Failed to read password file: $!";
    }
}

# 现在$password就是还原后的原始密码了

方案2：安全的对称加密（推荐生产环境使用） #

如果你的密码涉及敏感操作，推荐用Crypt::CBC模块，它支持标准的对称加密算法（比如AES、Blowfish），安全性更高。

第一步：安装模块 #

先通过CPAN安装所需模块：

cpanm Crypt::CBC

加密代码 #

use Crypt::CBC;
use Term::ReadKey;

# 主密钥（建议不要硬编码，可存在环境变量或安全配置文件中）
my $master_key = "your_strong_master_key_here";

my $msg = "Enter password for ".$ENV{'USERNAME'}." : ";
print $msg;
ReadMode('noecho');
chomp(my $password = ReadLine());
ReadMode('normal');
print "\n";

# 初始化加密器（使用Blowfish算法，带PBKDF2密钥派生）
my $cipher = Crypt::CBC->new(
    -key    => $master_key,
    -cipher => 'Blowfish',
    -pbkdf2 => 1, # 增强密钥安全性
);

# 加密成十六进制字符串（易存储，无不可打印字符）
my $encrypted = $cipher->encrypt_hex($password);

my $pwdFile = 'c:/Localdata/nexus_upload_'.$ENV{'USERNAME'}.'.pwd';
if (open(my $fh, '>', $pwdFile)) {
    print $fh $encrypted;
    close($fh);
    print "Password encrypted and saved.\n";
} else {
    die "Could not write to password file: $!";
}

解密代码 #

use Crypt::CBC;

# 和加密时完全相同的主密钥
my $master_key = "your_strong_master_key_here";

my $password = '';
my $pwdFile = 'c:/Localdata/nexus_upload_'.$ENV{'USERNAME'}.'.pwd';

if ($password eq '' && -e $pwdFile) {
    if (open(my $fh, '<', $pwdFile)) {
        chomp(my $encrypted = <$fh>);
        close($fh);
        
        # 初始化解密器（参数要和加密时一致）
        my $cipher = Crypt::CBC->new(
            -key    => $master_key,
            -cipher => 'Blowfish',
            -pbkdf2 => 1,
        );
        
        # 解密还原密码（捕获可能的解密错误）
        eval {
            $password = $cipher->decrypt_hex($encrypted);
        };
        if ($@) {
            die "Failed to decrypt password: $@";
        }
        
        print "Password decrypted successfully.\n";
    } else {
        die "Could not read password file: $!";
    }
}

# 使用还原后的密码进行后续操作

原代码的错误总结 #

1. crypt函数误用：它是单向哈希，只能验证密码，不能还原。如果你只是需要验证密码而不是还原，正确的用法是：输入新密码后，用crypt($new_pwd, $stored_hash)和存储的哈希对比，如果相等则密码正确。
2. Base64解码无意义：加密阶段没有对密码做Base64编码，解密时调用decode_base64只会把crypt的哈希值乱解码，得到错误内容。

内容的提问来源于stack exchange，提问作者bas