WB 2.08.x

				// create random encryption key

				mt_srand((double)microtime()*1000000);						// initialize the randomizer (PHP < 4.2.0)

				$char_shift = mt_rand(1, 5);											// shift:=1; a->b, shift:=5; a-->f

				$decryption_key = chr($char_shift+97);						// ASCII a:=97

				// prepare mailto string for encryption (mail protocol, decryption key, mail address)

				// match[3] contains the optional email subject and body text

				// convert %XX values into characters and remove HTML entities like & into it?s expression like &

				$email_address = "mailto:" .$decryption_key .$match[2] .html_entity_decode(rawurldecode($match[3]));

				// encrypt email address by shifting characters

				for($i=0; $i<strlen($email_address); $i++) {

					$encrypted_email .= chr(ord($email_address[$i]) + $char_shift);

				$encrypted_email[7] = $decryption_key;						// replace first character after mailto: with decryption key 

				$encrypted_email = rawurlencode($encrypted_email);

				// return encrypted javascript mailto link

				$mailto_link  = "<a href=\"javascript:mdcr('";		// a href part with javascript function to decrypt the email address

				$mailto_link .= "$encrypted_email')\">";					// add encrypted email address as paramter to JS function mdcr

				$mailto_link .= $match[5] ."</a>";								// add email link text and closing </a> tag

				// dots are not transformed as this would required as my.name@domain.com would look like: my(dot)name(at)domain(dot)com

/*

--------------------------------------------------------------------------------

  JAVASCRIPT ROUTINE FOR THE WEBSITE BAKER 2.7 OUTPUT FILTER MODULE

  Licencsed under GNU, written by Christian Sommer (Doc)

--------------------------------------------------------------------------------

*/

function mdcr(s) {

  location.href=dcstr(s);

function dcstr(s) {

  var m = unescape(s);

  var x = m.charCodeAt(7)-97;

  var c = m.substr(0,7) + m.substr(8);

  var n=0;

  var r="";

  for(var i=0; i<c.length; i++) {

    r+=String.fromCharCode(c.charCodeAt(i) - x);

  return r;