secure/lib/libdes/PC1


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

#!/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);
	}