anchor.diff:                                         CipherText :: binary() .
   encrypt_public(PlainText, #'RSAPublicKey'{modulus=N,publicExponent=E}, 
   	       Options) when is_binary(PlainText), is_list(Options) ->
  -    Padding = proplists:get_value(rsa_pad, Options, rsa_pkcs1_padding),
  -    crypto:public_encrypt(rsa, PlainText, [E,N], Padding).
  +    crypto:public_encrypt(rsa, PlainText, [E,N], default_options(Options)).
   
   %%--------------------------------------------------------------------
   %%
  
positive.code: 		Options)
    when is_binary(CipherText),
         is_list(Options) ->
      Padding = proplists:get_value(rsa_pad, Options, rsa_pkcs1_padding),
      crypto:private_decrypt(rsa, CipherText, format_rsa_private_key(Key), Padding).
  
  %%--------------------------------------------------------------------
  %% Description: Public key decryption using the public key.
  
negative.code: %%--------------------------------------------------------------------
  %%% Internal functions
  %%--------------------------------------------------------------------
  default_options([]) ->
      [{rsa_padding, rsa_pkcs1_padding}];
  default_options(Opts) ->
      case proplists:get_value(rsa_pad, Opts) of
          undefined ->
              case proplists:get_value(rsa_padding, Opts) of
                  undefined ->
                      case lists:dropwhile(fun erlang:is_tuple/1, Opts) of
                          [Pad|_] ->
                              set_padding(Pad, Opts);
                          [] ->
                              set_padding(rsa_pkcs1_padding, Opts)
                      end;
                  Pad ->
                      set_padding(Pad, Opts)
              end;
          Pad ->
              set_padding(Pad, Opts)
      end.
  
  set_padding(Pad, Opts) ->
      [{rsa_padding,Pad} | [{T,V} || {T,V} <- Opts,
                                     T =/= rsa_padding,
                                     T =/= rsa_pad]
      ].
  
  
  format_sign_key(Key = #'RSAPrivateKey'{}) ->
      {rsa, format_rsa_private_key(Key)};
  format_sign_key(#'DSAPrivateKey'{p = P, q = Q, g = G, x = X}) ->
  