@@ -388,7 +388,7 @@ int sha3_shake_test(void)
388388#endif
389389}
390390
391- #if defined LTC_TURBO_SHAKE
391+ #if defined LTC_TURBO_SHAKE || defined LTC_KT
392392static LTC_INLINE int s_turbo_shake_generate_ptn (unsigned char * buffer , long offset , long amount )
393393{
394394 long i ;
@@ -517,6 +517,132 @@ int turbo_shake_test(void)
517517}
518518#endif
519519
520+ #ifdef LTC_KT
521+ static LTC_INLINE int s_kt_test_one (int bits_count , int is_ptn , long input_bytes_count , long customization_bytes_count , long skip_digest_bytes , long digest_bytes_count , int counter , char const * expected_digest_hex )
522+ {
523+ int err ;
524+ hash_state md ;
525+ long offset ;
526+ long rem ;
527+ long count ;
528+ unsigned char input [1024 ];
529+ unsigned char digest [64 ];
530+ char const * expected_hex ;
531+ unsigned char expected_digest_bin [sizeof (digest )];
532+
533+ LTC_ARGCHK (bits_count == 128 || bits_count == 256 );
534+ LTC_ARGCHK (is_ptn == 0 || is_ptn == 1 );
535+ LTC_ARGCHK (input_bytes_count >= 0 );
536+ LTC_ARGCHK (customization_bytes_count >= 0 );
537+ LTC_ARGCHK (skip_digest_bytes >= 0 );
538+ LTC_ARGCHK (digest_bytes_count >= 1 );
539+ LTC_ARGCHK (counter >= 0 );
540+ LTC_ARGCHK (expected_digest_hex && expected_digest_hex [0 ] != '\0' );
541+
542+ if ((err = kt_init (& md , bits_count )) != CRYPT_OK ) return err ;
543+ offset = 0 ;
544+ rem = input_bytes_count ;
545+ do
546+ {
547+ count = rem < ((long )(sizeof (input ))) ? rem : ((long )(sizeof (input )));
548+ if (is_ptn )
549+ {
550+ if ((err = s_turbo_shake_generate_ptn (& input [0 ], offset , count )) != CRYPT_OK ) return err ;
551+ }
552+ else
553+ {
554+ XMEMSET (& input [0 ], 0xff , count );
555+ }
556+ if ((err = kt_process (& md , & input [0 ], count )) != CRYPT_OK ) return err ;
557+ offset += count ;
558+ rem -= count ;
559+ }while (rem != 0 );
560+ offset = 0 ;
561+ rem = customization_bytes_count ;
562+ do
563+ {
564+ count = rem < ((long )(sizeof (input ))) ? rem : ((long )(sizeof (input )));
565+ if ((err = s_turbo_shake_generate_ptn (& input [0 ], offset , count )) != CRYPT_OK ) return err ;
566+ if ((err = kt_customization (& md , & input [0 ], count )) != CRYPT_OK ) return err ;
567+ offset += count ;
568+ rem -= count ;
569+ }while (rem != 0 );
570+ rem = skip_digest_bytes ;
571+ do
572+ {
573+ count = rem < ((long )(sizeof (digest ))) ? rem : ((long )(sizeof (digest )));
574+ if ((err = kt_done (& md , & digest [0 ], count )) != CRYPT_OK ) return err ;
575+ rem -= count ;
576+ }while (rem != 0 );
577+ rem = digest_bytes_count ;
578+ expected_hex = expected_digest_hex ;
579+ do
580+ {
581+ count = rem < ((long )(sizeof (digest ))) ? rem : ((long )(sizeof (digest )));
582+ if ((err = s_turbo_shake_hex_to_bin (& expected_hex [0 ], & expected_digest_bin [0 ], count )) != CRYPT_OK ) return err ;
583+ if ((err = kt_done (& md , & digest [0 ], count )) != CRYPT_OK ) return err ;
584+ LTC_COMPARE_TESTVECTOR (digest , count , expected_digest_bin , count , "KangarooTwelve" , counter );
585+ rem -= count ;
586+ expected_hex += count * 2 ;
587+ }while (rem != 0 );
588+ return CRYPT_OK ;
589+ }
590+ #endif
591+
592+ #ifdef LTC_KT
593+ int kt_test (void )
594+ {
595+ #ifndef LTC_TEST
596+ return CRYPT_NOP ;
597+ #else
598+ int counter ;
599+ int err ;
600+
601+ /* https://datatracker.ietf.org/doc/html/rfc9861#name-test-vectors */
602+ /* https://www.rfc-editor.org/rfc/rfc9861.txt */
603+
604+ counter = 1 ;
605+ if ((err = s_kt_test_one (128 , 1 , 0 , 0 , 0 , 32 , counter ++ , "1ac2d450fc3b4205d19da7bfca1b37513c0803577ac7167f06fe2ce1f0ef39e5" )) != CRYPT_OK ) return err ;
606+ if ((err = s_kt_test_one (128 , 1 , 0 , 0 , 0 , 64 , counter ++ , "1ac2d450fc3b4205d19da7bfca1b37513c0803577ac7167f06fe2ce1f0ef39e54269c056b8c82e48276038b6d292966cc07a3d4645272e31ff38508139eb0a71" )) != CRYPT_OK ) return err ;
607+ if ((err = s_kt_test_one (128 , 1 , 0 , 0 , 10000 , 32 , counter ++ , "e8dc563642f7228c84684c898405d3a834799158c079b12880277a1d28e2ff6d" )) != CRYPT_OK ) return err ;
608+ if ((err = s_kt_test_one (128 , 1 , 1 , 0 , 0 , 32 , counter ++ , "2bda92450e8b147f8a7cb629e784a058efca7cf7d8218e02d345dfaa65244a1f" )) != CRYPT_OK ) return err ;
609+ if ((err = s_kt_test_one (128 , 1 , 17 , 0 , 0 , 32 , counter ++ , "6bf75fa2239198db4772e36478f8e19b0f371205f6a9a93a273f51df37122888" )) != CRYPT_OK ) return err ;
610+ if ((err = s_kt_test_one (128 , 1 , 17 * 17 , 0 , 0 , 32 , counter ++ , "0c315ebcdedbf61426de7dcf8fb725d1e74675d7f5327a5067f367b108ecb67c" )) != CRYPT_OK ) return err ;
611+ if ((err = s_kt_test_one (128 , 1 , 17 * 17 * 17 , 0 , 0 , 32 , counter ++ , "cb552e2ec77d9910701d578b457ddf772c12e322e4ee7fe417f92c758f0d59d0" )) != CRYPT_OK ) return err ;
612+ if ((err = s_kt_test_one (128 , 1 , 17 * 17 * 17 * 17 , 0 , 0 , 32 , counter ++ , "8701045e22205345ff4dda05555cbb5c3af1a771c2b89baef37db43d9998b9fe" )) != CRYPT_OK ) return err ;
613+ if ((err = s_kt_test_one (128 , 1 , 17 * 17 * 17 * 17 * 17 , 0 , 0 , 32 , counter ++ , "844d610933b1b9963cbdeb5ae3b6b05cc7cbd67ceedf883eb678a0a8e0371682" )) != CRYPT_OK ) return err ;
614+ if ((err = s_kt_test_one (128 , 1 , 17 * 17 * 17 * 17 * 17 * 17 , 0 , 0 , 32 , counter ++ , "3c390782a8a4e89fa6367f72feaaf13255c8d95878481d3cd8ce85f58e880af8" )) != CRYPT_OK ) return err ;
615+ if ((err = s_kt_test_one (128 , 1 , 0 , 1 , 0 , 32 , counter ++ , "fab658db63e94a246188bf7af69a133045f46ee984c56e3c3328caaf1aa1a583" )) != CRYPT_OK ) return err ;
616+ if ((err = s_kt_test_one (128 , 0 , 1 , 41 , 0 , 32 , counter ++ , "d848c5068ced736f4462159b9867fd4c20b808acc3d5bc48e0b06ba0a3762ec4" )) != CRYPT_OK ) return err ;
617+ if ((err = s_kt_test_one (128 , 0 , 3 , 41 * 41 , 0 , 32 , counter ++ , "c389e5009ae57120854c2e8c64670ac01358cf4c1baf89447a724234dc7ced74" )) != CRYPT_OK ) return err ;
618+ if ((err = s_kt_test_one (128 , 0 , 7 , 41 * 41 * 41 , 0 , 32 , counter ++ , "75d2f86a2e644566726b4fbcfc5657b9dbcf070c7b0dca06450ab291d7443bcf" )) != CRYPT_OK ) return err ;
619+ if ((err = s_kt_test_one (128 , 1 , 8191 , 0 , 0 , 32 , counter ++ , "1b577636f723643e990cc7d6a659837436fd6a103626600eb8301cd1dbe553d6" )) != CRYPT_OK ) return err ;
620+ if ((err = s_kt_test_one (128 , 1 , 8192 , 0 , 0 , 32 , counter ++ , "48f256f6772f9edfb6a8b661ec92dc93b95ebd05a08a17b39ae3490870c926c3" )) != CRYPT_OK ) return err ;
621+ if ((err = s_kt_test_one (128 , 1 , 8192 , 8189 , 0 , 32 , counter ++ , "3ed12f70fb05ddb58689510ab3e4d23c6c6033849aa01e1d8c220a297fedcd0b" )) != CRYPT_OK ) return err ;
622+ if ((err = s_kt_test_one (128 , 1 , 8192 , 8190 , 0 , 32 , counter ++ , "6a7c1b6a5cd0d8c9ca943a4a216cc64604559a2ea45f78570a15253d67ba00ae" )) != CRYPT_OK ) return err ;
623+ if ((err = s_kt_test_one (256 , 1 , 0 , 0 , 0 , 64 , counter ++ , "b23d2e9cea9f4904e02bec06817fc10ce38ce8e93ef4c89e6537076af8646404e3e8b68107b8833a5d30490aa33482353fd4adc7148ecb782855003aaebde4a9" )) != CRYPT_OK ) return err ;
624+ if ((err = s_kt_test_one (256 , 1 , 0 , 0 , 0 , 128 , counter ++ , "b23d2e9cea9f4904e02bec06817fc10ce38ce8e93ef4c89e6537076af8646404e3e8b68107b8833a5d30490aa33482353fd4adc7148ecb782855003aaebde4a9b0925319d8ea1e121a609821ec19efea89e6d08daee1662b69c840289f188ba860f55760b61f82114c030c97e5178449608ccd2cd2d919fc7829ff69931ac4d0" )) != CRYPT_OK ) return err ;
625+ if ((err = s_kt_test_one (256 , 1 , 0 , 0 , 10000 , 64 , counter ++ , "ad4a1d718cf950506709a4c33396139b4449041fc79a05d68da35f1e453522e056c64fe94958e7085f2964888259b9932752f3ccd855288efee5fcbb8b563069" )) != CRYPT_OK ) return err ;
626+ if ((err = s_kt_test_one (256 , 1 , 1 , 0 , 0 , 64 , counter ++ , "0d005a194085360217128cf17f91e1f71314efa5564539d444912e3437efa17f82db6f6ffe76e781eaa068bce01f2bbf81eacb983d7230f2fb02834a21b1ddd0" )) != CRYPT_OK ) return err ;
627+ if ((err = s_kt_test_one (256 , 1 , 17 , 0 , 0 , 64 , counter ++ , "1ba3c02b1fc514474f06c8979978a9056c8483f4a1b63d0dccefe3a28a2f323e1cdcca40ebf006ac76ef0397152346837b1277d3e7faa9c9653b19075098527b" )) != CRYPT_OK ) return err ;
628+ if ((err = s_kt_test_one (256 , 1 , 17 * 17 , 0 , 0 , 64 , counter ++ , "de8ccbc63e0f133ebb4416814d4c66f691bbf8b6a61ec0a7700f836b086cb029d54f12ac7159472c72db118c35b4e6aa213c6562caaa9dcc518959e69b10f3ba" )) != CRYPT_OK ) return err ;
629+ if ((err = s_kt_test_one (256 , 1 , 17 * 17 * 17 , 0 , 0 , 64 , counter ++ , "647efb49fe9d717500171b41e7f11bd491544443209997ce1c2530d15eb1ffbb598935ef954528ffc152b1e4d731ee2683680674365cd191d562bae753b84aa5" )) != CRYPT_OK ) return err ;
630+ if ((err = s_kt_test_one (256 , 1 , 17 * 17 * 17 * 17 , 0 , 0 , 64 , counter ++ , "b06275d284cd1cf205bcbe57dccd3ec1ff6686e3ed15776383e1f2fa3c6ac8f08bf8a162829db1a44b2a43ff83dd89c3cf1ceb61ede659766d5ccf817a62ba8d" )) != CRYPT_OK ) return err ;
631+ if ((err = s_kt_test_one (256 , 1 , 17 * 17 * 17 * 17 * 17 , 0 , 0 , 64 , counter ++ , "9473831d76a4c7bf77ace45b59f1458b1673d64bcd877a7c66b2664aa6dd149e60eab71b5c2bab858c074ded81ddce2b4022b5215935c0d4d19bf511aeeb0772" )) != CRYPT_OK ) return err ;
632+ if ((err = s_kt_test_one (256 , 1 , 17 * 17 * 17 * 17 * 17 * 17 , 0 , 0 , 64 , counter ++ , "0652b740d78c5e1f7c8dcc1777097382768b7ff38f9a7a20f29f413bb1b3045b31a5578f568f911e09cf44746da84224a5266e96a4a535e871324e4f9c7004da" )) != CRYPT_OK ) return err ;
633+ if ((err = s_kt_test_one (256 , 1 , 0 , 1 , 0 , 64 , counter ++ , "9280f5cc39b54a5a594ec63de0bb99371e4609d44bf845c2f5b8c316d72b159811f748f23e3fabbe5c3226ec96c62186df2d33e9df74c5069ceecbb4dd10eff6" )) != CRYPT_OK ) return err ;
634+ if ((err = s_kt_test_one (256 , 0 , 1 , 41 , 0 , 64 , counter ++ , "47ef96dd616f200937aa7847e34ec2feae8087e3761dc0f8c1a154f51dc9ccf845d7adbce57ff64b639722c6a1672e3bf5372d87e00aff89be97240756998853" )) != CRYPT_OK ) return err ;
635+ if ((err = s_kt_test_one (256 , 0 , 3 , 41 * 41 , 0 , 64 , counter ++ , "3b48667a5051c5966c53c5d42b95de451e05584e7806e2fb765eda959074172cb438a9e91dde337c98e9c41bed94c4e0aef431d0b64ef2324f7932caa6f54969" )) != CRYPT_OK ) return err ;
636+ if ((err = s_kt_test_one (256 , 0 , 7 , 41 * 41 * 41 , 0 , 64 , counter ++ , "e0911cc00025e1540831e266d94add9b98712142b80d2629e643aac4efaf5a3a30a88cbf4ac2a91a2432743054fbcc9897670e86ba8cec2fc2ace9c966369724" )) != CRYPT_OK ) return err ;
637+ if ((err = s_kt_test_one (256 , 1 , 8191 , 0 , 0 , 64 , counter ++ , "3081434d93a4108d8d8a3305b89682cebedc7ca4ea8a3ce869fbb73cbe4a58eef6f24de38ffc170514c70e7ab2d01f03812616e863d769afb3753193ba045b20" )) != CRYPT_OK ) return err ;
638+ if ((err = s_kt_test_one (256 , 1 , 8192 , 0 , 0 , 64 , counter ++ , "c6ee8e2ad3200c018ac87aaa031cdac22121b412d07dc6e0dccbb53423747e9a1c18834d99df596cf0cf4b8dfafb7bf02d139d0c9035725adc1a01b7230a41fa" )) != CRYPT_OK ) return err ;
639+ if ((err = s_kt_test_one (256 , 1 , 8192 , 8189 , 0 , 64 , counter ++ , "74e47879f10a9c5d11bd2da7e194fe57e86378bf3c3f7448eff3c576a0f18c5caae0999979512090a7f348af4260d4de3c37f1ecaf8d2c2c96c1d16c64b12496" )) != CRYPT_OK ) return err ;
640+ if ((err = s_kt_test_one (256 , 1 , 8192 , 8190 , 0 , 64 , counter ++ , "f4b5908b929ffe01e0f79ec2f21243d41a396b2e7303a6af1d6399cd6c7a0a2dd7c4f607e8277f9c9b1cb4ab9ddc59d4b92d1fc7558441f1832c3279a4241b8b" )) != CRYPT_OK ) return err ;
641+ return CRYPT_OK ;
642+ #endif
643+ }
644+ #endif
645+
520646#endif
521647
522648#ifdef LTC_KECCAK
0 commit comments