diff options
author | Sverker Eriksson <[email protected]> | 2011-09-28 11:59:22 +0200 |
---|---|---|
committer | Sverker Eriksson <[email protected]> | 2011-09-28 11:59:22 +0200 |
commit | 0843769ab9c3263b368b49b95a8b97478a82dbea (patch) | |
tree | 817ec4dd451b4ce9c8aeb50a1280ba2ef3d187b9 /lib/public_key/src/public_key.erl | |
parent | df20d15f2229fa5da1c9b7ab8b41b2d706d586f8 (diff) | |
parent | 2fa5d1e5146513f933c584c9bd444b7f03793820 (diff) | |
download | otp-0843769ab9c3263b368b49b95a8b97478a82dbea.tar.gz otp-0843769ab9c3263b368b49b95a8b97478a82dbea.tar.bz2 otp-0843769ab9c3263b368b49b95a8b97478a82dbea.zip |
Merge branch 'dev' into major
Diffstat (limited to 'lib/public_key/src/public_key.erl')
-rw-r--r-- | lib/public_key/src/public_key.erl | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/lib/public_key/src/public_key.erl b/lib/public_key/src/public_key.erl index 940efffcd0..33fcce2c44 100644 --- a/lib/public_key/src/public_key.erl +++ b/lib/public_key/src/public_key.erl @@ -55,7 +55,7 @@ -type rsa_padding() :: 'rsa_pkcs1_padding' | 'rsa_pkcs1_oaep_padding' | 'rsa_no_padding'. -type public_crypt_options() :: [{rsa_pad, rsa_padding()}]. --type rsa_digest_type() :: 'md2' | 'md5' | 'sha'. +-type rsa_digest_type() :: 'md5' | 'sha'. -type dss_digest_type() :: 'none' | 'sha'. -define(UINT32(X), X:32/unsigned-big-integer). @@ -307,8 +307,7 @@ encrypt_private(PlainText, #'RSAPrivateKey'{modulus = N, sign(PlainText, DigestType, #'RSAPrivateKey'{modulus = N, publicExponent = E, privateExponent = D}) when is_binary(PlainText), - (DigestType == md2 orelse - DigestType == md5 orelse + (DigestType == md5 orelse DigestType == sha) -> crypto:rsa_sign(DigestType, sized_binary(PlainText), [crypto:mpint(E), @@ -336,10 +335,7 @@ sign(PlainText, sha, #'DSAPrivateKey'{p = P, q = Q, g = G, x = X}) %%-------------------------------------------------------------------- verify(PlainText, DigestType, Signature, #'RSAPublicKey'{modulus = Mod, publicExponent = Exp}) - when is_binary(PlainText), - (DigestType == md2 orelse - DigestType == md5 orelse - DigestType == sha) -> + when is_binary (PlainText), DigestType == sha; DigestType == md5 -> crypto:rsa_verify(DigestType, sized_binary(PlainText), sized_binary(Signature), |