Sample code for 30+ languages & platforms
Tcl

HMAC SHA-1 to Match RFC 2022 Test Vectors

See more Encryption Examples

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

Chilkat Tcl Downloads

Tcl

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"
CkCrypt2_put_MacAlgorithm $crypt "hmac"

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

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

delete_CkCrypt2 $crypt