// ********************************************************* //
// Common functions                                          //
// ********************************************************* //

function htmlToJS(htmlString) {
  rStr = htmlString;
  rStr = rStr.replace(/¡/g,"¡");   rStr = rStr.replace(/¢/g,"¢");    rStr = rStr.replace(/£/g,"£");   rStr = rStr.replace(/¤/g,"¤");
  rStr = rStr.replace(/¥/g,"¥");     rStr = rStr.replace(/¦/g,"¦");  rStr = rStr.replace(/§/g,"§");    rStr = rStr.replace(/¨/g,"¨");
  rStr = rStr.replace(/©/g,"©");    rStr = rStr.replace(/ª/g,"ª");    rStr = rStr.replace(/«/g,"«");   rStr = rStr.replace(/¬/g,"¬");
  rStr = rStr.replace(/­/g,"­");     rStr = rStr.replace(/®/g,"®");     rStr = rStr.replace(/¯/g,"¯");    rStr = rStr.replace(/°/g,"°");
  rStr = rStr.replace(/±/g,"±");  rStr = rStr.replace(/²/g,"²");    rStr = rStr.replace(/³/g,"³");    rStr = rStr.replace(/´/g,"´");
  rStr = rStr.replace(/µ/g,"µ");   rStr = rStr.replace(/¶/g,"¶");    rStr = rStr.replace(/·/g,"·");  rStr = rStr.replace(/¸/g,"¸");
  rStr = rStr.replace(/¹/g,"¹");    rStr = rStr.replace(/º/g,"º");    rStr = rStr.replace(/»/g,"»");   rStr = rStr.replace(/¼/g,"¼");
  rStr = rStr.replace(/½/g,"½");  rStr = rStr.replace(/¾/g,"¾");  rStr = rStr.replace(/¿/g,"¿");  rStr = rStr.replace(/À/g,"À");
  rStr = rStr.replace(/Á/g,"Á");  rStr = rStr.replace(/Â/g,"Â");   rStr = rStr.replace(/Ã/g,"Ã");  rStr = rStr.replace(/Ä/g,"Ä");
  rStr = rStr.replace(/Å/g,"Å");   rStr = rStr.replace(/Æ/g,"Æ");   rStr = rStr.replace(/Ç/g,"Ç");  rStr = rStr.replace(/È/g,"È");
  rStr = rStr.replace(/É/g,"É");  rStr = rStr.replace(/Ê/g,"Ê");   rStr = rStr.replace(/Ë/g,"Ë");    rStr = rStr.replace(/Ì/g,"Ì");
  rStr = rStr.replace(/Í/g,"Í");  rStr = rStr.replace(/Î/g,"Î");   rStr = rStr.replace(/Ï/g,"Ï");    rStr = rStr.replace(/Ð/g,"Ð");
  rStr = rStr.replace(/Ñ/g,"Ñ");  rStr = rStr.replace(/Ò/g,"Ò");  rStr = rStr.replace(/Ó/g,"Ó");  rStr = rStr.replace(/Ô/g,"Ô");
  rStr = rStr.replace(/Õ/g,"Õ");  rStr = rStr.replace(/Ö/g,"Ö");    rStr = rStr.replace(/×/g,"×");   rStr = rStr.replace(/Ø/g,"Ø");
  rStr = rStr.replace(/Ù/g,"Ù");  rStr = rStr.replace(/Ú/g,"Ú");  rStr = rStr.replace(/Û/g,"Û");   rStr = rStr.replace(/Ü/g,"Ü");
  rStr = rStr.replace(/Ý/g,"Ý");  rStr = rStr.replace(/Þ/g,"Þ");   rStr = rStr.replace(/ß/g,"ß");   rStr = rStr.replace(/à/g,"à");
  rStr = rStr.replace(/á/g,"á");  rStr = rStr.replace(/â/g,"â");   rStr = rStr.replace(/ã/g,"ã");  rStr = rStr.replace(/ä/g,"ä");
  rStr = rStr.replace(/å/g,"å");   rStr = rStr.replace(/æ/g,"æ");   rStr = rStr.replace(/ç/g,"ç");  rStr = rStr.replace(/è/g,"è");
  rStr = rStr.replace(/é/g,"é");  rStr = rStr.replace(/ê/g,"ê");   rStr = rStr.replace(/ë/g,"ë");    rStr = rStr.replace(/ì/g,"ì");
  rStr = rStr.replace(/í/g,"í");  rStr = rStr.replace(/î/g,"î");   rStr = rStr.replace(/ï/g,"ï");    rStr = rStr.replace(/ð/g,"ð");
  rStr = rStr.replace(/ñ/g,"ñ");  rStr = rStr.replace(/ò/g,"ò");  rStr = rStr.replace(/ó/g,"ó");  rStr = rStr.replace(/ô/g,"ô");
  rStr = rStr.replace(/õ/g,"õ");  rStr = rStr.replace(/ö/g,"ö");    rStr = rStr.replace(/÷/g,"÷");  rStr = rStr.replace(/ø/g,"ø");
  rStr = rStr.replace(/ù/g,"ù");  rStr = rStr.replace(/ú/g,"ú");  rStr = rStr.replace(/û/g,"û");   rStr = rStr.replace(/ü/g,"ü");
  rStr = rStr.replace(/ý/g,"ý");  rStr = rStr.replace(/þ/g,"þ");   rStr = rStr.replace(/ÿ/g,"ÿ");
  rStr = rStr.replace(/ę/g,"e");    rStr = rStr.replace(/ż/g,"z");    rStr = rStr.replace(/ł/g,"l");    rStr = rStr.replace(/ą/g,"a");
  return rStr;
}

