(7 . 16)(7 . 20)

package body IO_RSA is

  procedure ReadRSAKey( Filename: in String; Key: out RSA_OAEP.RSA_skey ) is
  procedure ReadRSAKey( Filename    : in String; 
                        E_Len_Chars : in Positive;
                        D_Len_Chars : in Positive;
                        Key         : out RSA_OAEP.RSA_skey ) is
    package Char_IO is new Ada.Sequential_IO(Character);
    use Char_IO;
    Full : String(1..RSA_len'Length*2) := (others => '0');
    Half : String(1..RSA_half'Length*2) := (others => '0');
    e    : String(1..E_Len_Chars) := (others => '0');
    d    : String(1..D_Len_Chars) := (others => '0');
    F    : Char_IO.File_Type;
    C    : Character;
  begin
    Open( File => F, Mode => In_File, Name => Filename );

    -- read n
    for I in Full'Range loop
      Read(F, Full(I));
(24 . 23)(28 . 33)
    -- read new line character and convert to hex
    Read(F, C);
    Hex2Octets(Full, Key.n);

    -- read e
    for I in Half'Range loop
      Read(F, Half(I));
    for I in e'Range loop
      Read(F, e(I));
    end loop;
    -- read new line character and convert to hex
    -- read new line character and convert to hex, pad with 0 if needed
    Read(F, C);
    -- move it to Half, possibly at the end if e'len < half'len (0-led)
    if e'Length > Half'Length then
      raise Incorrect_E_Len;
    else
      Half(Half'Last-e'Length+1 .. Half'Last) := e;
    end if;
    Hex2Octets(Half, Key.e);

    -- read d
    for I in Full'Range loop
      Read(F, Full(I));
    for I in d'Range loop
      Read(F, d(I));
    end loop;

    -- read new line character and convert to hex
    Read(F, C);
    if d'Length > Full'Length then
      raise Incorrect_D_Len;
    else
      Full := ( others => '0' );
      Full(Full'Last-d'Length+1 .. Full'Last) := d;
    end if;
    Hex2Octets(Full, Key.d);

    -- read p
    for I in Half'Range loop
      Read(F, Half(I));
(48 . 7)(62 . 6)
    -- read new line character and convert to hex
    Read(F, C);
    Hex2Octets(Half, Key.p);

    -- read q
    for I in Half'Range loop
      Read(F, Half(I));
(56 . 16)(69 . 13)
    -- read new line character and convert to hex
    Read(F, C);
    Hex2Octets(Half, Key.q);

    -- read u
    for I in Half'Range loop
      Read(F, Half(I));
    end loop;
    Hex2Octets(Half, Key.u);

    -- Close file
    Close( F );

    exception 
      when Char_IO.End_Error =>
        Put_Line("ReadRSAKey ERROR: Unexpected end of file in " & Filename);
(80 . 7)(90 . 7)
    H : String(1..Hex'Length+Hex'Length mod 2) := (others=>'0');
  begin
    -- first char is 0 if needed to cover full octet...
    H(H'Length-Hex'Length+1..H'Length) := Hex;
    H(H'Last-Hex'Length+1..H'Last) := Hex;
    O := (others => 0);
    for I in 0 .. H'Length/2-1 loop
      S := "16#" & H(H'First + I*2 .. H'First + I*2 + 1) & "#";