repo.or.cz
/
dragonfly.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
remove gcc34
[dragonfly.git]
/
crypto
/
heimdal-0.6.3
/
lib
/
des
/
PC1
blob
efb8348b72d73cf8b6c111db087824e5f840aaeb
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