如何在Perl脚本中加密或隐藏密码？

cpan install Crypt::CBC

#!/usr/bin/perl

use strict;
use warnings;
use Crypt::CBC;

# 密钥和向量
my $key = 'MySecretKey';
my $iv = 'MySecretIV';

# 要加密的密码
my $password = 'MySecretPassword';

# 创建Crypt::CBC对象
my $cipher = Crypt::CBC->new(
    -key    => $key,
    -cipher => 'Blowfish',
    -iv     => $iv,
    -header => 'none'
);

# 加密密码
my $encrypted_password = $cipher->encrypt($password);

# 解密密码
my $decrypted_password = $cipher->decrypt($encrypted_password);

# 输出加密和解密后的密码
print "Encrypted password: $encrypted_password\n";
print "Decrypted password: $decrypted_password\n";