// TEST vector from TDES_CMAC.pdf



Key     = 01234567 89ABCDEF 23456789 ABCDEF01 456789AB CDEF0123

plain   = ""
x       = 3des24_cmac( 00, $plain, $key )
if $x != 7DB0D37DF936C550
    ?
    pause
endif

plain   = 6BC1BEE2 2E409F96 E93D7E11 7393172A
x       = 3des24_cmac( 00, $plain, $key )
if $x != 30239CF1F52E6609
    ?
    pause
endif

plain   = 6BC1BEE2 2E409F96 E93D7E11 7393172A AE2D8A57
x       = 3des24_cmac( 00, $plain, $key )
if $x != 6C9F3EE4923F6BE2
    ?
    pause
endif

plain   = 6BC1BEE2 2E409F96 E93D7E11 7393172AAE2D8A57 1E03AC9C 9EB76FAC 45AF8E51
x       = 3des24_cmac( 00, $plain, $key )
if $x != 99429BD0 BF7904E5
    ?
    pause
endif

key     = 01234567 89ABCDEF23456789 ABCDEF0101234567 89ABCDEF
plain   = ""
x       = 3des24_cmac( 00, $plain, $key )
if $x != 79CE52A7F786A960
    ?
    pause
endif

plain   = 6BC1BEE2 2E409F96 E93D7E11 7393172A
x       = 3des24_cmac( 00, $plain, $key )
if $x != CC18A0B79AF2413B
    ?
    pause
endif

plain   = 6BC1BEE2 2E409F96 E93D7E11 7393172A AE2D8A57
x       = 3des24_cmac( 00, $plain, $key )
if $x != C06D377ECD101969
    ?
    pause
endif

plain   = 6BC1BEE2 2E409F96 E93D7E11 7393172AAE2D8A57 1E03AC9C 9EB76FAC 45AF8E51
x       = 3des24_cmac( 00, $plain, $key )
if $x != 9CD33580F9B64DFB
    ?
    pause
endif