perl / javascript and MD5

[Hon Shi]

Do these generate the same hash?
The password fails every time.  

Perl version:

  use Digetst::MD5 qw(md5);
  $tm = time * 1000;
  $cat = $password . $tm;
  $pwhash = md5($cat);  # alternative tried md5($password, $tm);
  $pwhash = uri_escape($pwhash);

  then post with 

  do_POST($url_login_post,
      [ 'ts' => $tm,
        'encrypw' => $pwhash,
        'submit1' => 'Login',
        'text1' => $user_id ]);
  

Javascript version:

<script language="javascript" src"md5.js"></scripts>
<script language="javascript">
.
.
.
  ts.value = date.getTime();
  pwhash.value = calcMD5(password.value + ts.value);
  fr.submit();

Thanks

__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 
_______________________________________________
Perl-Win32-Web mailing list
Perl-Win32-Web@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs