[erlang-questions] Question about Patch: Add MD5 and SHA1 sign/verify functions
Daniel Kwiecinski
daniel.kwiecinski@REDACTED
Tue Feb 5 11:40:09 CET 2008
I've applied the path from
http://article.gmane.org/gmane.comp.lang.erlang.patches/151 and
I did the following. Any help explaining cause of the error will be
very appreciated. Do I correct use MPints?
************* CODE *************************************************************
encode(String) when is_list(String) ->
{ok,{'RSAPrivateKey', 'two-prime', N , E, _, _, _, _, _, _, _}} =
ssl_pkix:decode_rsa_keyfile("keys/private.pem", ""),
io:format("N: ~p, E: ~p~n", [N, E]),
LicEncoded = base64:encode(String),
DataSize = size(StringEncoded),
Data = list_to_binary([<<DataSize:32/integer>>, StringEncoded]),
Key = [crypto:mpint(N), crypto:mpint(E)],
Signed = crypto:rsa_sha_sign(Data, Key).
************* OUTPUT
************************************************************
1> N: 138445250593310927542773857214440421480303788023222788575718585027863611115049364971357691872676298545743250295800358402756549552994822827897856839673996350473620588754354369610803297438509920062322876055789528692164182842422276496510610413689066855989959284865235115518531216882699698497082235347230922628187,
E: 65537
ERROR erlang code crashed:
Reason: {badarg,[{erlang,port_control,
[#Port<0.726>,37,
[<<0,0,0,12,89,87,74,106,101,72,108,54,77,84,73,122>>,
[<<0,0,0,129,0,197,39,15,141,167,6,5,108,161,36,156,
232,98,38,254,39,218,195,218,129,86,197,124,175,
154,216,158,194,246,96,166,139,158,183,81,58,162,
18,64,198,190,247,160,66,39,71,212,124,232,153,
25,254,239,65,183,202,58,151,88,229,174,59,162,4,
230,41,233,100,28,179,130,16,216,89,163,179,59,
223,210,251,174,78,108,157,165,251,234,86,60,198,
244,158,230,64,250,137,86,85,7,55,61,26,94,207,
27,171,40,181,95,236,192,7,33,219,39,233,110,211,
132,47,236,69,170,167,6,171,220,91>>,
<<0,0,0,3,1,0,1>>]]]},
{crypto,control,2},
{crypto,rsa_sha_sign,2},
--
Kind Regards,
Daniel Kwiecinski
More information about the erlang-questions
mailing list