-- S.MG, 2018

with Raw_Types;
with RSA_OAEP;

package Test_RSA_OAEP is
  procedure test_char_array;
  procedure test_oaep;        -- test oaep only
  procedure test_rsa;         -- test rsa only
  procedure test_rsa_oaep;    -- test rsa+oaep

  procedure Hex2Octets( Hex: in String; O: out Raw_Types.Octets );
  procedure PrintOctets( O: in Raw_Types.Octets; Title: in String );
  -- reads a full private key from specified file, in Hex format
  -- one component per line, in order: n, e, d, p, q, u
  -- NB: length of each component has to match *precisely* the expected length
  -- specifically, using Raw_Types: 
  --   n, d are RSA_len'Length*2; 
  --   e, p, q, u are RSA_half'Length*2
  procedure ReadRSAKey( Filename: in String; Key: out RSA_OAEP.RSA_skey );
end Test_RSA_OAEP;