(Tcl) HMAC SHA-1 to Match RFC 2022 Test Vectors

Demonstrates using Chilkat in Tcl to computer HMAC SHA-1 message authentication codes to match the test vectors given by RFC 2202.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

set crypt [new_CkCrypt2]

# The output will be Hex, so set the EncodingMode:
CkCrypt2_put_EncodingMode $crypt "hex"

# Set the hash algorithm:
# Choices are: md5, sha-1, sha256, sha384, sha512, md2, haval
CkCrypt2_put_HashAlgorithm $crypt "sha-1"

# Set the HMAC key:
CkCrypt2_SetHmacKeyEncoded $crypt "0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b" "hex"
set mac [CkCrypt2_hmacStringENC $crypt "Hi There"]
puts "$mac"

CkCrypt2_SetHmacKeyEncoded $crypt "Jefe" "ansi"
set mac [CkCrypt2_hmacStringENC $crypt "what do ya want for nothing?"]
puts "$mac"

delete_CkCrypt2 $crypt