support _32 crypto versions in simulator

Change-Id: I90e97850fbb20281f461b777f2acf4a687f07af6
9 years ago · af1db75caa
parent 37231caa54
commit af1db75caa
1 changed files with 20 additions and 0 deletions
--- 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;