function CryptMailto(mailaddress, key)
    {
        var n = 0;
        var r = "";
        var s = "mailto:"+mailaddress;
        var e = mailaddress;

        e = e.replace( /@/, " [at] ");
        e = e.replace( /\./g, " [dot] ");

        for( var i=0; i < s.length; i++ )
        {
            n = s.charCodeAt( i );
            if( n >= 8364 )
            {
                n = 128;
            }
            r += String.fromCharCode(n + key);
        }
        
        alert("javascript:UnCryptMailto('"+ r +"', "+ key + ")");
    }

    function UnCryptMailto( s, key )
    {
        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 - key );
        }
        return r;
    }

    function linkTo_UnCryptMailto( s, key )
    {
        location.href=UnCryptMailto( s, key );
    }