请各位帮忙执行一个简单的代码，非常感谢

[2002pine]

我不会perl,我要做一个加密的程序。
请哪位高手帮我下，告诉我digest最后的值是多少

$challenge'＝'27c81c82d52252c2fd0567e859df3c31';
$key='xyzxyz';

$ascii_key = pack "H*", $portal_secret;
$login_params='res=success'+'&challenge=$challenge'
my $digest = `echo -n "$login_params" | openssl dgst -sha1 -hmac "$ascii_key"`;
$digest =~ s/[\n\r\s]+$//;
$digest= substr($digest,-40,40);

[2002pine]

非常感谢，我试试，等会结贴

[2002pine]

这里可能有一个错误，不是$key='xyzxyz';而是 $portal_secret='xyzxyz' 谢谢，请再执行一次。

[bugs2k]

b4ee506a96a31c0b3a2f0e1a486e7472054979da

[bugs2k]

#!/usr/bin/perl

$challenge ='27c81c82d52252c2fd0567e859df3c31';
$key = 'xyzxyz';

$ascii_key = pack "H*", $portal_secret;
$login_params='res=success'+'&challenge=$challenge';
my $digest = `echo -n "$login_params" | openssl dgst -sha1 -hmac "$ascii_key"`;
$digest =~ s/[\n\r\s]+$//;
$digest= substr($digest,-40,40); 

print $digest;

aae545fa81de97aa9b6fdfc4523e1a038c86c5bc