Artifact [8aab9b72a4]
EuroTcl/OpenACS 11 - 12 JULY 2024, VIENNA

Artifact 8aab9b72a437ef5043f03c804a6feb6aac5c85c99b11b646253a615b3baae852:


# Auto generated from "IDEA-CBC.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 IDEA_CBC [expr {[lsearch -nocase [tls::ciphers] IDEA-CBC] > -1}]

tcltest::test Symetric_Block_IDEA-CBC-1.1 {Encrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::encrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex 1f8e4973953f3fb0bd6b16662e9a3c17] \
		 -iv [binary decode hex 2fe2b333ceda8f98] \
		 -data [binary decode hex 45cf12964fc824ab76616ae2f4bf0822]]} \
	-match exact -result 2cb10d22ac22a375c0021ab6732936c1

tcltest::test Symetric_Block_IDEA-CBC-1.2 {Decrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::decrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex 1f8e4973953f3fb0bd6b16662e9a3c17] \
		 -iv [binary decode hex 2fe2b333ceda8f98] \
		 -data [binary decode hex 2cb10d22ac22a375c0021ab6732936c1]]} \
	-match exact -result 45cf12964fc824ab76616ae2f4bf0822

tcltest::test Symetric_Block_IDEA-CBC-1.3 {Encrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::encrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex 0700d603a1c514e46b6191ba430a3a0c] \
		 -iv [binary decode hex aad1583cd91365e3] \
		 -data [binary decode hex 068b25c7bfb1f8bdd4cfc908f69dffc5ddc726a197f0e5f720f730393279be91]]} \
	-match exact -result 4af8370c69ae4e45cc5a395e790272d5a5a0895dee1f336f0067963bd9ed55c7

tcltest::test Symetric_Block_IDEA-CBC-1.4 {Decrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::decrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex 0700d603a1c514e46b6191ba430a3a0c] \
		 -iv [binary decode hex aad1583cd91365e3] \
		 -data [binary decode hex 4af8370c69ae4e45cc5a395e790272d5a5a0895dee1f336f0067963bd9ed55c7]]} \
	-match exact -result 068b25c7bfb1f8bdd4cfc908f69dffc5ddc726a197f0e5f720f730393279be91

tcltest::test Symetric_Block_IDEA-CBC-1.5 {Encrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::encrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex 3348aa51e9a45c2dbe33ccc47f96e8de] \
		 -iv [binary decode hex 19153c673160df2b] \
		 -data [binary decode hex 9b7cee827a26575afdbb7c7a329f887238052e3601a7917456ba61251c214763d5e1847a6ad5d54127a399ab07ee3599]]} \
	-match exact -result 09738cbc8c7764dd63206892eca29fbc3a67f7fe44ded6b128a0350426776ea71d0c9a1b6d627e1e3d014837dd82f11a

tcltest::test Symetric_Block_IDEA-CBC-1.6 {Decrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::decrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex 3348aa51e9a45c2dbe33ccc47f96e8de] \
		 -iv [binary decode hex 19153c673160df2b] \
		 -data [binary decode hex 09738cbc8c7764dd63206892eca29fbc3a67f7fe44ded6b128a0350426776ea71d0c9a1b6d627e1e3d014837dd82f11a]]} \
	-match exact -result 9b7cee827a26575afdbb7c7a329f887238052e3601a7917456ba61251c214763d5e1847a6ad5d54127a399ab07ee3599

tcltest::test Symetric_Block_IDEA-CBC-1.7 {Encrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::encrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex b7f3c9576e12dd0db63e8f8fac2b9a39] \
		 -iv [binary decode hex c80f095d8bb1a060] \
		 -data [binary decode hex 9ac19954ce1319b354d3220460f71c1e373f1cd336240881160cfde46ebfed2e791e8d5a1a136ebd1dc469dec00c4187722b841cdabcb22c1be8a14657da200e]]} \
	-match exact -result 956c2993f77485da8f50b09ea7aa532f7c0aa1f63af0ac998680514a16c99d143261f7434f9a9c0fcb26a02175fde4b4093e1efe672cfe12509cf3d455c3ab01

