Forum Discussion
Alex_D
Nov 06, 2012Nimbostratus
Very useful!
I had a problem with it only using the first 4 characters of the shared secret. Made the adjustments as per below. Someone might have a more elegant way.
Added to RULE_INIT after set static::secret:
set static::secretlen [expr 2 * [string length $static::secret]]
Replaced existing set md5me line with:
set md5me [binary format cH2SH32H$static::secretlen $code $ident $len $auth $static::secrethex]