SSL AesOpt.asm

; AesOpt.asm -- Intel's AES.
; 2009-12-12 : Igor Pavlov : Public domain

include 7zAsm.asm

MY_ASM_START

ifndef x64
    .xmm
endif

ifdef x64
    num     equ r8
else
    num     equ [r4 + REG_SIZE * 4]
endif

rD equ r2
rN equ r0

MY_PROLOG macro reg:req
    ifdef x64
    movdqa  [r4 + 8], xmm6
    movdqa  [r4 + 8 + 16], xmm7
    endif

    push    r3
    push    r5
    push    r6

    mov     rN, num
    mov     x6, [r1 + 16]
    shl     x6, 5

    movdqa  reg, [r1]
    add     r1, 32
endm

MY_EPILOG macro
    pop     r6
    pop     r5
    pop     r3

    ifdef x64
    movdqa  xmm6, [r4 + 8]
    movdqa  xmm7, [r4 + 8 + 16]
    endif

    MY_ENDP
endm

ways equ 4
ways16 equ (ways * 16)

OP_W macro op, op2
    i = 0
    rept ways
    op @CatStr(xmm,%i), op2
    i = i + 1
    endm
endm

LOAD_OP macro op:req, offs:req
    op      xmm0, [r1 + r3 offs]
endm
  
LOAD_OP_W macro op:req, offs:req
    movdqa  xmm7, [r1 + r3 offs]
    OP_W    op, xmm7
endm


; ---------- AES-CBC Decode ----------

CBC_DEC_UPDATE macro reg, offs
    pxor    reg, xmm6
    movdqa  xmm6, [rD + offs]
    movdqa  [rD + offs], reg
endm

DECODE macro op:req
    op      aesdec, +16
  @@:
    op      aesdec, +0
    op      aesdec, -16
    sub     x3, 32
    jnz     @B
    op      aesdeclast, +0
endm

MY_PROC AesCbc_Decode_Intel, 3
    MY_PROLOG xmm6

    sub     x6, 32

    jmp     check2

  align
  nextBlocks2:
    mov     x3, x6
    OP_W    movdqa [ + *]
    java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 0
    DECODE  LOAD_OP_W      java.lang.StringIndexOutOfBoundsException: Range [9, 10) out of bounds for length 9
     16
    ,
  check2:
    sub     rN, movdqa  xmm7, [r1 + r3 offs]
    jnc     nextBlocks2

    add     rN, ways
    jmp     check

  nextBlock:
    mov     x3, x6
    movdqa  xmm1, [rD]
    LOAD_OP movdqa, +32
    pxor    xmm0, xmm1
    DECODE  LOAD_OP
    pxor    xmm0, xmm6
    movdqa  [rD], xmm0
    movdqa  xmm6, xmm1
    add     rD, 16
  check:
    sub     rN, 1
    jnc     nextBlock

    movdqa  [r1 - 32], xmm6
    MY_EPILOG


; ---------- AES-CBC Encode ----------

ENCODE macro op:req
    op      aesenc, -16
  @@:
    op      aesenc, +0
    op      aesenc, +16
    add     r3, 32
    jnz     @B
    op      
endm

MY_PROC3
    movdqa  xmm6,[Djava.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29

    add     r1, r6
    neg     r6
    add     B

         check_e

  align
  nextBlock_e 
     :m         movdqa[   16java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33
         add ways
pxorxmm0,[r1   java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
E
a[] mm0
     16
  check_e:
    sub     rN, 1
    jnc     pxor    xmm0,

    movdqa  [r1 + r6 - 64add     java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
    java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13


; ---------- AES-CTR ----------

XOR_UPD_1 macro reg, offs
    pxor    reg, [    op      aesenc, 16
endm

XOR_UPD_2 macro reg, offs
    movdqa  [rD + offs], java.lang.StringIndexOutOfBoundsException: Range [4, 1) out of bounds for length 26
endm

MY_PROC AesCtr_Code_Inteljava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
    java.lang.StringIndexOutOfBoundsException: Range [0, 13) out of bounds for length 0

    mov     r3, r6
    shr     r5, 4
    dec     r5
         r5,java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17

        LOAD_OP
    ovdqa  rD] xmm0
     addrD 
    mov    DWORD PTR [5  12,java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
    
    add     r1, r6
    neg     r6
    add     r6, 32

    jmp     check2_c

  java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  :
    movdqa  xmm7,[java.lang.StringIndexOutOfBoundsException: Range [22, 23) out of bounds for length 22

    i = 0
    rept ways
    paddq   xmm6, xmm7
    endm
    
    endm

    mov     r3, r6
    LOAD_OP_W  pxor,-java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24
    ENCODE           r5
    java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
    OP_WXOR_UPD_2, i * 16
    add     rD, ways16
  check2_c:
    sub     rN, ways
    jnc     nextBlocks2_c

    addrN,ways
    jmp     movDWORD TR r + 8,0

  nextBlock_c:
    paddq   xmm6, [r5]
    mov     r3, r6
    movdqa  xmm0    mov     DWORD PTR [r5 + 12,0
    pxor    xmm0, xmm6
    ENCODE  LOAD_OP
    add     r1 r6
    _UPD_2 xmm0, 0
    addadd     r6, 32
  :
    sub     rN, 
    jnc     nextBlock_c

    movdqa  [r1 + r6 - 64], xmm6
    MY_EPILOG

end