DES in Perl was incomplete and not very useful

[openssl.git] / crypto / des / doIP

diff --git a/crypto/des/doIP b/crypto/des/doIP
deleted file mode 100644 (file)
index 18cf231..0000000
--- a/crypto/des/doIP
+++ /dev/null
@@ -1,46 +0,0 @@
-#!/usr/local/bin/perl
-
-@l=(
-        0, 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
-       );
-@r=(
-       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,58,59,60,61,62,63
-       );
-
-require 'shifts.pl';
-
-sub PERM_OP
-       {
-       local(*a,*b,*t,$n,$m)=@_;
-
-       @z=&shift(*a,-$n);
-       @z=&xor(*b,*z);
-       @z=&and(*z,$m);
-       @b=&xor(*b,*z);
-       @z=&shift(*z,$n);
-       @a=&xor(*a,*z);
-       }
-
-
-@L=@l;
-@R=@r;
-&PERM_OP(*R,*L,*T,4,0x0f0f0f0f);
-&PERM_OP(*L,*R,*T,16,0x0000ffff);
-&PERM_OP(*R,*L,*T,2,0x33333333);
-&PERM_OP(*L,*R,*T,8,0x00ff00ff);
-&PERM_OP(*R,*L,*T,1,0x55555555);
-       &printit(@L);
-       &printit(@R);
-&PERM_OP(*R,*L,*T,1,0x55555555);
-&PERM_OP(*L,*R,*T,8,0x00ff00ff);
-&PERM_OP(*R,*L,*T,2,0x33333333);
-&PERM_OP(*L,*R,*T,16,0x0000ffff);
-&PERM_OP(*R,*L,*T,4,0x0f0f0f0f);
-       &printit(@L);
-       &printit(@R);