anchor.diff:  					coefficient = C})
     when is_integer(P1), is_integer(P2), 
          is_integer(E1), is_integer(E2), is_integer(C) ->
  +   [K || K <- [E, N, D, P1, P2, E1, E2, C]];
  +
  +format_rsa_private_key(#'RSAPrivateKey'{modulus = N, publicExponent = E,
  +					privateExponent = D}) ->
  +   [K || K <- [E, N, D]].
  +
  +old_format_rsa_private_key(#'RSAPrivateKey'{modulus = N, publicExponent = E,
  +					privateExponent = D,
  +					prime1 = P1, prime2 = P2,
  +					exponent1 = E1, exponent2 = E2,
  +					coefficient = C})
  +  when is_integer(P1), is_integer(P2),
  +       is_integer(E1), is_integer(E2), is_integer(C) ->
      [crypto:mpint(K) || K <- [E, N, D, P1, P2, E1, E2, C]];
   
  -format_rsa_private_key(#'RSAPrivateKey'{modulus = N, publicExponent = E,
  +old_format_rsa_private_key(#'RSAPrivateKey'{modulus = N, publicExponent = E,
   					privateExponent = D}) ->
      [crypto:mpint(K) || K <- [E, N, D]].
   
  
positive.code:     verify(PlainText, DigestType, Signature, ec_public_key_to_eckey(Key));
  
  verify(PlainText, DigestType, Signature, {'ECKey', Key}) ->
      crypto:ecdsa_verify(DigestType,
  			sized_binary(PlainText),
  			sized_binary(Signature),
  			Key);
  
  %% Backwards compatibility
  verify(Digest, none, Signature, {_,  #'Dss-Parms'{}} = Key ) ->
      verify({digest,Digest}, sha, Signature, Key);
  
  verify(PlainText, sha, Signature, {Key,  #'Dss-Parms'{p = P, q = Q, g = G}}) 
    when is_integer(Key), is_binary(PlainText), is_binary(Signature) ->
      crypto:dss_verify(sized_binary(PlainText), 
  		      sized_binary(Signature), 
  		      [crypto:mpint(P), crypto:mpint(Q), 
  		       crypto:mpint(G), crypto:mpint(Key)]).
  %%--------------------------------------------------------------------
  -spec pkix_sign(#'OTPTBSCertificate'{},
  		rsa_private_key() | dsa_private_key()) -> Der::binary().
  
negative.code:        is_integer(N), is_integer(E), is_integer(D),
         is_list(Options) ->		
      Padding = proplists:get_value(rsa_pad, Options, rsa_pkcs1_padding),
      crypto:rsa_private_encrypt(PlainText, old_format_rsa_private_key(Key), Padding).
  
  
  format_rsa_private_key(#'RSAPrivateKey'{modulus = N, publicExponent = E,
  