/*
*  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;
	}