ported xtea encryption unit to free pascal