Is there a way to generate Pseudo Random Numbers with a seed in TCL 8.5?

I can make the rand() work but it only has the output from 0 to 1 and I can't use any seed value in that.

Trying to make a Pseudo-Random Number Generator in TCL and the use md5 hashing algo to make something like this, proc{secretseed length} that outputs a number of $length bytes.