。子程序校驗和，短整型
參數緩沖區，短整型，引用
參數大小，整數類型。
。局部變量cksum，整數類型
。判斷循環頭(大小> 1)
校驗和=緩沖區+ 1 +校驗和
尺寸=尺寸- 2
。判斷循環的結束()
。如果為真(大小≠ 0)
CKSUM = CKSUM+to字節(緩沖區)
如果真的結束了。
CKSUM =右移(CKSUM，16)+Bit AND (cksum，65535)
CKSUM = CKSUM+右移(CKSUM，16)
返回(校驗和)