crypto/camellia/camellia.c

433 #define subl(x) subL[(x)]
455     subl(0) = kll; subr(0) = klr;
456     subl(1) = krl; subr(1) = krr;
458     subl(4) = kll; subr(4) = klr;
459     subl(5) = krl; subr(5) = krr;
461     subl(10) = kll; subr(10) = klr;
462     subl(11) = krl; subr(11) = krr;
464     subl(13) = krl; subr(13) = krr;
466     subl(16) = kll; subr(16) = klr;
467     subl(17) = krl; subr(17) = krr;
469     subl(18) = kll; subr(18) = klr;
470     subl(19) = krl; subr(19) = krr;
472     subl(22) = kll; subr(22) = klr;
473     subl(23) = krl; subr(23) = krr;
476     kll = subl(0); klr = subr(0);
477     krl = subl(1); krr = subr(1);
491     subl(2) = kll; subr(2) = klr;
492     subl(3) = krl; subr(3) = krr;
494     subl(6) = kll; subr(6) = klr;
495     subl(7) = krl; subr(7) = krr;
497     subl(8) = kll; subr(8) = klr;
498     subl(9) = krl; subr(9) = krr;
500     subl(12) = kll; subr(12) = klr;
502     subl(14) = kll; subr(14) = klr;
503     subl(15) = krl; subr(15) = krr;
505     subl(20) = kll; subr(20) = klr;
506     subl(21) = krl; subr(21) = krr;
508     subl(24) = kll; subr(24) = klr;
509     subl(25) = krl; subr(25) = krr;
513     subl(3) ^= subl(1); subr(3) ^= subr(1);
514     subl(5) ^= subl(1); subr(5) ^= subr(1);
515     subl(7) ^= subl(1); subr(7) ^= subr(1);
516     subl(1) ^= subr(1) & ~subr(9);
517     dw = subl(1) & subl(9), subr(1) ^= CAMELLIA_RL1(dw);
518     subl(11) ^= subl(1); subr(11) ^= subr(1);
519     subl(13) ^= subl(1); subr(13) ^= subr(1);
520     subl(15) ^= subl(1); subr(15) ^= subr(1);
521     subl(1) ^= subr(1) & ~subr(17);
522     dw = subl(1) & subl(17), subr(1) ^= CAMELLIA_RL1(dw);
523     subl(19) ^= subl(1); subr(19) ^= subr(1);
524     subl(21) ^= subl(1); subr(21) ^= subr(1);
525     subl(23) ^= subl(1); subr(23) ^= subr(1);
526     subl(24) ^= subl(1); subr(24) ^= subr(1);
529     kw4l = subl(25); kw4r = subr(25);
530     subl(22) ^= kw4l; subr(22) ^= kw4r;
531     subl(20) ^= kw4l; subr(20) ^= kw4r;
532     subl(18) ^= kw4l; subr(18) ^= kw4r;
534     dw = kw4l & subl(16), kw4r ^= CAMELLIA_RL1(dw);
535     subl(14) ^= kw4l; subr(14) ^= kw4r;
536     subl(12) ^= kw4l; subr(12) ^= kw4r;
537     subl(10) ^= kw4l; subr(10) ^= kw4r;
539     dw = kw4l & subl(8), kw4r ^= CAMELLIA_RL1(dw);
540     subl(6) ^= kw4l; subr(6) ^= kw4r;
541     subl(4) ^= kw4l; subr(4) ^= kw4r;
542     subl(2) ^= kw4l; subr(2) ^= kw4r;
543     subl(0) ^= kw4l; subr(0) ^= kw4r;
546     SUBL(0) = subl(0) ^ subl(2);
548     SUBL(2) = subl(3);
550     SUBL(3) = subl(2) ^ subl(4);
552     SUBL(4) = subl(3) ^ subl(5);
554     SUBL(5) = subl(4) ^ subl(6);
556     SUBL(6) = subl(5) ^ subl(7);
558     tl = subl(10) ^ (subr(10) & ~subr(8));
559     dw = tl & subl(8), tr = subr(10) ^ CAMELLIA_RL1(dw);
560     SUBL(7) = subl(6) ^ tl;
562     SUBL(8) = subl(8);
564     SUBL(9) = subl(9);
566     tl = subl(7) ^ (subr(7) & ~subr(9));
567     dw = tl & subl(9), tr = subr(7) ^ CAMELLIA_RL1(dw);
568     SUBL(10) = tl ^ subl(11);
570     SUBL(11) = subl(10) ^ subl(12);
572     SUBL(12) = subl(11) ^ subl(13);
574     SUBL(13) = subl(12) ^ subl(14);
576     SUBL(14) = subl(13) ^ subl(15);
578     tl = subl(18) ^ (subr(18) & ~subr(16));
579     dw = tl & subl(16), tr = subr(18) ^ CAMELLIA_RL1(dw);
580     SUBL(15) = subl(14) ^ tl;
582     SUBL(16) = subl(16);
584     SUBL(17) = subl(17);
586     tl = subl(15) ^ (subr(15) & ~subr(17));
587     dw = tl & subl(17), tr = subr(15) ^ CAMELLIA_RL1(dw);
588     SUBL(18) = tl ^ subl(19);
590     SUBL(19) = subl(18) ^ subl(20);
592     SUBL(20) = subl(19) ^ subl(21);
594     SUBL(21) = subl(20) ^ subl(22);
596     SUBL(22) = subl(21) ^ subl(23);
598     SUBL(23) = subl(22);
600     SUBL(24) = subl(24) ^ subl(23);
667     subl(0) = kll; subr(0) = klr;
668     subl(1) = krl; subr(1) = krr;
670     subl(12) = kll; subr(12) = klr;
671     subl(13) = krl; subr(13) = krr;
673     subl(16) = kll; subr(16) = klr;
674     subl(17) = krl; subr(17) = krr;
676     subl(22) = kll; subr(22) = klr;
677     subl(23) = krl; subr(23) = krr;
679     subl(30) = kll; subr(30) = klr;
680     subl(31) = krl; subr(31) = krr;
684     subl(4) = krll; subr(4) = krlr;
685     subl(5) = krrl; subr(5) = krrr;
687     subl(8) = krll; subr(8) = krlr;
688     subl(9) = krrl; subr(9) = krrr;
690     subl(18) = krll; subr(18) = krlr;
691     subl(19) = krrl; subr(19) = krrr;
693     subl(26) = krll; subr(26) = krlr;
694     subl(27) = krrl; subr(27) = krrr;
698     kll = subl(0) ^ krll; klr = subr(0) ^ krlr;
699     krl = subl(1) ^ krrl; krr = subr(1) ^ krrr;
725     subl(6) = kll; subr(6) = klr;
726     subl(7) = krl; subr(7) = krr;
728     subl(14) = kll; subr(14) = klr;
729     subl(15) = krl; subr(15) = krr;
730     subl(24) = klr; subr(24) = krl;
731     subl(25) = krr; subr(25) = kll;
733     subl(28) = kll; subr(28) = klr;
734     subl(29) = krl; subr(29) = krr;
737     subl(2) = krll; subr(2) = krlr;
738     subl(3) = krrl; subr(3) = krrr;
740     subl(10) = krll; subr(10) = krlr;
741     subl(11) = krrl; subr(11) = krrr;
743     subl(20) = krll; subr(20) = krlr;
744     subl(21) = krrl; subr(21) = krrr;
746     subl(32) = krll; subr(32) = krlr;
747     subl(33) = krrl; subr(33) = krrr;
750     subl(3) ^= subl(1); subr(3) ^= subr(1);
751     subl(5) ^= subl(1); subr(5) ^= subr(1);
752     subl(7) ^= subl(1); subr(7) ^= subr(1);
753     subl(1) ^= subr(1) & ~subr(9);
754     dw = subl(1) & subl(9), subr(1) ^= CAMELLIA_RL1(dw);
755     subl(11) ^= subl(1); subr(11) ^= subr(1);
756     subl(13) ^= subl(1); subr(13) ^= subr(1);
757     subl(15) ^= subl(1); subr(15) ^= subr(1);
758     subl(1) ^= subr(1) & ~subr(17);
759     dw = subl(1) & subl(17), subr(1) ^= CAMELLIA_RL1(dw);
760     subl(19) ^= subl(1); subr(19) ^= subr(1);
761     subl(21) ^= subl(1); subr(21) ^= subr(1);
762     subl(23) ^= subl(1); subr(23) ^= subr(1);
763     subl(1) ^= subr(1) & ~subr(25);
764     dw = subl(1) & subl(25), subr(1) ^= CAMELLIA_RL1(dw);
765     subl(27) ^= subl(1); subr(27) ^= subr(1);
766     subl(29) ^= subl(1); subr(29) ^= subr(1);
767     subl(31) ^= subl(1); subr(31) ^= subr(1);
768     subl(32) ^= subl(1); subr(32) ^= subr(1);
772     kw4l = subl(33); kw4r = subr(33);
773     subl(30) ^= kw4l; subr(30) ^= kw4r;
774     subl(28) ^= kw4l; subr(28) ^= kw4r;
775     subl(26) ^= kw4l; subr(26) ^= kw4r;
777     dw = kw4l & subl(24), kw4r ^= CAMELLIA_RL1(dw);
778     subl(22) ^= kw4l; subr(22) ^= kw4r;
779     subl(20) ^= kw4l; subr(20) ^= kw4r;
780     subl(18) ^= kw4l; subr(18) ^= kw4r;
782     dw = kw4l & subl(16), kw4r ^= CAMELLIA_RL1(dw);
783     subl(14) ^= kw4l; subr(14) ^= kw4r;
784     subl(12) ^= kw4l; subr(12) ^= kw4r;
785     subl(10) ^= kw4l; subr(10) ^= kw4r;
787     dw = kw4l & subl(8), kw4r ^= CAMELLIA_RL1(dw);
788     subl(6) ^= kw4l; subr(6) ^= kw4r;
789     subl(4) ^= kw4l; subr(4) ^= kw4r;
790     subl(2) ^= kw4l; subr(2) ^= kw4r;
791     subl(0) ^= kw4l; subr(0) ^= kw4r;
794     SUBL(0) = subl(0) ^ subl(2);
796     SUBL(2) = subl(3);
798     SUBL(3) = subl(2) ^ subl(4);
800     SUBL(4) = subl(3) ^ subl(5);
802     SUBL(5) = subl(4) ^ subl(6);
804     SUBL(6) = subl(5) ^ subl(7);
806     tl = subl(10) ^ (subr(10) & ~subr(8));
807     dw = tl & subl(8), tr = subr(10) ^ CAMELLIA_RL1(dw);
808     SUBL(7) = subl(6) ^ tl;
810     SUBL(8) = subl(8);
812     SUBL(9) = subl(9);
814     tl = subl(7) ^ (subr(7) & ~subr(9));
815     dw = tl & subl(9), tr = subr(7) ^ CAMELLIA_RL1(dw);
816     SUBL(10) = tl ^ subl(11);
818     SUBL(11) = subl(10) ^ subl(12);
820     SUBL(12) = subl(11) ^ subl(13);
822     SUBL(13) = subl(12) ^ subl(14);
824     SUBL(14) = subl(13) ^ subl(15);
826     tl = subl(18) ^ (subr(18) & ~subr(16));
827     dw = tl & subl(16), tr = subr(18) ^ CAMELLIA_RL1(dw);
828     SUBL(15) = subl(14) ^ tl;
830     SUBL(16) = subl(16);
832     SUBL(17) = subl(17);
834     tl = subl(15) ^ (subr(15) & ~subr(17));
835     dw = tl & subl(17), tr = subr(15) ^ CAMELLIA_RL1(dw);
836     SUBL(18) = tl ^ subl(19);
838     SUBL(19) = subl(18) ^ subl(20);
840     SUBL(20) = subl(19) ^ subl(21);
842     SUBL(21) = subl(20) ^ subl(22);
844     SUBL(22) = subl(21) ^ subl(23);
846     tl = subl(26) ^ (subr(26) & ~subr(24));
847     dw = tl & subl(24), tr = subr(26) ^ CAMELLIA_RL1(dw);
848     SUBL(23) = subl(22) ^ tl;
850     SUBL(24) = subl(24);
852     SUBL(25) = subl(25);
854     tl = subl(23) ^ (subr(23) & ~subr(25));
855     dw = tl & subl(25), tr = subr(23) ^ CAMELLIA_RL1(dw);
856     SUBL(26) = tl ^ subl(27);
858     SUBL(27) = subl(26) ^ subl(28);
860     SUBL(28) = subl(27) ^ subl(29);
862     SUBL(29) = subl(28) ^ subl(30);
864     SUBL(30) = subl(29) ^ subl(31);
866     SUBL(31) = subl(30);
868     SUBL(32) = subl(32) ^ subl(31);