test vector from nistspecialpublication800-38b.pdf


clear

key = 2b7e1516 28aed2a6 abf71588 09cf4f3c

x = aes128_cmac( 00, , $key )
if $x != bb1d6929 e9593728 7fa37d12 9b756746
    ?
    pause
endif

x = aes128_cmac( 00, 6bc1bee2 2e409f96 e93d7e11 7393172a, $key )
if $x != 070A16B46B4D4144F79BDD9DD04A287C
    ?
    pause
endif

x = aes128_cmac( 00, 6bc1bee2 2e409f96 e93d7e11 7393172a                  ae2d8a57 1e03ac9c 9eb76fac 45af8e51                  30c81c46 a35ce411, $key )
if $x != DFA66747DE9AE63030CA32611497C827
    ?
    pause
endif

x = aes128_cmac( 00, 6bc1bee2 2e409f96 e93d7e11 7393172a                  ae2d8a57 1e03ac9c 9eb76fac 45af8e51                  30c81c46 a35ce411 e5fbc119 1a0a52ef                  f69f2445 df4f9b17 ad2b417b e66c3710, $key )
if $x != 51F0BEBF7E3B9D92FC49741779363CFE
    ?
    pause
endif

key = 8e73b0f7 da0e6452 c810f32b 809079e5 62f8ead2 522c6b7b
x = aes192_cmac( 00, , $key )
if $x != d17ddf46 adaacde5 31cac483 de7a9367
    ?
    pause
endif

x = aes192_cmac( 00, 6bc1bee2 2e409f96 e93d7e11 7393172a, $key )
if $x != 9e99a7bf 31e71090 0662f65e 617c5184
    ?
    pause
endif

x = aes192_cmac( 00, 6bc1bee2 2e409f96 e93d7e11 7393172aae2d8a57 1e03ac9c 9eb76fac 45af8e5130c81c46 a35ce411, $key )
if $x != 8a1de5be 2eb31aad 089a82e6 ee908b0e
    ?
    pause
endif

x = aes192_cmac( 00, 6bc1bee2 2e409f96 e93d7e11 7393172aae2d8a57 1e03ac9c 9eb76fac 45af8e5130c81c46 a35ce411 e5fbc119 1a0a52eff69f2445 df4f9b17 ad2b417b e66c3710, $key )
if $x != a1d5df0e ed790f79 4d775896 59f39a11
    ?
    pause
endif

key = 603deb10 15ca71be 2b73aef0 857d7781 1f352c07 3b6108d7 2d9810a3 0914dff4
x = aes256_cmac( 00, , $key )
if $x != 028962f6 1b7bf89e fc6b551f 4667d983
    ?
    pause
endif

x = aes256_cmac( 00, 6bc1bee2 2e409f96 e93d7e11 7393172a, $key )
if $x != 28a7023f 452e8f82 bd4bf28d 8c37c35c
    ?
    pause
endif

x = aes256_cmac( 00, 6bc1bee2 2e409f96 e93d7e11 7393172aae2d8a57 1e03ac9c 9eb76fac 45af8e5130c81c46 a35ce411, $key )
if $x != aaf3d8f1 de5640c2 32f5b169 b9c911e6
    ?
    pause
endif

x = aes256_cmac( 00, 6bc1bee2 2e409f96 e93d7e11 7393172aae2d8a57 1e03ac9c 9eb76fac 45af8e5130c81c46 a35ce411 e5fbc119 1a0a52eff69f2445 df4f9b17 ad2b417b e66c3710, $key )
if $x != e1992190 549f6ed5 696a2c05 6c315410
    ?
    pause
endif