tcltest::test Symetric_Block_IDEA-CBC-1.8 {Decrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::decrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex b7f3c9576e12dd0db63e8f8fac2b9a39] \
		 -iv [binary decode hex c80f095d8bb1a060] \
		 -data [binary decode hex 956c2993f77485da8f50b09ea7aa532f7c0aa1f63af0ac998680514a16c99d143261f7434f9a9c0fcb26a02175fde4b4093e1efe672cfe12509cf3d455c3ab01]]} \
	-match exact -result 9ac19954ce1319b354d3220460f71c1e373f1cd336240881160cfde46ebfed2e791e8d5a1a136ebd1dc469dec00c4187722b841cdabcb22c1be8a14657da200e

tcltest::test Symetric_Block_IDEA-CBC-1.9 {Encrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::encrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex b6f9afbfe5a1562bba1368fc72ac9d9c] \
		 -iv [binary decode hex 3f9d5ebe250ee7ce] \
		 -data [binary decode hex db397ec22718dbffb9c9d13de0efcd4611bf792be4fce0dc5f25d4f577ed8cdbd4eb9208d593dda3d4653954ab64f05676caa3ce9bfa795b08b67ceebc923fdc89a8c431188e9e482d8553982cf304d1]]} \
	-match exact -result 3831f1265df609c006a15c2b963465e8a0d77bbec6e6d332f0b384479f0f34d2a7ed722607e077170a97ca9cdf526602972823c562c87187b8dc5f5d7de27a80c58bcaa95f5f7cae9c5b70938bb7de9f

tcltest::test Symetric_Block_IDEA-CBC-1.10 {Decrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::decrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex b6f9afbfe5a1562bba1368fc72ac9d9c] \
		 -iv [binary decode hex 3f9d5ebe250ee7ce] \
		 -data [binary decode hex 3831f1265df609c006a15c2b963465e8a0d77bbec6e6d332f0b384479f0f34d2a7ed722607e077170a97ca9cdf526602972823c562c87187b8dc5f5d7de27a80c58bcaa95f5f7cae9c5b70938bb7de9f]]} \
	-match exact -result db397ec22718dbffb9c9d13de0efcd4611bf792be4fce0dc5f25d4f577ed8cdbd4eb9208d593dda3d4653954ab64f05676caa3ce9bfa795b08b67ceebc923fdc89a8c431188e9e482d8553982cf304d1

tcltest::test Symetric_Block_IDEA-CBC-1.11 {Encrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::encrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex bbe7b7ba07124ff1ae7c3416fe8b465e] \
		 -iv [binary decode hex 7f65b5ee3630bed6] \
		 -data [binary decode hex 2aad0c2c4306568bad7447460fd3dac054346d26feddbc9abd9110914011b4794be2a9a00a519a51a5b5124014f4ed2735480db21b434e99a911bb0b60fe0253763725b628d5739a5117b7ee3aefafc5b4c1bf446467e7bf5f78f31ff7caf187]]} \
	-match exact -result 5ee0a43a2dd9d14eee83d99e51598870a3b4221f28a2eb77b3612fec3c92037ff9eccab303d225d89f313a8894d1de97f3e87a93684290a17622766eda764308e1abe6153f638a3e8e1e6e0f36cca66ee06fa21457266c4291d8456fa84aaa09

tcltest::test Symetric_Block_IDEA-CBC-1.12 {Decrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::decrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex bbe7b7ba07124ff1ae7c3416fe8b465e] \
		 -iv [binary decode hex 7f65b5ee3630bed6] \
		 -data [binary decode hex 5ee0a43a2dd9d14eee83d99e51598870a3b4221f28a2eb77b3612fec3c92037ff9eccab303d225d89f313a8894d1de97f3e87a93684290a17622766eda764308e1abe6153f638a3e8e1e6e0f36cca66ee06fa21457266c4291d8456fa84aaa09]]} \
	-match exact -result 2aad0c2c4306568bad7447460fd3dac054346d26feddbc9abd9110914011b4794be2a9a00a519a51a5b5124014f4ed2735480db21b434e99a911bb0b60fe0253763725b628d5739a5117b7ee3aefafc5b4c1bf446467e7bf5f78f31ff7caf187

tcltest::test Symetric_Block_IDEA-CBC-1.13 {Encrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::encrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex 89a553730433f7e6d67d16d373bd5360] \
		 -iv [binary decode hex f724558db3433a52] \
		 -data [binary decode hex 807bc4ea684eedcfdcca30180680b0f1ae2814f35f36d053c5aea6595a386c1442770f4d7297d8b91825ee7237241da8925dd594ccf676aecd46ca2068e8d37a3a0ec8a7d5185a201e663b5ff36ae197110188a23503763b8218826d23ced74b31e9f6e2d7fbfa6cb43420c7807a8625]]} \
	-match exact -result 1c1fa2b32f704963913dd890dc5504d9a4562587f60e15dcf5351bc89ebf4467679ba38d6febb3063745c88e53c4e2866b7fdfe0916cb6196da3f96d0d69dd605d603a80e8da4782f6458f65a0ab55541a0cdac68095b4835ffa0d119cf5d4e40dbf19731cddcfd57cb5cf6250abfa0d

