#!/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 R_PERM_OP
	{
	local(*a,*b,*t,$n,$m)=@_;

	@z=&rotate(*a,$n);
	@t=@z;
	@z=&xor(*z,*b);
	@z=&and(*z,$m);
	@t=&xor(*t,*z);
	@b=&xor(*b,*z);
	}

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);
	return(@a);
	}


@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);

print "som-3\n";
@L=@l;
@R=@r;
&R_PERM_OP(*L,*R,*T,  4,0xf0f0f0f0); # L->T R->R T->L
&R_PERM_OP(*R,*T,*L, 20,0xfff0000f); # L->R R->T T->L
&R_PERM_OP(*L,*T,*R, 14,0x33333333); # L->T R->R T->L
&R_PERM_OP(*T,*R,*L, 22,0x03fc03fc); # L->L R->R T->T
&R_PERM_OP(*L,*R,*T,  9,0xaaaaaaaa); # L->T R->R T->L

@L=@T;
@L=rotater(*L,3);
@R=rotater(*R,2);
	&printit(@L);
	&printit(@R);

@L=rotatel(*L,3);
@R=rotatel(*R,2);

&R_PERM_OP(*L,*R,*T,  0,0xaaaaaaaa); # L->T R->R T->L
&R_PERM_OP(*T,*R,*L, 23,0x03fc03fc); # L->L R->R T->T
&R_PERM_OP(*L,*R,*T, 10,0x33333333); # L->T R->R T->L
&R_PERM_OP(*R,*T,*L, 18,0xfff0000f); # L->R R->T T->L
&R_PERM_OP(*L,*T,*R, 12,0xf0f0f0f0); # L->T R->R T->L
@L=@T;
@L=rotater(*L,4);
	&printit(@L);
	&printit(@R);
