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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
/*
* cross-platform and mod_ssl-safe code modifications are Copyright (C)
* 2000 W3Works, LLC. All rights reserved.
*/
/*
* Copyright (C) 1995, 1996 Systemics Ltd (http://www.systemics.com/)
* All rights reserved.
*/
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
typedef unsigned char i8;
typedef unsigned long i32;
#include "_des.h"
#ifndef sv_undef
#define sv_undef PL_sv_undef
#endif
MODULE = Crypt::DES PACKAGE = Crypt::DES PREFIX = _des_
PROTOTYPES: DISABLE
char *
_des_expand_key(key)
char * key = NO_INIT
STRLEN key_len = NO_INIT
CODE:
{
des_ks ks;
key = (char *) SvPV(ST(0), key_len);
if (key_len != sizeof(des_user_key))
croak("Invalid key");
perl_des_expand_key((i8 *)key, ks);
ST(0) = sv_2mortal(newSVpv((char *)ks, sizeof(ks)));
}
void
_des_crypt(input, output, ks, enc_flag)
char * input = NO_INIT
SV * output
char * ks = NO_INIT
int enc_flag
STRLEN input_len = NO_INIT
STRLEN output_len = NO_INIT
STRLEN ks_len = NO_INIT
CODE:
{
input = (char *) SvPV(ST(0), input_len);
if (input_len != 8)
croak("input must be 8 bytes long");
ks = (char *) SvPV(ST(2), ks_len);
if (ks_len != sizeof(des_ks))
croak("Invalid key schedule");
if (output == &sv_undef)
output = sv_newmortal();
output_len = 8;
(SvUPGRADE(output, SVt_PV));
perl_des_crypt(input, SvGROW(output, output_len), (i32 *)ks, enc_flag);
SvCUR_set(output, output_len);
*SvEND(output) = '\0';
(void) SvPOK_only(output);
SvTAINT(output);
ST(0) = output;
}
|
