CTar::checksum

function checksum($s)
{
	$chars = count_chars(substr($s,0,148).'        '.substr($s,156,356));
	$sum = 0;
	foreach($chars as $ch => $cnt)
		$sum += $ch*$cnt;
	return $sum;
}