diff --git a/src/cutkey.erl b/src/cutkey.erl index af292d7..87732bf 100644 --- a/src/cutkey.erl +++ b/src/cutkey.erl @@ -68,7 +68,12 @@ rsa(Bits, E, Opts) when is_integer(Bits), Bits > 0, E band 1 =:= 1 -> false -> erlang:error(badarg) end. -erlint(MPInts) -> [ crypto:erlint(X) || X <- MPInts ]. +erlint(MPInts) when is_list(MPInts) -> [ erlint(X) || X <- MPInts ]; + +erlint(<>) -> + Bits= MPIntSize * 8, + <> = MPIntValue, + Integer. -ifdef(TEST).