515 lines
11 KiB
ArmAsm
515 lines
11 KiB
ArmAsm
|
/*
|
||
|
* Camellia Cipher Algorithm (x86_64)
|
||
|
*
|
||
|
* Copyright (C) 2012 Jussi Kivilinna <jussi.kivilinna@mbnet.fi>
|
||
|
*
|
||
|
* This program is free software; you can redistribute it and/or modify
|
||
|
* it under the terms of the GNU General Public License as published by
|
||
|
* the Free Software Foundation; either version 2 of the License, or
|
||
|
* (at your option) any later version.
|
||
|
*
|
||
|
* This program is distributed in the hope that it will be useful,
|
||
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
|
* GNU General Public License for more details.
|
||
|
*
|
||
|
* You should have received a copy of the GNU General Public License
|
||
|
* along with this program; if not, write to the Free Software
|
||
|
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
|
||
|
* USA
|
||
|
*
|
||
|
*/
|
||
|
|
||
|
#include <linux/linkage.h>
|
||
|
|
||
|
.file "camellia-x86_64-asm_64.S"
|
||
|
.text
|
||
|
|
||
|
.extern camellia_sp10011110;
|
||
|
.extern camellia_sp22000222;
|
||
|
.extern camellia_sp03303033;
|
||
|
.extern camellia_sp00444404;
|
||
|
.extern camellia_sp02220222;
|
||
|
.extern camellia_sp30333033;
|
||
|
.extern camellia_sp44044404;
|
||
|
.extern camellia_sp11101110;
|
||
|
|
||
|
#define sp10011110 camellia_sp10011110
|
||
|
#define sp22000222 camellia_sp22000222
|
||
|
#define sp03303033 camellia_sp03303033
|
||
|
#define sp00444404 camellia_sp00444404
|
||
|
#define sp02220222 camellia_sp02220222
|
||
|
#define sp30333033 camellia_sp30333033
|
||
|
#define sp44044404 camellia_sp44044404
|
||
|
#define sp11101110 camellia_sp11101110
|
||
|
|
||
|
#define CAMELLIA_TABLE_BYTE_LEN 272
|
||
|
|
||
|
/* struct camellia_ctx: */
|
||
|
#define key_table 0
|
||
|
#define key_length CAMELLIA_TABLE_BYTE_LEN
|
||
|
|
||
|
/* register macros */
|
||
|
#define CTX %rdi
|
||
|
#define RIO %rsi
|
||
|
#define RIOd %esi
|
||
|
|
||
|
#define RAB0 %rax
|
||
|
#define RCD0 %rcx
|
||
|
#define RAB1 %rbx
|
||
|
#define RCD1 %rdx
|
||
|
|
||
|
#define RAB0d %eax
|
||
|
#define RCD0d %ecx
|
||
|
#define RAB1d %ebx
|
||
|
#define RCD1d %edx
|
||
|
|
||
|
#define RAB0bl %al
|
||
|
#define RCD0bl %cl
|
||
|
#define RAB1bl %bl
|
||
|
#define RCD1bl %dl
|
||
|
|
||
|
#define RAB0bh %ah
|
||
|
#define RCD0bh %ch
|
||
|
#define RAB1bh %bh
|
||
|
#define RCD1bh %dh
|
||
|
|
||
|
#define RT0 %rsi
|
||
|
#define RT1 %r12
|
||
|
#define RT2 %r8
|
||
|
|
||
|
#define RT0d %esi
|
||
|
#define RT1d %r12d
|
||
|
#define RT2d %r8d
|
||
|
|
||
|
#define RT2bl %r8b
|
||
|
|
||
|
#define RXOR %r9
|
||
|
#define RR12 %r10
|
||
|
#define RDST %r11
|
||
|
|
||
|
#define RXORd %r9d
|
||
|
#define RXORbl %r9b
|
||
|
|
||
|
#define xor2ror16(T0, T1, tmp1, tmp2, ab, dst) \
|
||
|
movzbl ab ## bl, tmp2 ## d; \
|
||
|
movzbl ab ## bh, tmp1 ## d; \
|
||
|
rorq $16, ab; \
|
||
|
xorq T0(, tmp2, 8), dst; \
|
||
|
xorq T1(, tmp1, 8), dst;
|
||
|
|
||
|
/**********************************************************************
|
||
|
1-way camellia
|
||
|
**********************************************************************/
|
||
|
#define roundsm(ab, subkey, cd) \
|
||
|
movq (key_table + ((subkey) * 2) * 4)(CTX), RT2; \
|
||
|
\
|
||
|
xor2ror16(sp00444404, sp03303033, RT0, RT1, ab ## 0, cd ## 0); \
|
||
|
xor2ror16(sp22000222, sp10011110, RT0, RT1, ab ## 0, RT2); \
|
||
|
xor2ror16(sp11101110, sp44044404, RT0, RT1, ab ## 0, cd ## 0); \
|
||
|
xor2ror16(sp30333033, sp02220222, RT0, RT1, ab ## 0, RT2); \
|
||
|
\
|
||
|
xorq RT2, cd ## 0;
|
||
|
|
||
|
#define fls(l, r, kl, kr) \
|
||
|
movl (key_table + ((kl) * 2) * 4)(CTX), RT0d; \
|
||
|
andl l ## 0d, RT0d; \
|
||
|
roll $1, RT0d; \
|
||
|
shlq $32, RT0; \
|
||
|
xorq RT0, l ## 0; \
|
||
|
movq (key_table + ((kr) * 2) * 4)(CTX), RT1; \
|
||
|
orq r ## 0, RT1; \
|
||
|
shrq $32, RT1; \
|
||
|
xorq RT1, r ## 0; \
|
||
|
\
|
||
|
movq (key_table + ((kl) * 2) * 4)(CTX), RT2; \
|
||
|
orq l ## 0, RT2; \
|
||
|
shrq $32, RT2; \
|
||
|
xorq RT2, l ## 0; \
|
||
|
movl (key_table + ((kr) * 2) * 4)(CTX), RT0d; \
|
||
|
andl r ## 0d, RT0d; \
|
||
|
roll $1, RT0d; \
|
||
|
shlq $32, RT0; \
|
||
|
xorq RT0, r ## 0;
|
||
|
|
||
|
#define enc_rounds(i) \
|
||
|
roundsm(RAB, i + 2, RCD); \
|
||
|
roundsm(RCD, i + 3, RAB); \
|
||
|
roundsm(RAB, i + 4, RCD); \
|
||
|
roundsm(RCD, i + 5, RAB); \
|
||
|
roundsm(RAB, i + 6, RCD); \
|
||
|
roundsm(RCD, i + 7, RAB);
|
||
|
|
||
|
#define enc_fls(i) \
|
||
|
fls(RAB, RCD, i + 0, i + 1);
|
||
|
|
||
|
#define enc_inpack() \
|
||
|
movq (RIO), RAB0; \
|
||
|
bswapq RAB0; \
|
||
|
rolq $32, RAB0; \
|
||
|
movq 4*2(RIO), RCD0; \
|
||
|
bswapq RCD0; \
|
||
|
rorq $32, RCD0; \
|
||
|
xorq key_table(CTX), RAB0;
|
||
|
|
||
|
#define enc_outunpack(op, max) \
|
||
|
xorq key_table(CTX, max, 8), RCD0; \
|
||
|
rorq $32, RCD0; \
|
||
|
bswapq RCD0; \
|
||
|
op ## q RCD0, (RIO); \
|
||
|
rolq $32, RAB0; \
|
||
|
bswapq RAB0; \
|
||
|
op ## q RAB0, 4*2(RIO);
|
||
|
|
||
|
#define dec_rounds(i) \
|
||
|
roundsm(RAB, i + 7, RCD); \
|
||
|
roundsm(RCD, i + 6, RAB); \
|
||
|
roundsm(RAB, i + 5, RCD); \
|
||
|
roundsm(RCD, i + 4, RAB); \
|
||
|
roundsm(RAB, i + 3, RCD); \
|
||
|
roundsm(RCD, i + 2, RAB);
|
||
|
|
||
|
#define dec_fls(i) \
|
||
|
fls(RAB, RCD, i + 1, i + 0);
|
||
|
|
||
|
#define dec_inpack(max) \
|
||
|
movq (RIO), RAB0; \
|
||
|
bswapq RAB0; \
|
||
|
rolq $32, RAB0; \
|
||
|
movq 4*2(RIO), RCD0; \
|
||
|
bswapq RCD0; \
|
||
|
rorq $32, RCD0; \
|
||
|
xorq key_table(CTX, max, 8), RAB0;
|
||
|
|
||
|
#define dec_outunpack() \
|
||
|
xorq key_table(CTX), RCD0; \
|
||
|
rorq $32, RCD0; \
|
||
|
bswapq RCD0; \
|
||
|
movq RCD0, (RIO); \
|
||
|
rolq $32, RAB0; \
|
||
|
bswapq RAB0; \
|
||
|
movq RAB0, 4*2(RIO);
|
||
|
|
||
|
ENTRY(__camellia_enc_blk)
|
||
|
/* input:
|
||
|
* %rdi: ctx, CTX
|
||
|
* %rsi: dst
|
||
|
* %rdx: src
|
||
|
* %rcx: bool xor
|
||
|
*/
|
||
|
movq %r12, RR12;
|
||
|
|
||
|
movq %rcx, RXOR;
|
||
|
movq %rsi, RDST;
|
||
|
movq %rdx, RIO;
|
||
|
|
||
|
enc_inpack();
|
||
|
|
||
|
enc_rounds(0);
|
||
|
enc_fls(8);
|
||
|
enc_rounds(8);
|
||
|
enc_fls(16);
|
||
|
enc_rounds(16);
|
||
|
movl $24, RT1d; /* max */
|
||
|
|
||
|
cmpb $16, key_length(CTX);
|
||
|
je .L__enc_done;
|
||
|
|
||
|
enc_fls(24);
|
||
|
enc_rounds(24);
|
||
|
movl $32, RT1d; /* max */
|
||
|
|
||
|
.L__enc_done:
|
||
|
testb RXORbl, RXORbl;
|
||
|
movq RDST, RIO;
|
||
|
|
||
|
jnz .L__enc_xor;
|
||
|
|
||
|
enc_outunpack(mov, RT1);
|
||
|
|
||
|
movq RR12, %r12;
|
||
|
ret;
|
||
|
|
||
|
.L__enc_xor:
|
||
|
enc_outunpack(xor, RT1);
|
||
|
|
||
|
movq RR12, %r12;
|
||
|
ret;
|
||
|
ENDPROC(__camellia_enc_blk)
|
||
|
|
||
|
ENTRY(camellia_dec_blk)
|
||
|
/* input:
|
||
|
* %rdi: ctx, CTX
|
||
|
* %rsi: dst
|
||
|
* %rdx: src
|
||
|
*/
|
||
|
cmpl $16, key_length(CTX);
|
||
|
movl $32, RT2d;
|
||
|
movl $24, RXORd;
|
||
|
cmovel RXORd, RT2d; /* max */
|
||
|
|
||
|
movq %r12, RR12;
|
||
|
movq %rsi, RDST;
|
||
|
movq %rdx, RIO;
|
||
|
|
||
|
dec_inpack(RT2);
|
||
|
|
||
|
cmpb $24, RT2bl;
|
||
|
je .L__dec_rounds16;
|
||
|
|
||
|
dec_rounds(24);
|
||
|
dec_fls(24);
|
||
|
|
||
|
.L__dec_rounds16:
|
||
|
dec_rounds(16);
|
||
|
dec_fls(16);
|
||
|
dec_rounds(8);
|
||
|
dec_fls(8);
|
||
|
dec_rounds(0);
|
||
|
|
||
|
movq RDST, RIO;
|
||
|
|
||
|
dec_outunpack();
|
||
|
|
||
|
movq RR12, %r12;
|
||
|
ret;
|
||
|
ENDPROC(camellia_dec_blk)
|
||
|
|
||
|
/**********************************************************************
|
||
|
2-way camellia
|
||
|
**********************************************************************/
|
||
|
#define roundsm2(ab, subkey, cd) \
|
||
|
movq (key_table + ((subkey) * 2) * 4)(CTX), RT2; \
|
||
|
xorq RT2, cd ## 1; \
|
||
|
\
|
||
|
xor2ror16(sp00444404, sp03303033, RT0, RT1, ab ## 0, cd ## 0); \
|
||
|
xor2ror16(sp22000222, sp10011110, RT0, RT1, ab ## 0, RT2); \
|
||
|
xor2ror16(sp11101110, sp44044404, RT0, RT1, ab ## 0, cd ## 0); \
|
||
|
xor2ror16(sp30333033, sp02220222, RT0, RT1, ab ## 0, RT2); \
|
||
|
\
|
||
|
xor2ror16(sp00444404, sp03303033, RT0, RT1, ab ## 1, cd ## 1); \
|
||
|
xorq RT2, cd ## 0; \
|
||
|
xor2ror16(sp22000222, sp10011110, RT0, RT1, ab ## 1, cd ## 1); \
|
||
|
xor2ror16(sp11101110, sp44044404, RT0, RT1, ab ## 1, cd ## 1); \
|
||
|
xor2ror16(sp30333033, sp02220222, RT0, RT1, ab ## 1, cd ## 1);
|
||
|
|
||
|
#define fls2(l, r, kl, kr) \
|
||
|
movl (key_table + ((kl) * 2) * 4)(CTX), RT0d; \
|
||
|
andl l ## 0d, RT0d; \
|
||
|
roll $1, RT0d; \
|
||
|
shlq $32, RT0; \
|
||
|
xorq RT0, l ## 0; \
|
||
|
movq (key_table + ((kr) * 2) * 4)(CTX), RT1; \
|
||
|
orq r ## 0, RT1; \
|
||
|
shrq $32, RT1; \
|
||
|
xorq RT1, r ## 0; \
|
||
|
\
|
||
|
movl (key_table + ((kl) * 2) * 4)(CTX), RT2d; \
|
||
|
andl l ## 1d, RT2d; \
|
||
|
roll $1, RT2d; \
|
||
|
shlq $32, RT2; \
|
||
|
xorq RT2, l ## 1; \
|
||
|
movq (key_table + ((kr) * 2) * 4)(CTX), RT0; \
|
||
|
orq r ## 1, RT0; \
|
||
|
shrq $32, RT0; \
|
||
|
xorq RT0, r ## 1; \
|
||
|
\
|
||
|
movq (key_table + ((kl) * 2) * 4)(CTX), RT1; \
|
||
|
orq l ## 0, RT1; \
|
||
|
shrq $32, RT1; \
|
||
|
xorq RT1, l ## 0; \
|
||
|
movl (key_table + ((kr) * 2) * 4)(CTX), RT2d; \
|
||
|
andl r ## 0d, RT2d; \
|
||
|
roll $1, RT2d; \
|
||
|
shlq $32, RT2; \
|
||
|
xorq RT2, r ## 0; \
|
||
|
\
|
||
|
movq (key_table + ((kl) * 2) * 4)(CTX), RT0; \
|
||
|
orq l ## 1, RT0; \
|
||
|
shrq $32, RT0; \
|
||
|
xorq RT0, l ## 1; \
|
||
|
movl (key_table + ((kr) * 2) * 4)(CTX), RT1d; \
|
||
|
andl r ## 1d, RT1d; \
|
||
|
roll $1, RT1d; \
|
||
|
shlq $32, RT1; \
|
||
|
xorq RT1, r ## 1;
|
||
|
|
||
|
#define enc_rounds2(i) \
|
||
|
roundsm2(RAB, i + 2, RCD); \
|
||
|
roundsm2(RCD, i + 3, RAB); \
|
||
|
roundsm2(RAB, i + 4, RCD); \
|
||
|
roundsm2(RCD, i + 5, RAB); \
|
||
|
roundsm2(RAB, i + 6, RCD); \
|
||
|
roundsm2(RCD, i + 7, RAB);
|
||
|
|
||
|
#define enc_fls2(i) \
|
||
|
fls2(RAB, RCD, i + 0, i + 1);
|
||
|
|
||
|
#define enc_inpack2() \
|
||
|
movq (RIO), RAB0; \
|
||
|
bswapq RAB0; \
|
||
|
rorq $32, RAB0; \
|
||
|
movq 4*2(RIO), RCD0; \
|
||
|
bswapq RCD0; \
|
||
|
rolq $32, RCD0; \
|
||
|
xorq key_table(CTX), RAB0; \
|
||
|
\
|
||
|
movq 8*2(RIO), RAB1; \
|
||
|
bswapq RAB1; \
|
||
|
rorq $32, RAB1; \
|
||
|
movq 12*2(RIO), RCD1; \
|
||
|
bswapq RCD1; \
|
||
|
rolq $32, RCD1; \
|
||
|
xorq key_table(CTX), RAB1;
|
||
|
|
||
|
#define enc_outunpack2(op, max) \
|
||
|
xorq key_table(CTX, max, 8), RCD0; \
|
||
|
rolq $32, RCD0; \
|
||
|
bswapq RCD0; \
|
||
|
op ## q RCD0, (RIO); \
|
||
|
rorq $32, RAB0; \
|
||
|
bswapq RAB0; \
|
||
|
op ## q RAB0, 4*2(RIO); \
|
||
|
\
|
||
|
xorq key_table(CTX, max, 8), RCD1; \
|
||
|
rolq $32, RCD1; \
|
||
|
bswapq RCD1; \
|
||
|
op ## q RCD1, 8*2(RIO); \
|
||
|
rorq $32, RAB1; \
|
||
|
bswapq RAB1; \
|
||
|
op ## q RAB1, 12*2(RIO);
|
||
|
|
||
|
#define dec_rounds2(i) \
|
||
|
roundsm2(RAB, i + 7, RCD); \
|
||
|
roundsm2(RCD, i + 6, RAB); \
|
||
|
roundsm2(RAB, i + 5, RCD); \
|
||
|
roundsm2(RCD, i + 4, RAB); \
|
||
|
roundsm2(RAB, i + 3, RCD); \
|
||
|
roundsm2(RCD, i + 2, RAB);
|
||
|
|
||
|
#define dec_fls2(i) \
|
||
|
fls2(RAB, RCD, i + 1, i + 0);
|
||
|
|
||
|
#define dec_inpack2(max) \
|
||
|
movq (RIO), RAB0; \
|
||
|
bswapq RAB0; \
|
||
|
rorq $32, RAB0; \
|
||
|
movq 4*2(RIO), RCD0; \
|
||
|
bswapq RCD0; \
|
||
|
rolq $32, RCD0; \
|
||
|
xorq key_table(CTX, max, 8), RAB0; \
|
||
|
\
|
||
|
movq 8*2(RIO), RAB1; \
|
||
|
bswapq RAB1; \
|
||
|
rorq $32, RAB1; \
|
||
|
movq 12*2(RIO), RCD1; \
|
||
|
bswapq RCD1; \
|
||
|
rolq $32, RCD1; \
|
||
|
xorq key_table(CTX, max, 8), RAB1;
|
||
|
|
||
|
#define dec_outunpack2() \
|
||
|
xorq key_table(CTX), RCD0; \
|
||
|
rolq $32, RCD0; \
|
||
|
bswapq RCD0; \
|
||
|
movq RCD0, (RIO); \
|
||
|
rorq $32, RAB0; \
|
||
|
bswapq RAB0; \
|
||
|
movq RAB0, 4*2(RIO); \
|
||
|
\
|
||
|
xorq key_table(CTX), RCD1; \
|
||
|
rolq $32, RCD1; \
|
||
|
bswapq RCD1; \
|
||
|
movq RCD1, 8*2(RIO); \
|
||
|
rorq $32, RAB1; \
|
||
|
bswapq RAB1; \
|
||
|
movq RAB1, 12*2(RIO);
|
||
|
|
||
|
ENTRY(__camellia_enc_blk_2way)
|
||
|
/* input:
|
||
|
* %rdi: ctx, CTX
|
||
|
* %rsi: dst
|
||
|
* %rdx: src
|
||
|
* %rcx: bool xor
|
||
|
*/
|
||
|
pushq %rbx;
|
||
|
|
||
|
movq %r12, RR12;
|
||
|
movq %rcx, RXOR;
|
||
|
movq %rsi, RDST;
|
||
|
movq %rdx, RIO;
|
||
|
|
||
|
enc_inpack2();
|
||
|
|
||
|
enc_rounds2(0);
|
||
|
enc_fls2(8);
|
||
|
enc_rounds2(8);
|
||
|
enc_fls2(16);
|
||
|
enc_rounds2(16);
|
||
|
movl $24, RT2d; /* max */
|
||
|
|
||
|
cmpb $16, key_length(CTX);
|
||
|
je .L__enc2_done;
|
||
|
|
||
|
enc_fls2(24);
|
||
|
enc_rounds2(24);
|
||
|
movl $32, RT2d; /* max */
|
||
|
|
||
|
.L__enc2_done:
|
||
|
test RXORbl, RXORbl;
|
||
|
movq RDST, RIO;
|
||
|
jnz .L__enc2_xor;
|
||
|
|
||
|
enc_outunpack2(mov, RT2);
|
||
|
|
||
|
movq RR12, %r12;
|
||
|
popq %rbx;
|
||
|
ret;
|
||
|
|
||
|
.L__enc2_xor:
|
||
|
enc_outunpack2(xor, RT2);
|
||
|
|
||
|
movq RR12, %r12;
|
||
|
popq %rbx;
|
||
|
ret;
|
||
|
ENDPROC(__camellia_enc_blk_2way)
|
||
|
|
||
|
ENTRY(camellia_dec_blk_2way)
|
||
|
/* input:
|
||
|
* %rdi: ctx, CTX
|
||
|
* %rsi: dst
|
||
|
* %rdx: src
|
||
|
*/
|
||
|
cmpl $16, key_length(CTX);
|
||
|
movl $32, RT2d;
|
||
|
movl $24, RXORd;
|
||
|
cmovel RXORd, RT2d; /* max */
|
||
|
|
||
|
movq %rbx, RXOR;
|
||
|
movq %r12, RR12;
|
||
|
movq %rsi, RDST;
|
||
|
movq %rdx, RIO;
|
||
|
|
||
|
dec_inpack2(RT2);
|
||
|
|
||
|
cmpb $24, RT2bl;
|
||
|
je .L__dec2_rounds16;
|
||
|
|
||
|
dec_rounds2(24);
|
||
|
dec_fls2(24);
|
||
|
|
||
|
.L__dec2_rounds16:
|
||
|
dec_rounds2(16);
|
||
|
dec_fls2(16);
|
||
|
dec_rounds2(8);
|
||
|
dec_fls2(8);
|
||
|
dec_rounds2(0);
|
||
|
|
||
|
movq RDST, RIO;
|
||
|
|
||
|
dec_outunpack2();
|
||
|
|
||
|
movq RR12, %r12;
|
||
|
movq RXOR, %rbx;
|
||
|
ret;
|
||
|
ENDPROC(camellia_dec_blk_2way)
|