# DES-EDE3-CFB1 (3DES)
# From FIPS Pub 46-3


# CFB1-TDES.Encrypt and CFB1-TDES.Decrypt 
Klen = 24
Ilen = 8
Len = 1
Key = 0123456789abcdef23456789abcdef01456789abcdef0123
IV = f69f2445df4f9b17
# 01101011
Plaintext = 6b
# 01011100
Ciphertext = 5c

# CFB1-TDES.Encrypt and CFB1-TDES.Decrypt 
Klen = 24
Ilen = 8
Len = 1
Key = 0123456789abcdef23456789abcdef010123456789abcdef
IV = f69f2445df4f9b17
# 01101011
Plaintext = 6b
# 01100110
Ciphertext = 66

    # Test cleanup

    # Test result
    set result ""
    foreach key $list2 {
	if {[info exists config($key)]} {
	    set result $config($key)
	    # Convert hex to lowercase
	    if {[string index $result 0] ne "\""} {
		set result [string tolower $result]
	    }
	}
    }
    
    append line [format {-match exact -result %s} $result]

    # Return codes
    #append line { -returnCodes 0}