$tmpunpack=strtoupper(join('',unpack('H*0',$tvkey)));
$tmpunpack=substr($tmpunpack,0,strlen($tmpunpack)-1);
↓
$tmpunpack=strtoupper(join('',unpack('H*0',$tvkey)));
$tmpunpack=substr($tmpunpack,0,strlen($tmpunpack)-0);

とりあえずこのように変更。なにか変わったのだろうか・・・