NetServices Stack source

Dependents:   HelloWorld ServoInterfaceBoardExample1 4180_Lab4

Committer:
donatien
Date:
Thu Aug 05 15:01:33 2010 +0000
Revision:
11:da4498f591ee
Parent:
0:632c9925f013

        

Who changed what in which revision?

UserRevisionLine numberNew contents of line
donatien 0:632c9925f013 1 /* Copyright (C) 2007 MySQL AB & Michael Widenius
donatien 0:632c9925f013 2
donatien 0:632c9925f013 3 This program is free software; you can redistribute it and/or modify
donatien 0:632c9925f013 4 it under the terms of the GNU General Public License as published by
donatien 0:632c9925f013 5 the Free Software Foundation; version 2 of the License.
donatien 0:632c9925f013 6
donatien 0:632c9925f013 7 This program is distributed in the hope that it will be useful,
donatien 0:632c9925f013 8 but WITHOUT ANY WARRANTY; without even the implied warranty of
donatien 0:632c9925f013 9 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
donatien 0:632c9925f013 10 GNU General Public License for more details.
donatien 0:632c9925f013 11
donatien 0:632c9925f013 12 You should have received a copy of the GNU General Public License
donatien 0:632c9925f013 13 along with this program; if not, write to the Free Software
donatien 0:632c9925f013 14 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */
donatien 0:632c9925f013 15
donatien 0:632c9925f013 16 #define SCRAMBLE_LENGTH_323 8
donatien 0:632c9925f013 17
donatien 0:632c9925f013 18 #include <string.h>
donatien 0:632c9925f013 19 #include <math.h>
donatien 0:632c9925f013 20
donatien 0:632c9925f013 21 typedef unsigned int uint;
donatien 0:632c9925f013 22 typedef unsigned long ulong;
donatien 0:632c9925f013 23 typedef unsigned char uchar;
donatien 0:632c9925f013 24
donatien 0:632c9925f013 25 struct my_rnd_struct {
donatien 0:632c9925f013 26 unsigned long seed1,seed2,max_value;
donatien 0:632c9925f013 27 double max_value_dbl;
donatien 0:632c9925f013 28 };
donatien 0:632c9925f013 29
donatien 0:632c9925f013 30 static void my_rnd_init(struct my_rnd_struct *rand_st, ulong seed1, ulong seed2);
donatien 0:632c9925f013 31 static double my_rnd(struct my_rnd_struct *rand_st);
donatien 0:632c9925f013 32 static void hash_password(ulong *result, const char *password, uint password_len);
donatien 0:632c9925f013 33
donatien 0:632c9925f013 34 /*
donatien 0:632c9925f013 35 Initialize random generator
donatien 0:632c9925f013 36
donatien 0:632c9925f013 37 NOTES
donatien 0:632c9925f013 38 MySQL's password checks depends on this, so don't do any changes
donatien 0:632c9925f013 39 that changes the random numbers that are generated!
donatien 0:632c9925f013 40 */
donatien 0:632c9925f013 41
donatien 0:632c9925f013 42 static void my_rnd_init(struct my_rnd_struct *rand_st, ulong seed1, ulong seed2)
donatien 0:632c9925f013 43 {
donatien 0:632c9925f013 44 rand_st->max_value= 0x3FFFFFFFL;
donatien 0:632c9925f013 45 rand_st->max_value_dbl=(double) rand_st->max_value;
donatien 0:632c9925f013 46 rand_st->seed1=seed1%rand_st->max_value ;
donatien 0:632c9925f013 47 rand_st->seed2=seed2%rand_st->max_value;
donatien 0:632c9925f013 48 }
donatien 0:632c9925f013 49
donatien 0:632c9925f013 50 /*
donatien 0:632c9925f013 51 Generate random number.
donatien 0:632c9925f013 52
donatien 0:632c9925f013 53 SYNOPSIS
donatien 0:632c9925f013 54 my_rnd()
donatien 0:632c9925f013 55 rand_st INOUT Structure used for number generation
donatien 0:632c9925f013 56
donatien 0:632c9925f013 57 RETURN VALUE
donatien 0:632c9925f013 58 generated pseudo random number
donatien 0:632c9925f013 59 */
donatien 0:632c9925f013 60
donatien 0:632c9925f013 61 static double my_rnd(struct my_rnd_struct *rand_st)
donatien 0:632c9925f013 62 {
donatien 0:632c9925f013 63 rand_st->seed1=(rand_st->seed1*3+rand_st->seed2) % rand_st->max_value;
donatien 0:632c9925f013 64 rand_st->seed2=(rand_st->seed1+rand_st->seed2+33) % rand_st->max_value;
donatien 0:632c9925f013 65 return (((double) rand_st->seed1)/rand_st->max_value_dbl);
donatien 0:632c9925f013 66 }
donatien 0:632c9925f013 67
donatien 0:632c9925f013 68 /*
donatien 0:632c9925f013 69 Generate binary hash from raw text string
donatien 0:632c9925f013 70 Used for Pre-4.1 password handling
donatien 0:632c9925f013 71 SYNOPSIS
donatien 0:632c9925f013 72 hash_password()
donatien 0:632c9925f013 73 result OUT store hash in this location
donatien 0:632c9925f013 74 password IN plain text password to build hash
donatien 0:632c9925f013 75 password_len IN password length (password may be not null-terminated)
donatien 0:632c9925f013 76 */
donatien 0:632c9925f013 77
donatien 0:632c9925f013 78 static void hash_password(ulong *result, const char *password, uint password_len)
donatien 0:632c9925f013 79 {
donatien 0:632c9925f013 80 register ulong nr=1345345333L, add=7, nr2=0x12345671L;
donatien 0:632c9925f013 81 ulong tmp;
donatien 0:632c9925f013 82 const char *password_end= password + password_len;
donatien 0:632c9925f013 83 for (; password < password_end; password++)
donatien 0:632c9925f013 84 {
donatien 0:632c9925f013 85 if (*password == ' ' || *password == '\t')
donatien 0:632c9925f013 86 continue; /* skip space in password */
donatien 0:632c9925f013 87 tmp= (ulong) (uchar) *password;
donatien 0:632c9925f013 88 nr^= (((nr & 63)+add)*tmp)+ (nr << 8);
donatien 0:632c9925f013 89 nr2+=(nr2 << 8) ^ nr;
donatien 0:632c9925f013 90 add+=tmp;
donatien 0:632c9925f013 91 }
donatien 0:632c9925f013 92 result[0]=nr & (((ulong) 1L << 31) -1L); /* Don't use sign bit (str2int) */;
donatien 0:632c9925f013 93 result[1]=nr2 & (((ulong) 1L << 31) -1L);
donatien 0:632c9925f013 94 }
donatien 0:632c9925f013 95
donatien 0:632c9925f013 96
donatien 0:632c9925f013 97
donatien 0:632c9925f013 98 /*
donatien 0:632c9925f013 99 Scramble string with password.
donatien 0:632c9925f013 100 Used in pre 4.1 authentication phase.
donatien 0:632c9925f013 101 SYNOPSIS
donatien 0:632c9925f013 102 scramble_323()
donatien 0:632c9925f013 103 to OUT Store scrambled message here. Buffer must be at least
donatien 0:632c9925f013 104 SCRAMBLE_LENGTH_323+1 bytes long
donatien 0:632c9925f013 105 message IN Message to scramble. Message must be at least
donatien 0:632c9925f013 106 SRAMBLE_LENGTH_323 bytes long.
donatien 0:632c9925f013 107 password IN Password to use while scrambling
donatien 0:632c9925f013 108 */
donatien 0:632c9925f013 109
donatien 0:632c9925f013 110 void scramble_323(char *to, const char *message, const char *password)
donatien 0:632c9925f013 111 {
donatien 0:632c9925f013 112 struct my_rnd_struct rand_st;
donatien 0:632c9925f013 113 ulong hash_pass[2], hash_message[2];
donatien 0:632c9925f013 114
donatien 0:632c9925f013 115 if (password && password[0])
donatien 0:632c9925f013 116 {
donatien 0:632c9925f013 117 char extra, *to_start=to;
donatien 0:632c9925f013 118 const char *message_end= message + SCRAMBLE_LENGTH_323;
donatien 0:632c9925f013 119 hash_password(hash_pass,password, (uint) strlen(password));
donatien 0:632c9925f013 120 hash_password(hash_message, message, SCRAMBLE_LENGTH_323);
donatien 0:632c9925f013 121 my_rnd_init(&rand_st,hash_pass[0] ^ hash_message[0],
donatien 0:632c9925f013 122 hash_pass[1] ^ hash_message[1]);
donatien 0:632c9925f013 123 for (; message < message_end; message++)
donatien 0:632c9925f013 124 *to++= (char) (floor(my_rnd(&rand_st)*31)+64);
donatien 0:632c9925f013 125 extra=(char) (floor(my_rnd(&rand_st)*31));
donatien 0:632c9925f013 126 while (to_start != to)
donatien 0:632c9925f013 127 *(to_start++)^=extra;
donatien 0:632c9925f013 128 }
donatien 0:632c9925f013 129 *to= 0;
donatien 0:632c9925f013 130 }
donatien 0:632c9925f013 131