// File: /workspace/github_c_makefile_star2_O1/mjosaarinen[P]brutus/crypto_aead/elmd101270v2/ref/encrypt.c
// Function: crypto_aead_encrypt
int crypto_aead_encrypt(
unsigned char *c,unsigned long long *clen,
const unsigned char *m,unsigned long long mlen,
const unsigned char *ad,unsigned long long adlen,
const unsigned char *nsec,
const unsigned char *npub,
const unsigned char *k
)
{
	u8 param[]={0x0a,0,0x7f,0x80,0x80,0,0,0}; 
	
	block L, W, Delta_0, Delta_1, Delta_2, blk, result, CS;
	int i; 
	unsigned long long h, cnt, blk_ctr=0, blk_ctr1=0 ;
	u8 zeroes[16], ozs[16], blen = 16, Is_final = 0, Is_complete =1;
	for(i=0; i<16; i++)	{zeroes[i]=0x00;}   	
	for(i=1; i<16; i++)	{ozs[i]=0x00;} ozs[0] = 0x80; 	

	cnt = (8+mlen-1)/16 + 1;
	h = (mlen+8-1) / (IT_GAP * 16);
	if(h > IT_MAX)
		h = IT_MAX;
	*clen = (cnt +1)* 16 + 1 + h*16 ;  

	if((mlen+8)%16 == 0) 
		c[*clen-1] = 0x00; 
	else 
		c[*clen-1] = 0x01; 

	key_schedule(k);

	/* ==========  Generate the Masks =========== */
	AES(10, ENCRYPT, L, zeroes, &aes_key1);
	//AES(6, ENCRYPT, blk, zeroes, &aes_key1);
	//AES(6, ENCRYPT, L, blk, &aes_key1);

	mult_3(Delta_0, L); 
	mult_inv2(Delta_0, Delta_0); 

	mult_inv2(Delta_1, L); 	

	mult_3(Delta_2, L); 
	mult_3(Delta_2, Delta_2); 
	mult_inv2(Delta_2, Delta_2);

	/* ======  Process Associated Data ======== */
	for(i=0; i<16; i++)
		W[i]=0x00;
	process_AD(W, Delta_0, npub, param, ad, adlen);


	/* ================  Process Message Blocks ==================== */

	
	/* ====== Process the first Message block, whose first 8 byte is the secret message number ===== */
	
	if(mlen < 8){ Is_complete = 0; }
	if(mlen <= 8) { blen = 8 + mlen; }
	load_block(blk, nsec, m, 8, blen-8); copy_block(CS, blk); 
	process_block(Delta_1, Delta_2, result, blk, W, Is_complete, ENCRYPT, Is_final, MESSAGE);
	
	store_bytes(c, result, 0, 15); c +=16; blk_ctr++; 
	if(mlen >= 8)  {mlen -= 8; m +=8;}
	else mlen = 0;

	/* ============= Process Successive Message blocks ================== */
	while(mlen > 0){
		if(mlen >= 16){
			load_block(blk, m, ozs, 16, 0); 
			if(mlen == 16) {xor_block(blk, blk, CS); }
			else xor_block(CS, CS, blk);
			blen = 16; mlen -= 16; m+=16; 
		}
		else 	{Is_complete = 0; blen = mlen; mlen = 0; 
			load_block(blk, m, ozs, blen, 0); xor_block(blk, CS, blk);
			
		}	
		process_block(Delta_1, Delta_2, result, blk, W, Is_complete, ENCRYPT, Is_final, MESSAGE); 
		store_bytes(c, result, 0, 15); c +=16; blk_ctr++; 
		
		if(blk_ctr == IT_GAP && blk_ctr1 < IT_MAX && mlen>0) {
			AES(10, DECRYPT, result, W, &aes_key2); 	
			mask(Delta_2, result, result, 1); 
			store_bytes(c, result, 0, 15); c +=16; blk_ctr =0; blk_ctr1++;
		}
	}

	/* ================ Process checksum block ====================== */
	process_block(Delta_1, Delta_2, result, blk, W, 1, ENCRYPT, 1, MESSAGE); 
	
	store_bytes(c, result, 0, 15);

	return 0;
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0xb8, %rsp
movq %r9, 0x18(%rsp)
movq %r8, 0x20(%rsp)
movq %rcx, %r14
movq %rdx, %rbx
movq %rdi, 0x70(%rsp)
movq 0x100(%rsp), %r13
movabsq $0x80807f000a, %rax     # imm = 0x80807F000A
leaq 0x78(%rsp), %rcx
movq %rax, (%rcx)
vxorps %xmm0, %xmm0, %xmm0
leaq 0x80(%rsp), %rax
vmovaps %xmm0, (%rax)
leaq 0x8(%r14), %r15
leaq 0x7(%r14), %rdx
movq %rdx, %rax
andq $-0x10, %rax
shrq $0x4, %rdx
movabsq $0x1020408102040811, %rcx # imm = 0x1020408102040811
mulxq %rcx, %rcx, %rcx
shrq $0x3, %rcx
cmpq $0x20, %rcx
movl $0x20, %edx
cmovbq %rcx, %rdx
shll $0x4, %edx
leaq (%rax,%rdx), %rcx
addq %rdx, %rax
addq $0x21, %rax
movq %rax, (%rsi)
testb $0xf, %r15b
setne 0x20(%rdi,%rcx)
movq 0x5cde(%rip), %rbp      # 0x7fd0
movq %r13, %rdi
movl $0x80, %esi
movq %rbp, %rdx
callq 0x1090
movq 0x5cd7(%rip), %rdx      # 0x7fe0
movq %r13, %rdi
movl $0x80, %esi
callq 0x1040
leaq 0xa0(%rsp), %r12
leaq 0x80(%rsp), %rdi
movq %r12, %rsi
movq %rbp, %rdx
callq 0x1060
leaq 0x90(%rsp), %rbp
movq %rbp, %rdi
movq %r12, %rsi
callq 0x261a
movq %rbp, %rdi
movq %rbp, %rsi
callq 0x267f
leaq 0x50(%rsp), %rdi
movq %r12, %rsi
callq 0x267f
leaq 0x40(%rsp), %r13
movq %r13, %rdi
movq %r12, %rsi
callq 0x261a
movq %r13, %rdi
movq %r13, %rsi
callq 0x261a
movq %r13, %rdi
movq %r13, %rsi
callq 0x267f
leaq 0x60(%rsp), %r12
vxorps %xmm0, %xmm0, %xmm0
vmovaps %xmm0, (%r12)
movq %r12, %rdi
movq %rbp, %rsi
movq 0xf8(%rsp), %rdx
leaq 0x78(%rsp), %rcx
movq 0x20(%rsp), %r8
movq 0x18(%rsp), %r9
callq 0x26f9
addb $-0x8, %r15b
cmpq $0x9, %r14
movzbl %r15b, %eax
movl $0x8, %ecx
cmovael %ecx, %eax
movzbl %al, %r8d
movq %rsp, %r15
movq %r15, %rdi
movq 0xf0(%rsp), %rsi
movq %rbx, %rdx
callq 0x280f
vmovaps (%r15), %xmm0
vmovaps %xmm0, 0x20(%rsp)
xorl %r9d, %r9d
cmpq $0x8, %r14
setae %r9b
subq $0x8, %rsp
movl $0x1, %eax
leaq 0x38(%rsp), %rdx
leaq 0x58(%rsp), %rdi
movq %r13, %rsi
movq %rdx, %r13
movq %r15, %rcx
movq %r12, %r8
movq %r9, 0x20(%rsp)
pushq %rax
pushq $0x0
pushq %rax
callq 0x2878
addq $0x20, %rsp
movq 0x70(%rsp), %rax
leaq 0x10(%rax), %rbp
vmovaps (%r13), %xmm0
vmovups %xmm0, (%rax)
cmpq $0x9, %r14
jae 0x2449
movq %rbp, %r15
jmp 0x25bf
addq $-0x8, %r14
addq $0x8, %rbx
movl $0x1, %r13d
xorl %r12d, %r12d
xorl %eax, %eax
cmpq $0xf, %r14
jbe 0x2489
movb (%rbx,%rax), %cl
movb %cl, (%rsp,%rax)
incq %rax
cmpq $0x10, %rax
jne 0x2462
cmpq $0x10, %r14
jne 0x24d9
vmovaps 0x20(%rsp), %xmm0
vxorps (%rsp), %xmm0, %xmm0
vmovaps %xmm0, (%rsp)
jmp 0x24ea
movb (%rbx,%rax), %cl
movb %cl, (%rsp,%rax)
incq %rax
cmpq %rax, %r14
jne 0x2489
movb $-0x80, (%rsp,%r14)
cmpq $0xf, %r14
je 0x24c2
leaq (%rsp,%r14), %rdi
incq %rdi
movl $0xe, %edx
subl %r14d, %edx
movl $0x0, %eax
cmovbl %eax, %edx
incl %edx
xorl %esi, %esi
callq 0x1030
vmovaps 0x20(%rsp), %xmm0
vxorps (%rsp), %xmm0, %xmm0
vmovaps %xmm0, (%rsp)
xorl %r14d, %r14d
xorl %eax, %eax
jmp 0x24f7
vmovaps 0x20(%rsp), %xmm0
vxorps (%rsp), %xmm0, %xmm0
vmovaps %xmm0, 0x20(%rsp)
movq 0x18(%rsp), %rax
addq $-0x10, %r14
addq $0x10, %rbx
subq $0x8, %rsp
movq %rax, 0x20(%rsp)
movzbl %al, %r9d
leaq 0x58(%rsp), %rdi
leaq 0x48(%rsp), %rsi
leaq 0x38(%rsp), %rdx
leaq 0x8(%rsp), %rcx
leaq 0x68(%rsp), %r8
movl $0x1, %eax
pushq %rax
pushq $0x0
pushq %rax
callq 0x2878
addq $0x20, %rsp
xorl %eax, %eax
movb 0x30(%rsp,%rax), %cl
movb %cl, (%rbp,%rax)
incq %rax
cmpq $0x10, %rax
jne 0x2531
leaq 0x10(%rbp), %r15
incq %r13
cmpq $0x7f, %r13
setne %al
cmpq $0x20, %r12
setae %cl
testq %r14, %r14
sete %dl
orb %cl, %dl
orb %al, %dl
jne 0x25b3
leaq 0x60(%rsp), %rdi
leaq 0x30(%rsp), %r13
movq %r13, %rsi
movq 0x5a69(%rip), %rdx      # 0x7fe0
callq 0x1050
leaq 0x40(%rsp), %rdi
movq %r13, %rsi
movq %r13, %rdx
movl $0x1, %ecx
callq 0x2a40
xorl %eax, %eax
movb 0x30(%rsp,%rax), %cl
movb %cl, (%r15,%rax)
incq %rax
cmpq $0x10, %rax
jne 0x2593
addq $0x20, %rbp
incq %r12
xorl %r13d, %r13d
movq %rbp, %r15
jmp 0x25b6
movq %r15, %rbp
testq %r14, %r14
jne 0x245a
subq $0x8, %rsp
leaq 0x58(%rsp), %rdi
leaq 0x48(%rsp), %rsi
leaq 0x38(%rsp), %rdx
leaq 0x8(%rsp), %rcx
leaq 0x68(%rsp), %r8
movl $0x1, %r9d
movl $0x1, %eax
pushq %rax
pushq %rax
pushq %rax
callq 0x2878
addq $0x20, %rsp
xorl %eax, %eax
movb 0x30(%rsp,%rax), %cl
movb %cl, (%r15,%rax)
incq %rax
cmpq $0x10, %rax
jne 0x25f5
xorl %eax, %eax
addq $0xb8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq