monotone

monotone Mtn Source Tree

Root/botan/fips140.cpp

1/*************************************************
2* FIPS-140 Self Tests Source File *
3* (C) 1999-2006 The Botan Project *
4*************************************************/
5
6#include <botan/fips140.h>
7#include <botan/lookup.h>
8
9namespace Botan {
10
11namespace FIPS140 {
12
13namespace {
14
15/*************************************************
16* Perform a Known Answer Test *
17*************************************************/
18void do_kat(const std::string& in, const std::string& out,
19 const std::string& algo_name, Filter* filter)
20 {
21 if(out.length())
22 {
23 Pipe pipe(new Hex_Decoder, filter, new Hex_Encoder);
24 pipe.process_msg(in);
25
26 if(out != pipe.read_all_as_string())
27 throw Self_Test_Failure("FIPS-140 " + algo_name + " test");
28 }
29 }
30
31/*************************************************
32* Perform a KAT for a cipher *
33*************************************************/
34void cipher_kat(const std::string& in, const std::string& out,
35 const std::string& key, const std::string& iv,
36 const std::string& cipher)
37 {
38 do_kat(in, out, cipher, get_cipher(cipher, key, iv, ENCRYPTION));
39 do_kat(out, in, cipher, get_cipher(cipher, key, iv, DECRYPTION));
40 }
41
42/*************************************************
43* Perform a KAT for a cipher *
44*************************************************/
45void cipher_kat(const std::string& cipher, const std::string& key,
46 const std::string& iv, const std::string& in,
47 const std::string& ecb_out, const std::string& cbc_out,
48 const std::string& cfb_out, const std::string& ofb_out,
49 const std::string& ctr_out)
50 {
51 if(!have_block_cipher(cipher))
52 return;
53
54 cipher_kat(in, ecb_out, key, "", cipher + "/ECB");
55 cipher_kat(in, cbc_out, key, iv, cipher + "/CBC/NoPadding");
56 cipher_kat(in, cfb_out, key, iv, cipher + "/CFB");
57 cipher_kat(in, ofb_out, key, iv, cipher + "/OFB");
58 cipher_kat(in, ctr_out, key, iv, cipher + "/CTR-BE");
59 }
60
61/*************************************************
62* Perform a KAT for a hash *
63*************************************************/
64void hash_kat(const std::string& hash, const std::string& in,
65 const std::string& out)
66 {
67 if(!have_hash(hash))
68 return;
69 do_kat(in, out, hash, new Hash_Filter(hash));
70 }
71
72/*************************************************
73* Perform a KAT for a MAC *
74*************************************************/
75void mac_kat(const std::string& mac, const std::string& in,
76 const std::string& out, const std::string& key)
77 {
78 if(!have_mac(mac))
79 return;
80 do_kat(in, out, mac, new MAC_Filter(mac, key));
81 }
82
83}
84
85/*************************************************
86* Perform FIPS 140 Self Tests *
87*************************************************/
88bool passes_self_tests()
89 {
90 try {
91 cipher_kat("DES", "0123456789ABCDEF", "1234567890ABCDEF",
92 "4E6F77206973207468652074696D6520666F7220616C6C20",
93 "3FA40E8A984D48156A271787AB8883F9893D51EC4B563B53",
94 "E5C7CDDE872BF27C43E934008C389C0F683788499A7C05F6",
95 "F3096249C7F46E51A69E839B1A92F78403467133898EA622",
96 "F3096249C7F46E5135F24A242EEB3D3F3D6D5BE3255AF8C3",
97 "F3096249C7F46E51163A8CA0FFC94C27FA2F80F480B86F75");
98
99 cipher_kat("TripleDES",
100 "385D7189A5C3D485E1370AA5D408082B5CCCCB5E19F2D90E",
101 "C141B5FCCD28DC8A",
102 "6E1BD7C6120947A464A6AAB293A0F89A563D8D40D3461B68",
103 "64EAAD4ACBB9CEAD6C7615E7C7E4792FE587D91F20C7D2F4",
104 "6235A461AFD312973E3B4F7AA7D23E34E03371F8E8C376C9",
105 "E26BA806A59B0330DE40CA38E77A3E494BE2B212F6DD624B",
106 "E26BA806A59B03307DE2BCC25A08BA40A8BA335F5D604C62",
107 "E26BA806A59B03303C62C2EFF32D3ACDD5D5F35EBCC53371");
108
109 cipher_kat("AES",
110 "2B7E151628AED2A6ABF7158809CF4F3C",
111 "000102030405060708090A0B0C0D0E0F",
112 "6BC1BEE22E409F96E93D7E117393172A"
113 "AE2D8A571E03AC9C9EB76FAC45AF8E51",
114 "3AD77BB40D7A3660A89ECAF32466EF97"
115 "F5D3D58503B9699DE785895A96FDBAAF",
116 "7649ABAC8119B246CEE98E9B12E9197D"
117 "5086CB9B507219EE95DB113A917678B2",
118 "3B3FD92EB72DAD20333449F8E83CFB4A"
119 "C8A64537A0B3A93FCDE3CDAD9F1CE58B",
120 "3B3FD92EB72DAD20333449F8E83CFB4A"
121 "7789508D16918F03F53C52DAC54ED825",
122 "3B3FD92EB72DAD20333449F8E83CFB4A"
123 "010C041999E03F36448624483E582D0E");
124
125 hash_kat("SHA-1", "", "DA39A3EE5E6B4B0D3255BFEF95601890AFD80709");
126 hash_kat("SHA-1", "616263", "A9993E364706816ABA3E25717850C26C9CD0D89D");
127 hash_kat("SHA-1",
128 "6162636462636465636465666465666765666768666768696768696A"
129 "68696A6B696A6B6C6A6B6C6D6B6C6D6E6C6D6E6F6D6E6F706E6F7071",
130 "84983E441C3BD26EBAAE4AA1F95129E5E54670F1");
131
132 mac_kat("HMAC(SHA-1)", "4869205468657265",
133 "B617318655057264E28BC0B6FB378C8EF146BE00",
134 "0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B");
135
136 mac_kat("X9.19-MAC",
137 "31311C3931383237333634351C1C35383134333237361C1C3B3132333435"
138 "36373839303132333435363D3939313231303030303F1C30303031323530"
139 "301C393738363533343132343837363932331C", "C209CCB78EE1B606",
140 "0123456789ABCDEFFEDCBA9876543210");
141 }
142 catch(std::exception)
143 {
144 return false;
145 }
146
147 return true;
148 }
149
150}
151
152}

Archive Download this file

Branches

Tags

Quick Links:     www.monotone.ca    -     Downloads    -     Documentation    -     Wiki    -     Code Forge    -     Build Status