function encodeString(theString) {
  rStr = theString;
  rStr = rStr.replace("¡","#iexcl#"    );      rStr = rStr.replace("¢","#cent#"      );    rStr = rStr.replace("£","#pound#"      );    rStr = rStr.replace("¤","#curren#"      );
  rStr = rStr.replace("¥","#yen#"      );      rStr = rStr.replace("¦","#brvbar#"    );    rStr = rStr.replace("§","#sect#"       );    rStr = rStr.replace("¨","#uml#"         );
  rStr = rStr.replace("©","#copy#"     );      rStr = rStr.replace("ª","#ordf#"      );    rStr = rStr.replace("«","#laquo#"      );    rStr = rStr.replace("¬","#not#"         );
  rStr = rStr.replace("­","#shy#"      );      rStr = rStr.replace("®","#reg#"       );    rStr = rStr.replace("¯","#macr#"       );    rStr = rStr.replace("°","#deg#"         );
  rStr = rStr.replace("±","#plusmn#"   );      rStr = rStr.replace("²","#sup2#"      );    rStr = rStr.replace("³","#sup3#"       );    rStr = rStr.replace("´","#acute#"       );
  rStr = rStr.replace("µ","#micro#"    );      rStr = rStr.replace("¶","#para#"      );    rStr = rStr.replace("·","#middot#"     );    rStr = rStr.replace("¸","#cedil#"       );
  rStr = rStr.replace("¹","#sup1#"     );      rStr = rStr.replace("º","#ordm#"      );    rStr = rStr.replace("»","#raquo#"      );    rStr = rStr.replace("¼","#frac14#"      );
  rStr = rStr.replace("½","#frac12#"   );      rStr = rStr.replace("¾","#frac34#"    );    rStr = rStr.replace("¿","#iquest#"     );    rStr = rStr.replace("À","#Agrave#"      );
  rStr = rStr.replace("Á","#Aacute#"   );      rStr = rStr.replace("Â","#Acirc#"     );    rStr = rStr.replace("Ã","#Atilde#"     );    rStr = rStr.replace("Ä","#Auml#"        );
  rStr = rStr.replace("Å","#Aring#"    );      rStr = rStr.replace("Æ","#AElig#"     );    rStr = rStr.replace("Ç","#Ccedil#"     );    rStr = rStr.replace("È","#Egrave#"      );
  rStr = rStr.replace("É","#Eacute#"   );      rStr = rStr.replace("Ê","#Ecirc#"     );    rStr = rStr.replace("Ë","#Euml#"       );    rStr = rStr.replace("Ì","#Igrave#"      );
  rStr = rStr.replace("Í","#Iacute#"   );      rStr = rStr.replace("Î","#Icirc#"     );    rStr = rStr.replace("Ï","#Iuml#"       );    rStr = rStr.replace("Ð","#ETH#"         );
  rStr = rStr.replace("Ñ","#Ntilde#"   );      rStr = rStr.replace("Ò","#Ograve#"    );    rStr = rStr.replace("Ó","#Oacute#"     );    rStr = rStr.replace("Ô","#Ocirc#"       );
  rStr = rStr.replace("Õ","#Otilde#"   );      rStr = rStr.replace("Ö","#Ouml#"      );    rStr = rStr.replace("×","#times#"      );    rStr = rStr.replace("Ø","#Oslash#"      );
  rStr = rStr.replace("Ù","#Ugrave#"   );      rStr = rStr.replace("Ú","#Uacute#"    );    rStr = rStr.replace("Û","#Ucirc#"      );    rStr = rStr.replace("Ü","#Uuml#"        );
  rStr = rStr.replace("Ý","#Yacute#"   );      rStr = rStr.replace("Þ","#THORN#"     );    rStr = rStr.replace("ß","#szlig#"      );    rStr = rStr.replace("à","#agrave#"      );
  rStr = rStr.replace("á","#aacute#"   );      rStr = rStr.replace("â","#acirc#"     );    rStr = rStr.replace("ã","#atilde#"     );    rStr = rStr.replace("ä","#auml#"        );
  rStr = rStr.replace("å","#aring#"    );      rStr = rStr.replace("æ","#aelig#"     );    rStr = rStr.replace("ç","#ccedil#"     );    rStr = rStr.replace("è","#egrave#"      );
  rStr = rStr.replace("é","#eacute#"   );      rStr = rStr.replace("ê","#ecirc#"     );    rStr = rStr.replace("ë","#euml#"       );    rStr = rStr.replace("ì","#igrave#"      );
  rStr = rStr.replace("í","#iacute#"   );      rStr = rStr.replace("î","#icirc#"     );    rStr = rStr.replace("ï","#iuml#"       );    rStr = rStr.replace("ð","#eth#"         );
  rStr = rStr.replace("ñ","#ntilde#"   );      rStr = rStr.replace("ò","#ograve#"    );    rStr = rStr.replace("ó","#oacute#"     );    rStr = rStr.replace("ô","#ocirc#"       );
  rStr = rStr.replace("õ","#otilde#"   );      rStr = rStr.replace("ö","#ouml#"      );    rStr = rStr.replace("÷","#divide#"     );    rStr = rStr.replace("ø","#oslash#"      );
  rStr = rStr.replace("ù","#ugrave#"   );      rStr = rStr.replace("ú","#uacute#"    );    rStr = rStr.replace("û","#ucirc#"      );    rStr = rStr.replace("ü","#uuml#"        );
  rStr = rStr.replace("ý","#yacute#"   );      rStr = rStr.replace("þ","#thorn#"     );    rStr = rStr.replace("ÿ","#yuml#"       );    rStr = rStr.replace("~","##126#"   );
  return rStr;
}

