var chars=new Array(' ','!','"','#','$','%','&',"'",'(',')','*','+',',','-','.','/','0','1','2','3','4','5','6','7','8','9',':',';','<','=','>','?','@','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z','[','\\',']','^','_','`','a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z','{','|','}','~');function pm(name)
{var chr='';var m='';for(var i=0;i<name.length;i++){chr=c2b(name.substr(i,1));if(chr<100)chr='0'+chr;m=m+'&#'+chr+';';}
m=m+'@telemedicus.info';document.write(m);}
function pmext(name,domain,tld)
{var chr='';var m='';name=name+'@'+domain+'.'+tld;for(var i=0;i<name.length;i++){chr=c2b(name.substr(i,1));if(chr<100)chr='0'+chr;m=m+'&#'+chr+';';}
document.write(m);}
function c2b(c)
{var i;for(i=0;i<chars.length;i++){if(c==chars[i])return i+32;}
return 0;}
function CryptMailto(email)
{var n=0;var r="";var s="mailto:"+email;for(var i=0;i<s.length;i++)
{n=s.charCodeAt(i);if(n>=8364)
{n=128;}
r+=String.fromCharCode(n+1);}
return r;}
function UnCryptMailto(s)
{var n=0;var r="";for(var i=0;i<s.length;i++)
{n=s.charCodeAt(i);if(n>=8364)
{n=128;}
r+=String.fromCharCode(n-1);}
return r;}
function mailto(s)
{location.href=UnCryptMailto(s);}
