(74 . 7)(74 . 8)
431 Pkt : RSA_Pkt;
432 begin
433 -- initialize with RSA pair previously generated
434 IO_RSA.ReadRSAKey( "keys_rsa.txt", SKey );
435 IO_RSA.ReadRSAKey( "keys_rsa.txt", Raw_Types.RSA_KEY_OCTETS,
436 Raw_Types.RSA_KEY_OCTETS*2, SKey );
437
438 -- copy n and e for public key
439 PKey.n := SKey.n;