1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include <sys/types.h>
typedef unsigned long ulong;
typedef unsigned char uchar;
void __crypt_mysql_hash_password(ulong *result,
const char *password, size_t password_len)
{
const char *password_end = password + password_len;
register ulong nr=1345345333L, add=7, nr2=0x12345671L;
ulong tmp;
for (; password != password_end ; password++)
{
if (*password == ' ' || *password == '\t')
continue; /* skipp space in password */
tmp= (ulong) (uchar) *password;
nr^= (((nr & 63)+add)*tmp)+ (nr << 8);
nr2+=(nr2 << 8) ^ nr;
add+=tmp;
}
result[0]=nr & (((ulong) 1L << 31) -1L); /* Don't use sign bit (str2int) */;
result[1]=nr2 & (((ulong) 1L << 31) -1L);
return;
}
void __crypt_mysql_make_scrambled_password(char *to,
const char *password, size_t password_len)
{
ulong hash_res[2];
__crypt_mysql_hash_password(hash_res,password,password_len);
sprintf(to,"%08lx%08lx",hash_res[0],hash_res[1]);
}
MODULE = Crypt::MySQL PACKAGE = Crypt::MySQL
SV *
password(str)
SV *str;
CODE:
{
char to[17];
STRLEN size;
char *src = SvPV(str, size);
__crypt_mysql_make_scrambled_password(to, src, size);
RETVAL = newSVpv(to, 0);
}
OUTPUT:
RETVAL
|