tcltest::test Symetric_Block_IDEA-CBC-1.14 {Decrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::decrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex 89a553730433f7e6d67d16d373bd5360] \
		 -iv [binary decode hex f724558db3433a52] \
		 -data [binary decode hex 1c1fa2b32f704963913dd890dc5504d9a4562587f60e15dcf5351bc89ebf4467679ba38d6febb3063745c88e53c4e2866b7fdfe0916cb6196da3f96d0d69dd605d603a80e8da4782f6458f65a0ab55541a0cdac68095b4835ffa0d119cf5d4e40dbf19731cddcfd57cb5cf6250abfa0d]]} \
	-match exact -result 807bc4ea684eedcfdcca30180680b0f1ae2814f35f36d053c5aea6595a386c1442770f4d7297d8b91825ee7237241da8925dd594ccf676aecd46ca2068e8d37a3a0ec8a7d5185a201e663b5ff36ae197110188a23503763b8218826d23ced74b31e9f6e2d7fbfa6cb43420c7807a8625

tcltest::test Symetric_Block_IDEA-CBC-1.15 {Encrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::encrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex c491ca31f91708458e29a925ec558d78] \
		 -iv [binary decode hex 9ef934946e5cd0ae] \
		 -data [binary decode hex cb6a787e0dec56f9a165957f81af336ca6b40785d9e94093c6190e5152649f882e874d79ac5e167bd2a74ce5ae088d2ee854f6539e0a94796b1e1bd4c9fcdbc79acbef4d01eeb89776d18af71ae2a4fc47dd66df6c4dbe1d1850e466549a47b636bcc7c2b3a62495b56bb67b6d455f1eebd9bfefecbca6c7f335cfce9b45cb9d]]} \
	-match exact -result 5b15322d02a4de6ee0847b029fa88eb39db00697113260bb5834128ed2201ec2c5e22f50bd274b5ae8dc24e4b721c3e5cb905d96595c869ca1db7cbe6389c8553b36f635a1fbbece6b1aba3ba9d0c6cb361aeb5708b61b99a2812b23f16ca0bc602f5dcb77a1eec677399a47b6ce5f9ebb90c32b2ff3c181a0ebcde94c46ff41

tcltest::test Symetric_Block_IDEA-CBC-1.16 {Decrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::decrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex c491ca31f91708458e29a925ec558d78] \
		 -iv [binary decode hex 9ef934946e5cd0ae] \
		 -data [binary decode hex 5b15322d02a4de6ee0847b029fa88eb39db00697113260bb5834128ed2201ec2c5e22f50bd274b5ae8dc24e4b721c3e5cb905d96595c869ca1db7cbe6389c8553b36f635a1fbbece6b1aba3ba9d0c6cb361aeb5708b61b99a2812b23f16ca0bc602f5dcb77a1eec677399a47b6ce5f9ebb90c32b2ff3c181a0ebcde94c46ff41]]} \
	-match exact -result cb6a787e0dec56f9a165957f81af336ca6b40785d9e94093c6190e5152649f882e874d79ac5e167bd2a74ce5ae088d2ee854f6539e0a94796b1e1bd4c9fcdbc79acbef4d01eeb89776d18af71ae2a4fc47dd66df6c4dbe1d1850e466549a47b636bcc7c2b3a62495b56bb67b6d455f1eebd9bfefecbca6c7f335cfce9b45cb9d

