summaryrefslogtreecommitdiffstats
path: root/secure/lib/libdes/PC2
blob: 2d560270ecd80b1cc48f406bc6b7353251c7f6a2 (plain)
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
#!/usr/local/bin/perl

@PC2_C=(14,17,11,24, 1, 5,
	 3,28,15, 6,21,10,
	23,19,12, 4,26, 8,
	16, 7,27,20,13, 2,
	);

@PC2_D=(41,52,31,37,47,55,
	30,40,51,45,33,48,
	44,49,39,56,34,53,
	46,42,50,36,29,32,
	);

foreach (@PC2_C) {
	if ($_ ne "-")
		{
		$_--;
		printf "%2d  ",$_; }
	else { print "--  "; }
	$C{$_}=1;
	print "\n" if (((++$i) % 8) == 0);
	}
$i=0;
print "\n";
foreach (@PC2_D) {
	if ($_ ne "-")
		{
		$_-=29;
		printf "%2d  ",$_; }
	else { print "--  "; }
	$D{$_}=1;
	print "\n" if (((++$i) % 8) == 0); }

print "\n";
foreach $i (0 .. 27)
	{
	$_=$C{$i};
	if ($_ ne "-") {printf "%2d ",$_;}
	else { print "--  "; }
	print "\n" if (((++$i) % 8) == 0);
	}
print "\n";

print "\n";
foreach $i (0 .. 27)
	{
	$_=$D{$i};
	if ($_ ne "-") {printf "%2d  ",$_;}
	else { print "--  "; }
	print "\n" if (((++$i) % 8) == 0);
	}
print "\n";
sub numsort
	{
	$a-$b;
	}
OpenPOWER on IntegriCloud