View Single Post
Old 01-22-2004, 03:38 AM  
neoxed
Too much time...
 
Join Date: May 2003
Posts: 1,326
Default

Darkone added a TCL command for sha1 hashes (long time ago), [sha1 string], no need for the tcllib sha1 libraries.

set encpwd [::sha1::sha1 $args]

Becomes:

set encpwd [sha1 $args]

And remove the source...you get the idea.

neoxed is offline   Reply With Quote