tcltest::test Symetric_Block_IDEA-CBC-1.17 {Encrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::encrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex f6e87d71b0104d6eb06a68dc6a71f498] \
		 -iv [binary decode hex 1c245f26195b76eb] \
		 -data [binary decode hex f82bef3c73a6f7f80db285726d691db6bf55eec25a859d3ba0e0445f26b9bb3b16a3161ed1866e4dd8f2e5f8ecb4e46d74a7a78c20cdfc7bcc9e479ba7a0caba9438238ad0c01651d5d98de37f03ddce6e6b4bd4ab03cf9e8ed818aedfa1cf963b932067b97d776dce1087196e7e913f7448e38244509f0caf36bd8217e15336d35c149fd4e41707893fdb84014f8729]]} \
	-match exact -result c2725ddb784b9cffe46543af4ac9f0e64edcd1678f26b3ee652af6d00ae164f7c07afd0fb773277401c2137070a6a59e39de429c032711756ce6b0c9b9dc69a0a1caaabff9da5855f7410656f8e09e00cee6f44c0fc93f9419d13ccfe63517a1c74afc3dabfd1b43171bfe097cf28ca5674fbd0fa58b0698289a92eb57cf1ff74b1d756ff113252a379f2bae8dd9cd3d

tcltest::test Symetric_Block_IDEA-CBC-1.18 {Decrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::decrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex f6e87d71b0104d6eb06a68dc6a71f498] \
		 -iv [binary decode hex 1c245f26195b76eb] \
		 -data [binary decode hex c2725ddb784b9cffe46543af4ac9f0e64edcd1678f26b3ee652af6d00ae164f7c07afd0fb773277401c2137070a6a59e39de429c032711756ce6b0c9b9dc69a0a1caaabff9da5855f7410656f8e09e00cee6f44c0fc93f9419d13ccfe63517a1c74afc3dabfd1b43171bfe097cf28ca5674fbd0fa58b0698289a92eb57cf1ff74b1d756ff113252a379f2bae8dd9cd3d]]} \
	-match exact -result f82bef3c73a6f7f80db285726d691db6bf55eec25a859d3ba0e0445f26b9bb3b16a3161ed1866e4dd8f2e5f8ecb4e46d74a7a78c20cdfc7bcc9e479ba7a0caba9438238ad0c01651d5d98de37f03ddce6e6b4bd4ab03cf9e8ed818aedfa1cf963b932067b97d776dce1087196e7e913f7448e38244509f0caf36bd8217e15336d35c149fd4e41707893fdb84014f8729

tcltest::test Symetric_Block_IDEA-CBC-1.19 {Encrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::encrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex 2c14413751c31e2730570ba3361c786b] \
		 -iv [binary decode hex 1dbbeb2f19abb448] \
		 -data [binary decode hex 40d930f9a05334d9816fe204999c3f82a03f6a0457a8c475c94553d1d116693adc618049f0a769a2eed6a6cb14c0143ec5cccdbc8dec4ce560cfd206225709326d4de7948e54d603d01b12d7fed752fb23f1aa4494fbb00130e9ded4e77e37c079042d828040c325b1a5efd15fc842e44014ca4374bf38f3c3fc3ee327733b0c8aee1abcd055772f18dc04603f7b2c1ea69ff662361f2be0a171bbdcea1e5d3f]]} \
	-match exact -result d9ab48c7195d8dd8860860688b8b66a74b3798a97647d8106352d1e3d8bb6c353e2e561478d396fb432ab07392f5fdd39d610c8e046ffc5fe5eb8736ce87f43a05ec4f4bfb0142a1d32fde8bea7af6b9e22a3fe3823a979f73cd4f4eacc145e5e043dd1a3e2183d0ae3a1aa5d8fe78d9dd867c4bd54ab149bfaefc66647f8948881f712ed7b1eabdab62b71caea6f0face592ab5fcb668752bfa7cbc39a00d05

tcltest::test Symetric_Block_IDEA-CBC-1.20 {Decrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::decrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex 2c14413751c31e2730570ba3361c786b] \
		 -iv [binary decode hex 1dbbeb2f19abb448] \
		 -data [binary decode hex d9ab48c7195d8dd8860860688b8b66a74b3798a97647d8106352d1e3d8bb6c353e2e561478d396fb432ab07392f5fdd39d610c8e046ffc5fe5eb8736ce87f43a05ec4f4bfb0142a1d32fde8bea7af6b9e22a3fe3823a979f73cd4f4eacc145e5e043dd1a3e2183d0ae3a1aa5d8fe78d9dd867c4bd54ab149bfaefc66647f8948881f712ed7b1eabdab62b71caea6f0face592ab5fcb668752bfa7cbc39a00d05]]} \
	-match exact -result 40d930f9a05334d9816fe204999c3f82a03f6a0457a8c475c94553d1d116693adc618049f0a769a2eed6a6cb14c0143ec5cccdbc8dec4ce560cfd206225709326d4de7948e54d603d01b12d7fed752fb23f1aa4494fbb00130e9ded4e77e37c079042d828040c325b1a5efd15fc842e44014ca4374bf38f3c3fc3ee327733b0c8aee1abcd055772f18dc04603f7b2c1ea69ff662361f2be0a171bbdcea1e5d3f

