[Cryptography Team] Fix to RandomPool

[Ron Teitelbaum]

I made the following change

RandomPool >> stir
	| cipher block |
	Transcript cr; show: 'stir'.
	cipher _ (TripleDES key: key) cbc.
	cipher initialVector: (pool copyFrom: pool size - TripleDES
blockSize + 1 to: pool size).
	1 to: pool size - TripleDES blockSize + 1 by: TripleDES blockSize
do: [ :startIndex |
		block _ pool copyFrom: startIndex to: startIndex + TripleDES
blockSize - 1.
		cipher encryptBlock: block.
		pool replaceFrom: startIndex to: startIndex + TripleDES
blockSize - 1 with: block]


I had to add the + 1 for setting the initalVector, I was getting 9 bytes.

Ron Teitelbaum