/*
---------------------------------------------------------------------------
Copyright?（c）?1998-2013?Brian?Gladman?Worcester?UK.?All?rights?reserved.

The?redistribution?and?use?of?this?software?（with?or?without?changes）
is?allowed?without?the?payment?of?fees?or?royalties?provided?that:

??source?code?distributions?include?the?above?copyright?notice?this
??list?of?conditions?and?the?following?disclaimer;

??binary?distributions?include?the?above?copyright?notice?this?list
??of?conditions?and?the?following?disclaimer?in?their?documentation.

This?software?is?provided?‘a(chǎn)s?is‘?with?no?explicit?or?implied?warranties
in?respect?of?its?operation?including?but?not?limited?to?correctness
and?fitness?for?purpose.
---------------------------------------------------------------------------
Issue?Date:?20/12/2007
*/

#ifndef?__GNUC__
#??include?
#endif
#include?
#include?“aes.h“
#include?“aesaux.h“
#include?“aestst.h“

#if?defined（__cplusplus）
extern?“C“
{
#endif

char?*st[8]?=?{?“vk“?“vt“?“nk“?“nt“?“me“?“md“?“me“?“md“?};

char?*file_name（char*?buf?size_t?len?const?unsigned?long?type?const?unsigned?long?blen?const?unsigned?long?klen）
{???char?*sp;

????if（len?????????return?0;
????sp?=?copy_str（buf?（type?????sp?=?copy_str（sp?st[type]）;
????*sp++?=?（‘0‘?+?（char）blen?/?4）;
????*sp++?=?（‘0‘?+?（char）klen?/?4）;
????sp?=?copy_str（sp?“.txt“）;
????*sp?=?‘\0‘;
????return?buf;
}

const?char?*pos（const?char?*s）
{
????while（*s++?!=?‘=‘）
????????;
????while（*s++?==?‘?‘）
????????;
????return?s?-?1;
}

//?Strings?to?locate?lines?in?test?vector?files

const?char?*fstr[NO_LTYPES]?=
????????{?BADL_STR?BLEN_STR?KLEN_STR?TEST_STR?IV_STR?KEY_STR?PT_STR?CT_STR?};

char????*hxx?=?“0123456789abcdef“;

//?Hexadecimal?conversion?from?hex?character?to?a?number?in?range?0?<=?no?<=?15

int?to_hex（int?ch）
{
????return?（ch?&?15）?+?（ch?>=?‘0‘?&&?ch?<=?‘9‘???0?:?9）;
}

int?get_line（FILE?*inf?char?s[]）
{
????if（feof（inf））
????????return?EXIT_FAILURE;

????return?fgets（s?100?inf）?!=?s???EXIT_FAILURE?:?EXIT_SUCCESS;
}

char?*copy_str（char?*d?const?char?*s）
{
????while（*s）
????????*d++?=?*s++;

????*d?=?‘\0‘;
????return?d;
}

char?*df_string（const?char?*f）
{???char?*p?=?f?*p1?*p2;
?
????p1?=?p2?=?0;
????while（*p）
????????if（*p++?==?‘\\‘）
????????{
????????????p1?=?p2;?p2??=?p;
????????}
????return?（p1???p1?:?p2???p2?:?f）;
}

//?Read?from?a?string?of?hexadecimal?digits?into?an?array?of?8-bit?bytes
//?Each?pair?of?hexadecimal?digits?is?used?to?compile?one?8-bit?unsigned?char?and
//?the?first?（last）?digit?forms?the?most?（least）?significant?four?bits
//?of?each?unsigned?char.?The?hexadecimal?digits?are?read?from?left?（low）?to?right
//?（high）?and?are?placed?in?increasing?index?positions?in?the?unsigned?char?array

int?block_in（unsigned?char?l[]?const?char?*p）
{???int?i?=?0;

????p?=?pos（p）;

????while（*p?&&?*（p?+?1）?&&?isxdigit（*p）?&&?isxdigit（*（p?+?1）））
????{
????????l[i++]?=?（to_hex（*p）?<