function stringToHTML(theString) {
  rStr = theString;
  rStr = rStr.replace("u000A","<BR>");
  return rStr;
}

function HTMLBreakToPlainTextBreak(theString) {
  rStr = theString;
  rStr = rStr.replace("<BR>","\n");
  return rStr;
}

function showInvFieldMessage(message) {
  alert(htmlToJS(message));
  inptField.focus();
  inptField.select();
  return false;
}

function validMailString(mailString) {
  for (var i = 0; i < mailString.length; i++) {
    var ch                   = mailString.substring(i, i + 1);
    if (ch != "." && ch != "_" && ch != "-") {
      if (ch < "0" || ch > "z") {
        return false;
      } else if ((ch > "9" && ch < "A") || (ch > "Z" && ch < "a")) {
        return false;
      }
    }
  }

  return true;
}

function validateField(frame, form, field, method, fielddesc) {
  inptField              = eval("window." + frame.name + ".document." + form.name + "." + field.name);
  inputFieldName         = fielddesc;

  if (method == "isNotEmpty") {
    if (inptField.value == "" || inptField.value == null) {
      showInvFieldMessage("Het veld '" + inputFieldName + "' moet ingevuld worden!");
      return false;
    }
  } else if  (method == "isValidEmail") {
    var email                  = inptField.value;
    if (email == null || email == "") return true;
    var atPos                  = email.indexOf('@');
    if (atPos < 0) return showInvFieldMessage("Ongeldig e-mailadres!");
    var username               = email.substring(0,atPos).toLowerCase();
    var hostname               = email.substring(atPos+1,email.length).toLowerCase();
    if (!validMailString(username))
      return showInvFieldMessage("Ongeldig e-mailadres!");
    if (!validMailString(hostname))
      return showInvFieldMessage("Ongeldig e-mailadres!");
    if (hostname.indexOf('.') < 0)
      return showInvFieldMessage("Ongeldig e-mailadres!");
  }
  return true;
}

