1

您好，我正在编写 oauth 2 库来访问 google api，我的代码如下

    jwt_create() ->

    {ok,PemBin} = file:read_file("your-key-file.pem"),
    PemEntry = public_key:pem_decode(PemBin),
    [A,B] = PemEntry,
    io:format("A:: ~p ~n",[A]),
    PrivateKey = public_key:pem_entry_decode(PemEntry),
    JwtHeaderJson = encode_json(jwt_header()),
    JwtClaimsetJson = encode_json(jwt_claimset()),
    ComputeSignature = compute_signature(JwtHeaderJson, JwtClaimsetJson, PrivateKey),
    Z=binary:replace(
      binary:replace(<<JwtHeaderJson/binary, ".", JwtClaimsetJson/binary, ".", ComputeSignature/binary>>,
                     <<"+">>, <<"-">>, [global]),
      <<"/">>, <<"_">>, [global]),
    io:format("JWT:: ~p ~n",[Z]).
compute_signature(Header, ClaimSet,#'RSAPrivateKey'{publicExponent=Exponent

                                                          ,modulus=Modulus

                                                          ,privateExponent=PrivateExponent}) ->
    base64:encode(crypto:sign(rsa, sha256, <<Header/binary, ".", ClaimSet/binary>>, 
            [Exponent, Modulus, PrivateExponent])).
encode_json(JWToken) ->
    base64:encode(jsx:encode(JWToken)).

我收到如下错误：

异常错误：没有函数子句匹配 public_key:pem_entry_decode([{'PrivateKeyInfo',<<48,130,4,191,2,1,0,48,13,6,9,42,134, 72,134,247,13,1,1,1,5 ,0,4,130,4,...>>, not_encrypted}, {'证书',<<48,130,3,96,48,130,2,72,160,3,2,1,2,2,8, 79,59,244 ,35,60,15,3,155,48,...>>, not_encrypted}]) (public_key.erl, line 123) in function googleoauth:jwt_create/0 (src/googleoauth.erl, line 55)

请帮助我为 OAUTH 2 生成 JWS 和 JWT 以访问 google api

4

1 回答 1

1

您将错误的东西传递给 public_key:pem_entry_decode/1：

这将解决您的问题：

PrivateKey = public_key:pem_entry_decode(A),

public_key:pem_entry_decode/1 需要一个 pem_entry() 但 PEM 文件可以包含许多条目，也许您的代码PemEntry = public_key:pem_decode(PemBin)应该改为读取PemEntries = public_key:pem_decode(PemBin)？

另请注意，假设 2 个列表条目之前的行，您可能是指这个（虽然不确定您的意图）？

[A|B] = PemEntry,
于 2015-11-06T12:13:31.390 回答