allow srtp-debug-helper to specify the ROC

Change-Id: Iecef6446724fa86bfc9da408e6d41420b23afbe3
10 years ago · 6f2dc0046a
parent 0395a24f73
commit 6f2dc0046a
1 changed files with 5 additions and 2 deletions
--- a/utils/srtp-debug-helper
+++ b/utils/srtp-debug-helper
@ -25,11 +25,14 @@ else {
 	$pack = pack("H*", $pack);
 }

+my $roc = $ARGV[3] // 0;
+
 print("Packet length:        " . length($pack) . " bytes\n");

-my ($dec, $roc, $tag, $hmac) = SRTP::decrypt_rtp($cs, $skey, $ssalt, $sauth, 0, $pack);
+my ($dec, $roc, $tag, $hmac) = SRTP::decrypt_rtp($cs, $skey, $ssalt, $sauth, $roc, $pack);

 print("Auth tag from packet: " . unpack("H*", $tag) . "\n");
-print("Computer auth tag:    " . unpack("H*", $hmac) . "\n");
+print("Computed auth tag:    " . unpack("H*", $hmac) . "\n");
+print("Decoded packet:       " . unpack("H*", $dec) . "\n");