function StringToFloat(str) {
  var s                      = new String("");

  if ((str.length > 0) && (str.indexOf(",") >= 0)) {
    s = str.substring(0, str.indexOf(",")) + "." + str.substring(str.indexOf(",")+1, str.length);
  }
  else {
    s = str;
  }
  return(parseFloat(s));
}

function checkNum(str) {
  if (str == "") {
    alert("Voer a.u.b. een getal in.");
    return false;
  }
  for (var i = 0; i < str.length; i++) {
    var ch                   = str.substring(i, i + 1);
    if (ch < "0" || ch > "9") {
      alert("Voer a.u.b. een getal in.");
      return false;
    }
  }
  return true;
}

function convDec(str) {
  var strtmp = str * 100;
  var s = "" + Math.round(strtmp);
  if (s.length < (Decimals+1)) {
    for (var i = 0; i = ((Decimals+1)-s.length); i++) {
      s = "0"+s;
    }
  }
  if ("00" == "") {
    return(s);
  } else {
    return(s.substring(0, s.length-Decimals) + "," + s.substring(s.length-Decimals, s.length));
  }
}

function convDecExt(str) {
  var strtmp = str * 10000;
  var s = "" + Math.round(strtmp);
  if (s.length < ((Decimals*2)+1)) {
    for (var i = 0; i = (((Decimals*2)+1)-s.length); i++) {
      s = "0"+s;
    }
  }
  if ("0000" == "") {
    return(s);
  } else {
    return(s.substring(0, s.length-(Decimals*2)) + "," + s.substring(s.length-(Decimals*2), s.length));
  }
}

function convEuropeanDec(str) {
  var strtmp = StringToFloat(str) * 100;
  var s = "" + Math.round(strtmp);
  if (s.length < (3)) {
    for (var i = 0; i = ((3)-s.length); i++) {
      s = "0"+s;
    }
  }
  return(s.substring(0, s.length-2) + "," + s.substring(s.length-2, s.length));
}

function localSubString(str,startIndex,endIndex) {
  var strtmp = new String(str);
  return strtmp.substring(startIndex,endIndex);
}

function showPrice(priceIncVAT, VAT) {
  var localPrice = priceIncVAT;
  
  if (VAT > 0) {
	   for (var j=0; j<aVATItems.length; j++) {
	     if (aVATItems[j].VID == VAT) {
	       localPrice = (priceIncVAT / (100 + aVATItems[j].VValue)) * 100;
	     }
	   }
  }
  
  return(localPrice);
}

function SiteURL() {
  var BaseURL = self.location.href;
  
		for (var i = 1; i < BaseURL.length; i++) {
		  if (BaseURL.substring(i, i + 1) == "?") {
				  BaseURL = BaseURL.substring(0, i);
				}
		}
		for (var i = BaseURL.length; i > 0; i--) {
		  if ((BaseURL.substring(i, i + 1) == "\\") || (BaseURL.substring(i, i + 1) == "/")) {
				  BaseURL = BaseURL.substring(0, i);
				  break;
				}
		}
		return(BaseURL);
}

