Check-in [66cee0f83a]
Overview
Comment:Added DES test vectors
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | crypto
Files: files | file ages | folders
SHA3-256: 66cee0f83a9bc2f9de21bcef409e9b89c25e0df6091ba7e9980607ace90830ed
User & Date: bohagan on 2024-03-31 03:12:20
Other Links: branch diff | manifest | tags
Context
2024-03-31
20:57
Added description and provider to cipher, digest, mac, and pkey info commands. This only work for OpenSSL 3.0+. check-in: 968f8bf25b user: bohagan tags: crypto
03:12
Added DES test vectors check-in: 66cee0f83a user: bohagan tags: crypto
2024-03-30
22:37
Added Triple DES test vectors check-in: ac8a00b954 user: bohagan tags: crypto
Changes
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
# DES-EDE3-CFB1 (3DES)
# From FIPS Pub 46-3


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

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







|










|






1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
# 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
47
48
49
50
51
52
53




54
55
56
57
58
59
60
    # Test cleanup

    # Test result
    set result ""
    foreach key $list2 {
	if {[info exists config($key)]} {
	    set result $config($key)




	}
    }
    
    append line [format {-match exact -result %s} $result]

    # Return codes
    #append line { -returnCodes 0}







>
>
>
>







47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
    # 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}