用tcl实现ip头部校验和

最近测试经常需要组建ip报文，我习惯于使用tcl，但是老愁不知道怎么计算校验和，今天琢磨了半天写出了ip头校验和的tcl实现，供需要的人分享。

//这是需要计算校验和的ip头的16进制表示形式
set Data "45000034921e400080060000c0a80141c0a80140"

proc checksum {Data} {  //用要计算校验和的数据的16进制表示形式作为参数，返回校验和
 set DataLen [string length $Data]
 set sum 0
 for {set i 0} {$i < [expr $DataLen - 3] } { incr i 4 } {
  set next "0x"
  append next [string range $Data $i [expr $i + 3] ]
  set sum [expr $sum + $next]
 }
 
 if { $i != $DataLen } {
  set next "0x"
  append next [string range $Data $i end ]
  append next [string repeat "0"  [expr 4-($DataLen - $i)]]
  puts "$next"
  set sum [expr $sum + $next]
 }
  
 while { [expr $sum >> 16] > 0 } {
  set sum [expr ($sum & 0xffff) + ($sum >> 16)]
 }

 return [expr (~$sum)& 0xffff]
}

puts [checksum $Data]