<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2737.800" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face="Courier New" size=2>Please help mi with&nbsp;my MD5-ing... 
:(((</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face="Courier New" size=2>What wrong is in my response calculation 
(see below)...?</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT>&nbsp;</DIV>
<DIV><FONT face="Courier New" size=2>Thanks,</FONT></DIV>
<DIV><FONT face="Courier New" size=2>Jan</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT>&nbsp;</DIV>
<DIV><FONT face="Courier New" size=2>
<HR>
</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT>&nbsp;</DIV>
<DIV><FONT face="Courier New" size=2><STRONG>SIP message from 
server:</STRONG></FONT></DIV>
<DIV><FONT size=2><BR><FONT face="Courier New">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
SIP/2.0 407 Proxy Authentication Required<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
.<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
.<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Proxy-Authenticate: Digest realm="asterisk", 
nonce="3594843a"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Content-Length: 
0</FONT></DIV>
<DIV><FONT face="Courier New"></FONT>&nbsp;</DIV>
<DIV><BR><STRONG><FONT face="Courier New">Perl script for calculation REGISTER 
reponse:</FONT></STRONG></DIV>
<DIV><FONT face="Courier New"></FONT>&nbsp;</DIV>
<DIV><FONT face="Courier New">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $md5 = 
Digest::MD5-&gt;new;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $md5-&gt;add($username, 
':', $realm, ':', $password);<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $HXA = 
$md5-&gt;hexdigest;</FONT></DIV>
<DIV><FONT face="Courier New"></FONT>&nbsp;</DIV>
<DIV><FONT face="Courier New">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $md5 = 
Digest::MD5-&gt;new;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $md5-&gt;add('md5', 
':');<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $HXB = $md5-&gt;hexdigest;</FONT></DIV>
<DIV><FONT face="Courier New"></FONT>&nbsp;</DIV>
<DIV><FONT face="Courier New">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $md5 = 
Digest::MD5-&gt;new;<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $md5-&gt;add($HXA, ':', 
$nonce, ':', $HXB);<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $response = 
$md5-&gt;hexdigest;<BR></FONT></DIV>
<DIV><FONT face="Courier New">&nbsp;---&gt; Proxy-Authorization: Digest 
realm="asterisk", 
nonce="3594843a",<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
username="XXXXXXXXX", algorithm="md5", 
response="cd8b4824f70bfdd6b686f9abd851cf3b"</FONT></DIV></FONT>
<DIV><FONT face="Courier New" size=2></FONT>&nbsp;</DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT size=2>
<DIV><FONT face="Courier New" size=2><STRONG>SIP response 
message:</STRONG></FONT></DIV><FONT size=2>
<DIV><BR><FONT face="Courier New">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
</FONT></FONT><FONT face="Courier New">SIP/2.0 401 Unauthorized</FONT></DIV>
<DIV><FONT face="Courier New">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .</FONT></DIV>
<DIV><FONT face="Courier New">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .</FONT></DIV>
<DIV><FONT face="Courier New">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .</FONT></DIV>
<DIV><FONT face="Courier New">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Allow: INVITE, ACK, 
CANCEL, OPTIONS, BYE, REFER<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Content-Length: 
0</FONT></DIV>
<DIV><FONT face="Courier New"></FONT></FONT>&nbsp;</DIV></DIV></BODY></HTML>