|
|
|
@ -58,6 +58,26 @@ our @crypto_suites = (
|
|
|
|
key_length => 32,
|
|
|
|
key_length => 32,
|
|
|
|
salt_length => 14,
|
|
|
|
salt_length => 14,
|
|
|
|
},
|
|
|
|
},
|
|
|
|
|
|
|
|
{
|
|
|
|
|
|
|
|
str => 'AES_CM_192_HMAC_SHA1_32',
|
|
|
|
|
|
|
|
#dtls_name => 'SRTP_AES128_CM_SHA1_80',
|
|
|
|
|
|
|
|
auth_tag => 4,
|
|
|
|
|
|
|
|
enc_func => \&aes_cm,
|
|
|
|
|
|
|
|
iv_rtp => \&aes_cm_iv_rtp,
|
|
|
|
|
|
|
|
iv_rtcp => \&aes_cm_iv_rtcp,
|
|
|
|
|
|
|
|
key_length => 24,
|
|
|
|
|
|
|
|
salt_length => 14,
|
|
|
|
|
|
|
|
},
|
|
|
|
|
|
|
|
{
|
|
|
|
|
|
|
|
str => 'AES_CM_256_HMAC_SHA1_32',
|
|
|
|
|
|
|
|
#dtls_name => 'SRTP_AES128_CM_SHA1_80',
|
|
|
|
|
|
|
|
auth_tag => 4,
|
|
|
|
|
|
|
|
enc_func => \&aes_cm,
|
|
|
|
|
|
|
|
iv_rtp => \&aes_cm_iv_rtp,
|
|
|
|
|
|
|
|
iv_rtcp => \&aes_cm_iv_rtcp,
|
|
|
|
|
|
|
|
key_length => 32,
|
|
|
|
|
|
|
|
salt_length => 14,
|
|
|
|
|
|
|
|
},
|
|
|
|
);
|
|
|
|
);
|
|
|
|
our %crypto_suites = map {$$_{str} => $_} @crypto_suites;
|
|
|
|
our %crypto_suites = map {$$_{str} => $_} @crypto_suites;
|
|
|
|
|
|
|
|
|
|
|
|
|