projects
/
oweals
/
openssl.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Switch version string to SSLeay/OpenSSL
[oweals/openssl.git]
/
crypto
/
des
/
PC1
1
#!/usr/local/bin/perl
2
3
@PC1=( 57,49,41,33,25,17, 9,
4
1,58,50,42,34,26,18,
5
10, 2,59,51,43,35,27,
6
19,11, 3,60,52,44,36,
7
"-","-","-","-",
8
63,55,47,39,31,23,15,
9
7,62,54,46,38,30,22,
10
14, 6,61,53,45,37,29,
11
21,13, 5,28,20,12, 4,
12
"-","-","-","-",
13
);
14
15
foreach (@PC1)
16
{
17
if ($_ ne "-")
18
{
19
$_--;
20
$_=int($_/8)*8+7-($_%8);
21
printf "%2d ",$_;
22
}
23
else
24
{ print "-- "; }
25
print "\n" if (((++$i) % 8) == 0);
26
print "\n" if ((($i) % 32) == 0);
27
}
28