Subversion Repositories ALCASAR

Compare Revisions

Ignore whitespace Rev 1947 → Rev 1948

/web/intercept.php
332,11 → 332,12
 
# If attempt to login
if ("$button" == "$l_boutonO") {
#correction password length
#http://www.stochasticgeometry.ie/2009/09/09/maximum-password-length-in-coova-chilli/
#correction password length in coova-chilli
#thanks to http://www.stochasticgeometry.ie/2009/09/09/maximum-password-length-in-coova-chilli/
$hexchal = pack ("H*", $challenge);
$newchal = pack ("H*", md5($hexchal . $uamsecret));
 
# If challenge isn't long enough, repeat it until it is
while (strlen($newchal) < strlen($password)){
$newchal .= $newchal;
}
343,6 → 344,7
 
$response = md5("\0" . $password . $newchal);
$newpwd = pack("a*", $password);
# Encode plain text password with challenge
$pappassword = implode ("", unpack("H*", ($newpwd ^ $newchal)));
echo "<!DOCTYPE html PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">
<html>