Crypt::RC4 試してみた

perl crypt

可逆暗号を使う必要があって色々調べてみた。Blowfish やら RC4 やらいっぱいあるけど、とりあえず、RC4 を試してみた。以下ソースコードです。

#!/usr/bin/perl
use strict;
use warnings;
use feature qw/say/;
use Crypt::RC4;

my $key = 'amari3';
my $plaintext  = 'hatenadiary';

my $rc4e = Crypt::RC4->new($key);
my $rc4d = Crypt::RC4->new($key);

my $encrypted = unpack('H*', $rc4e->RC4($plaintext));
my $decrypted = $rc4d->RC4(pack('H*', $encrypted));

say "encrypted: $encrypted";
say "decrypted: $decrypted";


実行結果はこれ

encrypted: 58b5b02a88ff42f5b2d4db
decrypted: hatenadiary


調べてる内に楽しくなってきたので、他の暗号化も勉強しようと思う。