function ci(theInput) { //Check Input
  rStr = theInput;
  rStr = rStr.replace(/\"/g,"``") ;
  return rStr;  
}

/*
 * A JavaScript implementation of the RSA Data Security, Inc. MD5 Message
 * Digest Algorithm, as defined in RFC 1321.
 * Version 2.1 Copyright (C) Paul Johnston 1999 - 2002.
 * Other contributors: Greg Holt, Andrew Kepert, Ydnar, Lostinet
 * Distributed under the BSD License
 * See http://pajhome.org.uk/crypt/md5 for more info.
 */

/*
 * Configurable variables. You may need to tweak these to be compatible with
 * the server-side, but the defaults work in most cases.
 */
var hexcase = 0;  /* hex output format. 0 - lowercase; 1 - uppercase        */
var b64pad  = ""; /* base-64 pad character. "=" for strict RFC compliance   */
var chrsz   = 8;  /* bits per input character. 8 - ASCII; 16 - Unicode      */

/*
 * These are the functions you'll usually want to call
 * They take string arguments and return either hex or base-64 encoded strings
 */
function hex_md5(s){ return binl2hex(core_md5(str2binl(s), s.length * chrsz));}
function b64_md5(s){ return binl2b64(core_md5(str2binl(s), s.length * chrsz));}
function str_md5(s){ return binl2str(core_md5(str2binl(s), s.length * chrsz));}
function hex_hmac_md5(key, data) { return binl2hex(core_hmac_md5(key, data)); }
function b64_hmac_md5(key, data) { return binl2b64(core_hmac_md5(key, data)); }
function str_hmac_md5(key, data) { return binl2str(core_hmac_md5(key, data)); }

/*
 * Perform a simple self-test to see if the VM is working
 */
function md5_vm_test()
{
  return hex_md5("abc") == "900150983cd24fb0d6963f7d28e17f72";
}

/*
 * Calculate the MD5 of an array of little-endian words, and a bit length
 */
function core_md5(x, len)
{
  /* append padding */
  x[len >> 5] |= 0x80 << ((len) % 32);
  x[(((len + 64) >>> 9) << 4) + 14] = len;

  var a =  1732584193;
  var b = -271733879;
  var c = -1732584194;
  var d =  271733878;

  for(var i = 0; i < x.length; i += 16)
  {
    var olda = a;
    var oldb = b;
    var oldc = c;
    var oldd = d;

    a = md5_ff(a, b, c, d, x[i+ 0], 7 , -680876936);
    d = md5_ff(d, a, b, c, x[i+ 1], 12, -389564586);
    c = md5_ff(c, d, a, b, x[i+ 2], 17,  606105819);
    b = md5_ff(b, c, d, a, x[i+ 3], 22, -1044525330);
    a = md5_ff(a, b, c, d, x[i+ 4], 7 , -176418897);
    d = md5_ff(d, a, b, c, x[i+ 5], 12,  1200080426);
    c = md5_ff(c, d, a, b, x[i+ 6], 17, -1473231341);
    b = md5_ff(b, c, d, a, x[i+ 7], 22, -45705983);
    a = md5_ff(a, b, c, d, x[i+ 8], 7 ,  1770035416);
    d = md5_ff(d, a, b, c, x[i+ 9], 12, -1958414417);
    c = md5_ff(c, d, a, b, x[i+10], 17, -42063);
    b = md5_ff(b, c, d, a, x[i+11], 22, -1990404162);
    a = md5_ff(a, b, c, d, x[i+12], 7 ,  1804603682);
    d = md5_ff(d, a, b, c, x[i+13], 12, -40341101);
    c = md5_ff(c, d, a, b, x[i+14], 17, -1502002290);
    b = md5_ff(b, c, d, a, x[i+15], 22,  1236535329);

    a = md5_gg(a, b, c, d, x[i+ 1], 5 , -165796510);
    d = md5_gg(d, a, b, c, x[i+ 6], 9 , -1069501632);
    c = md5_gg(c, d, a, b, x[i+11], 14,  643717713);
    b = md5_gg(b, c, d, a, x[i+ 0], 20, -373897302);
    a = md5_gg(a, b, c, d, x[i+ 5], 5 , -701558691);
    d = md5_gg(d, a, b, c, x[i+10], 9 ,  38016083);
    c = md5_gg(c, d, a, b, x[i+15], 14, -660478335);
    b = md5_gg(b, c, d, a, x[i+ 4], 20, -405537848);
    a = md5_gg(a, b, c, d, x[i+ 9], 5 ,  568446438);
    d = md5_gg(d, a, b, c, x[i+14], 9 , -1019803690);
    c = md5_gg(c, d, a, b, x[i+ 3], 14, -187363961);
    b = md5_gg(b, c, d, a, x[i+ 8], 20,  1163531501);
    a = md5_gg(a, b, c, d, x[i+13], 5 , -1444681467);
    d = md5_gg(d, a, b, c, x[i+ 2], 9 , -51403784);
    c = md5_gg(c, d, a, b, x[i+ 7], 14,  1735328473);
    b = md5_gg(b, c, d, a, x[i+12], 20, -1926607734);

    a = md5_hh(a, b, c, d, x[i+ 5], 4 , -378558);
    d = md5_hh(d, a, b, c, x[i+ 8], 11, -2022574463);
    c = md5_hh(c, d, a, b, x[i+11], 16,  1839030562);
    b = md5_hh(b, c, d, a, x[i+14], 23, -35309556);
    a = md5_hh(a, b, c, d, x[i+ 1], 4 , -1530992060);
    d = md5_hh(d, a, b, c, x[i+ 4], 11,  1272893353);
    c = md5_hh(c, d, a, b, x[i+ 7], 16, -155497632);
    b = md5_hh(b, c, d, a, x[i+10], 23, -1094730640);
    a = md5_hh(a, b, c, d, x[i+13], 4 ,  681279174);
    d = md5_hh(d, a, b, c, x[i+ 0], 11, -358537222);
    c = md5_hh(c, d, a, b, x[i+ 3], 16, -722521979);
    b = md5_hh(b, c, d, a, x[i+ 6], 23,  76029189);
    a = md5_hh(a, b, c, d, x[i+ 9], 4 , -640364487);
    d = md5_hh(d, a, b, c, x[i+12], 11, -421815835);
    c = md5_hh(c, d, a, b, x[i+15], 16,  530742520);
    b = md5_hh(b, c, d, a, x[i+ 2], 23, -995338651);

    a = md5_ii(a, b, c, d, x[i+ 0], 6 , -198630844);
    d = md5_ii(d, a, b, c, x[i+ 7], 10,  1126891415);
    c = md5_ii(c, d, a, b, x[i+14], 15, -1416354905);
    b = md5_ii(b, c, d, a, x[i+ 5], 21, -57434055);
    a = md5_ii(a, b, c, d, x[i+12], 6 ,  1700485571);
    d = md5_ii(d, a, b, c, x[i+ 3], 10, -1894986606);
    c = md5_ii(c, d, a, b, x[i+10], 15, -1051523);
    b = md5_ii(b, c, d, a, x[i+ 1], 21, -2054922799);
    a = md5_ii(a, b, c, d, x[i+ 8], 6 ,  1873313359);
    d = md5_ii(d, a, b, c, x[i+15], 10, -30611744);
    c = md5_ii(c, d, a, b, x[i+ 6], 15, -1560198380);
    b = md5_ii(b, c, d, a, x[i+13], 21,  1309151649);
    a = md5_ii(a, b, c, d, x[i+ 4], 6 , -145523070);
    d = md5_ii(d, a, b, c, x[i+11], 10, -1120210379);
    c = md5_ii(c, d, a, b, x[i+ 2], 15,  718787259);
    b = md5_ii(b, c, d, a, x[i+ 9], 21, -343485551);

    a = safe_add(a, olda);
    b = safe_add(b, oldb);
    c = safe_add(c, oldc);
    d = safe_add(d, oldd);
  }
  return Array(a, b, c, d);

}

/*
 * These functions implement the four basic operations the algorithm uses.
 */
function md5_cmn(q, a, b, x, s, t)
{
  return safe_add(bit_rol(safe_add(safe_add(a, q), safe_add(x, t)), s),b);
}
function md5_ff(a, b, c, d, x, s, t)
{
  return md5_cmn((b & c) | ((~b) & d), a, b, x, s, t);
}
function md5_gg(a, b, c, d, x, s, t)
{
  return md5_cmn((b & d) | (c & (~d)), a, b, x, s, t);
}
function md5_hh(a, b, c, d, x, s, t)
{
  return md5_cmn(b ^ c ^ d, a, b, x, s, t);
}
function md5_ii(a, b, c, d, x, s, t)
{
  return md5_cmn(c ^ (b | (~d)), a, b, x, s, t);
}

/*
 * Calculate the HMAC-MD5, of a key and some data
 */
function core_hmac_md5(key, data)
{
  var bkey = str2binl(key);
  if(bkey.length > 16) bkey = core_md5(bkey, key.length * chrsz);

  var ipad = Array(16), opad = Array(16);
  for(var i = 0; i < 16; i++)
  {
    ipad[i] = bkey[i] ^ 0x36363636;
    opad[i] = bkey[i] ^ 0x5C5C5C5C;
  }

  var hash = core_md5(ipad.concat(str2binl(data)), 512 + data.length * chrsz);
  return core_md5(opad.concat(hash), 512 + 128);
}

/*
 * Add integers, wrapping at 2^32. This uses 16-bit operations internally
 * to work around bugs in some JS interpreters.
 */
function safe_add(x, y)
{
  var lsw = (x & 0xFFFF) + (y & 0xFFFF);
  var msw = (x >> 16) + (y >> 16) + (lsw >> 16);
  return (msw << 16) | (lsw & 0xFFFF);
}

/*
 * Bitwise rotate a 32-bit number to the left.
 */
function bit_rol(num, cnt)
{
  return (num << cnt) | (num >>> (32 - cnt));
}

/*
 * Convert a string to an array of little-endian words
 * If chrsz is ASCII, characters >255 have their hi-byte silently ignored.
 */
function str2binl(str)
{
  var bin = Array();
  var mask = (1 << chrsz) - 1;
  for(var i = 0; i < str.length * chrsz; i += chrsz)
    bin[i>>5] |= (str.charCodeAt(i / chrsz) & mask) << (i%32);
  return bin;
}

/*
 * Convert an array of little-endian words to a string
 */
function binl2str(bin)
{
  var str = "";
  var mask = (1 << chrsz) - 1;
  for(var i = 0; i < bin.length * 32; i += chrsz)
    str += String.fromCharCode((bin[i>>5] >>> (i % 32)) & mask);
  return str;
}

/*
 * Convert an array of little-endian words to a hex string.
 */
function binl2hex(binarray)
{
  var hex_tab = hexcase ? "0123456789ABCDEF" : "0123456789abcdef";
  var str = "";
  for(var i = 0; i < binarray.length * 4; i++)
  {
    str += hex_tab.charAt((binarray[i>>2] >> ((i%4)*8+4)) & 0xF) +
           hex_tab.charAt((binarray[i>>2] >> ((i%4)*8  )) & 0xF);
  }
  return str;
}

/*
 * Convert an array of little-endian words to a base-64 string
 */
function binl2b64(binarray)
{
  var tab = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
  var str = "";
  for(var i = 0; i < binarray.length * 4; i += 3)
  {
    var triplet = (((binarray[i   >> 2] >> 8 * ( i   %4)) & 0xFF) << 16)
                | (((binarray[i+1 >> 2] >> 8 * ((i+1)%4)) & 0xFF) << 8 )
                |  ((binarray[i+2 >> 2] >> 8 * ((i+2)%4)) & 0xFF);
    for(var j = 0; j < 4; j++)
    {
      if(i * 8 + j * 6 > binarray.length * 32) str += b64pad;
      else str += tab.charAt((triplet >> 6*(3-j)) & 0x3F);
    }
  }
  return str;
}