- 6D2A795035290C00E290240A4D93260ACDC2D7253CE4742BEE41515920FDFB6EE78C4154753EF5F0FFF15DED3D28FC69CA0AA90EF417FAC0E914F3E4D4EB4A10+ 86BFFB60703B5608BB628BE9AF7EBE09B9FD6F185D831ECA7384438934ED06647CAD2613976533547471345B53267E3DDE80CCB96A2BC8353B99CB1F91AE662Bsmg_comms/tests/test_rsa_oaep.adb(96 . 7)(96 . 9)
444 end test_oaep;
445
446 -- test JUST RSA (i.e. without oaep) with RSA key pair previously generated
447 procedure test_rsa is
448 procedure test_rsa( E_Len : in Positive;
449 D_Len : in Positive;
450 Filename : in String) is
451 Plain: OAEP_Block := (others => 0);
452 Decr : OAEP_Block := (others => 0);
453 Encr : RSA_len;
(104 . 7)(106 . 7)
455 skey: RSA_skey;
456 begin
457 -- initialize with RSA pair previously generated
458 IO_RSA.ReadRSAKey( "keys_rsa.txt", skey );
459 IO_RSA.ReadRSAKey( Filename, E_Len, D_Len, skey );
460
461 -- copy n and e for public key
462 pkey.n := skey.n;
(114 . 11)(116 . 12)
464 -- make first octet < RSA key's modulus first octet
465 Plain(Plain'First) := 16#00#;
466 -- naked rsa encrypt/decrypt
467 Put_Line("Encrypting with RSA public key...");
468 Put_Line("Encrypting with RSA public key with e len " &
469 Positive'Image(E_Len) & "...");
470 Public_RSA( Plain, pkey, Encr );
471 Put_Line("Decrypting with RSA private key...");
472 Put_Line("Decrypting with RSA private key...");
473 Private_RSA( Encr, skey, Decr );
474 Put_Line("Checking...");
475 Put_Line("Checking...");
476
477 -- check result
478 if Decr /= Plain then
(140 . 7)(143 . 8)
480 Len : Natural;
481 begin
482 -- initialize with RSA pair previously generated
483 IO_RSA.ReadRSAKey( "keys_rsa.txt", skey );
484 IO_RSA.ReadRSAKey( "keys_rsa.txt", Raw_Types.RSA_KEY_OCTETS,
485 Raw_Types.RSA_KEY_OCTETS*2, skey );
486 -- copy n and e for public key
487 pkey.n := skey.n;
488 pkey.e := skey.e;