/*
CRYPTAGE DE PAGES WEB - 2003, Pascal BENITO

Ce programme permet d'empêcher les robots de lire certaines parties de vos pages web
et d'aspirer les adresses email présentes sur celles-ci. Les textes cryptés ne peuvent
être consultés qu'avec les navigateurs reconnaissant JavaScript (la grande majorité).
*/

// FONCTIONS DE CODAGE HEXADECIMAL
var codesHexa="0123456789ABCDEF";
function codeHexa (octetDec) { // octet décimal ==> hexadécimal
	return (codesHexa.charAt(octetDec>>>4)+codesHexa.charAt(octetDec&15));
}

function decodeHexa (octetHex) { // octet hexadécimal ==> décimal
	return ( (codesHexa.indexOf(octetHex.charAt(0))<<4) + codesHexa.indexOf(octetHex.charAt(1)) );
}

// FONCTIONS DE CRYPTAGE
var clef="jhJy891gbgktu6i6jkIydYtd14Lk65"; // Vous pouvez modifier cette clef
function crypte (texte) { // texte en clair ==> texte crypté
	resultat="";
	l=texte.length;
	lc=clef.length;

	m=0;
	for (n=0;n<l;n++) {
		c=texte.charCodeAt(n);
		if (c<256) { // Uniquement les caractères ASCII
			resultat += codeHexa( c ^ clef.charCodeAt(m%lc) );
			m++;
		}
	}

	return resultat;
}

function decrypte (texte) { // texte crypté ==> texte en clair
	resultat="";
	l=texte.length;
	lc=clef.length;

	m=0;
	for (n=0;n<l;n+=2) {
		c=decodeHexa(texte.substr(n,2));
		resultat += String.fromCharCode( c ^ clef.charCodeAt(m%lc) );
		m++;
	}
	
	return resultat;
}

function mailto (a, to) {
  a.href = "mailto:" + decrypte(to);
  a.title = "Ecrire un mail a " + decrypte(to);
  
  return true;
}