gs fan / GSwifiInterface

GSwifiInterface library (interface for GainSpan Wi-Fi GS1011 modules) Please see https://mbed.org/users/gsfan/notebook/GSwifiInterface/

Dependents:   GSwifiInterface_HelloWorld GSwifiInterface_HelloServo GSwifiInterface_UDPEchoServer GSwifiInterface_UDPEchoClient ... more

Fork of WiflyInterface by mbed official

GainSpan Wi-Fi library

The GS1011/GS2100 is an ultra low power 802.11b wireless module from GainSpan.

mbed RTOS supported.

/media/uploads/gsfan/gs_im_002.jpg /media/uploads/gsfan/gs1011m_2.jpg

ゲインスパン Wi-Fi モジュール ライブラリ

ゲインスパン社の低電力 Wi-Fiモジュール（無線LAN） GS1011/GS2100 シリーズ用のライブラリです。

mbed RTOS に対応しています。(mbed2.0)

GSwifi/sha1.cpp@21:6431364fc667, 2014-06-05 (annotated)

Committer:
gsfan
Date:
Thu Jun 05 06:12:59 2014 +0000
Revision:
21:6431364fc667
Parent:
12:057089026a20 
fix init (setAddress)

Who changed what in which revision?

UserRevisionLine numberNew contents of line
gsfan 12:057089026a20 1 /*
gsfan 12:057089026a20 2 * source from http://www.ipa.go.jp/security/rfc/RFC3174JA.html
gsfan 12:057089026a20 3 */
gsfan 12:057089026a20 4 #include "sha1.h"
gsfan 12:057089026a20 5
gsfan 12:057089026a20 6 /*
gsfan 12:057089026a20 7 * Define the SHA1 circular left shift macro
gsfan 12:057089026a20 8 */
gsfan 12:057089026a20 9 #define SHA1CircularShift(bits,word) \
gsfan 12:057089026a20 10 (((word) << (bits)) | ((word) >> (32-(bits))))
gsfan 12:057089026a20 11
gsfan 12:057089026a20 12 /* Local Function Prototyptes */
gsfan 12:057089026a20 13 void SHA1PadMessage(SHA1Context *);
gsfan 12:057089026a20 14 void SHA1ProcessMessageBlock(SHA1Context *);
gsfan 12:057089026a20 15
gsfan 12:057089026a20 16 /*
gsfan 12:057089026a20 17 * SHA1Reset
gsfan 12:057089026a20 18 *
gsfan 12:057089026a20 19 * Description:
gsfan 12:057089026a20 20 * This function will initialize the SHA1Context in preparation
gsfan 12:057089026a20 21 * for computing a new SHA1 message digest.
gsfan 12:057089026a20 22 *
gsfan 12:057089026a20 23 * Parameters:
gsfan 12:057089026a20 24 * context: [in/out]
gsfan 12:057089026a20 25 * The context to reset.
gsfan 12:057089026a20 26 *
gsfan 12:057089026a20 27 * Returns:
gsfan 12:057089026a20 28 * sha Error Code.
gsfan 12:057089026a20 29 *
gsfan 12:057089026a20 30 */
gsfan 12:057089026a20 31 int SHA1Reset(SHA1Context *context)
gsfan 12:057089026a20 32 {
gsfan 12:057089026a20 33 if (!context)
gsfan 12:057089026a20 34 {
gsfan 12:057089026a20 35 return shaNull;
gsfan 12:057089026a20 36 }
gsfan 12:057089026a20 37
gsfan 12:057089026a20 38 context->Length_Low = 0;
gsfan 12:057089026a20 39 context->Length_High = 0;
gsfan 12:057089026a20 40 context->Message_Block_Index = 0;
gsfan 12:057089026a20 41
gsfan 12:057089026a20 42 context->Intermediate_Hash[0] = 0x67452301;
gsfan 12:057089026a20 43 context->Intermediate_Hash[1] = 0xEFCDAB89;
gsfan 12:057089026a20 44 context->Intermediate_Hash[2] = 0x98BADCFE;
gsfan 12:057089026a20 45 context->Intermediate_Hash[3] = 0x10325476;
gsfan 12:057089026a20 46 context->Intermediate_Hash[4] = 0xC3D2E1F0;
gsfan 12:057089026a20 47
gsfan 12:057089026a20 48 context->Computed = 0;
gsfan 12:057089026a20 49 context->Corrupted = 0;
gsfan 12:057089026a20 50
gsfan 12:057089026a20 51 return shaSuccess;
gsfan 12:057089026a20 52 }
gsfan 12:057089026a20 53
gsfan 12:057089026a20 54 /*
gsfan 12:057089026a20 55 * SHA1Result
gsfan 12:057089026a20 56 *
gsfan 12:057089026a20 57 * Description:
gsfan 12:057089026a20 58 * This function will return the 160-bit message digest into the
gsfan 12:057089026a20 59 * Message_Digest array provided by the caller.
gsfan 12:057089026a20 60 * NOTE: The first octet of hash is stored in the 0th element,
gsfan 12:057089026a20 61 * the last octet of hash in the 19th element.
gsfan 12:057089026a20 62 *
gsfan 12:057089026a20 63 * Parameters:
gsfan 12:057089026a20 64 * context: [in/out]
gsfan 12:057089026a20 65 * The context to use to calculate the SHA-1 hash.
gsfan 12:057089026a20 66 * Message_Digest: [out]
gsfan 12:057089026a20 67 * Where the digest is returned.
gsfan 12:057089026a20 68 *
gsfan 12:057089026a20 69 * Returns:
gsfan 12:057089026a20 70 * sha Error Code.
gsfan 12:057089026a20 71 *
gsfan 12:057089026a20 72 */
gsfan 12:057089026a20 73 int SHA1Result( SHA1Context *context,
gsfan 12:057089026a20 74 uint8_t Message_Digest[SHA1HashSize])
gsfan 12:057089026a20 75 {
gsfan 12:057089026a20 76 int i;
gsfan 12:057089026a20 77
gsfan 12:057089026a20 78 if (!context || !Message_Digest)
gsfan 12:057089026a20 79 {
gsfan 12:057089026a20 80 return shaNull;
gsfan 12:057089026a20 81 }
gsfan 12:057089026a20 82
gsfan 12:057089026a20 83 if (context->Corrupted)
gsfan 12:057089026a20 84 {
gsfan 12:057089026a20 85 return context->Corrupted;
gsfan 12:057089026a20 86 }
gsfan 12:057089026a20 87
gsfan 12:057089026a20 88 if (!context->Computed)
gsfan 12:057089026a20 89 {
gsfan 12:057089026a20 90 SHA1PadMessage(context);
gsfan 12:057089026a20 91 for(i=0; i<64; ++i)
gsfan 12:057089026a20 92 {
gsfan 12:057089026a20 93 /* message may be sensitive, clear it out */
gsfan 12:057089026a20 94 context->Message_Block[i] = 0;
gsfan 12:057089026a20 95 }
gsfan 12:057089026a20 96 context->Length_Low = 0; /* and clear length */
gsfan 12:057089026a20 97 context->Length_High = 0;
gsfan 12:057089026a20 98 context->Computed = 1;
gsfan 12:057089026a20 99 }
gsfan 12:057089026a20 100
gsfan 12:057089026a20 101 for(i = 0; i < SHA1HashSize; ++i)
gsfan 12:057089026a20 102 {
gsfan 12:057089026a20 103 Message_Digest[i] = context->Intermediate_Hash[i>>2]
gsfan 12:057089026a20 104 >> 8 * ( 3 - ( i & 0x03 ) );
gsfan 12:057089026a20 105 }
gsfan 12:057089026a20 106
gsfan 12:057089026a20 107 return shaSuccess;
gsfan 12:057089026a20 108 }
gsfan 12:057089026a20 109
gsfan 12:057089026a20 110 /*
gsfan 12:057089026a20 111 * SHA1Input
gsfan 12:057089026a20 112 *
gsfan 12:057089026a20 113 * Description:
gsfan 12:057089026a20 114 * This function accepts an array of octets as the next portion
gsfan 12:057089026a20 115 * of the message.
gsfan 12:057089026a20 116 *
gsfan 12:057089026a20 117 * Parameters:
gsfan 12:057089026a20 118 * context: [in/out]
gsfan 12:057089026a20 119 * The SHA context to update
gsfan 12:057089026a20 120 * message_array: [in]
gsfan 12:057089026a20 121 * An array of characters representing the next portion of
gsfan 12:057089026a20 122 * the message.
gsfan 12:057089026a20 123 * length: [in]
gsfan 12:057089026a20 124 * The length of the message in message_array
gsfan 12:057089026a20 125 *
gsfan 12:057089026a20 126 * Returns:
gsfan 12:057089026a20 127 * sha Error Code.
gsfan 12:057089026a20 128 *
gsfan 12:057089026a20 129 */
gsfan 12:057089026a20 130 int SHA1Input( SHA1Context *context,
gsfan 12:057089026a20 131 const uint8_t *message_array,
gsfan 12:057089026a20 132 unsigned length)
gsfan 12:057089026a20 133 {
gsfan 12:057089026a20 134 if (!length)
gsfan 12:057089026a20 135 {
gsfan 12:057089026a20 136 return shaSuccess;
gsfan 12:057089026a20 137 }
gsfan 12:057089026a20 138
gsfan 12:057089026a20 139 if (!context || !message_array)
gsfan 12:057089026a20 140 {
gsfan 12:057089026a20 141 return shaNull;
gsfan 12:057089026a20 142 }
gsfan 12:057089026a20 143
gsfan 12:057089026a20 144 if (context->Computed)
gsfan 12:057089026a20 145 {
gsfan 12:057089026a20 146 context->Corrupted = shaStateError;
gsfan 12:057089026a20 147 return shaStateError;
gsfan 12:057089026a20 148 }
gsfan 12:057089026a20 149
gsfan 12:057089026a20 150 if (context->Corrupted)
gsfan 12:057089026a20 151 {
gsfan 12:057089026a20 152 return context->Corrupted;
gsfan 12:057089026a20 153 }
gsfan 12:057089026a20 154 while(length-- && !context->Corrupted)
gsfan 12:057089026a20 155 {
gsfan 12:057089026a20 156 context->Message_Block[context->Message_Block_Index++] =
gsfan 12:057089026a20 157 (*message_array & 0xFF);
gsfan 12:057089026a20 158
gsfan 12:057089026a20 159 context->Length_Low += 8;
gsfan 12:057089026a20 160 if (context->Length_Low == 0)
gsfan 12:057089026a20 161 {
gsfan 12:057089026a20 162 context->Length_High++;
gsfan 12:057089026a20 163 if (context->Length_High == 0)
gsfan 12:057089026a20 164 {
gsfan 12:057089026a20 165 /* Message is too long */
gsfan 12:057089026a20 166 context->Corrupted = 1;
gsfan 12:057089026a20 167 }
gsfan 12:057089026a20 168 }
gsfan 12:057089026a20 169
gsfan 12:057089026a20 170 if (context->Message_Block_Index == 64)
gsfan 12:057089026a20 171 {
gsfan 12:057089026a20 172 SHA1ProcessMessageBlock(context);
gsfan 12:057089026a20 173 }
gsfan 12:057089026a20 174
gsfan 12:057089026a20 175 message_array++;
gsfan 12:057089026a20 176 }
gsfan 12:057089026a20 177
gsfan 12:057089026a20 178 return shaSuccess;
gsfan 12:057089026a20 179 }
gsfan 12:057089026a20 180
gsfan 12:057089026a20 181 /*
gsfan 12:057089026a20 182 * SHA1ProcessMessageBlock
gsfan 12:057089026a20 183 *
gsfan 12:057089026a20 184 * Description:
gsfan 12:057089026a20 185 * This function will process the next 512 bits of the message
gsfan 12:057089026a20 186 * stored in the Message_Block array.
gsfan 12:057089026a20 187 *
gsfan 12:057089026a20 188 * Parameters:
gsfan 12:057089026a20 189 * None.
gsfan 12:057089026a20 190 *
gsfan 12:057089026a20 191 * Returns:
gsfan 12:057089026a20 192 * Nothing.
gsfan 12:057089026a20 193 *
gsfan 12:057089026a20 194 * Comments:
gsfan 12:057089026a20 195 * Many of the variable names in this code, especially the
gsfan 12:057089026a20 196 * single character names, were used because those were the
gsfan 12:057089026a20 197 * names used in the publication.
gsfan 12:057089026a20 198 *
gsfan 12:057089026a20 199 *
gsfan 12:057089026a20 200 */
gsfan 12:057089026a20 201 void SHA1ProcessMessageBlock(SHA1Context *context)
gsfan 12:057089026a20 202 {
gsfan 12:057089026a20 203 const uint32_t K[] = { /* Constants defined in SHA-1 */
gsfan 12:057089026a20 204 0x5A827999,
gsfan 12:057089026a20 205 0x6ED9EBA1,
gsfan 12:057089026a20 206 0x8F1BBCDC,
gsfan 12:057089026a20 207 0xCA62C1D6
gsfan 12:057089026a20 208 };
gsfan 12:057089026a20 209 int t; /* Loop counter */
gsfan 12:057089026a20 210 uint32_t temp; /* Temporary word value */
gsfan 12:057089026a20 211 uint32_t W[80]; /* Word sequence */
gsfan 12:057089026a20 212 uint32_t A, B, C, D, E; /* Word buffers */
gsfan 12:057089026a20 213
gsfan 12:057089026a20 214 /*
gsfan 12:057089026a20 215 * Initialize the first 16 words in the array W
gsfan 12:057089026a20 216 */
gsfan 12:057089026a20 217 for(t = 0; t < 16; t++)
gsfan 12:057089026a20 218 {
gsfan 12:057089026a20 219 W[t] = context->Message_Block[t * 4] << 24;
gsfan 12:057089026a20 220 W[t] |= context->Message_Block[t * 4 + 1] << 16;
gsfan 12:057089026a20 221 W[t] |= context->Message_Block[t * 4 + 2] << 8;
gsfan 12:057089026a20 222 W[t] |= context->Message_Block[t * 4 + 3];
gsfan 12:057089026a20 223 }
gsfan 12:057089026a20 224
gsfan 12:057089026a20 225 for(t = 16; t < 80; t++)
gsfan 12:057089026a20 226 {
gsfan 12:057089026a20 227 W[t] = SHA1CircularShift(1,W[t-3] ^ W[t-8] ^ W[t-14] ^ W[t-16]);
gsfan 12:057089026a20 228 }
gsfan 12:057089026a20 229
gsfan 12:057089026a20 230 A = context->Intermediate_Hash[0];
gsfan 12:057089026a20 231 B = context->Intermediate_Hash[1];
gsfan 12:057089026a20 232 C = context->Intermediate_Hash[2];
gsfan 12:057089026a20 233 D = context->Intermediate_Hash[3];
gsfan 12:057089026a20 234 E = context->Intermediate_Hash[4];
gsfan 12:057089026a20 235
gsfan 12:057089026a20 236 for(t = 0; t < 20; t++)
gsfan 12:057089026a20 237 {
gsfan 12:057089026a20 238 temp = SHA1CircularShift(5,A) +
gsfan 12:057089026a20 239 ((B & C) | ((~B) & D)) + E + W[t] + K[0];
gsfan 12:057089026a20 240 E = D;
gsfan 12:057089026a20 241 D = C;
gsfan 12:057089026a20 242 C = SHA1CircularShift(30,B);
gsfan 12:057089026a20 243 B = A;
gsfan 12:057089026a20 244 A = temp;
gsfan 12:057089026a20 245 }
gsfan 12:057089026a20 246
gsfan 12:057089026a20 247 for(t = 20; t < 40; t++)
gsfan 12:057089026a20 248 {
gsfan 12:057089026a20 249 temp = SHA1CircularShift(5,A) + (B ^ C ^ D) + E + W[t] + K[1];
gsfan 12:057089026a20 250 E = D;
gsfan 12:057089026a20 251 D = C;
gsfan 12:057089026a20 252 C = SHA1CircularShift(30,B);
gsfan 12:057089026a20 253 B = A;
gsfan 12:057089026a20 254 A = temp;
gsfan 12:057089026a20 255 }
gsfan 12:057089026a20 256
gsfan 12:057089026a20 257 for(t = 40; t < 60; t++)
gsfan 12:057089026a20 258 {
gsfan 12:057089026a20 259 temp = SHA1CircularShift(5,A) +
gsfan 12:057089026a20 260 ((B & C) | (B & D) | (C & D)) + E + W[t] + K[2];
gsfan 12:057089026a20 261 E = D;
gsfan 12:057089026a20 262 D = C;
gsfan 12:057089026a20 263 C = SHA1CircularShift(30,B);
gsfan 12:057089026a20 264 B = A;
gsfan 12:057089026a20 265 A = temp;
gsfan 12:057089026a20 266 }
gsfan 12:057089026a20 267
gsfan 12:057089026a20 268 for(t = 60; t < 80; t++)
gsfan 12:057089026a20 269 {
gsfan 12:057089026a20 270 temp = SHA1CircularShift(5,A) + (B ^ C ^ D) + E + W[t] + K[3];
gsfan 12:057089026a20 271 E = D;
gsfan 12:057089026a20 272 D = C;
gsfan 12:057089026a20 273 C = SHA1CircularShift(30,B);
gsfan 12:057089026a20 274 B = A;
gsfan 12:057089026a20 275 A = temp;
gsfan 12:057089026a20 276 }
gsfan 12:057089026a20 277
gsfan 12:057089026a20 278 context->Intermediate_Hash[0] += A;
gsfan 12:057089026a20 279 context->Intermediate_Hash[1] += B;
gsfan 12:057089026a20 280 context->Intermediate_Hash[2] += C;
gsfan 12:057089026a20 281 context->Intermediate_Hash[3] += D;
gsfan 12:057089026a20 282 context->Intermediate_Hash[4] += E;
gsfan 12:057089026a20 283
gsfan 12:057089026a20 284 context->Message_Block_Index = 0;
gsfan 12:057089026a20 285 }
gsfan 12:057089026a20 286
gsfan 12:057089026a20 287
gsfan 12:057089026a20 288 /*
gsfan 12:057089026a20 289 * SHA1PadMessage
gsfan 12:057089026a20 290 *
gsfan 12:057089026a20 291 * Description:
gsfan 12:057089026a20 292 * According to the standard, the message must be padded to an even
gsfan 12:057089026a20 293 * 512 bits. The first padding bit must be a '1'. The last 64
gsfan 12:057089026a20 294 * bits represent the length of the original message. All bits in
gsfan 12:057089026a20 295 * between should be 0. This function will pad the message
gsfan 12:057089026a20 296 * according to those rules by filling the Message_Block array
gsfan 12:057089026a20 297 * accordingly. It will also call the ProcessMessageBlock function
gsfan 12:057089026a20 298 * provided appropriately. When it returns, it can be assumed that
gsfan 12:057089026a20 299 * the message digest has been computed.
gsfan 12:057089026a20 300 *
gsfan 12:057089026a20 301 * Parameters:
gsfan 12:057089026a20 302 * context: [in/out]
gsfan 12:057089026a20 303 * The context to pad
gsfan 12:057089026a20 304 * ProcessMessageBlock: [in]
gsfan 12:057089026a20 305 * The appropriate SHA*ProcessMessageBlock function
gsfan 12:057089026a20 306 * Returns:
gsfan 12:057089026a20 307 * Nothing.
gsfan 12:057089026a20 308 *
gsfan 12:057089026a20 309 */
gsfan 12:057089026a20 310
gsfan 12:057089026a20 311 void SHA1PadMessage(SHA1Context *context)
gsfan 12:057089026a20 312 {
gsfan 12:057089026a20 313 /*
gsfan 12:057089026a20 314 * Check to see if the current message block is too small to hold
gsfan 12:057089026a20 315 * the initial padding bits and length. If so, we will pad the
gsfan 12:057089026a20 316 * block, process it, and then continue padding into a second
gsfan 12:057089026a20 317 * block.
gsfan 12:057089026a20 318 */
gsfan 12:057089026a20 319 if (context->Message_Block_Index > 55)
gsfan 12:057089026a20 320 {
gsfan 12:057089026a20 321 context->Message_Block[context->Message_Block_Index++] = 0x80;
gsfan 12:057089026a20 322 while(context->Message_Block_Index < 64)
gsfan 12:057089026a20 323 {
gsfan 12:057089026a20 324 context->Message_Block[context->Message_Block_Index++] = 0;
gsfan 12:057089026a20 325 }
gsfan 12:057089026a20 326
gsfan 12:057089026a20 327 SHA1ProcessMessageBlock(context);
gsfan 12:057089026a20 328
gsfan 12:057089026a20 329 while(context->Message_Block_Index < 56)
gsfan 12:057089026a20 330 {
gsfan 12:057089026a20 331 context->Message_Block[context->Message_Block_Index++] = 0;
gsfan 12:057089026a20 332 }
gsfan 12:057089026a20 333 }
gsfan 12:057089026a20 334 else
gsfan 12:057089026a20 335 {
gsfan 12:057089026a20 336 context->Message_Block[context->Message_Block_Index++] = 0x80;
gsfan 12:057089026a20 337 while(context->Message_Block_Index < 56)
gsfan 12:057089026a20 338 {
gsfan 12:057089026a20 339 context->Message_Block[context->Message_Block_Index++] = 0;
gsfan 12:057089026a20 340 }
gsfan 12:057089026a20 341 }
gsfan 12:057089026a20 342
gsfan 12:057089026a20 343 /*
gsfan 12:057089026a20 344 * Store the message length as the last 8 octets
gsfan 12:057089026a20 345 */
gsfan 12:057089026a20 346 context->Message_Block[56] = context->Length_High >> 24;
gsfan 12:057089026a20 347 context->Message_Block[57] = context->Length_High >> 16;
gsfan 12:057089026a20 348 context->Message_Block[58] = context->Length_High >> 8;
gsfan 12:057089026a20 349 context->Message_Block[59] = context->Length_High;
gsfan 12:057089026a20 350 context->Message_Block[60] = context->Length_Low >> 24;
gsfan 12:057089026a20 351 context->Message_Block[61] = context->Length_Low >> 16;
gsfan 12:057089026a20 352 context->Message_Block[62] = context->Length_Low >> 8;
gsfan 12:057089026a20 353 context->Message_Block[63] = context->Length_Low;
gsfan 12:057089026a20 354
gsfan 12:057089026a20 355 SHA1ProcessMessageBlock(context);
gsfan 12:057089026a20 356 }
gsfan 12:057089026a20 357
gsfan 12:057089026a20 358 void sha1 (const char *input, int len, char *output) {
gsfan 12:057089026a20 359 SHA1Context sha;
gsfan 12:057089026a20 360
gsfan 12:057089026a20 361 SHA1Reset(&sha);
gsfan 12:057089026a20 362 SHA1Input(&sha, (unsigned char*)input, len);
gsfan 12:057089026a20 363 SHA1Result(&sha, (uint8_t*)output);
gsfan 12:057089026a20 364 }