diff options
| author | Fredrik Gustafsson <[email protected]> | 2013-09-02 15:23:18 +0200 |
|---|---|---|
| committer | Fredrik Gustafsson <[email protected]> | 2013-09-02 15:23:18 +0200 |
| commit | e946b152f3b8c5a31b3096a733c6387d9681f0c5 (patch) | |
| tree | 12ead3590607204e21cfc431afc6d4e38b6e16a2 /lib/public_key/test/pbe_SUITE.erl | |
| parent | 698caba96be3a544e3841aa417f3ca5ab4d536f8 (diff) | |
| parent | 1a57f9d04b0e846ba6dccdb99643c4f7ab17705f (diff) | |
| download | otp-e946b152f3b8c5a31b3096a733c6387d9681f0c5.tar.gz otp-e946b152f3b8c5a31b3096a733c6387d9681f0c5.tar.bz2 otp-e946b152f3b8c5a31b3096a733c6387d9681f0c5.zip | |
Merge branch 'maint'
Diffstat (limited to 'lib/public_key/test/pbe_SUITE.erl')
| -rw-r--r-- | lib/public_key/test/pbe_SUITE.erl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lib/public_key/test/pbe_SUITE.erl b/lib/public_key/test/pbe_SUITE.erl index 2c9b17478d..b68ffbd5fd 100644 --- a/lib/public_key/test/pbe_SUITE.erl +++ b/lib/public_key/test/pbe_SUITE.erl @@ -218,6 +218,14 @@ encrypted_private_key_info(Config) when is_list(Config) -> [{'PrivateKeyInfo', _, {"RC2-CBC",_}} = PubEntry2] = PemRc2Entry, KeyInfo = public_key:pem_entry_decode(PubEntry2, "password"), + %% key generated with ssh-keygen -N hello_aes -f aes_128_cbc_enc_key + {ok, PemAesCbc} = file:read_file(filename:join(Datadir, "aes_128_cbc_enc_key")), + + PemAesCbcEntry = public_key:pem_decode(PemAesCbc), + ct:print("Pem entry: ~p" , [PemAesCbcEntry]), + [{'RSAPrivateKey', _, {"AES-128-CBC",_}} = PubAesCbcEntry] = PemAesCbcEntry, + #'RSAPrivateKey'{} = public_key:pem_entry_decode(PubAesCbcEntry, "hello_aes"), + check_key_info(KeyInfo). |