DES.xs revision 7c478bd95313f5f23a4c958a745db2134aa03244
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include "des.h"
#define deschar char
static int
not_here(s)
char *s;
{
croak("%s not implemented on this architecture", s);
return -1;
}
char *
char * buf
char * salt
void
{
SV *s;
s=sv_newmortal();
PUSHs(s);
}
int
CODE:
int encrypt
CODE:
void
char * input
int encrypt
{
SV *s;
char *c;
s=sv_newmortal();
sv_setpvn(s,"",0);
PUSHs(s);
}
void
char * input
int encrypt
{
SV *s;
s=sv_newmortal();
sv_setpvn(s,"",0);
PUSHs(s);
}
void
char * input
{
des_cblock c;
s1=sv_newmortal();
s2=sv_newmortal();
}
void
char * input
int numbits
int encrypt
{
SV *s;
char *c;
s=sv_newmortal();
sv_setpvn(s,"",0);
des_cfb_encrypt((unsigned char *)input,(unsigned char *)c,
PUSHs(s);
}
int encrypt
CODE:
{
des_cblock c;
RETVAL= &c;
}
void
unsigned char * input
int numbits
{
SV *s;
unsigned char *c;
s=sv_newmortal();
sv_setpvn(s,"",0);
des_ofb_encrypt((unsigned char *)input,(unsigned char *)c,
PUSHs(s);
}
void
char * input
int encrypt
{
SV *s;
char *c;
s=sv_newmortal();
sv_setpvn(s,"",0);
PUSHs(s);
}
CODE:
{
des_cblock c;
des_random_key(c);
RETVAL=&c;
}
char * str
CODE:
{
des_cblock c;
des_string_to_key(str,&c);
RETVAL=&c;
}
void
char * str
{
s1=sv_newmortal();
s2=sv_newmortal();
}