linbpq/CMSAuth.c

74 lines
2.1 KiB
C
Raw Permalink Normal View History

2022-08-28 09:35:46 +01:00
/*
2022-11-14 14:02:28 +00:00
Copyright 2001-2022 John Wiseman G8BPQ
2022-08-28 09:35:46 +01:00
This file is part of LinBPQ/BPQ32.
LinBPQ/BPQ32 is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
LinBPQ/BPQ32 is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with LinBPQ/BPQ32. If not, see http://www.gnu.org/licenses
*/
#define WIN32_LEAN_AND_MEAN // Exclude rarely-used stuff from Windows headers
#define _CRT_SECURE_NO_DEPRECATE
#ifdef LINBPQ
#include "compatbits.h"
2024-12-16 17:54:16 +00:00
char * strlop(const char * buf, char delim);
2022-08-28 09:35:46 +01:00
#define APIENTRY
#define VOID void
#else
#include <windows.h>
#endif
VOID APIENTRY md5 (char *arg, unsigned char * checksum);
// Implementation of the WinLink password challenge/response protocol
unsigned char seed [] = {77, 197, 101, 206, 190, 249,
93, 200, 51, 243, 93, 237,
71, 94, 239, 138, 68, 108,
70, 185, 225, 137, 217, 16,
51, 122, 193, 48, 194, 195,
198, 175, 172, 169, 70, 84,
61, 62, 104, 186, 114, 52,
61, 168, 66, 129, 192, 208,
187, 249, 232, 193, 41, 113,
41, 45, 240, 16, 29, 228,
208, 228, 61, 20, 0};
/*
Calculate the challenge password response as follows:
- Concatenate the challenge phrase, password, and supplied secret value (i.e. the salt)
- Generate an MD5 hash of the result
- Convert the first 4 bytes of the hash to an integer (big endian) and return it
*/
int GetCMSHash(char * Challenge, char * Password)
{
unsigned char Hash[16];
unsigned char Phrase[256];
strlop(Challenge, 13);
strlop(Password, 13);
strcpy(Phrase, Challenge);
strcat(Phrase, Password);
strcat(Phrase, seed);
md5(Phrase, Hash);
return ((Hash[3] & 0x3f) << 24) + (Hash[2] << 16) + (Hash[1] << 8) + Hash[0];
}