tcltest::test Symetric_Block_IDEA-CBC-1.21 {Encrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::encrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex 6a7082cf8cda13eff48c8158dda206ae] \
		 -iv [binary decode hex bd4172934078c201] \
		 -data [binary decode hex 940bc76d61e2c49dddd5df7f37fcf105]]} \
	-match exact -result 05a31cd129886c6458ec0739472556de

tcltest::test Symetric_Block_IDEA-CBC-1.22 {Decrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::decrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex 6a7082cf8cda13eff48c8158dda206ae] \
		 -iv [binary decode hex bd4172934078c201] \
		 -data [binary decode hex 05a31cd129886c6458ec0739472556de]]} \
	-match exact -result 940bc76d61e2c49dddd5df7f37fcf105

tcltest::test Symetric_Block_IDEA-CBC-1.23 {Encrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::encrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex 625eefa18a4756454e218d8bfed56e36] \
		 -iv [binary decode hex 73d9d0e27c2ec568] \
		 -data [binary decode hex 360dc1896ce601dfb2a949250067aad96737847a4580ede2654a329b842fe81e]]} \
	-match exact -result b046b49207973f946668d49d3cd93a13bc9cf50bab20f40cca024e2fc3dd17ea

tcltest::test Symetric_Block_IDEA-CBC-1.24 {Decrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::decrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex 625eefa18a4756454e218d8bfed56e36] \
		 -iv [binary decode hex 73d9d0e27c2ec568] \
		 -data [binary decode hex b046b49207973f946668d49d3cd93a13bc9cf50bab20f40cca024e2fc3dd17ea]]} \
	-match exact -result 360dc1896ce601dfb2a949250067aad96737847a4580ede2654a329b842fe81e

tcltest::test Symetric_Block_IDEA-CBC-1.25 {Encrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::encrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex fd6e0b954ae2e3b723d6c9fcae6ab09b] \
		 -iv [binary decode hex f08b65c9f4dd9500] \
		 -data [binary decode hex a206385945b21f812a9475f47fddbb7fbdda958a8d14c0dbcdaec36e8b28f1f6ececa1ceae4ce17721d162c1d42a66c1]]} \
	-match exact -result c25cbe4acc9e6909ed195e257a5f28beb77ceb614c538ef531b18778bbbfe1d25d70e4c9b37c4d1d9cde4361206f6173

tcltest::test Symetric_Block_IDEA-CBC-1.26 {Decrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::decrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex fd6e0b954ae2e3b723d6c9fcae6ab09b] \
		 -iv [binary decode hex f08b65c9f4dd9500] \
		 -data [binary decode hex c25cbe4acc9e6909ed195e257a5f28beb77ceb614c538ef531b18778bbbfe1d25d70e4c9b37c4d1d9cde4361206f6173]]} \
	-match exact -result a206385945b21f812a9475f47fddbb7fbdda958a8d14c0dbcdaec36e8b28f1f6ececa1ceae4ce17721d162c1d42a66c1

tcltest::test Symetric_Block_IDEA-CBC-1.27 {Encrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::encrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex 7b1ab9144b0239315cd5eec6c75663bd] \
		 -iv [binary decode hex 0b1e74f45c17ff30] \
		 -data [binary decode hex b968aeb199ad6b3c8e01f26c2edad444538c78bfa36ed68ca76123b8cdce615a01f6112bb80bfc3f17490578fb1f909a52e162637b062db04efee291a1f1af60]]} \
	-match exact -result 08186d727f2bf0eee50e52f98775ae222b67b037f40f8a803aa6196fb200ee45a5183ccd4942677d4abe617a6c41c9c565dd79d44de12d9291f434939639e59c

tcltest::test Symetric_Block_IDEA-CBC-1.28 {Decrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::decrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex 7b1ab9144b0239315cd5eec6c75663bd] \
		 -iv [binary decode hex 0b1e74f45c17ff30] \
		 -data [binary decode hex 08186d727f2bf0eee50e52f98775ae222b67b037f40f8a803aa6196fb200ee45a5183ccd4942677d4abe617a6c41c9c565dd79d44de12d9291f434939639e59c]]} \
	-match exact -result b968aeb199ad6b3c8e01f26c2edad444538c78bfa36ed68ca76123b8cdce615a01f6112bb80bfc3f17490578fb1f909a52e162637b062db04efee291a1f1af60

