perl - Crypt::RC4 を使用したパスワードの暗号化に関する問題

Question

パスワードの暗号化に Crypt::RC4 を使用しています。ただし、「0」または「#」を含むパスワードを暗号化することはできません。ゼロの場合、プログラムは終了しますが、 # の場合は暗号化できません。

私は Perl を初めて使用します。自動化スクリプトにこれが必要です。Windows 64 ビットでスクリプトを実行しています。

Answer 1

脚本：

use strict;
use warnings;
use Crypt::RC4;

my $passphrase = 'abcde#01234';
my $plaintext = 'text with #0';

my $encrypted = RC4($passphrase, $plaintext);
print "Encrypted: ", $encrypted, "\n";
print "Encrypted: ", unpack('H*', $encrypted), " (hex)\n\n";

my $decrypted = RC4($passphrase, $encrypted);
print "Decrypted: $decrypted\n";

出力：

Encrypted: C0Þ%;1$Kíùt¬
Encrypted: 4330de253b31244bedf974ac (hex)

Decrypted: text with #0