ucloud api 簽名加密perl版

標籤：

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;}

 

ucloud api 簽名加密perl版