refresh

Author: HenrikBengtsson

seguid

@@ -190,10 +190,31 @@
 
 
 ## DON'T EDIT: The source of this part is src/sha1.tcl
-##############
-## sha1 hashing from tcllib
-##############
-namespace eval ::sha1 {
+## The following SHA-1 code was extracted from the tcllib source code
+## https://core.tcl-lang.org/tcllib/raw/b52facec511fa8edea4e8f0d3a71214fe137c179?at=sha1.tcl
+
+##################################################
+#
+# sha1.tcl - SHA1 in Tcl
+# Author: Don Libes <libes@nist.gov>, May 2001
+# Version 1.0.3
+#
+# SHA1 defined by FIPS 180-1, "The SHA1 Message-Digest Algorithm",
+#          http://www.itl.nist.gov/fipspubs/fip180-1.htm
+# HMAC defined by RFC 2104, "Keyed-Hashing for Message Authentication"
+#
+# Some of the comments below come right out of FIPS 180-1; That's why
+# they have such peculiar numbers.  In addition, I have retained
+# original syntax, etc. from the FIPS.  All remaining bugs are mine.
+#
+# HMAC implementation by D. J. Hagberg <dhagberg@millibits.com> and
+# is based on C code in FIPS 2104.
+#
+# For more info, see: http://expect.nist.gov/sha1pure
+#
+# - Don
+##################################################
+    namespace eval ::sha1 {
 	variable K
 
 	proc initK {} {
@@ -210,9 +231,7 @@ namespace eval ::sha1 {
 	    }
 	}
 	initK
-}
-
- 
+    }
 
     proc ::sha1::sha1 {msg} {
 	variable K
@@ -338,9 +357,10 @@ namespace eval ::sha1 {
     }
 
 
+
 namespace eval seguid {
 
-  set version 0.0.2
+  set version 0.0.2-9001
 
   ##################
   ## Public API

src/seguid.tcl

@@ -8,7 +8,7 @@ source [file join $script_path sha1.tcl]
 
 namespace eval seguid {
 
-  set version 0.0.2
+  set version 0.0.2-9001
 
   ##################
   ## Public API