举个栗子

马辰龙De技术分享
posts - 22, comments - 0, trackbacks - 0, articles - 0
  博客园 :: 首页 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理

公告

ucloud api 签名加密perl版

Posted on 2016-07-09 14:30 ChenlongMa 阅读(...) 评论(...) 编辑 收藏

ucloud api文档中对签名加密的方法实在看不明白,而且没有perl版本,特意写了一份供大家参考

use URI::Escape;
use utf8;
use Encode;
use AnyEvent::HTTP::LWP::UserAgent;
use Digest::SHA qw(sha1 sha1_hex sha1_base64);
sub ucloudApiConn {
 
    my ( $publicKey, $privateKey, $baseUrl, $paramData ) = @_;
 
    
#定义签名拼接字符串、http字符串
    my ( $signatureStr, $params );
    my $ua = LWP::UserAgent->new;
    for my $key ( sort keys %$paramData ) {
        $signatureStr .= $key;
        $signatureStr .= $paramData->{$key};
 
        
#将HTTP字符串转化uri方式
        push @{$params}, "$key=" . uri_escape_utf8( $paramData->{$key} );
    }
 
    
#拼接私钥
    $signatureStr .= $privateKey;
 
    
#使用sha1算法加密
    my $signatureKey = sha1_hex($signatureStr);
 
    
#拼接传递的url参数
    my $paramUrl = join "&", @$params;
    $paramUrl = $paramUrl . "&" . "Signature=$signatureKey";
    my $url = "$baseUrl/?" . $paramUrl;
    print $url, "\n";
    return $url;
}