tcltest::test Symetric_Block_IDEA-CBC-1.29 {Encrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::encrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex 36466b6bd25ea3857ea42f0cac1919b1] \
		 -iv [binary decode hex 7186fb6bdfa98a16] \
		 -data [binary decode hex 999983467c47bb1d66d7327ab5c58f61ddb09b93bd2460cb78cbc12b5fa1ea0c5f759ccc5e478697687012ff4673f6e61eecaeda0ccad2d674d3098c7d17f887b62b56f56b03b4d055bf3a4460e83efa]]} \
	-match exact -result 0b13ebbec3b66a240dc11cecb1b3a6d5cf2770d529f852a405da596170fa6067a28f07f41c9d520b6d7c3163395dbe875995809f24a4243e0e80e735d3d92307e07775300e10ee57ab916a043c29d3cc

tcltest::test Symetric_Block_IDEA-CBC-1.30 {Decrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::decrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex 36466b6bd25ea3857ea42f0cac1919b1] \
		 -iv [binary decode hex 7186fb6bdfa98a16] \
		 -data [binary decode hex 0b13ebbec3b66a240dc11cecb1b3a6d5cf2770d529f852a405da596170fa6067a28f07f41c9d520b6d7c3163395dbe875995809f24a4243e0e80e735d3d92307e07775300e10ee57ab916a043c29d3cc]]} \
	-match exact -result 999983467c47bb1d66d7327ab5c58f61ddb09b93bd2460cb78cbc12b5fa1ea0c5f759ccc5e478697687012ff4673f6e61eecaeda0ccad2d674d3098c7d17f887b62b56f56b03b4d055bf3a4460e83efa

tcltest::test Symetric_Block_IDEA-CBC-1.31 {Encrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::encrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex 89373ee6e28397640d5082eed4123239] \
		 -iv [binary decode hex 1a74d7c859672c80] \
		 -data [binary decode hex 45efd00daa4cdc8273ef785cae9e944a7664a2391e1e2c449f475acec0124bbc22944331678617408a1702917971f4654310ffb9229bec6173715ae512d37f93aaa6abf009f7e30d65669d1db0366b5bce4c7b00f871014f5753744a1878dc57]]} \
	-match exact -result d3ed4e4fc32dc0342ec301817899967f3a47737e2691fecf6799fa9c8d41362107be6fa674320befc87ccf9fecbf03dec5be160433f450bfd89d8fc3312232efae95661ee55f10eb2a52f9590c4d7e2c656f6779f6f677190c7349273daebab4

tcltest::test Symetric_Block_IDEA-CBC-1.32 {Decrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::decrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex 89373ee6e28397640d5082eed4123239] \
		 -iv [binary decode hex 1a74d7c859672c80] \
		 -data [binary decode hex d3ed4e4fc32dc0342ec301817899967f3a47737e2691fecf6799fa9c8d41362107be6fa674320befc87ccf9fecbf03dec5be160433f450bfd89d8fc3312232efae95661ee55f10eb2a52f9590c4d7e2c656f6779f6f677190c7349273daebab4]]} \
	-match exact -result 45efd00daa4cdc8273ef785cae9e944a7664a2391e1e2c449f475acec0124bbc22944331678617408a1702917971f4654310ffb9229bec6173715ae512d37f93aaa6abf009f7e30d65669d1db0366b5bce4c7b00f871014f5753744a1878dc57

tcltest::test Symetric_Block_IDEA-CBC-1.33 {Encrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::encrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex bab0cceddc0abd63e3f82e9fbff7b8aa] \
		 -iv [binary decode hex 68b9140f300490c5] \
		 -data [binary decode hex c5585ff215bbb73ba5393440852fb199436de0d15e55c631f877670aa3eda9f672eb1f876f09544e63558436b8928000db2f02a5ad90f95b05ac4cf49e198e617e7678480fdf0efacc6aae691271e6cdd3541ebf719a1ccaedb24e2f80f92455dd5910cb5086b0960a3942ec182dcbd7]]} \
	-match exact -result 7ca59cefd0c1f0190af2c8b85d00b7e5838aee42274f26cf08fd0b4ae539c1966367960b0600425e50c802dc94427f0ccf713de467a61319ce05d23c5a5db4d43ac0b0762b2f6ad9e7076df190c50f41788a02317ecfb2e59c42b31c151f9c93f4b1cac3c37e2aafa00ba2d27dbf6b63

