Solution : calcul CRC JBus/Modbus en JScript

function(msg : String){
	var chars = msg.ToCharArray();
	var lCrc : long = 0xFFFF;
	var Polynome : int = 0xA001; // Polynôme = 2^15 + 2^13 + 2^0 = 0xA001.
	var CptOctet = 0;
	var CptBit = 0;
	var Parity : long = 0;
	var debug = new StringBuilder();
	for ( CptOctet= 0 ; CptOctet < chars.length;  CptOctet++)
	{    
		lCrc ^= chars[CptOctet];  //Ou exculsif entre octet message et CRC
	       
		for ( CptBit = 0; CptBit <= 7 ; CptBit++)  /* Mise a 0 du compteur nombre de bits */             
		{
			Parity = lCrc;
			lCrc >>= 1;			    // Décalage a droite du crc
			if (Parity % 2 != 0) lCrc ^= Polynome; // Test si nombre impair -> Apres decalage à droite il y aura une retenue     
		}					    // "ou exclusif" entre le CRC et le polynome generateur.
	}
	var s : String = lCrc.ToString("x");
	if (s.length == 3) 
		return s.substr(1,2) + "0" + s.substr(0,1);
	else
		return s.substr(2,2) + s.substr(0,2);
}