[Cryptography Team] Fix to RandomPool

[Robert Withers]

Ron,

Would it be possible to remove the Transcript show statement?  It  
gets annoying under heavy use and doesn't help debugability, I don't  
believe.

thanks,
Robert


On Dec 18, 2006, at 7:21 AM, Ron Teitelbaum wrote:

> 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
>
> _______________________________________________
> Cryptography mailing list
> Cryptography at lists.squeakfoundation.org
> http://lists.squeakfoundation.org/cgi-bin/mailman/listinfo/ 
> cryptography