/*
?*?This?is?D3DES?（V5.09）?by?Richard?Outerbridge?with?the?double?and
?*?triple-length?support?removed?for?use?in?VNC.??Also?the?bytebit[]?array
?*?has?been?reversed?so?that?the?most?significant?bit?in?each?byte?of?the
?*?key?is?ignored?not?the?least?significant.
?*
?*?These?changes?are?
?*?Copyright?（C）?1999?AT&T?Laboratories?Cambridge.?All?Rights?Reserved.
?*
?*?This?software?is?distributed?in?the?hope?that?it?will?be?useful
?*?but?WITHOUT?ANY?WARRANTY;?without?even?the?implied?warranty?of
?*?MERCHANTABILITY?or?FITNESS?FOR?A?PARTICULAR?PURPOSE.
?*/

/*?D3DES?（V5.09）?-
?*
?*?A?portable?public?domain?version?of?the?Data?Encryption?Standard.
?*
?*?Written?with?Symantec‘s?THINK?（Lightspeed）?C?by?Richard?Outerbridge.
?*?Thanks?to:?Dan?Hoey?for?his?excellent?Initial?and?Inverse?permutation
?*?code;??Jim?Gillogly?&?Phil?Karn?for?the?DES?key?schedule?code;?Dennis
?*?Ferguson?Eric?Young?and?Dana?How?for?comparing?notes;?and?Ray?Lau
?*?for?humouring?me?on.
?*
?*?Copyright?（c）?19881989199019911992?by?Richard?Outerbridge.
?*?（GEnie?:?OUTER;?CIS?:?[71755204]）?Graven?Imagery?1992.
?*/

#include?“d3des.h“

static?void?scrunch（unsigned?char?*?unsigned?long?*）;
static?void?unscrun（unsigned?long?*?unsigned?char?*）;
static?void?desfunc（unsigned?long?*?unsigned?long?*）;
static?void?cookey（unsigned?long?*）;

static?unsigned?long?KnL[32]?=?{?0L?};
static?unsigned?long?KnR[32]?=?{?0L?};
static?unsigned?long?Kn3[32]?=?{?0L?};
static?unsigned?char?Df_Key[24]?=?{
	0x010x230x450x670x890xab0xcd0xef
	0xfe0xdc0xba0x980x760x540x320x10
	0x890xab0xcd0xef0x010x230x450x67?};

static?unsigned?short?bytebit[8]	=?{
	01?02?04?010?020?040?0100?0200?};

static?unsigned?long?bigbyte[24]?=?{
	0x800000L	0x400000L	0x200000L	0x100000L
	0x80000L	0x40000L	0x20000L	0x10000L
	0x8000L	0x4000L	0x2000L	0x1000L
	0x800L?	0x400L?	0x200L?	0x100L
	0x80L		0x40L		0x20L		0x10L
	0x8L		0x4L		0x2L		0x1L	};

/*?Use?the?key?schedule?specified?in?the?Standard?（ANSI?X3.92-1981）.?*/

static?unsigned?char?pc1[56]?=?{
	56?48?40?32?24?16??8	?0?57?49?41?33?25?17
	?9??1?58?50?42?34?26	18?10??2?59?51?43?35
	62?54?46?38?30?22?14	?6?61?53?45?37?29?21
	13??5?60?52?44?36?28	20?12??4?27?19?11??3?};

static?unsigned?char?totrot[16]?=?{
	124681012141517192123252728?};

static?unsigned?char?pc2[48]?=?{
	13?16?10?23??0??4??2?27?14??5?20??9
	22?18?11??3?25??7?15??6?26?19?12??1
	40?51?30?36?46?54?29?39?50?44?32?47
	43?48?38?55?33?52?45?41?49?35?28?31?};

void?deskey（key?edf）	/*?Thanks?to?James?Gillogly?&?Phil?Karn!?*/
unsigned?char?*key;
int?edf;
{
	register?int?i?j?l?m?n;
	unsigned?char?pc1m[56]?pcr[56];
	unsigned?long?kn[32];

	for?（?j?=?0;?j?		l?=?pc1[j];
		m?=?l?&?07;
		pc1m[j]?=?（key[l?>>?3]?&?bytebit[m]）???1?:?0;
		}
	for（?i?=?0;?i?