11/01/08 21:21:51 発信元:219.117.239.35 0
use Digest::HMAC_SHA1; # CGIの行頭付近に描く。（行頭はshebangだからその次くらい
# オブジェクト作成
my $OBJ_handle = Digest::HMAC_SHA1->new($ENV{HOSTNAME}); # なんてどうかしら？→$ENV{HOSTNAME}をキーに
$OBJ_handle->add($handle_pass); # 放り込む
$Crypt_Cap = $OBJ_handle->digest; # バイナリ出力なので名前の類には不向き
$Crypt_Cap = $OBJ_handle->hexdigest; # 16進数出力なんだけれども長すぎる。
$Crypt_Cap = $OBJ_handle->b64digest; # base64なので文字列のみで構成されている
ってところかしら？
>>266
cobra2245ですと、
Digest 1.15 1.16 G/GA/GAAS/Digest-1.16.tar.gz
Digest::HMAC 1.01 1.02 G/GA/GAAS/Digest-HMAC-1.02.tar.gz
Digest::MD5 2.36 2.51 G/GA/GAAS/Digest-MD5-2.51.tar.gz
Digest::SHA1 2.11 2.13 G/GA/GAAS/Digest-SHA1-2.13.tar.gz
%perl -v
This is perl, v5.8.8 built for i386-freebsd-64int
ですけれども。。。