From af1db75caa828c802e3701072a79b0a448f79778 Mon Sep 17 00:00:00 2001 From: Richard Fuchs Date: Fri, 24 Mar 2017 13:11:43 -0400 Subject: [PATCH] support _32 crypto versions in simulator Change-Id: I90e97850fbb20281f461b777f2acf4a687f07af6 --- perl/NGCP/Rtpclient/SRTP.pm | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) diff --git a/perl/NGCP/Rtpclient/SRTP.pm b/perl/NGCP/Rtpclient/SRTP.pm index 6c6bb4451..dbe4d52b4 100644 --- a/perl/NGCP/Rtpclient/SRTP.pm +++ b/perl/NGCP/Rtpclient/SRTP.pm @@ -58,6 +58,26 @@ our @crypto_suites = ( key_length => 32, 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;