crypto/camellia/camellia.c

429 #define subr(x) subR[(x)]
450     subl(0) = kll; subr(0) = klr;
451     subl(1) = krl; subr(1) = krr;
453     subl(4) = kll; subr(4) = klr;
454     subl(5) = krl; subr(5) = krr;
456     subl(10) = kll; subr(10) = klr;
457     subl(11) = krl; subr(11) = krr;
459     subl(13) = krl; subr(13) = krr;
461     subl(16) = kll; subr(16) = klr;
462     subl(17) = krl; subr(17) = krr;
464     subl(18) = kll; subr(18) = klr;
465     subl(19) = krl; subr(19) = krr;
467     subl(22) = kll; subr(22) = klr;
468     subl(23) = krl; subr(23) = krr;
471     kll = subl(0); klr = subr(0);
472     krl = subl(1); krr = subr(1);
486     subl(2) = kll; subr(2) = klr;
487     subl(3) = krl; subr(3) = krr;
489     subl(6) = kll; subr(6) = klr;
490     subl(7) = krl; subr(7) = krr;
492     subl(8) = kll; subr(8) = klr;
493     subl(9) = krl; subr(9) = krr;
495     subl(12) = kll; subr(12) = klr;
497     subl(14) = kll; subr(14) = klr;
498     subl(15) = krl; subr(15) = krr;
500     subl(20) = kll; subr(20) = klr;
501     subl(21) = krl; subr(21) = krr;
503     subl(24) = kll; subr(24) = klr;
504     subl(25) = krl; subr(25) = krr;
508     subl(3) ^= subl(1); subr(3) ^= subr(1);
509     subl(5) ^= subl(1); subr(5) ^= subr(1);
510     subl(7) ^= subl(1); subr(7) ^= subr(1);
511     subl(1) ^= subr(1) & ~subr(9);
512     dw = subl(1) & subl(9), subr(1) ^= CAMELLIA_RL1(dw);
513     subl(11) ^= subl(1); subr(11) ^= subr(1);
514     subl(13) ^= subl(1); subr(13) ^= subr(1);
515     subl(15) ^= subl(1); subr(15) ^= subr(1);
516     subl(1) ^= subr(1) & ~subr(17);
517     dw = subl(1) & subl(17), subr(1) ^= CAMELLIA_RL1(dw);
518     subl(19) ^= subl(1); subr(19) ^= subr(1);
519     subl(21) ^= subl(1); subr(21) ^= subr(1);
520     subl(23) ^= subl(1); subr(23) ^= subr(1);
521     subl(24) ^= subl(1); subr(24) ^= subr(1);
524     kw4l = subl(25); kw4r = subr(25);
525     subl(22) ^= kw4l; subr(22) ^= kw4r;
526     subl(20) ^= kw4l; subr(20) ^= kw4r;
527     subl(18) ^= kw4l; subr(18) ^= kw4r;
528     kw4l ^= kw4r & ~subr(16);
530     subl(14) ^= kw4l; subr(14) ^= kw4r;
531     subl(12) ^= kw4l; subr(12) ^= kw4r;
532     subl(10) ^= kw4l; subr(10) ^= kw4r;
533     kw4l ^= kw4r & ~subr(8);
535     subl(6) ^= kw4l; subr(6) ^= kw4r;
536     subl(4) ^= kw4l; subr(4) ^= kw4r;
537     subl(2) ^= kw4l; subr(2) ^= kw4r;
538     subl(0) ^= kw4l; subr(0) ^= kw4r;
542     SUBR(0) = subr(0) ^ subr(2);
544     SUBR(2) = subr(3);
546     SUBR(3) = subr(2) ^ subr(4);
548     SUBR(4) = subr(3) ^ subr(5);
550     SUBR(5) = subr(4) ^ subr(6);
552     SUBR(6) = subr(5) ^ subr(7);
553     tl = subl(10) ^ (subr(10) & ~subr(8));
554     dw = tl & subl(8), tr = subr(10) ^ CAMELLIA_RL1(dw);
556     SUBR(7) = subr(6) ^ tr;
558     SUBR(8) = subr(8);
560     SUBR(9) = subr(9);
561     tl = subl(7) ^ (subr(7) & ~subr(9));
562     dw = tl & subl(9), tr = subr(7) ^ CAMELLIA_RL1(dw);
564     SUBR(10) = tr ^ subr(11);
566     SUBR(11) = subr(10) ^ subr(12);
568     SUBR(12) = subr(11) ^ subr(13);
570     SUBR(13) = subr(12) ^ subr(14);
572     SUBR(14) = subr(13) ^ subr(15);
573     tl = subl(18) ^ (subr(18) & ~subr(16));
574     dw = tl & subl(16), tr = subr(18) ^ CAMELLIA_RL1(dw);
576     SUBR(15) = subr(14) ^ tr;
578     SUBR(16) = subr(16);
580     SUBR(17) = subr(17);
581     tl = subl(15) ^ (subr(15) & ~subr(17));
582     dw = tl & subl(17), tr = subr(15) ^ CAMELLIA_RL1(dw);
584     SUBR(18) = tr ^ subr(19);
586     SUBR(19) = subr(18) ^ subr(20);
588     SUBR(20) = subr(19) ^ subr(21);
590     SUBR(21) = subr(20) ^ subr(22);
592     SUBR(22) = subr(21) ^ subr(23);
594     SUBR(23) = subr(22);
596     SUBR(24) = subr(24) ^ subr(23);
662     subl(0) = kll; subr(0) = klr;
663     subl(1) = krl; subr(1) = krr;
665     subl(12) = kll; subr(12) = klr;
666     subl(13) = krl; subr(13) = krr;
668     subl(16) = kll; subr(16) = klr;
669     subl(17) = krl; subr(17) = krr;
671     subl(22) = kll; subr(22) = klr;
672     subl(23) = krl; subr(23) = krr;
674     subl(30) = kll; subr(30) = klr;
675     subl(31) = krl; subr(31) = krr;
679     subl(4) = krll; subr(4) = krlr;
680     subl(5) = krrl; subr(5) = krrr;
682     subl(8) = krll; subr(8) = krlr;
683     subl(9) = krrl; subr(9) = krrr;
685     subl(18) = krll; subr(18) = krlr;
686     subl(19) = krrl; subr(19) = krrr;
688     subl(26) = krll; subr(26) = krlr;
689     subl(27) = krrl; subr(27) = krrr;
693     kll = subl(0) ^ krll; klr = subr(0) ^ krlr;
694     krl = subl(1) ^ krrl; krr = subr(1) ^ krrr;
720     subl(6) = kll; subr(6) = klr;
721     subl(7) = krl; subr(7) = krr;
723     subl(14) = kll; subr(14) = klr;
724     subl(15) = krl; subr(15) = krr;
725     subl(24) = klr; subr(24) = krl;
726     subl(25) = krr; subr(25) = kll;
728     subl(28) = kll; subr(28) = klr;
729     subl(29) = krl; subr(29) = krr;
732     subl(2) = krll; subr(2) = krlr;
733     subl(3) = krrl; subr(3) = krrr;
735     subl(10) = krll; subr(10) = krlr;
736     subl(11) = krrl; subr(11) = krrr;
738     subl(20) = krll; subr(20) = krlr;
739     subl(21) = krrl; subr(21) = krrr;
741     subl(32) = krll; subr(32) = krlr;
742     subl(33) = krrl; subr(33) = krrr;
745     subl(3) ^= subl(1); subr(3) ^= subr(1);
746     subl(5) ^= subl(1); subr(5) ^= subr(1);
747     subl(7) ^= subl(1); subr(7) ^= subr(1);
748     subl(1) ^= subr(1) & ~subr(9);
749     dw = subl(1) & subl(9), subr(1) ^= CAMELLIA_RL1(dw);
750     subl(11) ^= subl(1); subr(11) ^= subr(1);
751     subl(13) ^= subl(1); subr(13) ^= subr(1);
752     subl(15) ^= subl(1); subr(15) ^= subr(1);
753     subl(1) ^= subr(1) & ~subr(17);
754     dw = subl(1) & subl(17), subr(1) ^= CAMELLIA_RL1(dw);
755     subl(19) ^= subl(1); subr(19) ^= subr(1);
756     subl(21) ^= subl(1); subr(21) ^= subr(1);
757     subl(23) ^= subl(1); subr(23) ^= subr(1);
758     subl(1) ^= subr(1) & ~subr(25);
759     dw = subl(1) & subl(25), subr(1) ^= CAMELLIA_RL1(dw);
760     subl(27) ^= subl(1); subr(27) ^= subr(1);
761     subl(29) ^= subl(1); subr(29) ^= subr(1);
762     subl(31) ^= subl(1); subr(31) ^= subr(1);
763     subl(32) ^= subl(1); subr(32) ^= subr(1);
767     kw4l = subl(33); kw4r = subr(33);
768     subl(30) ^= kw4l; subr(30) ^= kw4r;
769     subl(28) ^= kw4l; subr(28) ^= kw4r;
770     subl(26) ^= kw4l; subr(26) ^= kw4r;
771     kw4l ^= kw4r & ~subr(24);
773     subl(22) ^= kw4l; subr(22) ^= kw4r;
774     subl(20) ^= kw4l; subr(20) ^= kw4r;
775     subl(18) ^= kw4l; subr(18) ^= kw4r;
776     kw4l ^= kw4r & ~subr(16);
778     subl(14) ^= kw4l; subr(14) ^= kw4r;
779     subl(12) ^= kw4l; subr(12) ^= kw4r;
780     subl(10) ^= kw4l; subr(10) ^= kw4r;
781     kw4l ^= kw4r & ~subr(8);
783     subl(6) ^= kw4l; subr(6) ^= kw4r;
784     subl(4) ^= kw4l; subr(4) ^= kw4r;
785     subl(2) ^= kw4l; subr(2) ^= kw4r;
786     subl(0) ^= kw4l; subr(0) ^= kw4r;
790     SUBR(0) = subr(0) ^ subr(2);
792     SUBR(2) = subr(3);
794     SUBR(3) = subr(2) ^ subr(4);
796     SUBR(4) = subr(3) ^ subr(5);
798     SUBR(5) = subr(4) ^ subr(6);
800     SUBR(6) = subr(5) ^ subr(7);
801     tl = subl(10) ^ (subr(10) & ~subr(8));
802     dw = tl & subl(8), tr = subr(10) ^ CAMELLIA_RL1(dw);
804     SUBR(7) = subr(6) ^ tr;
806     SUBR(8) = subr(8);
808     SUBR(9) = subr(9);
809     tl = subl(7) ^ (subr(7) & ~subr(9));
810     dw = tl & subl(9), tr = subr(7) ^ CAMELLIA_RL1(dw);
812     SUBR(10) = tr ^ subr(11);
814     SUBR(11) = subr(10) ^ subr(12);
816     SUBR(12) = subr(11) ^ subr(13);
818     SUBR(13) = subr(12) ^ subr(14);
820     SUBR(14) = subr(13) ^ subr(15);
821     tl = subl(18) ^ (subr(18) & ~subr(16));
822     dw = tl & subl(16), tr = subr(18) ^ CAMELLIA_RL1(dw);
824     SUBR(15) = subr(14) ^ tr;
826     SUBR(16) = subr(16);
828     SUBR(17) = subr(17);
829     tl = subl(15) ^ (subr(15) & ~subr(17));
830     dw = tl & subl(17), tr = subr(15) ^ CAMELLIA_RL1(dw);
832     SUBR(18) = tr ^ subr(19);
834     SUBR(19) = subr(18) ^ subr(20);
836     SUBR(20) = subr(19) ^ subr(21);
838     SUBR(21) = subr(20) ^ subr(22);
840     SUBR(22) = subr(21) ^ subr(23);
841     tl = subl(26) ^ (subr(26) & ~subr(24));
842     dw = tl & subl(24), tr = subr(26) ^ CAMELLIA_RL1(dw);
844     SUBR(23) = subr(22) ^ tr;
846     SUBR(24) = subr(24);
848     SUBR(25) = subr(25);
849     tl = subl(23) ^ (subr(23) & ~subr(25));
850     dw = tl & subl(25), tr = subr(23) ^ CAMELLIA_RL1(dw);
852     SUBR(26) = tr ^ subr(27);
854     SUBR(27) = subr(26) ^ subr(28);
856     SUBR(28) = subr(27) ^ subr(29);
858     SUBR(29) = subr(28) ^ subr(30);
860     SUBR(30) = subr(29) ^ subr(31);
862     SUBR(31) = subr(30);
864     SUBR(32) = subr(32) ^ subr(31);