tcltest::test Symetric_Block_IDEA-CBC-1.34 {Decrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::decrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex bab0cceddc0abd63e3f82e9fbff7b8aa] \
		 -iv [binary decode hex 68b9140f300490c5] \
		 -data [binary decode hex 7ca59cefd0c1f0190af2c8b85d00b7e5838aee42274f26cf08fd0b4ae539c1966367960b0600425e50c802dc94427f0ccf713de467a61319ce05d23c5a5db4d43ac0b0762b2f6ad9e7076df190c50f41788a02317ecfb2e59c42b31c151f9c93f4b1cac3c37e2aafa00ba2d27dbf6b63]]} \
	-match exact -result c5585ff215bbb73ba5393440852fb199436de0d15e55c631f877670aa3eda9f672eb1f876f09544e63558436b8928000db2f02a5ad90f95b05ac4cf49e198e617e7678480fdf0efacc6aae691271e6cdd3541ebf719a1ccaedb24e2f80f92455dd5910cb5086b0960a3942ec182dcbd7

tcltest::test Symetric_Block_IDEA-CBC-1.35 {Encrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::encrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex 9c702898efa44557b29ed283f5bc0293] \
		 -iv [binary decode hex cec6e1b82e8b2a59] \
		 -data [binary decode hex 1d1f8d81bdc3e2c7cb057f408e6450000c5aaed3260ff1e87fbb6f324df6887ffd8f78d7e2a04c9ed9deda9d64482d2b002f4a2b78d8b4f691875c8295d4a64b22257ceaf713ed2f4b92530d7ad7151d629acda882b4829577a43990b0948c1149c22fe4273656d1b08833930e8b06709a94579a78fc220f7057bbc1fa9f6563]]} \
	-match exact -result 41bc04fb50553959c10d20550d54280f56b33e988b674dee1112631d18d6f79efe3067d8133bdc8ce334929537d9d19a9f5e05f626e56b45daab02fa58a027a759573f363d995e2a5fc779476bf009accc44435c044d481acf9c8c3228b9a69052ef228d64640ca4dd19352ce6257bc5658084f96fdc99790b676a0556f92c51

tcltest::test Symetric_Block_IDEA-CBC-1.36 {Decrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::decrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex 9c702898efa44557b29ed283f5bc0293] \
		 -iv [binary decode hex cec6e1b82e8b2a59] \
		 -data [binary decode hex 41bc04fb50553959c10d20550d54280f56b33e988b674dee1112631d18d6f79efe3067d8133bdc8ce334929537d9d19a9f5e05f626e56b45daab02fa58a027a759573f363d995e2a5fc779476bf009accc44435c044d481acf9c8c3228b9a69052ef228d64640ca4dd19352ce6257bc5658084f96fdc99790b676a0556f92c51]]} \
	-match exact -result 1d1f8d81bdc3e2c7cb057f408e6450000c5aaed3260ff1e87fbb6f324df6887ffd8f78d7e2a04c9ed9deda9d64482d2b002f4a2b78d8b4f691875c8295d4a64b22257ceaf713ed2f4b92530d7ad7151d629acda882b4829577a43990b0948c1149c22fe4273656d1b08833930e8b06709a94579a78fc220f7057bbc1fa9f6563

tcltest::test Symetric_Block_IDEA-CBC-1.37 {Encrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::encrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex 5674636dbdb38f705f0b08c372ef4785] \
		 -iv [binary decode hex 3f20ce0509b57420] \
		 -data [binary decode hex 6d40fd2f908f48ce19241b6b278b1b1676dffd4a97ce9f8a1574c33bc59237deb536bee376fd6c381e6987700e39283aa111cf1a59f26fae6fb6700bf012646a2ab80239bf5e1632329043aa87d7911978b36523a2bc0bed9a9737ccf7a00baa2f3822b4e9e742e168e7069290705fed2eb63aa044b78f97dd33a8d6b24741ec1fd8c8db79d93b884e762dba0f406961]]} \
	-match exact -result 52392c00281497aea7e057bd31ee71ad818674c2dd10782e395f9a59ca7b191331cb8576f0f38db240fef904d52ca9181f309e43525e5f2f2a9dc2083360cdef4bd92f61d0b54c1955429df1f3dea48edce637f33c94ce8bd1bd2dbcaa929f3a1d184753238794c585e81cfe5ade7fe86ece0d6a196d8db0282cbadc40913c3973e0c1437ab94cd59370504e9fbc5511

