110,477
社区成员
发帖
与我相关
我的任务
分享
#!/usr/bin/perl -w
my $challenge='27c81c82d52252c2fd0567e859df3c31';
my $portal_secret='xyzxyz';
my $ascii_key=pack "H*", $portal_secret;
my $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 "\$challenge=".$challenge."\n";
print "\$portal_secret=".$portal_secret."\n";
print "\$login_params=".$login_params."\n";
print "\$digest=".$digest."\n";
<?php
$challenge='27c81c82d52252c2fd0567e859df3c31';
$portal_secret='xyzxyz';
$ascii_key = pack("H*", $portal_secret);
$login_params='res=success'+'&challenge=$challenge';
$digest='echo -n "$login_params" | openssl dgst -sha1 -hmac "$ascii_key"';
$digest =~ s/[\n\r\s]+$//;
$digest= substr($digest,-40,40);
phpinfo();
?>