This commit was manufactured by cvs2git to create tag 'SSLeay_0_9_0b'.SSLeay_0_9_0b

1 files changed, 28 insertions, 0 deletions

diff --git a/src/lib/libcrypto/des/PC1 b/src/lib/libcrypto/des/PC1
new file mode 100644
index 0000000000..efb8348b72
--- /dev/null
+++ b/src/lib/libcrypto/des/PC1
@@ -0,0 +1,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);
+        }
+