tcltest::test Symetric_Block_IDEA-CBC-1.38 {Decrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::decrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex 5674636dbdb38f705f0b08c372ef4785] \
		 -iv [binary decode hex 3f20ce0509b57420] \
		 -data [binary decode hex 52392c00281497aea7e057bd31ee71ad818674c2dd10782e395f9a59ca7b191331cb8576f0f38db240fef904d52ca9181f309e43525e5f2f2a9dc2083360cdef4bd92f61d0b54c1955429df1f3dea48edce637f33c94ce8bd1bd2dbcaa929f3a1d184753238794c585e81cfe5ade7fe86ece0d6a196d8db0282cbadc40913c3973e0c1437ab94cd59370504e9fbc5511]]} \
	-match exact -result 6d40fd2f908f48ce19241b6b278b1b1676dffd4a97ce9f8a1574c33bc59237deb536bee376fd6c381e6987700e39283aa111cf1a59f26fae6fb6700bf012646a2ab80239bf5e1632329043aa87d7911978b36523a2bc0bed9a9737ccf7a00baa2f3822b4e9e742e168e7069290705fed2eb63aa044b78f97dd33a8d6b24741ec1fd8c8db79d93b884e762dba0f406961

tcltest::test Symetric_Block_IDEA-CBC-1.39 {Encrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::encrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex 97a1025529b9925e25bbe78770ca2f99] \
		 -iv [binary decode hex d4b4eab92aa9637e] \
		 -data [binary decode hex e8b89150d8438bf5b17449d6ed26bd72127e10e4aa57cad85283e8359e089208e84921649f5b60ea21f7867cbc9620560c4c6238db021216db453c9943f1f1a60546173daef2557c3cdd855031b353d4bf176f28439e48785c37d38f270aa4a6faad2baabcb0c0b2d1dd5322937498ce803ba1148440a52e227ddba4872fe4d81d2d76a939d24755adb8a7b8452ceed2d179e1a5848f316f5c016300a390bfa7]]} \
	-match exact -result 0100f7adc870bedd878236fa1d6c23b5a0343546a18567b80ce4d8413854aa1e1633e8ef3c4ed53e90de2a4f11940ea6b6d59321235a6b08aba07339c9b645796729d8c18e23f0ce9e8010f0b3da765a47cbbf9635a40b0f3e56e76748290f83fdf8d1452f91d6ca2cc6d1ab2b967d51f3a9a47e0f0a51d00be2eec0f3da2aa7c06793fda880a93284e7ab3009a52f7d34b76592b3d5bdbe6332505af816a1a4

tcltest::test Symetric_Block_IDEA-CBC-1.40 {Decrypt IDEA-CBC} \
	-constraints IDEA_CBC \
	-body {binary encode hex [tls::decrypt -cipher IDEA-CBC -padding 0 \
		 -key [binary decode hex 97a1025529b9925e25bbe78770ca2f99] \
		 -iv [binary decode hex d4b4eab92aa9637e] \
		 -data [binary decode hex 0100f7adc870bedd878236fa1d6c23b5a0343546a18567b80ce4d8413854aa1e1633e8ef3c4ed53e90de2a4f11940ea6b6d59321235a6b08aba07339c9b645796729d8c18e23f0ce9e8010f0b3da765a47cbbf9635a40b0f3e56e76748290f83fdf8d1452f91d6ca2cc6d1ab2b967d51f3a9a47e0f0a51d00be2eec0f3da2aa7c06793fda880a93284e7ab3009a52f7d34b76592b3d5bdbe6332505af816a1a4]]} \
	-match exact -result e8b89150d8438bf5b17449d6ed26bd72127e10e4aa57cad85283e8359e089208e84921649f5b60ea21f7867cbc9620560c4c6238db021216db453c9943f1f1a60546173daef2557c3cdd855031b353d4bf176f28439e48785c37d38f270aa4a6faad2baabcb0c0b2d1dd5322937498ce803ba1148440a52e227ddba4872fe4d81d2d76a939d24755adb8a7b8452ceed2d179e1a5848f316f5c016300a390bfa7

# Cleanup
::tcltest::cleanupTests
return