20 Sep
2011
20 Sep
'11
1:57 p.m.
Hi,
Sorry for the slightly off topic question, but I am trying to debug a
buggy PBX and want to check if the digest information is correct.
I have this perl script.
#!/usr/bin/perl
use strict;
use Digest::MD5 qw(md5 md5_hex md5_base64);
my $uri = 'sip:sip1.uni-tel.dk';
my $method = "SIP/2.0";
my $username = "69102208";
my $password = "password";
my $nonce = "4e78d2b0a72196d9123be7c88d093bd74c77f35e";
my $realm = "sip1.uni-tel.dk";
my $a1 = "$username:$realm:$password";
my $ha1 = md5_hex($a1);
my $a2 = "$method:$uri";
my $ha2 = md5_hex($a2);
print "A1 : $a1\n";
print "A2 : $a2\n";
my $response = md5_hex("$ha1:$nonce:$ha2");
print "\nRES : $response\n\n";
I registered with a softphone and entered the above values from the
Authentication header, but I cannot get the response to match.
Any help would be appreciated.
--
Morten Isaksen