TclTLS
Check-in [2a6486178c]
Login
HomeTimelineDownloadBrowse SourceBranchesTagsTicketsWiki
EuroTcl/OpenACS 11 - 12 JULY 2024, VIENNA
Overview
Comment:Added ARIA cipher test vectors
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | crypto
Files: files | file ages | folders
SHA3-256: 2a6486178c709613a2fbda58ded3fe8c327634754b01035094a801e39a8404ef
User & Date: bohagan on 2024-04-08 21:30:44
Other Links: branch diff | manifest | tags
Context
2024-04-09
01:07
Added SM4 cipher test vectors check-in: c12c859d2f user: bohagan tags: crypto
2024-04-08
21:30
Added ARIA cipher test vectors check-in: 2a6486178c user: bohagan tags: crypto
17:11
Added Camellia cipher test vectors check-in: 7b9599e795 user: bohagan tags: crypto
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Added tests/test_vectors/Symetric_Block/ARIA128.test version [d018dfabed]. 





















































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>

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

# Auto generated from "ARIA128.txt"
lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]]
package require tls
package require tcltest

catch {tls::provider legacy}
tcltest::testConstraint ARIA128 [expr {[lsearch -nocase [tls::ciphers] ARIA128] > -1}]

tcltest::test Symetric_Block_ARIA128-1.1 {Encrypt ARIA128} \
	-constraints ARIA128 \
	-body {binary encode hex [tls::encrypt -cipher ARIA128 -padding 0 \
		 -key [binary decode hex 000102030405060708090a0b0c0d0e0f] \
		 -data [binary decode hex 00112233445566778899aabbccddeeff]]} \
	-match exact -result d718fbd6ab644c739da95f3be6451778

tcltest::test Symetric_Block_ARIA128-1.2 {Decrypt ARIA128} \
	-constraints ARIA128 \
	-body {binary encode hex [tls::decrypt -cipher ARIA128 -padding 0 \
		 -key [binary decode hex 000102030405060708090a0b0c0d0e0f] \
		 -data [binary decode hex d718fbd6ab644c739da95f3be6451778]]} \
	-match exact -result 00112233445566778899aabbccddeeff

# Cleanup
::tcltest::cleanupTests
return

Added tests/test_vectors/Symetric_Block/ARIA128.txt version [6c5826b0f9]. 















>
>
>
>
>
>

1
2
3
4
5
6

# ARIA128 cipher from RFC 5794

# A.1.  128-Bit Key
Key = 000102030405060708090a0b0c0d0e0f
Plaintext = 00112233445566778899aabbccddeeff
Ciphertext = d718fbd6ab644c739da95f3be6451778

Added tests/test_vectors/Symetric_Block/ARIA192.test version [141aaf226e]. 





















































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>

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

# Auto generated from "ARIA192.txt"
lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]]
package require tls
package require tcltest

catch {tls::provider legacy}
tcltest::testConstraint ARIA192 [expr {[lsearch -nocase [tls::ciphers] ARIA192] > -1}]

tcltest::test Symetric_Block_ARIA192-1.1 {Encrypt ARIA192} \
	-constraints ARIA192 \
	-body {binary encode hex [tls::encrypt -cipher ARIA192 -padding 0 \
		 -key [binary decode hex 000102030405060708090a0b0c0d0e0f1011121314151617] \
		 -data [binary decode hex 00112233445566778899aabbccddeeff]]} \
	-match exact -result 26449c1805dbe7aa25a468ce263a9e79

tcltest::test Symetric_Block_ARIA192-1.2 {Decrypt ARIA192} \
	-constraints ARIA192 \
	-body {binary encode hex [tls::decrypt -cipher ARIA192 -padding 0 \
		 -key [binary decode hex 000102030405060708090a0b0c0d0e0f1011121314151617] \
		 -data [binary decode hex 26449c1805dbe7aa25a468ce263a9e79]]} \
	-match exact -result 00112233445566778899aabbccddeeff

# Cleanup
::tcltest::cleanupTests
return

Added tests/test_vectors/Symetric_Block/ARIA192.txt version [5645c76813]. 















>
>
>
>
>
>

1
2
3
4
5
6

# ARIA192 cipher from RFC 5794

# A.2.  192-Bit Key
Key = 000102030405060708090a0b0c0d0e0f1011121314151617
Plaintext = 00112233445566778899aabbccddeeff
Ciphertext = 26449c1805dbe7aa25a468ce263a9e79

Added tests/test_vectors/Symetric_Block/ARIA256.test version [e64140f2f6]. 





















































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>

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

# Auto generated from "ARIA256.txt"
lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]]
package require tls
package require tcltest

catch {tls::provider legacy}
tcltest::testConstraint ARIA256 [expr {[lsearch -nocase [tls::ciphers] ARIA256] > -1}]

tcltest::test Symetric_Block_ARIA256-1.1 {Encrypt ARIA256} \
	-constraints ARIA256 \
	-body {binary encode hex [tls::encrypt -cipher ARIA256 -padding 0 \
		 -key [binary decode hex 000102030405060708090a0b0c0d0e0f101112131415161718191a1b1c1d1e1f] \
		 -data [binary decode hex 00112233445566778899aabbccddeeff]]} \
	-match exact -result f92bd7c79fb72e2f2b8f80c1972d24fc

tcltest::test Symetric_Block_ARIA256-1.2 {Decrypt ARIA256} \
	-constraints ARIA256 \
	-body {binary encode hex [tls::decrypt -cipher ARIA256 -padding 0 \
		 -key [binary decode hex 000102030405060708090a0b0c0d0e0f101112131415161718191a1b1c1d1e1f] \
		 -data [binary decode hex f92bd7c79fb72e2f2b8f80c1972d24fc]]} \
	-match exact -result 00112233445566778899aabbccddeeff

# Cleanup
::tcltest::cleanupTests
return

Added tests/test_vectors/Symetric_Block/ARIA256.txt version [6ea522af22]. 















>
>
>
>
>
>

1
2
3
4
5
6

# ARIA256 cipher from RFC 5794

# A.3.  256-Bit Key
Key = 000102030405060708090a0b0c0d0e0f101112131415161718191a1b1c1d1e1f
Plaintext = 00112233445566778899aabbccddeeff
Ciphertext = f92bd7c79fb72e2f2b8f80c1972d24fc

Powered by Fossil · RSS