47 lines
831 B
Perl
47 lines
831 B
Perl
#!/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);
|