head	1.2;
access;
symbols
	RELENG_3_5_0_RELEASE:1.1.1.1
	RELENG_3_4_0_RELEASE:1.1.1.1
	RELENG_3_3_0_RELEASE:1.1.1.1
	RELENG_3_2_PAO:1.1.1.1.0.8
	RELENG_3_2_PAO_BP:1.1.1.1
	RELENG_3_2_0_RELEASE:1.1.1.1
	RELENG_3_1_0_RELEASE:1.1.1.1
	RELENG_3:1.1.1.1.0.6
	RELENG_3_BP:1.1.1.1
	RELENG_2_2_8_RELEASE:1.1.1.1
	RELENG_3_0_0_RELEASE:1.1.1.1
	RELENG_2_2_7_RELEASE:1.1.1.1
	RELENG_2_2_6_RELEASE:1.1.1.1
	RELENG_2_2_5_RELEASE:1.1.1.1
	RELENG_2_2_2_RELEASE:1.1.1.1
	RELENG_2_2_1_RELEASE:1.1.1.1
	RELENG_2_2_0_RELEASE:1.1.1.1
	RELENG_2_1_7_RELEASE:1.1.1.1
	RELENG_2_1_6_1_RELEASE:1.1.1.1
	RELENG_2_1_6_RELEASE:1.1.1.1
	RELENG_2_2:1.1.1.1.0.4
	RELENG_2_2_BP:1.1.1.1
	ssleay_0_6_3:1.1.1.1
	ssleay_0_6_2:1.1.1.1
	ssleay_0_6_1:1.1.1.1
	RELENG_2_1_5_RELEASE:1.1.1.1
	RELENG_2_1_0:1.1.1.1.0.2
	des_051a:1.1.1.1
	EAY:1.1.1;
locks; strict;
comment	@# @;


1.2
date	99.09.19.18.49.48;	author markm;	state dead;
branches;
next	1.1;

1.1
date	96.02.10.15.32.22;	author markm;	state Exp;
branches
	1.1.1.1;
next	;

1.1.1.1
date	96.02.10.15.32.22;	author markm;	state Exp;
branches;
next	;


desc
@@


1.2
log
@libdes is bmaked and built from src/crypto/... now.
@
text
@#!/usr/local/bin/perl

@@PC1=(  57,49,41,33,25,17, 9,
	 1,58,50,42,34,26,18,
	10, 2,59,51,43,35,27,
	19,11, 3,60,52,44,36,
	"-","-","-","-",
	63,55,47,39,31,23,15,
	 7,62,54,46,38,30,22,
	14, 6,61,53,45,37,29,
	21,13, 5,28,20,12, 4,
	"-","-","-","-",
	);

foreach (@@PC1)
	{
	if ($_ ne "-")
		{
		$_--;
		$_=int($_/8)*8+7-($_%8);
		printf "%2d  ",$_;
		}
	else
		{ print "--  "; }
	print "\n" if (((++$i) % 8) == 0);
	print "\n" if ((($i) % 32) == 0);
	}

@


1.1
log
@Initial revision
@
text
@@


1.1.1.1
log
@This is the long-awaited new DES library. Over the next couple of days
will be properly built into the system.
@
text
@@
