Import OpenSSL 1.0.2k (as of svn r86089)

This commit is contained in:
Zachary Ware
2017-05-22 14:30:47 -05:00
parent d239d63057
commit ccd3ab4aff
2486 changed files with 943951 additions and 0 deletions

3211
tmp32/aes-586.asm Normal file

File diff suppressed because it is too large Load Diff

2416
tmp32/aesni-x86.asm Normal file

File diff suppressed because it is too large Load Diff

896
tmp32/bf-586.asm Normal file
View File

@@ -0,0 +1,896 @@
%ifidn __OUTPUT_FORMAT__,obj
section code use32 class=code align=64
%elifidn __OUTPUT_FORMAT__,win32
$@feat.00 equ 1
section .text code align=64
%else
section .text code
%endif
global _BF_encrypt
align 16
_BF_encrypt:
L$_BF_encrypt_begin:
;
push ebp
push ebx
mov ebx,DWORD [12+esp]
mov ebp,DWORD [16+esp]
push esi
push edi
; Load the 2 words
mov edi,DWORD [ebx]
mov esi,DWORD [4+ebx]
xor eax,eax
mov ebx,DWORD [ebp]
xor ecx,ecx
xor edi,ebx
;
; Round 0
mov edx,DWORD [4+ebp]
mov ebx,edi
xor esi,edx
shr ebx,16
mov edx,edi
mov al,bh
and ebx,255
mov cl,dh
and edx,255
mov eax,DWORD [72+eax*4+ebp]
mov ebx,DWORD [1096+ebx*4+ebp]
add ebx,eax
mov eax,DWORD [2120+ecx*4+ebp]
xor ebx,eax
mov edx,DWORD [3144+edx*4+ebp]
add ebx,edx
xor eax,eax
xor esi,ebx
;
; Round 1
mov edx,DWORD [8+ebp]
mov ebx,esi
xor edi,edx
shr ebx,16
mov edx,esi
mov al,bh
and ebx,255
mov cl,dh
and edx,255
mov eax,DWORD [72+eax*4+ebp]
mov ebx,DWORD [1096+ebx*4+ebp]
add ebx,eax
mov eax,DWORD [2120+ecx*4+ebp]
xor ebx,eax
mov edx,DWORD [3144+edx*4+ebp]
add ebx,edx
xor eax,eax
xor edi,ebx
;
; Round 2
mov edx,DWORD [12+ebp]
mov ebx,edi
xor esi,edx
shr ebx,16
mov edx,edi
mov al,bh
and ebx,255
mov cl,dh
and edx,255
mov eax,DWORD [72+eax*4+ebp]
mov ebx,DWORD [1096+ebx*4+ebp]
add ebx,eax
mov eax,DWORD [2120+ecx*4+ebp]
xor ebx,eax
mov edx,DWORD [3144+edx*4+ebp]
add ebx,edx
xor eax,eax
xor esi,ebx
;
; Round 3
mov edx,DWORD [16+ebp]
mov ebx,esi
xor edi,edx
shr ebx,16
mov edx,esi
mov al,bh
and ebx,255
mov cl,dh
and edx,255
mov eax,DWORD [72+eax*4+ebp]
mov ebx,DWORD [1096+ebx*4+ebp]
add ebx,eax
mov eax,DWORD [2120+ecx*4+ebp]
xor ebx,eax
mov edx,DWORD [3144+edx*4+ebp]
add ebx,edx
xor eax,eax
xor edi,ebx
;
; Round 4
mov edx,DWORD [20+ebp]
mov ebx,edi
xor esi,edx
shr ebx,16
mov edx,edi
mov al,bh
and ebx,255
mov cl,dh
and edx,255
mov eax,DWORD [72+eax*4+ebp]
mov ebx,DWORD [1096+ebx*4+ebp]
add ebx,eax
mov eax,DWORD [2120+ecx*4+ebp]
xor ebx,eax
mov edx,DWORD [3144+edx*4+ebp]
add ebx,edx
xor eax,eax
xor esi,ebx
;
; Round 5
mov edx,DWORD [24+ebp]
mov ebx,esi
xor edi,edx
shr ebx,16
mov edx,esi
mov al,bh
and ebx,255
mov cl,dh
and edx,255
mov eax,DWORD [72+eax*4+ebp]
mov ebx,DWORD [1096+ebx*4+ebp]
add ebx,eax
mov eax,DWORD [2120+ecx*4+ebp]
xor ebx,eax
mov edx,DWORD [3144+edx*4+ebp]
add ebx,edx
xor eax,eax
xor edi,ebx
;
; Round 6
mov edx,DWORD [28+ebp]
mov ebx,edi
xor esi,edx
shr ebx,16
mov edx,edi
mov al,bh
and ebx,255
mov cl,dh
and edx,255
mov eax,DWORD [72+eax*4+ebp]
mov ebx,DWORD [1096+ebx*4+ebp]
add ebx,eax
mov eax,DWORD [2120+ecx*4+ebp]
xor ebx,eax
mov edx,DWORD [3144+edx*4+ebp]
add ebx,edx
xor eax,eax
xor esi,ebx
;
; Round 7
mov edx,DWORD [32+ebp]
mov ebx,esi
xor edi,edx
shr ebx,16
mov edx,esi
mov al,bh
and ebx,255
mov cl,dh
and edx,255
mov eax,DWORD [72+eax*4+ebp]
mov ebx,DWORD [1096+ebx*4+ebp]
add ebx,eax
mov eax,DWORD [2120+ecx*4+ebp]
xor ebx,eax
mov edx,DWORD [3144+edx*4+ebp]
add ebx,edx
xor eax,eax
xor edi,ebx
;
; Round 8
mov edx,DWORD [36+ebp]
mov ebx,edi
xor esi,edx
shr ebx,16
mov edx,edi
mov al,bh
and ebx,255
mov cl,dh
and edx,255
mov eax,DWORD [72+eax*4+ebp]
mov ebx,DWORD [1096+ebx*4+ebp]
add ebx,eax
mov eax,DWORD [2120+ecx*4+ebp]
xor ebx,eax
mov edx,DWORD [3144+edx*4+ebp]
add ebx,edx
xor eax,eax
xor esi,ebx
;
; Round 9
mov edx,DWORD [40+ebp]
mov ebx,esi
xor edi,edx
shr ebx,16
mov edx,esi
mov al,bh
and ebx,255
mov cl,dh
and edx,255
mov eax,DWORD [72+eax*4+ebp]
mov ebx,DWORD [1096+ebx*4+ebp]
add ebx,eax
mov eax,DWORD [2120+ecx*4+ebp]
xor ebx,eax
mov edx,DWORD [3144+edx*4+ebp]
add ebx,edx
xor eax,eax
xor edi,ebx
;
; Round 10
mov edx,DWORD [44+ebp]
mov ebx,edi
xor esi,edx
shr ebx,16
mov edx,edi
mov al,bh
and ebx,255
mov cl,dh
and edx,255
mov eax,DWORD [72+eax*4+ebp]
mov ebx,DWORD [1096+ebx*4+ebp]
add ebx,eax
mov eax,DWORD [2120+ecx*4+ebp]
xor ebx,eax
mov edx,DWORD [3144+edx*4+ebp]
add ebx,edx
xor eax,eax
xor esi,ebx
;
; Round 11
mov edx,DWORD [48+ebp]
mov ebx,esi
xor edi,edx
shr ebx,16
mov edx,esi
mov al,bh
and ebx,255
mov cl,dh
and edx,255
mov eax,DWORD [72+eax*4+ebp]
mov ebx,DWORD [1096+ebx*4+ebp]
add ebx,eax
mov eax,DWORD [2120+ecx*4+ebp]
xor ebx,eax
mov edx,DWORD [3144+edx*4+ebp]
add ebx,edx
xor eax,eax
xor edi,ebx
;
; Round 12
mov edx,DWORD [52+ebp]
mov ebx,edi
xor esi,edx
shr ebx,16
mov edx,edi
mov al,bh
and ebx,255
mov cl,dh
and edx,255
mov eax,DWORD [72+eax*4+ebp]
mov ebx,DWORD [1096+ebx*4+ebp]
add ebx,eax
mov eax,DWORD [2120+ecx*4+ebp]
xor ebx,eax
mov edx,DWORD [3144+edx*4+ebp]
add ebx,edx
xor eax,eax
xor esi,ebx
;
; Round 13
mov edx,DWORD [56+ebp]
mov ebx,esi
xor edi,edx
shr ebx,16
mov edx,esi
mov al,bh
and ebx,255
mov cl,dh
and edx,255
mov eax,DWORD [72+eax*4+ebp]
mov ebx,DWORD [1096+ebx*4+ebp]
add ebx,eax
mov eax,DWORD [2120+ecx*4+ebp]
xor ebx,eax
mov edx,DWORD [3144+edx*4+ebp]
add ebx,edx
xor eax,eax
xor edi,ebx
;
; Round 14
mov edx,DWORD [60+ebp]
mov ebx,edi
xor esi,edx
shr ebx,16
mov edx,edi
mov al,bh
and ebx,255
mov cl,dh
and edx,255
mov eax,DWORD [72+eax*4+ebp]
mov ebx,DWORD [1096+ebx*4+ebp]
add ebx,eax
mov eax,DWORD [2120+ecx*4+ebp]
xor ebx,eax
mov edx,DWORD [3144+edx*4+ebp]
add ebx,edx
xor eax,eax
xor esi,ebx
;
; Round 15
mov edx,DWORD [64+ebp]
mov ebx,esi
xor edi,edx
shr ebx,16
mov edx,esi
mov al,bh
and ebx,255
mov cl,dh
and edx,255
mov eax,DWORD [72+eax*4+ebp]
mov ebx,DWORD [1096+ebx*4+ebp]
add ebx,eax
mov eax,DWORD [2120+ecx*4+ebp]
xor ebx,eax
mov edx,DWORD [3144+edx*4+ebp]
add ebx,edx
; Load parameter 0 (16) enc=1
mov eax,DWORD [20+esp]
xor edi,ebx
mov edx,DWORD [68+ebp]
xor esi,edx
mov DWORD [4+eax],edi
mov DWORD [eax],esi
pop edi
pop esi
pop ebx
pop ebp
ret
global _BF_decrypt
align 16
_BF_decrypt:
L$_BF_decrypt_begin:
;
push ebp
push ebx
mov ebx,DWORD [12+esp]
mov ebp,DWORD [16+esp]
push esi
push edi
; Load the 2 words
mov edi,DWORD [ebx]
mov esi,DWORD [4+ebx]
xor eax,eax
mov ebx,DWORD [68+ebp]
xor ecx,ecx
xor edi,ebx
;
; Round 16
mov edx,DWORD [64+ebp]
mov ebx,edi
xor esi,edx
shr ebx,16
mov edx,edi
mov al,bh
and ebx,255
mov cl,dh
and edx,255
mov eax,DWORD [72+eax*4+ebp]
mov ebx,DWORD [1096+ebx*4+ebp]
add ebx,eax
mov eax,DWORD [2120+ecx*4+ebp]
xor ebx,eax
mov edx,DWORD [3144+edx*4+ebp]
add ebx,edx
xor eax,eax
xor esi,ebx
;
; Round 15
mov edx,DWORD [60+ebp]
mov ebx,esi
xor edi,edx
shr ebx,16
mov edx,esi
mov al,bh
and ebx,255
mov cl,dh
and edx,255
mov eax,DWORD [72+eax*4+ebp]
mov ebx,DWORD [1096+ebx*4+ebp]
add ebx,eax
mov eax,DWORD [2120+ecx*4+ebp]
xor ebx,eax
mov edx,DWORD [3144+edx*4+ebp]
add ebx,edx
xor eax,eax
xor edi,ebx
;
; Round 14
mov edx,DWORD [56+ebp]
mov ebx,edi
xor esi,edx
shr ebx,16
mov edx,edi
mov al,bh
and ebx,255
mov cl,dh
and edx,255
mov eax,DWORD [72+eax*4+ebp]
mov ebx,DWORD [1096+ebx*4+ebp]
add ebx,eax
mov eax,DWORD [2120+ecx*4+ebp]
xor ebx,eax
mov edx,DWORD [3144+edx*4+ebp]
add ebx,edx
xor eax,eax
xor esi,ebx
;
; Round 13
mov edx,DWORD [52+ebp]
mov ebx,esi
xor edi,edx
shr ebx,16
mov edx,esi
mov al,bh
and ebx,255
mov cl,dh
and edx,255
mov eax,DWORD [72+eax*4+ebp]
mov ebx,DWORD [1096+ebx*4+ebp]
add ebx,eax
mov eax,DWORD [2120+ecx*4+ebp]
xor ebx,eax
mov edx,DWORD [3144+edx*4+ebp]
add ebx,edx
xor eax,eax
xor edi,ebx
;
; Round 12
mov edx,DWORD [48+ebp]
mov ebx,edi
xor esi,edx
shr ebx,16
mov edx,edi
mov al,bh
and ebx,255
mov cl,dh
and edx,255
mov eax,DWORD [72+eax*4+ebp]
mov ebx,DWORD [1096+ebx*4+ebp]
add ebx,eax
mov eax,DWORD [2120+ecx*4+ebp]
xor ebx,eax
mov edx,DWORD [3144+edx*4+ebp]
add ebx,edx
xor eax,eax
xor esi,ebx
;
; Round 11
mov edx,DWORD [44+ebp]
mov ebx,esi
xor edi,edx
shr ebx,16
mov edx,esi
mov al,bh
and ebx,255
mov cl,dh
and edx,255
mov eax,DWORD [72+eax*4+ebp]
mov ebx,DWORD [1096+ebx*4+ebp]
add ebx,eax
mov eax,DWORD [2120+ecx*4+ebp]
xor ebx,eax
mov edx,DWORD [3144+edx*4+ebp]
add ebx,edx
xor eax,eax
xor edi,ebx
;
; Round 10
mov edx,DWORD [40+ebp]
mov ebx,edi
xor esi,edx
shr ebx,16
mov edx,edi
mov al,bh
and ebx,255
mov cl,dh
and edx,255
mov eax,DWORD [72+eax*4+ebp]
mov ebx,DWORD [1096+ebx*4+ebp]
add ebx,eax
mov eax,DWORD [2120+ecx*4+ebp]
xor ebx,eax
mov edx,DWORD [3144+edx*4+ebp]
add ebx,edx
xor eax,eax
xor esi,ebx
;
; Round 9
mov edx,DWORD [36+ebp]
mov ebx,esi
xor edi,edx
shr ebx,16
mov edx,esi
mov al,bh
and ebx,255
mov cl,dh
and edx,255
mov eax,DWORD [72+eax*4+ebp]
mov ebx,DWORD [1096+ebx*4+ebp]
add ebx,eax
mov eax,DWORD [2120+ecx*4+ebp]
xor ebx,eax
mov edx,DWORD [3144+edx*4+ebp]
add ebx,edx
xor eax,eax
xor edi,ebx
;
; Round 8
mov edx,DWORD [32+ebp]
mov ebx,edi
xor esi,edx
shr ebx,16
mov edx,edi
mov al,bh
and ebx,255
mov cl,dh
and edx,255
mov eax,DWORD [72+eax*4+ebp]
mov ebx,DWORD [1096+ebx*4+ebp]
add ebx,eax
mov eax,DWORD [2120+ecx*4+ebp]
xor ebx,eax
mov edx,DWORD [3144+edx*4+ebp]
add ebx,edx
xor eax,eax
xor esi,ebx
;
; Round 7
mov edx,DWORD [28+ebp]
mov ebx,esi
xor edi,edx
shr ebx,16
mov edx,esi
mov al,bh
and ebx,255
mov cl,dh
and edx,255
mov eax,DWORD [72+eax*4+ebp]
mov ebx,DWORD [1096+ebx*4+ebp]
add ebx,eax
mov eax,DWORD [2120+ecx*4+ebp]
xor ebx,eax
mov edx,DWORD [3144+edx*4+ebp]
add ebx,edx
xor eax,eax
xor edi,ebx
;
; Round 6
mov edx,DWORD [24+ebp]
mov ebx,edi
xor esi,edx
shr ebx,16
mov edx,edi
mov al,bh
and ebx,255
mov cl,dh
and edx,255
mov eax,DWORD [72+eax*4+ebp]
mov ebx,DWORD [1096+ebx*4+ebp]
add ebx,eax
mov eax,DWORD [2120+ecx*4+ebp]
xor ebx,eax
mov edx,DWORD [3144+edx*4+ebp]
add ebx,edx
xor eax,eax
xor esi,ebx
;
; Round 5
mov edx,DWORD [20+ebp]
mov ebx,esi
xor edi,edx
shr ebx,16
mov edx,esi
mov al,bh
and ebx,255
mov cl,dh
and edx,255
mov eax,DWORD [72+eax*4+ebp]
mov ebx,DWORD [1096+ebx*4+ebp]
add ebx,eax
mov eax,DWORD [2120+ecx*4+ebp]
xor ebx,eax
mov edx,DWORD [3144+edx*4+ebp]
add ebx,edx
xor eax,eax
xor edi,ebx
;
; Round 4
mov edx,DWORD [16+ebp]
mov ebx,edi
xor esi,edx
shr ebx,16
mov edx,edi
mov al,bh
and ebx,255
mov cl,dh
and edx,255
mov eax,DWORD [72+eax*4+ebp]
mov ebx,DWORD [1096+ebx*4+ebp]
add ebx,eax
mov eax,DWORD [2120+ecx*4+ebp]
xor ebx,eax
mov edx,DWORD [3144+edx*4+ebp]
add ebx,edx
xor eax,eax
xor esi,ebx
;
; Round 3
mov edx,DWORD [12+ebp]
mov ebx,esi
xor edi,edx
shr ebx,16
mov edx,esi
mov al,bh
and ebx,255
mov cl,dh
and edx,255
mov eax,DWORD [72+eax*4+ebp]
mov ebx,DWORD [1096+ebx*4+ebp]
add ebx,eax
mov eax,DWORD [2120+ecx*4+ebp]
xor ebx,eax
mov edx,DWORD [3144+edx*4+ebp]
add ebx,edx
xor eax,eax
xor edi,ebx
;
; Round 2
mov edx,DWORD [8+ebp]
mov ebx,edi
xor esi,edx
shr ebx,16
mov edx,edi
mov al,bh
and ebx,255
mov cl,dh
and edx,255
mov eax,DWORD [72+eax*4+ebp]
mov ebx,DWORD [1096+ebx*4+ebp]
add ebx,eax
mov eax,DWORD [2120+ecx*4+ebp]
xor ebx,eax
mov edx,DWORD [3144+edx*4+ebp]
add ebx,edx
xor eax,eax
xor esi,ebx
;
; Round 1
mov edx,DWORD [4+ebp]
mov ebx,esi
xor edi,edx
shr ebx,16
mov edx,esi
mov al,bh
and ebx,255
mov cl,dh
and edx,255
mov eax,DWORD [72+eax*4+ebp]
mov ebx,DWORD [1096+ebx*4+ebp]
add ebx,eax
mov eax,DWORD [2120+ecx*4+ebp]
xor ebx,eax
mov edx,DWORD [3144+edx*4+ebp]
add ebx,edx
; Load parameter 0 (1) enc=0
mov eax,DWORD [20+esp]
xor edi,ebx
mov edx,DWORD [ebp]
xor esi,edx
mov DWORD [4+eax],edi
mov DWORD [eax],esi
pop edi
pop esi
pop ebx
pop ebp
ret
global _BF_cbc_encrypt
align 16
_BF_cbc_encrypt:
L$_BF_cbc_encrypt_begin:
;
push ebp
push ebx
push esi
push edi
mov ebp,DWORD [28+esp]
; getting iv ptr from parameter 4
mov ebx,DWORD [36+esp]
mov esi,DWORD [ebx]
mov edi,DWORD [4+ebx]
push edi
push esi
push edi
push esi
mov ebx,esp
mov esi,DWORD [36+esp]
mov edi,DWORD [40+esp]
; getting encrypt flag from parameter 5
mov ecx,DWORD [56+esp]
; get and push parameter 3
mov eax,DWORD [48+esp]
push eax
push ebx
cmp ecx,0
jz NEAR L$000decrypt
and ebp,4294967288
mov eax,DWORD [8+esp]
mov ebx,DWORD [12+esp]
jz NEAR L$001encrypt_finish
L$002encrypt_loop:
mov ecx,DWORD [esi]
mov edx,DWORD [4+esi]
xor eax,ecx
xor ebx,edx
bswap eax
bswap ebx
mov DWORD [8+esp],eax
mov DWORD [12+esp],ebx
call L$_BF_encrypt_begin
mov eax,DWORD [8+esp]
mov ebx,DWORD [12+esp]
bswap eax
bswap ebx
mov DWORD [edi],eax
mov DWORD [4+edi],ebx
add esi,8
add edi,8
sub ebp,8
jnz NEAR L$002encrypt_loop
L$001encrypt_finish:
mov ebp,DWORD [52+esp]
and ebp,7
jz NEAR L$003finish
call L$004PIC_point
L$004PIC_point:
pop edx
lea ecx,[(L$005cbc_enc_jmp_table-L$004PIC_point)+edx]
mov ebp,DWORD [ebp*4+ecx]
add ebp,edx
xor ecx,ecx
xor edx,edx
jmp ebp
L$006ej7:
mov dh,BYTE [6+esi]
shl edx,8
L$007ej6:
mov dh,BYTE [5+esi]
L$008ej5:
mov dl,BYTE [4+esi]
L$009ej4:
mov ecx,DWORD [esi]
jmp NEAR L$010ejend
L$011ej3:
mov ch,BYTE [2+esi]
shl ecx,8
L$012ej2:
mov ch,BYTE [1+esi]
L$013ej1:
mov cl,BYTE [esi]
L$010ejend:
xor eax,ecx
xor ebx,edx
bswap eax
bswap ebx
mov DWORD [8+esp],eax
mov DWORD [12+esp],ebx
call L$_BF_encrypt_begin
mov eax,DWORD [8+esp]
mov ebx,DWORD [12+esp]
bswap eax
bswap ebx
mov DWORD [edi],eax
mov DWORD [4+edi],ebx
jmp NEAR L$003finish
L$000decrypt:
and ebp,4294967288
mov eax,DWORD [16+esp]
mov ebx,DWORD [20+esp]
jz NEAR L$014decrypt_finish
L$015decrypt_loop:
mov eax,DWORD [esi]
mov ebx,DWORD [4+esi]
bswap eax
bswap ebx
mov DWORD [8+esp],eax
mov DWORD [12+esp],ebx
call L$_BF_decrypt_begin
mov eax,DWORD [8+esp]
mov ebx,DWORD [12+esp]
bswap eax
bswap ebx
mov ecx,DWORD [16+esp]
mov edx,DWORD [20+esp]
xor ecx,eax
xor edx,ebx
mov eax,DWORD [esi]
mov ebx,DWORD [4+esi]
mov DWORD [edi],ecx
mov DWORD [4+edi],edx
mov DWORD [16+esp],eax
mov DWORD [20+esp],ebx
add esi,8
add edi,8
sub ebp,8
jnz NEAR L$015decrypt_loop
L$014decrypt_finish:
mov ebp,DWORD [52+esp]
and ebp,7
jz NEAR L$003finish
mov eax,DWORD [esi]
mov ebx,DWORD [4+esi]
bswap eax
bswap ebx
mov DWORD [8+esp],eax
mov DWORD [12+esp],ebx
call L$_BF_decrypt_begin
mov eax,DWORD [8+esp]
mov ebx,DWORD [12+esp]
bswap eax
bswap ebx
mov ecx,DWORD [16+esp]
mov edx,DWORD [20+esp]
xor ecx,eax
xor edx,ebx
mov eax,DWORD [esi]
mov ebx,DWORD [4+esi]
L$016dj7:
ror edx,16
mov BYTE [6+edi],dl
shr edx,16
L$017dj6:
mov BYTE [5+edi],dh
L$018dj5:
mov BYTE [4+edi],dl
L$019dj4:
mov DWORD [edi],ecx
jmp NEAR L$020djend
L$021dj3:
ror ecx,16
mov BYTE [2+edi],cl
shl ecx,16
L$022dj2:
mov BYTE [1+esi],ch
L$023dj1:
mov BYTE [esi],cl
L$020djend:
jmp NEAR L$003finish
L$003finish:
mov ecx,DWORD [60+esp]
add esp,24
mov DWORD [ecx],eax
mov DWORD [4+ecx],ebx
pop edi
pop esi
pop ebx
pop ebp
ret
align 64
L$005cbc_enc_jmp_table:
dd 0
dd L$013ej1-L$004PIC_point
dd L$012ej2-L$004PIC_point
dd L$011ej3-L$004PIC_point
dd L$009ej4-L$004PIC_point
dd L$008ej5-L$004PIC_point
dd L$007ej6-L$004PIC_point
dd L$006ej7-L$004PIC_point
align 64

1515
tmp32/bn-586.asm Normal file

File diff suppressed because it is too large Load Diff

941
tmp32/cast-586.asm Normal file
View File

@@ -0,0 +1,941 @@
%ifidn __OUTPUT_FORMAT__,obj
section code use32 class=code align=64
%elifidn __OUTPUT_FORMAT__,win32
$@feat.00 equ 1
section .text code align=64
%else
section .text code
%endif
extern _CAST_S_table0
extern _CAST_S_table1
extern _CAST_S_table2
extern _CAST_S_table3
global _CAST_encrypt
align 16
_CAST_encrypt:
L$_CAST_encrypt_begin:
;
push ebp
push ebx
mov ebx,DWORD [12+esp]
mov ebp,DWORD [16+esp]
push esi
push edi
; Load the 2 words
mov edi,DWORD [ebx]
mov esi,DWORD [4+ebx]
; Get short key flag
mov eax,DWORD [128+ebp]
push eax
xor eax,eax
; round 0
mov edx,DWORD [ebp]
mov ecx,DWORD [4+ebp]
add edx,esi
rol edx,cl
mov ebx,edx
xor ecx,ecx
mov cl,dh
and ebx,255
shr edx,16
xor eax,eax
mov al,dh
and edx,255
mov ecx,DWORD [_CAST_S_table0+ecx*4]
mov ebx,DWORD [_CAST_S_table1+ebx*4]
xor ecx,ebx
mov ebx,DWORD [_CAST_S_table2+eax*4]
sub ecx,ebx
mov ebx,DWORD [_CAST_S_table3+edx*4]
add ecx,ebx
xor edi,ecx
; round 1
mov edx,DWORD [8+ebp]
mov ecx,DWORD [12+ebp]
xor edx,edi
rol edx,cl
mov ebx,edx
xor ecx,ecx
mov cl,dh
and ebx,255
shr edx,16
xor eax,eax
mov al,dh
and edx,255
mov ecx,DWORD [_CAST_S_table0+ecx*4]
mov ebx,DWORD [_CAST_S_table1+ebx*4]
sub ecx,ebx
mov ebx,DWORD [_CAST_S_table2+eax*4]
add ecx,ebx
mov ebx,DWORD [_CAST_S_table3+edx*4]
xor ecx,ebx
xor esi,ecx
; round 2
mov edx,DWORD [16+ebp]
mov ecx,DWORD [20+ebp]
sub edx,esi
rol edx,cl
mov ebx,edx
xor ecx,ecx
mov cl,dh
and ebx,255
shr edx,16
xor eax,eax
mov al,dh
and edx,255
mov ecx,DWORD [_CAST_S_table0+ecx*4]
mov ebx,DWORD [_CAST_S_table1+ebx*4]
add ecx,ebx
mov ebx,DWORD [_CAST_S_table2+eax*4]
xor ecx,ebx
mov ebx,DWORD [_CAST_S_table3+edx*4]
sub ecx,ebx
xor edi,ecx
; round 3
mov edx,DWORD [24+ebp]
mov ecx,DWORD [28+ebp]
add edx,edi
rol edx,cl
mov ebx,edx
xor ecx,ecx
mov cl,dh
and ebx,255
shr edx,16
xor eax,eax
mov al,dh
and edx,255
mov ecx,DWORD [_CAST_S_table0+ecx*4]
mov ebx,DWORD [_CAST_S_table1+ebx*4]
xor ecx,ebx
mov ebx,DWORD [_CAST_S_table2+eax*4]
sub ecx,ebx
mov ebx,DWORD [_CAST_S_table3+edx*4]
add ecx,ebx
xor esi,ecx
; round 4
mov edx,DWORD [32+ebp]
mov ecx,DWORD [36+ebp]
xor edx,esi
rol edx,cl
mov ebx,edx
xor ecx,ecx
mov cl,dh
and ebx,255
shr edx,16
xor eax,eax
mov al,dh
and edx,255
mov ecx,DWORD [_CAST_S_table0+ecx*4]
mov ebx,DWORD [_CAST_S_table1+ebx*4]
sub ecx,ebx
mov ebx,DWORD [_CAST_S_table2+eax*4]
add ecx,ebx
mov ebx,DWORD [_CAST_S_table3+edx*4]
xor ecx,ebx
xor edi,ecx
; round 5
mov edx,DWORD [40+ebp]
mov ecx,DWORD [44+ebp]
sub edx,edi
rol edx,cl
mov ebx,edx
xor ecx,ecx
mov cl,dh
and ebx,255
shr edx,16
xor eax,eax
mov al,dh
and edx,255
mov ecx,DWORD [_CAST_S_table0+ecx*4]
mov ebx,DWORD [_CAST_S_table1+ebx*4]
add ecx,ebx
mov ebx,DWORD [_CAST_S_table2+eax*4]
xor ecx,ebx
mov ebx,DWORD [_CAST_S_table3+edx*4]
sub ecx,ebx
xor esi,ecx
; round 6
mov edx,DWORD [48+ebp]
mov ecx,DWORD [52+ebp]
add edx,esi
rol edx,cl
mov ebx,edx
xor ecx,ecx
mov cl,dh
and ebx,255
shr edx,16
xor eax,eax
mov al,dh
and edx,255
mov ecx,DWORD [_CAST_S_table0+ecx*4]
mov ebx,DWORD [_CAST_S_table1+ebx*4]
xor ecx,ebx
mov ebx,DWORD [_CAST_S_table2+eax*4]
sub ecx,ebx
mov ebx,DWORD [_CAST_S_table3+edx*4]
add ecx,ebx
xor edi,ecx
; round 7
mov edx,DWORD [56+ebp]
mov ecx,DWORD [60+ebp]
xor edx,edi
rol edx,cl
mov ebx,edx
xor ecx,ecx
mov cl,dh
and ebx,255
shr edx,16
xor eax,eax
mov al,dh
and edx,255
mov ecx,DWORD [_CAST_S_table0+ecx*4]
mov ebx,DWORD [_CAST_S_table1+ebx*4]
sub ecx,ebx
mov ebx,DWORD [_CAST_S_table2+eax*4]
add ecx,ebx
mov ebx,DWORD [_CAST_S_table3+edx*4]
xor ecx,ebx
xor esi,ecx
; round 8
mov edx,DWORD [64+ebp]
mov ecx,DWORD [68+ebp]
sub edx,esi
rol edx,cl
mov ebx,edx
xor ecx,ecx
mov cl,dh
and ebx,255
shr edx,16
xor eax,eax
mov al,dh
and edx,255
mov ecx,DWORD [_CAST_S_table0+ecx*4]
mov ebx,DWORD [_CAST_S_table1+ebx*4]
add ecx,ebx
mov ebx,DWORD [_CAST_S_table2+eax*4]
xor ecx,ebx
mov ebx,DWORD [_CAST_S_table3+edx*4]
sub ecx,ebx
xor edi,ecx
; round 9
mov edx,DWORD [72+ebp]
mov ecx,DWORD [76+ebp]
add edx,edi
rol edx,cl
mov ebx,edx
xor ecx,ecx
mov cl,dh
and ebx,255
shr edx,16
xor eax,eax
mov al,dh
and edx,255
mov ecx,DWORD [_CAST_S_table0+ecx*4]
mov ebx,DWORD [_CAST_S_table1+ebx*4]
xor ecx,ebx
mov ebx,DWORD [_CAST_S_table2+eax*4]
sub ecx,ebx
mov ebx,DWORD [_CAST_S_table3+edx*4]
add ecx,ebx
xor esi,ecx
; round 10
mov edx,DWORD [80+ebp]
mov ecx,DWORD [84+ebp]
xor edx,esi
rol edx,cl
mov ebx,edx
xor ecx,ecx
mov cl,dh
and ebx,255
shr edx,16
xor eax,eax
mov al,dh
and edx,255
mov ecx,DWORD [_CAST_S_table0+ecx*4]
mov ebx,DWORD [_CAST_S_table1+ebx*4]
sub ecx,ebx
mov ebx,DWORD [_CAST_S_table2+eax*4]
add ecx,ebx
mov ebx,DWORD [_CAST_S_table3+edx*4]
xor ecx,ebx
xor edi,ecx
; round 11
mov edx,DWORD [88+ebp]
mov ecx,DWORD [92+ebp]
sub edx,edi
rol edx,cl
mov ebx,edx
xor ecx,ecx
mov cl,dh
and ebx,255
shr edx,16
xor eax,eax
mov al,dh
and edx,255
mov ecx,DWORD [_CAST_S_table0+ecx*4]
mov ebx,DWORD [_CAST_S_table1+ebx*4]
add ecx,ebx
mov ebx,DWORD [_CAST_S_table2+eax*4]
xor ecx,ebx
mov ebx,DWORD [_CAST_S_table3+edx*4]
sub ecx,ebx
xor esi,ecx
; test short key flag
pop edx
or edx,edx
jnz NEAR L$000cast_enc_done
; round 12
mov edx,DWORD [96+ebp]
mov ecx,DWORD [100+ebp]
add edx,esi
rol edx,cl
mov ebx,edx
xor ecx,ecx
mov cl,dh
and ebx,255
shr edx,16
xor eax,eax
mov al,dh
and edx,255
mov ecx,DWORD [_CAST_S_table0+ecx*4]
mov ebx,DWORD [_CAST_S_table1+ebx*4]
xor ecx,ebx
mov ebx,DWORD [_CAST_S_table2+eax*4]
sub ecx,ebx
mov ebx,DWORD [_CAST_S_table3+edx*4]
add ecx,ebx
xor edi,ecx
; round 13
mov edx,DWORD [104+ebp]
mov ecx,DWORD [108+ebp]
xor edx,edi
rol edx,cl
mov ebx,edx
xor ecx,ecx
mov cl,dh
and ebx,255
shr edx,16
xor eax,eax
mov al,dh
and edx,255
mov ecx,DWORD [_CAST_S_table0+ecx*4]
mov ebx,DWORD [_CAST_S_table1+ebx*4]
sub ecx,ebx
mov ebx,DWORD [_CAST_S_table2+eax*4]
add ecx,ebx
mov ebx,DWORD [_CAST_S_table3+edx*4]
xor ecx,ebx
xor esi,ecx
; round 14
mov edx,DWORD [112+ebp]
mov ecx,DWORD [116+ebp]
sub edx,esi
rol edx,cl
mov ebx,edx
xor ecx,ecx
mov cl,dh
and ebx,255
shr edx,16
xor eax,eax
mov al,dh
and edx,255
mov ecx,DWORD [_CAST_S_table0+ecx*4]
mov ebx,DWORD [_CAST_S_table1+ebx*4]
add ecx,ebx
mov ebx,DWORD [_CAST_S_table2+eax*4]
xor ecx,ebx
mov ebx,DWORD [_CAST_S_table3+edx*4]
sub ecx,ebx
xor edi,ecx
; round 15
mov edx,DWORD [120+ebp]
mov ecx,DWORD [124+ebp]
add edx,edi
rol edx,cl
mov ebx,edx
xor ecx,ecx
mov cl,dh
and ebx,255
shr edx,16
xor eax,eax
mov al,dh
and edx,255
mov ecx,DWORD [_CAST_S_table0+ecx*4]
mov ebx,DWORD [_CAST_S_table1+ebx*4]
xor ecx,ebx
mov ebx,DWORD [_CAST_S_table2+eax*4]
sub ecx,ebx
mov ebx,DWORD [_CAST_S_table3+edx*4]
add ecx,ebx
xor esi,ecx
L$000cast_enc_done:
nop
mov eax,DWORD [20+esp]
mov DWORD [4+eax],edi
mov DWORD [eax],esi
pop edi
pop esi
pop ebx
pop ebp
ret
extern _CAST_S_table0
extern _CAST_S_table1
extern _CAST_S_table2
extern _CAST_S_table3
global _CAST_decrypt
align 16
_CAST_decrypt:
L$_CAST_decrypt_begin:
;
push ebp
push ebx
mov ebx,DWORD [12+esp]
mov ebp,DWORD [16+esp]
push esi
push edi
; Load the 2 words
mov edi,DWORD [ebx]
mov esi,DWORD [4+ebx]
; Get short key flag
mov eax,DWORD [128+ebp]
or eax,eax
jnz NEAR L$001cast_dec_skip
xor eax,eax
; round 15
mov edx,DWORD [120+ebp]
mov ecx,DWORD [124+ebp]
add edx,esi
rol edx,cl
mov ebx,edx
xor ecx,ecx
mov cl,dh
and ebx,255
shr edx,16
xor eax,eax
mov al,dh
and edx,255
mov ecx,DWORD [_CAST_S_table0+ecx*4]
mov ebx,DWORD [_CAST_S_table1+ebx*4]
xor ecx,ebx
mov ebx,DWORD [_CAST_S_table2+eax*4]
sub ecx,ebx
mov ebx,DWORD [_CAST_S_table3+edx*4]
add ecx,ebx
xor edi,ecx
; round 14
mov edx,DWORD [112+ebp]
mov ecx,DWORD [116+ebp]
sub edx,edi
rol edx,cl
mov ebx,edx
xor ecx,ecx
mov cl,dh
and ebx,255
shr edx,16
xor eax,eax
mov al,dh
and edx,255
mov ecx,DWORD [_CAST_S_table0+ecx*4]
mov ebx,DWORD [_CAST_S_table1+ebx*4]
add ecx,ebx
mov ebx,DWORD [_CAST_S_table2+eax*4]
xor ecx,ebx
mov ebx,DWORD [_CAST_S_table3+edx*4]
sub ecx,ebx
xor esi,ecx
; round 13
mov edx,DWORD [104+ebp]
mov ecx,DWORD [108+ebp]
xor edx,esi
rol edx,cl
mov ebx,edx
xor ecx,ecx
mov cl,dh
and ebx,255
shr edx,16
xor eax,eax
mov al,dh
and edx,255
mov ecx,DWORD [_CAST_S_table0+ecx*4]
mov ebx,DWORD [_CAST_S_table1+ebx*4]
sub ecx,ebx
mov ebx,DWORD [_CAST_S_table2+eax*4]
add ecx,ebx
mov ebx,DWORD [_CAST_S_table3+edx*4]
xor ecx,ebx
xor edi,ecx
; round 12
mov edx,DWORD [96+ebp]
mov ecx,DWORD [100+ebp]
add edx,edi
rol edx,cl
mov ebx,edx
xor ecx,ecx
mov cl,dh
and ebx,255
shr edx,16
xor eax,eax
mov al,dh
and edx,255
mov ecx,DWORD [_CAST_S_table0+ecx*4]
mov ebx,DWORD [_CAST_S_table1+ebx*4]
xor ecx,ebx
mov ebx,DWORD [_CAST_S_table2+eax*4]
sub ecx,ebx
mov ebx,DWORD [_CAST_S_table3+edx*4]
add ecx,ebx
xor esi,ecx
L$001cast_dec_skip:
; round 11
mov edx,DWORD [88+ebp]
mov ecx,DWORD [92+ebp]
sub edx,esi
rol edx,cl
mov ebx,edx
xor ecx,ecx
mov cl,dh
and ebx,255
shr edx,16
xor eax,eax
mov al,dh
and edx,255
mov ecx,DWORD [_CAST_S_table0+ecx*4]
mov ebx,DWORD [_CAST_S_table1+ebx*4]
add ecx,ebx
mov ebx,DWORD [_CAST_S_table2+eax*4]
xor ecx,ebx
mov ebx,DWORD [_CAST_S_table3+edx*4]
sub ecx,ebx
xor edi,ecx
; round 10
mov edx,DWORD [80+ebp]
mov ecx,DWORD [84+ebp]
xor edx,edi
rol edx,cl
mov ebx,edx
xor ecx,ecx
mov cl,dh
and ebx,255
shr edx,16
xor eax,eax
mov al,dh
and edx,255
mov ecx,DWORD [_CAST_S_table0+ecx*4]
mov ebx,DWORD [_CAST_S_table1+ebx*4]
sub ecx,ebx
mov ebx,DWORD [_CAST_S_table2+eax*4]
add ecx,ebx
mov ebx,DWORD [_CAST_S_table3+edx*4]
xor ecx,ebx
xor esi,ecx
; round 9
mov edx,DWORD [72+ebp]
mov ecx,DWORD [76+ebp]
add edx,esi
rol edx,cl
mov ebx,edx
xor ecx,ecx
mov cl,dh
and ebx,255
shr edx,16
xor eax,eax
mov al,dh
and edx,255
mov ecx,DWORD [_CAST_S_table0+ecx*4]
mov ebx,DWORD [_CAST_S_table1+ebx*4]
xor ecx,ebx
mov ebx,DWORD [_CAST_S_table2+eax*4]
sub ecx,ebx
mov ebx,DWORD [_CAST_S_table3+edx*4]
add ecx,ebx
xor edi,ecx
; round 8
mov edx,DWORD [64+ebp]
mov ecx,DWORD [68+ebp]
sub edx,edi
rol edx,cl
mov ebx,edx
xor ecx,ecx
mov cl,dh
and ebx,255
shr edx,16
xor eax,eax
mov al,dh
and edx,255
mov ecx,DWORD [_CAST_S_table0+ecx*4]
mov ebx,DWORD [_CAST_S_table1+ebx*4]
add ecx,ebx
mov ebx,DWORD [_CAST_S_table2+eax*4]
xor ecx,ebx
mov ebx,DWORD [_CAST_S_table3+edx*4]
sub ecx,ebx
xor esi,ecx
; round 7
mov edx,DWORD [56+ebp]
mov ecx,DWORD [60+ebp]
xor edx,esi
rol edx,cl
mov ebx,edx
xor ecx,ecx
mov cl,dh
and ebx,255
shr edx,16
xor eax,eax
mov al,dh
and edx,255
mov ecx,DWORD [_CAST_S_table0+ecx*4]
mov ebx,DWORD [_CAST_S_table1+ebx*4]
sub ecx,ebx
mov ebx,DWORD [_CAST_S_table2+eax*4]
add ecx,ebx
mov ebx,DWORD [_CAST_S_table3+edx*4]
xor ecx,ebx
xor edi,ecx
; round 6
mov edx,DWORD [48+ebp]
mov ecx,DWORD [52+ebp]
add edx,edi
rol edx,cl
mov ebx,edx
xor ecx,ecx
mov cl,dh
and ebx,255
shr edx,16
xor eax,eax
mov al,dh
and edx,255
mov ecx,DWORD [_CAST_S_table0+ecx*4]
mov ebx,DWORD [_CAST_S_table1+ebx*4]
xor ecx,ebx
mov ebx,DWORD [_CAST_S_table2+eax*4]
sub ecx,ebx
mov ebx,DWORD [_CAST_S_table3+edx*4]
add ecx,ebx
xor esi,ecx
; round 5
mov edx,DWORD [40+ebp]
mov ecx,DWORD [44+ebp]
sub edx,esi
rol edx,cl
mov ebx,edx
xor ecx,ecx
mov cl,dh
and ebx,255
shr edx,16
xor eax,eax
mov al,dh
and edx,255
mov ecx,DWORD [_CAST_S_table0+ecx*4]
mov ebx,DWORD [_CAST_S_table1+ebx*4]
add ecx,ebx
mov ebx,DWORD [_CAST_S_table2+eax*4]
xor ecx,ebx
mov ebx,DWORD [_CAST_S_table3+edx*4]
sub ecx,ebx
xor edi,ecx
; round 4
mov edx,DWORD [32+ebp]
mov ecx,DWORD [36+ebp]
xor edx,edi
rol edx,cl
mov ebx,edx
xor ecx,ecx
mov cl,dh
and ebx,255
shr edx,16
xor eax,eax
mov al,dh
and edx,255
mov ecx,DWORD [_CAST_S_table0+ecx*4]
mov ebx,DWORD [_CAST_S_table1+ebx*4]
sub ecx,ebx
mov ebx,DWORD [_CAST_S_table2+eax*4]
add ecx,ebx
mov ebx,DWORD [_CAST_S_table3+edx*4]
xor ecx,ebx
xor esi,ecx
; round 3
mov edx,DWORD [24+ebp]
mov ecx,DWORD [28+ebp]
add edx,esi
rol edx,cl
mov ebx,edx
xor ecx,ecx
mov cl,dh
and ebx,255
shr edx,16
xor eax,eax
mov al,dh
and edx,255
mov ecx,DWORD [_CAST_S_table0+ecx*4]
mov ebx,DWORD [_CAST_S_table1+ebx*4]
xor ecx,ebx
mov ebx,DWORD [_CAST_S_table2+eax*4]
sub ecx,ebx
mov ebx,DWORD [_CAST_S_table3+edx*4]
add ecx,ebx
xor edi,ecx
; round 2
mov edx,DWORD [16+ebp]
mov ecx,DWORD [20+ebp]
sub edx,edi
rol edx,cl
mov ebx,edx
xor ecx,ecx
mov cl,dh
and ebx,255
shr edx,16
xor eax,eax
mov al,dh
and edx,255
mov ecx,DWORD [_CAST_S_table0+ecx*4]
mov ebx,DWORD [_CAST_S_table1+ebx*4]
add ecx,ebx
mov ebx,DWORD [_CAST_S_table2+eax*4]
xor ecx,ebx
mov ebx,DWORD [_CAST_S_table3+edx*4]
sub ecx,ebx
xor esi,ecx
; round 1
mov edx,DWORD [8+ebp]
mov ecx,DWORD [12+ebp]
xor edx,esi
rol edx,cl
mov ebx,edx
xor ecx,ecx
mov cl,dh
and ebx,255
shr edx,16
xor eax,eax
mov al,dh
and edx,255
mov ecx,DWORD [_CAST_S_table0+ecx*4]
mov ebx,DWORD [_CAST_S_table1+ebx*4]
sub ecx,ebx
mov ebx,DWORD [_CAST_S_table2+eax*4]
add ecx,ebx
mov ebx,DWORD [_CAST_S_table3+edx*4]
xor ecx,ebx
xor edi,ecx
; round 0
mov edx,DWORD [ebp]
mov ecx,DWORD [4+ebp]
add edx,edi
rol edx,cl
mov ebx,edx
xor ecx,ecx
mov cl,dh
and ebx,255
shr edx,16
xor eax,eax
mov al,dh
and edx,255
mov ecx,DWORD [_CAST_S_table0+ecx*4]
mov ebx,DWORD [_CAST_S_table1+ebx*4]
xor ecx,ebx
mov ebx,DWORD [_CAST_S_table2+eax*4]
sub ecx,ebx
mov ebx,DWORD [_CAST_S_table3+edx*4]
add ecx,ebx
xor esi,ecx
nop
mov eax,DWORD [20+esp]
mov DWORD [4+eax],edi
mov DWORD [eax],esi
pop edi
pop esi
pop ebx
pop ebp
ret
global _CAST_cbc_encrypt
align 16
_CAST_cbc_encrypt:
L$_CAST_cbc_encrypt_begin:
;
push ebp
push ebx
push esi
push edi
mov ebp,DWORD [28+esp]
; getting iv ptr from parameter 4
mov ebx,DWORD [36+esp]
mov esi,DWORD [ebx]
mov edi,DWORD [4+ebx]
push edi
push esi
push edi
push esi
mov ebx,esp
mov esi,DWORD [36+esp]
mov edi,DWORD [40+esp]
; getting encrypt flag from parameter 5
mov ecx,DWORD [56+esp]
; get and push parameter 3
mov eax,DWORD [48+esp]
push eax
push ebx
cmp ecx,0
jz NEAR L$002decrypt
and ebp,4294967288
mov eax,DWORD [8+esp]
mov ebx,DWORD [12+esp]
jz NEAR L$003encrypt_finish
L$004encrypt_loop:
mov ecx,DWORD [esi]
mov edx,DWORD [4+esi]
xor eax,ecx
xor ebx,edx
bswap eax
bswap ebx
mov DWORD [8+esp],eax
mov DWORD [12+esp],ebx
call L$_CAST_encrypt_begin
mov eax,DWORD [8+esp]
mov ebx,DWORD [12+esp]
bswap eax
bswap ebx
mov DWORD [edi],eax
mov DWORD [4+edi],ebx
add esi,8
add edi,8
sub ebp,8
jnz NEAR L$004encrypt_loop
L$003encrypt_finish:
mov ebp,DWORD [52+esp]
and ebp,7
jz NEAR L$005finish
call L$006PIC_point
L$006PIC_point:
pop edx
lea ecx,[(L$007cbc_enc_jmp_table-L$006PIC_point)+edx]
mov ebp,DWORD [ebp*4+ecx]
add ebp,edx
xor ecx,ecx
xor edx,edx
jmp ebp
L$008ej7:
mov dh,BYTE [6+esi]
shl edx,8
L$009ej6:
mov dh,BYTE [5+esi]
L$010ej5:
mov dl,BYTE [4+esi]
L$011ej4:
mov ecx,DWORD [esi]
jmp NEAR L$012ejend
L$013ej3:
mov ch,BYTE [2+esi]
shl ecx,8
L$014ej2:
mov ch,BYTE [1+esi]
L$015ej1:
mov cl,BYTE [esi]
L$012ejend:
xor eax,ecx
xor ebx,edx
bswap eax
bswap ebx
mov DWORD [8+esp],eax
mov DWORD [12+esp],ebx
call L$_CAST_encrypt_begin
mov eax,DWORD [8+esp]
mov ebx,DWORD [12+esp]
bswap eax
bswap ebx
mov DWORD [edi],eax
mov DWORD [4+edi],ebx
jmp NEAR L$005finish
L$002decrypt:
and ebp,4294967288
mov eax,DWORD [16+esp]
mov ebx,DWORD [20+esp]
jz NEAR L$016decrypt_finish
L$017decrypt_loop:
mov eax,DWORD [esi]
mov ebx,DWORD [4+esi]
bswap eax
bswap ebx
mov DWORD [8+esp],eax
mov DWORD [12+esp],ebx
call L$_CAST_decrypt_begin
mov eax,DWORD [8+esp]
mov ebx,DWORD [12+esp]
bswap eax
bswap ebx
mov ecx,DWORD [16+esp]
mov edx,DWORD [20+esp]
xor ecx,eax
xor edx,ebx
mov eax,DWORD [esi]
mov ebx,DWORD [4+esi]
mov DWORD [edi],ecx
mov DWORD [4+edi],edx
mov DWORD [16+esp],eax
mov DWORD [20+esp],ebx
add esi,8
add edi,8
sub ebp,8
jnz NEAR L$017decrypt_loop
L$016decrypt_finish:
mov ebp,DWORD [52+esp]
and ebp,7
jz NEAR L$005finish
mov eax,DWORD [esi]
mov ebx,DWORD [4+esi]
bswap eax
bswap ebx
mov DWORD [8+esp],eax
mov DWORD [12+esp],ebx
call L$_CAST_decrypt_begin
mov eax,DWORD [8+esp]
mov ebx,DWORD [12+esp]
bswap eax
bswap ebx
mov ecx,DWORD [16+esp]
mov edx,DWORD [20+esp]
xor ecx,eax
xor edx,ebx
mov eax,DWORD [esi]
mov ebx,DWORD [4+esi]
L$018dj7:
ror edx,16
mov BYTE [6+edi],dl
shr edx,16
L$019dj6:
mov BYTE [5+edi],dh
L$020dj5:
mov BYTE [4+edi],dl
L$021dj4:
mov DWORD [edi],ecx
jmp NEAR L$022djend
L$023dj3:
ror ecx,16
mov BYTE [2+edi],cl
shl ecx,16
L$024dj2:
mov BYTE [1+esi],ch
L$025dj1:
mov BYTE [esi],cl
L$022djend:
jmp NEAR L$005finish
L$005finish:
mov ecx,DWORD [60+esp]
add esp,24
mov DWORD [ecx],eax
mov DWORD [4+ecx],ebx
pop edi
pop esi
pop ebx
pop ebp
ret
align 64
L$007cbc_enc_jmp_table:
dd 0
dd L$015ej1-L$006PIC_point
dd L$014ej2-L$006PIC_point
dd L$013ej3-L$006PIC_point
dd L$011ej4-L$006PIC_point
dd L$010ej5-L$006PIC_point
dd L$009ej6-L$006PIC_point
dd L$008ej7-L$006PIC_point
align 64

2359
tmp32/cmll-x86.asm Normal file

File diff suppressed because it is too large Load Diff

1252
tmp32/co-586.asm Normal file

File diff suppressed because it is too large Load Diff

880
tmp32/crypt586.asm Normal file
View File

@@ -0,0 +1,880 @@
%ifidn __OUTPUT_FORMAT__,obj
section code use32 class=code align=64
%elifidn __OUTPUT_FORMAT__,win32
$@feat.00 equ 1
section .text code align=64
%else
section .text code
%endif
extern _DES_SPtrans
global _fcrypt_body
align 16
_fcrypt_body:
L$_fcrypt_body_begin:
push ebp
push ebx
push esi
push edi
;
; Load the 2 words
xor edi,edi
xor esi,esi
lea edx,[_DES_SPtrans]
push edx
mov ebp,DWORD [28+esp]
push DWORD 25
L$000start:
;
; Round 0
mov eax,DWORD [36+esp]
mov edx,esi
shr edx,16
mov ecx,DWORD [40+esp]
xor edx,esi
and eax,edx
and edx,ecx
mov ebx,eax
shl ebx,16
mov ecx,edx
shl ecx,16
xor eax,ebx
xor edx,ecx
mov ebx,DWORD [ebp]
xor eax,ebx
mov ecx,DWORD [4+ebp]
xor eax,esi
xor edx,esi
xor edx,ecx
and eax,0xfcfcfcfc
xor ebx,ebx
and edx,0xcfcfcfcf
xor ecx,ecx
mov bl,al
mov cl,ah
ror edx,4
mov ebp,DWORD [4+esp]
xor edi,DWORD [ebx*1+ebp]
mov bl,dl
xor edi,DWORD [0x200+ecx*1+ebp]
mov cl,dh
shr eax,16
xor edi,DWORD [0x100+ebx*1+ebp]
mov bl,ah
shr edx,16
xor edi,DWORD [0x300+ecx*1+ebp]
mov cl,dh
and eax,0xff
and edx,0xff
mov ebx,DWORD [0x600+ebx*1+ebp]
xor edi,ebx
mov ebx,DWORD [0x700+ecx*1+ebp]
xor edi,ebx
mov ebx,DWORD [0x400+eax*1+ebp]
xor edi,ebx
mov ebx,DWORD [0x500+edx*1+ebp]
xor edi,ebx
mov ebp,DWORD [32+esp]
;
; Round 1
mov eax,DWORD [36+esp]
mov edx,edi
shr edx,16
mov ecx,DWORD [40+esp]
xor edx,edi
and eax,edx
and edx,ecx
mov ebx,eax
shl ebx,16
mov ecx,edx
shl ecx,16
xor eax,ebx
xor edx,ecx
mov ebx,DWORD [8+ebp]
xor eax,ebx
mov ecx,DWORD [12+ebp]
xor eax,edi
xor edx,edi
xor edx,ecx
and eax,0xfcfcfcfc
xor ebx,ebx
and edx,0xcfcfcfcf
xor ecx,ecx
mov bl,al
mov cl,ah
ror edx,4
mov ebp,DWORD [4+esp]
xor esi,DWORD [ebx*1+ebp]
mov bl,dl
xor esi,DWORD [0x200+ecx*1+ebp]
mov cl,dh
shr eax,16
xor esi,DWORD [0x100+ebx*1+ebp]
mov bl,ah
shr edx,16
xor esi,DWORD [0x300+ecx*1+ebp]
mov cl,dh
and eax,0xff
and edx,0xff
mov ebx,DWORD [0x600+ebx*1+ebp]
xor esi,ebx
mov ebx,DWORD [0x700+ecx*1+ebp]
xor esi,ebx
mov ebx,DWORD [0x400+eax*1+ebp]
xor esi,ebx
mov ebx,DWORD [0x500+edx*1+ebp]
xor esi,ebx
mov ebp,DWORD [32+esp]
;
; Round 2
mov eax,DWORD [36+esp]
mov edx,esi
shr edx,16
mov ecx,DWORD [40+esp]
xor edx,esi
and eax,edx
and edx,ecx
mov ebx,eax
shl ebx,16
mov ecx,edx
shl ecx,16
xor eax,ebx
xor edx,ecx
mov ebx,DWORD [16+ebp]
xor eax,ebx
mov ecx,DWORD [20+ebp]
xor eax,esi
xor edx,esi
xor edx,ecx
and eax,0xfcfcfcfc
xor ebx,ebx
and edx,0xcfcfcfcf
xor ecx,ecx
mov bl,al
mov cl,ah
ror edx,4
mov ebp,DWORD [4+esp]
xor edi,DWORD [ebx*1+ebp]
mov bl,dl
xor edi,DWORD [0x200+ecx*1+ebp]
mov cl,dh
shr eax,16
xor edi,DWORD [0x100+ebx*1+ebp]
mov bl,ah
shr edx,16
xor edi,DWORD [0x300+ecx*1+ebp]
mov cl,dh
and eax,0xff
and edx,0xff
mov ebx,DWORD [0x600+ebx*1+ebp]
xor edi,ebx
mov ebx,DWORD [0x700+ecx*1+ebp]
xor edi,ebx
mov ebx,DWORD [0x400+eax*1+ebp]
xor edi,ebx
mov ebx,DWORD [0x500+edx*1+ebp]
xor edi,ebx
mov ebp,DWORD [32+esp]
;
; Round 3
mov eax,DWORD [36+esp]
mov edx,edi
shr edx,16
mov ecx,DWORD [40+esp]
xor edx,edi
and eax,edx
and edx,ecx
mov ebx,eax
shl ebx,16
mov ecx,edx
shl ecx,16
xor eax,ebx
xor edx,ecx
mov ebx,DWORD [24+ebp]
xor eax,ebx
mov ecx,DWORD [28+ebp]
xor eax,edi
xor edx,edi
xor edx,ecx
and eax,0xfcfcfcfc
xor ebx,ebx
and edx,0xcfcfcfcf
xor ecx,ecx
mov bl,al
mov cl,ah
ror edx,4
mov ebp,DWORD [4+esp]
xor esi,DWORD [ebx*1+ebp]
mov bl,dl
xor esi,DWORD [0x200+ecx*1+ebp]
mov cl,dh
shr eax,16
xor esi,DWORD [0x100+ebx*1+ebp]
mov bl,ah
shr edx,16
xor esi,DWORD [0x300+ecx*1+ebp]
mov cl,dh
and eax,0xff
and edx,0xff
mov ebx,DWORD [0x600+ebx*1+ebp]
xor esi,ebx
mov ebx,DWORD [0x700+ecx*1+ebp]
xor esi,ebx
mov ebx,DWORD [0x400+eax*1+ebp]
xor esi,ebx
mov ebx,DWORD [0x500+edx*1+ebp]
xor esi,ebx
mov ebp,DWORD [32+esp]
;
; Round 4
mov eax,DWORD [36+esp]
mov edx,esi
shr edx,16
mov ecx,DWORD [40+esp]
xor edx,esi
and eax,edx
and edx,ecx
mov ebx,eax
shl ebx,16
mov ecx,edx
shl ecx,16
xor eax,ebx
xor edx,ecx
mov ebx,DWORD [32+ebp]
xor eax,ebx
mov ecx,DWORD [36+ebp]
xor eax,esi
xor edx,esi
xor edx,ecx
and eax,0xfcfcfcfc
xor ebx,ebx
and edx,0xcfcfcfcf
xor ecx,ecx
mov bl,al
mov cl,ah
ror edx,4
mov ebp,DWORD [4+esp]
xor edi,DWORD [ebx*1+ebp]
mov bl,dl
xor edi,DWORD [0x200+ecx*1+ebp]
mov cl,dh
shr eax,16
xor edi,DWORD [0x100+ebx*1+ebp]
mov bl,ah
shr edx,16
xor edi,DWORD [0x300+ecx*1+ebp]
mov cl,dh
and eax,0xff
and edx,0xff
mov ebx,DWORD [0x600+ebx*1+ebp]
xor edi,ebx
mov ebx,DWORD [0x700+ecx*1+ebp]
xor edi,ebx
mov ebx,DWORD [0x400+eax*1+ebp]
xor edi,ebx
mov ebx,DWORD [0x500+edx*1+ebp]
xor edi,ebx
mov ebp,DWORD [32+esp]
;
; Round 5
mov eax,DWORD [36+esp]
mov edx,edi
shr edx,16
mov ecx,DWORD [40+esp]
xor edx,edi
and eax,edx
and edx,ecx
mov ebx,eax
shl ebx,16
mov ecx,edx
shl ecx,16
xor eax,ebx
xor edx,ecx
mov ebx,DWORD [40+ebp]
xor eax,ebx
mov ecx,DWORD [44+ebp]
xor eax,edi
xor edx,edi
xor edx,ecx
and eax,0xfcfcfcfc
xor ebx,ebx
and edx,0xcfcfcfcf
xor ecx,ecx
mov bl,al
mov cl,ah
ror edx,4
mov ebp,DWORD [4+esp]
xor esi,DWORD [ebx*1+ebp]
mov bl,dl
xor esi,DWORD [0x200+ecx*1+ebp]
mov cl,dh
shr eax,16
xor esi,DWORD [0x100+ebx*1+ebp]
mov bl,ah
shr edx,16
xor esi,DWORD [0x300+ecx*1+ebp]
mov cl,dh
and eax,0xff
and edx,0xff
mov ebx,DWORD [0x600+ebx*1+ebp]
xor esi,ebx
mov ebx,DWORD [0x700+ecx*1+ebp]
xor esi,ebx
mov ebx,DWORD [0x400+eax*1+ebp]
xor esi,ebx
mov ebx,DWORD [0x500+edx*1+ebp]
xor esi,ebx
mov ebp,DWORD [32+esp]
;
; Round 6
mov eax,DWORD [36+esp]
mov edx,esi
shr edx,16
mov ecx,DWORD [40+esp]
xor edx,esi
and eax,edx
and edx,ecx
mov ebx,eax
shl ebx,16
mov ecx,edx
shl ecx,16
xor eax,ebx
xor edx,ecx
mov ebx,DWORD [48+ebp]
xor eax,ebx
mov ecx,DWORD [52+ebp]
xor eax,esi
xor edx,esi
xor edx,ecx
and eax,0xfcfcfcfc
xor ebx,ebx
and edx,0xcfcfcfcf
xor ecx,ecx
mov bl,al
mov cl,ah
ror edx,4
mov ebp,DWORD [4+esp]
xor edi,DWORD [ebx*1+ebp]
mov bl,dl
xor edi,DWORD [0x200+ecx*1+ebp]
mov cl,dh
shr eax,16
xor edi,DWORD [0x100+ebx*1+ebp]
mov bl,ah
shr edx,16
xor edi,DWORD [0x300+ecx*1+ebp]
mov cl,dh
and eax,0xff
and edx,0xff
mov ebx,DWORD [0x600+ebx*1+ebp]
xor edi,ebx
mov ebx,DWORD [0x700+ecx*1+ebp]
xor edi,ebx
mov ebx,DWORD [0x400+eax*1+ebp]
xor edi,ebx
mov ebx,DWORD [0x500+edx*1+ebp]
xor edi,ebx
mov ebp,DWORD [32+esp]
;
; Round 7
mov eax,DWORD [36+esp]
mov edx,edi
shr edx,16
mov ecx,DWORD [40+esp]
xor edx,edi
and eax,edx
and edx,ecx
mov ebx,eax
shl ebx,16
mov ecx,edx
shl ecx,16
xor eax,ebx
xor edx,ecx
mov ebx,DWORD [56+ebp]
xor eax,ebx
mov ecx,DWORD [60+ebp]
xor eax,edi
xor edx,edi
xor edx,ecx
and eax,0xfcfcfcfc
xor ebx,ebx
and edx,0xcfcfcfcf
xor ecx,ecx
mov bl,al
mov cl,ah
ror edx,4
mov ebp,DWORD [4+esp]
xor esi,DWORD [ebx*1+ebp]
mov bl,dl
xor esi,DWORD [0x200+ecx*1+ebp]
mov cl,dh
shr eax,16
xor esi,DWORD [0x100+ebx*1+ebp]
mov bl,ah
shr edx,16
xor esi,DWORD [0x300+ecx*1+ebp]
mov cl,dh
and eax,0xff
and edx,0xff
mov ebx,DWORD [0x600+ebx*1+ebp]
xor esi,ebx
mov ebx,DWORD [0x700+ecx*1+ebp]
xor esi,ebx
mov ebx,DWORD [0x400+eax*1+ebp]
xor esi,ebx
mov ebx,DWORD [0x500+edx*1+ebp]
xor esi,ebx
mov ebp,DWORD [32+esp]
;
; Round 8
mov eax,DWORD [36+esp]
mov edx,esi
shr edx,16
mov ecx,DWORD [40+esp]
xor edx,esi
and eax,edx
and edx,ecx
mov ebx,eax
shl ebx,16
mov ecx,edx
shl ecx,16
xor eax,ebx
xor edx,ecx
mov ebx,DWORD [64+ebp]
xor eax,ebx
mov ecx,DWORD [68+ebp]
xor eax,esi
xor edx,esi
xor edx,ecx
and eax,0xfcfcfcfc
xor ebx,ebx
and edx,0xcfcfcfcf
xor ecx,ecx
mov bl,al
mov cl,ah
ror edx,4
mov ebp,DWORD [4+esp]
xor edi,DWORD [ebx*1+ebp]
mov bl,dl
xor edi,DWORD [0x200+ecx*1+ebp]
mov cl,dh
shr eax,16
xor edi,DWORD [0x100+ebx*1+ebp]
mov bl,ah
shr edx,16
xor edi,DWORD [0x300+ecx*1+ebp]
mov cl,dh
and eax,0xff
and edx,0xff
mov ebx,DWORD [0x600+ebx*1+ebp]
xor edi,ebx
mov ebx,DWORD [0x700+ecx*1+ebp]
xor edi,ebx
mov ebx,DWORD [0x400+eax*1+ebp]
xor edi,ebx
mov ebx,DWORD [0x500+edx*1+ebp]
xor edi,ebx
mov ebp,DWORD [32+esp]
;
; Round 9
mov eax,DWORD [36+esp]
mov edx,edi
shr edx,16
mov ecx,DWORD [40+esp]
xor edx,edi
and eax,edx
and edx,ecx
mov ebx,eax
shl ebx,16
mov ecx,edx
shl ecx,16
xor eax,ebx
xor edx,ecx
mov ebx,DWORD [72+ebp]
xor eax,ebx
mov ecx,DWORD [76+ebp]
xor eax,edi
xor edx,edi
xor edx,ecx
and eax,0xfcfcfcfc
xor ebx,ebx
and edx,0xcfcfcfcf
xor ecx,ecx
mov bl,al
mov cl,ah
ror edx,4
mov ebp,DWORD [4+esp]
xor esi,DWORD [ebx*1+ebp]
mov bl,dl
xor esi,DWORD [0x200+ecx*1+ebp]
mov cl,dh
shr eax,16
xor esi,DWORD [0x100+ebx*1+ebp]
mov bl,ah
shr edx,16
xor esi,DWORD [0x300+ecx*1+ebp]
mov cl,dh
and eax,0xff
and edx,0xff
mov ebx,DWORD [0x600+ebx*1+ebp]
xor esi,ebx
mov ebx,DWORD [0x700+ecx*1+ebp]
xor esi,ebx
mov ebx,DWORD [0x400+eax*1+ebp]
xor esi,ebx
mov ebx,DWORD [0x500+edx*1+ebp]
xor esi,ebx
mov ebp,DWORD [32+esp]
;
; Round 10
mov eax,DWORD [36+esp]
mov edx,esi
shr edx,16
mov ecx,DWORD [40+esp]
xor edx,esi
and eax,edx
and edx,ecx
mov ebx,eax
shl ebx,16
mov ecx,edx
shl ecx,16
xor eax,ebx
xor edx,ecx
mov ebx,DWORD [80+ebp]
xor eax,ebx
mov ecx,DWORD [84+ebp]
xor eax,esi
xor edx,esi
xor edx,ecx
and eax,0xfcfcfcfc
xor ebx,ebx
and edx,0xcfcfcfcf
xor ecx,ecx
mov bl,al
mov cl,ah
ror edx,4
mov ebp,DWORD [4+esp]
xor edi,DWORD [ebx*1+ebp]
mov bl,dl
xor edi,DWORD [0x200+ecx*1+ebp]
mov cl,dh
shr eax,16
xor edi,DWORD [0x100+ebx*1+ebp]
mov bl,ah
shr edx,16
xor edi,DWORD [0x300+ecx*1+ebp]
mov cl,dh
and eax,0xff
and edx,0xff
mov ebx,DWORD [0x600+ebx*1+ebp]
xor edi,ebx
mov ebx,DWORD [0x700+ecx*1+ebp]
xor edi,ebx
mov ebx,DWORD [0x400+eax*1+ebp]
xor edi,ebx
mov ebx,DWORD [0x500+edx*1+ebp]
xor edi,ebx
mov ebp,DWORD [32+esp]
;
; Round 11
mov eax,DWORD [36+esp]
mov edx,edi
shr edx,16
mov ecx,DWORD [40+esp]
xor edx,edi
and eax,edx
and edx,ecx
mov ebx,eax
shl ebx,16
mov ecx,edx
shl ecx,16
xor eax,ebx
xor edx,ecx
mov ebx,DWORD [88+ebp]
xor eax,ebx
mov ecx,DWORD [92+ebp]
xor eax,edi
xor edx,edi
xor edx,ecx
and eax,0xfcfcfcfc
xor ebx,ebx
and edx,0xcfcfcfcf
xor ecx,ecx
mov bl,al
mov cl,ah
ror edx,4
mov ebp,DWORD [4+esp]
xor esi,DWORD [ebx*1+ebp]
mov bl,dl
xor esi,DWORD [0x200+ecx*1+ebp]
mov cl,dh
shr eax,16
xor esi,DWORD [0x100+ebx*1+ebp]
mov bl,ah
shr edx,16
xor esi,DWORD [0x300+ecx*1+ebp]
mov cl,dh
and eax,0xff
and edx,0xff
mov ebx,DWORD [0x600+ebx*1+ebp]
xor esi,ebx
mov ebx,DWORD [0x700+ecx*1+ebp]
xor esi,ebx
mov ebx,DWORD [0x400+eax*1+ebp]
xor esi,ebx
mov ebx,DWORD [0x500+edx*1+ebp]
xor esi,ebx
mov ebp,DWORD [32+esp]
;
; Round 12
mov eax,DWORD [36+esp]
mov edx,esi
shr edx,16
mov ecx,DWORD [40+esp]
xor edx,esi
and eax,edx
and edx,ecx
mov ebx,eax
shl ebx,16
mov ecx,edx
shl ecx,16
xor eax,ebx
xor edx,ecx
mov ebx,DWORD [96+ebp]
xor eax,ebx
mov ecx,DWORD [100+ebp]
xor eax,esi
xor edx,esi
xor edx,ecx
and eax,0xfcfcfcfc
xor ebx,ebx
and edx,0xcfcfcfcf
xor ecx,ecx
mov bl,al
mov cl,ah
ror edx,4
mov ebp,DWORD [4+esp]
xor edi,DWORD [ebx*1+ebp]
mov bl,dl
xor edi,DWORD [0x200+ecx*1+ebp]
mov cl,dh
shr eax,16
xor edi,DWORD [0x100+ebx*1+ebp]
mov bl,ah
shr edx,16
xor edi,DWORD [0x300+ecx*1+ebp]
mov cl,dh
and eax,0xff
and edx,0xff
mov ebx,DWORD [0x600+ebx*1+ebp]
xor edi,ebx
mov ebx,DWORD [0x700+ecx*1+ebp]
xor edi,ebx
mov ebx,DWORD [0x400+eax*1+ebp]
xor edi,ebx
mov ebx,DWORD [0x500+edx*1+ebp]
xor edi,ebx
mov ebp,DWORD [32+esp]
;
; Round 13
mov eax,DWORD [36+esp]
mov edx,edi
shr edx,16
mov ecx,DWORD [40+esp]
xor edx,edi
and eax,edx
and edx,ecx
mov ebx,eax
shl ebx,16
mov ecx,edx
shl ecx,16
xor eax,ebx
xor edx,ecx
mov ebx,DWORD [104+ebp]
xor eax,ebx
mov ecx,DWORD [108+ebp]
xor eax,edi
xor edx,edi
xor edx,ecx
and eax,0xfcfcfcfc
xor ebx,ebx
and edx,0xcfcfcfcf
xor ecx,ecx
mov bl,al
mov cl,ah
ror edx,4
mov ebp,DWORD [4+esp]
xor esi,DWORD [ebx*1+ebp]
mov bl,dl
xor esi,DWORD [0x200+ecx*1+ebp]
mov cl,dh
shr eax,16
xor esi,DWORD [0x100+ebx*1+ebp]
mov bl,ah
shr edx,16
xor esi,DWORD [0x300+ecx*1+ebp]
mov cl,dh
and eax,0xff
and edx,0xff
mov ebx,DWORD [0x600+ebx*1+ebp]
xor esi,ebx
mov ebx,DWORD [0x700+ecx*1+ebp]
xor esi,ebx
mov ebx,DWORD [0x400+eax*1+ebp]
xor esi,ebx
mov ebx,DWORD [0x500+edx*1+ebp]
xor esi,ebx
mov ebp,DWORD [32+esp]
;
; Round 14
mov eax,DWORD [36+esp]
mov edx,esi
shr edx,16
mov ecx,DWORD [40+esp]
xor edx,esi
and eax,edx
and edx,ecx
mov ebx,eax
shl ebx,16
mov ecx,edx
shl ecx,16
xor eax,ebx
xor edx,ecx
mov ebx,DWORD [112+ebp]
xor eax,ebx
mov ecx,DWORD [116+ebp]
xor eax,esi
xor edx,esi
xor edx,ecx
and eax,0xfcfcfcfc
xor ebx,ebx
and edx,0xcfcfcfcf
xor ecx,ecx
mov bl,al
mov cl,ah
ror edx,4
mov ebp,DWORD [4+esp]
xor edi,DWORD [ebx*1+ebp]
mov bl,dl
xor edi,DWORD [0x200+ecx*1+ebp]
mov cl,dh
shr eax,16
xor edi,DWORD [0x100+ebx*1+ebp]
mov bl,ah
shr edx,16
xor edi,DWORD [0x300+ecx*1+ebp]
mov cl,dh
and eax,0xff
and edx,0xff
mov ebx,DWORD [0x600+ebx*1+ebp]
xor edi,ebx
mov ebx,DWORD [0x700+ecx*1+ebp]
xor edi,ebx
mov ebx,DWORD [0x400+eax*1+ebp]
xor edi,ebx
mov ebx,DWORD [0x500+edx*1+ebp]
xor edi,ebx
mov ebp,DWORD [32+esp]
;
; Round 15
mov eax,DWORD [36+esp]
mov edx,edi
shr edx,16
mov ecx,DWORD [40+esp]
xor edx,edi
and eax,edx
and edx,ecx
mov ebx,eax
shl ebx,16
mov ecx,edx
shl ecx,16
xor eax,ebx
xor edx,ecx
mov ebx,DWORD [120+ebp]
xor eax,ebx
mov ecx,DWORD [124+ebp]
xor eax,edi
xor edx,edi
xor edx,ecx
and eax,0xfcfcfcfc
xor ebx,ebx
and edx,0xcfcfcfcf
xor ecx,ecx
mov bl,al
mov cl,ah
ror edx,4
mov ebp,DWORD [4+esp]
xor esi,DWORD [ebx*1+ebp]
mov bl,dl
xor esi,DWORD [0x200+ecx*1+ebp]
mov cl,dh
shr eax,16
xor esi,DWORD [0x100+ebx*1+ebp]
mov bl,ah
shr edx,16
xor esi,DWORD [0x300+ecx*1+ebp]
mov cl,dh
and eax,0xff
and edx,0xff
mov ebx,DWORD [0x600+ebx*1+ebp]
xor esi,ebx
mov ebx,DWORD [0x700+ecx*1+ebp]
xor esi,ebx
mov ebx,DWORD [0x400+eax*1+ebp]
xor esi,ebx
mov ebx,DWORD [0x500+edx*1+ebp]
xor esi,ebx
mov ebp,DWORD [32+esp]
mov ebx,DWORD [esp]
mov eax,edi
dec ebx
mov edi,esi
mov esi,eax
mov DWORD [esp],ebx
jnz NEAR L$000start
;
; FP
mov edx,DWORD [28+esp]
ror edi,1
mov eax,esi
xor esi,edi
and esi,0xaaaaaaaa
xor eax,esi
xor edi,esi
;
rol eax,23
mov esi,eax
xor eax,edi
and eax,0x03fc03fc
xor esi,eax
xor edi,eax
;
rol esi,10
mov eax,esi
xor esi,edi
and esi,0x33333333
xor eax,esi
xor edi,esi
;
rol edi,18
mov esi,edi
xor edi,eax
and edi,0xfff0000f
xor esi,edi
xor eax,edi
;
rol esi,12
mov edi,esi
xor esi,eax
and esi,0xf0f0f0f0
xor edi,esi
xor eax,esi
;
ror eax,4
mov DWORD [edx],eax
mov DWORD [4+edx],edi
add esp,8
pop edi
pop esi
pop ebx
pop ebp
ret

1828
tmp32/des-586.asm Normal file

File diff suppressed because it is too large Load Diff

1257
tmp32/ghash-x86.asm Normal file

File diff suppressed because it is too large Load Diff

683
tmp32/md5-586.asm Normal file
View File

@@ -0,0 +1,683 @@
%ifidn __OUTPUT_FORMAT__,obj
section code use32 class=code align=64
%elifidn __OUTPUT_FORMAT__,win32
$@feat.00 equ 1
section .text code align=64
%else
section .text code
%endif
global _md5_block_asm_data_order
align 16
_md5_block_asm_data_order:
L$_md5_block_asm_data_order_begin:
push esi
push edi
mov edi,DWORD [12+esp]
mov esi,DWORD [16+esp]
mov ecx,DWORD [20+esp]
push ebp
shl ecx,6
push ebx
add ecx,esi
sub ecx,64
mov eax,DWORD [edi]
push ecx
mov ebx,DWORD [4+edi]
mov ecx,DWORD [8+edi]
mov edx,DWORD [12+edi]
L$000start:
;
; R0 section
mov edi,ecx
mov ebp,DWORD [esi]
; R0 0
xor edi,edx
and edi,ebx
lea eax,[3614090360+ebp*1+eax]
xor edi,edx
add eax,edi
mov edi,ebx
rol eax,7
mov ebp,DWORD [4+esi]
add eax,ebx
; R0 1
xor edi,ecx
and edi,eax
lea edx,[3905402710+ebp*1+edx]
xor edi,ecx
add edx,edi
mov edi,eax
rol edx,12
mov ebp,DWORD [8+esi]
add edx,eax
; R0 2
xor edi,ebx
and edi,edx
lea ecx,[606105819+ebp*1+ecx]
xor edi,ebx
add ecx,edi
mov edi,edx
rol ecx,17
mov ebp,DWORD [12+esi]
add ecx,edx
; R0 3
xor edi,eax
and edi,ecx
lea ebx,[3250441966+ebp*1+ebx]
xor edi,eax
add ebx,edi
mov edi,ecx
rol ebx,22
mov ebp,DWORD [16+esi]
add ebx,ecx
; R0 4
xor edi,edx
and edi,ebx
lea eax,[4118548399+ebp*1+eax]
xor edi,edx
add eax,edi
mov edi,ebx
rol eax,7
mov ebp,DWORD [20+esi]
add eax,ebx
; R0 5
xor edi,ecx
and edi,eax
lea edx,[1200080426+ebp*1+edx]
xor edi,ecx
add edx,edi
mov edi,eax
rol edx,12
mov ebp,DWORD [24+esi]
add edx,eax
; R0 6
xor edi,ebx
and edi,edx
lea ecx,[2821735955+ebp*1+ecx]
xor edi,ebx
add ecx,edi
mov edi,edx
rol ecx,17
mov ebp,DWORD [28+esi]
add ecx,edx
; R0 7
xor edi,eax
and edi,ecx
lea ebx,[4249261313+ebp*1+ebx]
xor edi,eax
add ebx,edi
mov edi,ecx
rol ebx,22
mov ebp,DWORD [32+esi]
add ebx,ecx
; R0 8
xor edi,edx
and edi,ebx
lea eax,[1770035416+ebp*1+eax]
xor edi,edx
add eax,edi
mov edi,ebx
rol eax,7
mov ebp,DWORD [36+esi]
add eax,ebx
; R0 9
xor edi,ecx
and edi,eax
lea edx,[2336552879+ebp*1+edx]
xor edi,ecx
add edx,edi
mov edi,eax
rol edx,12
mov ebp,DWORD [40+esi]
add edx,eax
; R0 10
xor edi,ebx
and edi,edx
lea ecx,[4294925233+ebp*1+ecx]
xor edi,ebx
add ecx,edi
mov edi,edx
rol ecx,17
mov ebp,DWORD [44+esi]
add ecx,edx
; R0 11
xor edi,eax
and edi,ecx
lea ebx,[2304563134+ebp*1+ebx]
xor edi,eax
add ebx,edi
mov edi,ecx
rol ebx,22
mov ebp,DWORD [48+esi]
add ebx,ecx
; R0 12
xor edi,edx
and edi,ebx
lea eax,[1804603682+ebp*1+eax]
xor edi,edx
add eax,edi
mov edi,ebx
rol eax,7
mov ebp,DWORD [52+esi]
add eax,ebx
; R0 13
xor edi,ecx
and edi,eax
lea edx,[4254626195+ebp*1+edx]
xor edi,ecx
add edx,edi
mov edi,eax
rol edx,12
mov ebp,DWORD [56+esi]
add edx,eax
; R0 14
xor edi,ebx
and edi,edx
lea ecx,[2792965006+ebp*1+ecx]
xor edi,ebx
add ecx,edi
mov edi,edx
rol ecx,17
mov ebp,DWORD [60+esi]
add ecx,edx
; R0 15
xor edi,eax
and edi,ecx
lea ebx,[1236535329+ebp*1+ebx]
xor edi,eax
add ebx,edi
mov edi,ecx
rol ebx,22
mov ebp,DWORD [4+esi]
add ebx,ecx
;
; R1 section
; R1 16
lea eax,[4129170786+ebp*1+eax]
xor edi,ebx
and edi,edx
mov ebp,DWORD [24+esi]
xor edi,ecx
add eax,edi
mov edi,ebx
rol eax,5
add eax,ebx
; R1 17
lea edx,[3225465664+ebp*1+edx]
xor edi,eax
and edi,ecx
mov ebp,DWORD [44+esi]
xor edi,ebx
add edx,edi
mov edi,eax
rol edx,9
add edx,eax
; R1 18
lea ecx,[643717713+ebp*1+ecx]
xor edi,edx
and edi,ebx
mov ebp,DWORD [esi]
xor edi,eax
add ecx,edi
mov edi,edx
rol ecx,14
add ecx,edx
; R1 19
lea ebx,[3921069994+ebp*1+ebx]
xor edi,ecx
and edi,eax
mov ebp,DWORD [20+esi]
xor edi,edx
add ebx,edi
mov edi,ecx
rol ebx,20
add ebx,ecx
; R1 20
lea eax,[3593408605+ebp*1+eax]
xor edi,ebx
and edi,edx
mov ebp,DWORD [40+esi]
xor edi,ecx
add eax,edi
mov edi,ebx
rol eax,5
add eax,ebx
; R1 21
lea edx,[38016083+ebp*1+edx]
xor edi,eax
and edi,ecx
mov ebp,DWORD [60+esi]
xor edi,ebx
add edx,edi
mov edi,eax
rol edx,9
add edx,eax
; R1 22
lea ecx,[3634488961+ebp*1+ecx]
xor edi,edx
and edi,ebx
mov ebp,DWORD [16+esi]
xor edi,eax
add ecx,edi
mov edi,edx
rol ecx,14
add ecx,edx
; R1 23
lea ebx,[3889429448+ebp*1+ebx]
xor edi,ecx
and edi,eax
mov ebp,DWORD [36+esi]
xor edi,edx
add ebx,edi
mov edi,ecx
rol ebx,20
add ebx,ecx
; R1 24
lea eax,[568446438+ebp*1+eax]
xor edi,ebx
and edi,edx
mov ebp,DWORD [56+esi]
xor edi,ecx
add eax,edi
mov edi,ebx
rol eax,5
add eax,ebx
; R1 25
lea edx,[3275163606+ebp*1+edx]
xor edi,eax
and edi,ecx
mov ebp,DWORD [12+esi]
xor edi,ebx
add edx,edi
mov edi,eax
rol edx,9
add edx,eax
; R1 26
lea ecx,[4107603335+ebp*1+ecx]
xor edi,edx
and edi,ebx
mov ebp,DWORD [32+esi]
xor edi,eax
add ecx,edi
mov edi,edx
rol ecx,14
add ecx,edx
; R1 27
lea ebx,[1163531501+ebp*1+ebx]
xor edi,ecx
and edi,eax
mov ebp,DWORD [52+esi]
xor edi,edx
add ebx,edi
mov edi,ecx
rol ebx,20
add ebx,ecx
; R1 28
lea eax,[2850285829+ebp*1+eax]
xor edi,ebx
and edi,edx
mov ebp,DWORD [8+esi]
xor edi,ecx
add eax,edi
mov edi,ebx
rol eax,5
add eax,ebx
; R1 29
lea edx,[4243563512+ebp*1+edx]
xor edi,eax
and edi,ecx
mov ebp,DWORD [28+esi]
xor edi,ebx
add edx,edi
mov edi,eax
rol edx,9
add edx,eax
; R1 30
lea ecx,[1735328473+ebp*1+ecx]
xor edi,edx
and edi,ebx
mov ebp,DWORD [48+esi]
xor edi,eax
add ecx,edi
mov edi,edx
rol ecx,14
add ecx,edx
; R1 31
lea ebx,[2368359562+ebp*1+ebx]
xor edi,ecx
and edi,eax
mov ebp,DWORD [20+esi]
xor edi,edx
add ebx,edi
mov edi,ecx
rol ebx,20
add ebx,ecx
;
; R2 section
; R2 32
xor edi,edx
xor edi,ebx
lea eax,[4294588738+ebp*1+eax]
add eax,edi
rol eax,4
mov ebp,DWORD [32+esi]
mov edi,ebx
; R2 33
lea edx,[2272392833+ebp*1+edx]
add eax,ebx
xor edi,ecx
xor edi,eax
mov ebp,DWORD [44+esi]
add edx,edi
mov edi,eax
rol edx,11
add edx,eax
; R2 34
xor edi,ebx
xor edi,edx
lea ecx,[1839030562+ebp*1+ecx]
add ecx,edi
rol ecx,16
mov ebp,DWORD [56+esi]
mov edi,edx
; R2 35
lea ebx,[4259657740+ebp*1+ebx]
add ecx,edx
xor edi,eax
xor edi,ecx
mov ebp,DWORD [4+esi]
add ebx,edi
mov edi,ecx
rol ebx,23
add ebx,ecx
; R2 36
xor edi,edx
xor edi,ebx
lea eax,[2763975236+ebp*1+eax]
add eax,edi
rol eax,4
mov ebp,DWORD [16+esi]
mov edi,ebx
; R2 37
lea edx,[1272893353+ebp*1+edx]
add eax,ebx
xor edi,ecx
xor edi,eax
mov ebp,DWORD [28+esi]
add edx,edi
mov edi,eax
rol edx,11
add edx,eax
; R2 38
xor edi,ebx
xor edi,edx
lea ecx,[4139469664+ebp*1+ecx]
add ecx,edi
rol ecx,16
mov ebp,DWORD [40+esi]
mov edi,edx
; R2 39
lea ebx,[3200236656+ebp*1+ebx]
add ecx,edx
xor edi,eax
xor edi,ecx
mov ebp,DWORD [52+esi]
add ebx,edi
mov edi,ecx
rol ebx,23
add ebx,ecx
; R2 40
xor edi,edx
xor edi,ebx
lea eax,[681279174+ebp*1+eax]
add eax,edi
rol eax,4
mov ebp,DWORD [esi]
mov edi,ebx
; R2 41
lea edx,[3936430074+ebp*1+edx]
add eax,ebx
xor edi,ecx
xor edi,eax
mov ebp,DWORD [12+esi]
add edx,edi
mov edi,eax
rol edx,11
add edx,eax
; R2 42
xor edi,ebx
xor edi,edx
lea ecx,[3572445317+ebp*1+ecx]
add ecx,edi
rol ecx,16
mov ebp,DWORD [24+esi]
mov edi,edx
; R2 43
lea ebx,[76029189+ebp*1+ebx]
add ecx,edx
xor edi,eax
xor edi,ecx
mov ebp,DWORD [36+esi]
add ebx,edi
mov edi,ecx
rol ebx,23
add ebx,ecx
; R2 44
xor edi,edx
xor edi,ebx
lea eax,[3654602809+ebp*1+eax]
add eax,edi
rol eax,4
mov ebp,DWORD [48+esi]
mov edi,ebx
; R2 45
lea edx,[3873151461+ebp*1+edx]
add eax,ebx
xor edi,ecx
xor edi,eax
mov ebp,DWORD [60+esi]
add edx,edi
mov edi,eax
rol edx,11
add edx,eax
; R2 46
xor edi,ebx
xor edi,edx
lea ecx,[530742520+ebp*1+ecx]
add ecx,edi
rol ecx,16
mov ebp,DWORD [8+esi]
mov edi,edx
; R2 47
lea ebx,[3299628645+ebp*1+ebx]
add ecx,edx
xor edi,eax
xor edi,ecx
mov ebp,DWORD [esi]
add ebx,edi
mov edi,-1
rol ebx,23
add ebx,ecx
;
; R3 section
; R3 48
xor edi,edx
or edi,ebx
lea eax,[4096336452+ebp*1+eax]
xor edi,ecx
mov ebp,DWORD [28+esi]
add eax,edi
mov edi,-1
rol eax,6
xor edi,ecx
add eax,ebx
; R3 49
or edi,eax
lea edx,[1126891415+ebp*1+edx]
xor edi,ebx
mov ebp,DWORD [56+esi]
add edx,edi
mov edi,-1
rol edx,10
xor edi,ebx
add edx,eax
; R3 50
or edi,edx
lea ecx,[2878612391+ebp*1+ecx]
xor edi,eax
mov ebp,DWORD [20+esi]
add ecx,edi
mov edi,-1
rol ecx,15
xor edi,eax
add ecx,edx
; R3 51
or edi,ecx
lea ebx,[4237533241+ebp*1+ebx]
xor edi,edx
mov ebp,DWORD [48+esi]
add ebx,edi
mov edi,-1
rol ebx,21
xor edi,edx
add ebx,ecx
; R3 52
or edi,ebx
lea eax,[1700485571+ebp*1+eax]
xor edi,ecx
mov ebp,DWORD [12+esi]
add eax,edi
mov edi,-1
rol eax,6
xor edi,ecx
add eax,ebx
; R3 53
or edi,eax
lea edx,[2399980690+ebp*1+edx]
xor edi,ebx
mov ebp,DWORD [40+esi]
add edx,edi
mov edi,-1
rol edx,10
xor edi,ebx
add edx,eax
; R3 54
or edi,edx
lea ecx,[4293915773+ebp*1+ecx]
xor edi,eax
mov ebp,DWORD [4+esi]
add ecx,edi
mov edi,-1
rol ecx,15
xor edi,eax
add ecx,edx
; R3 55
or edi,ecx
lea ebx,[2240044497+ebp*1+ebx]
xor edi,edx
mov ebp,DWORD [32+esi]
add ebx,edi
mov edi,-1
rol ebx,21
xor edi,edx
add ebx,ecx
; R3 56
or edi,ebx
lea eax,[1873313359+ebp*1+eax]
xor edi,ecx
mov ebp,DWORD [60+esi]
add eax,edi
mov edi,-1
rol eax,6
xor edi,ecx
add eax,ebx
; R3 57
or edi,eax
lea edx,[4264355552+ebp*1+edx]
xor edi,ebx
mov ebp,DWORD [24+esi]
add edx,edi
mov edi,-1
rol edx,10
xor edi,ebx
add edx,eax
; R3 58
or edi,edx
lea ecx,[2734768916+ebp*1+ecx]
xor edi,eax
mov ebp,DWORD [52+esi]
add ecx,edi
mov edi,-1
rol ecx,15
xor edi,eax
add ecx,edx
; R3 59
or edi,ecx
lea ebx,[1309151649+ebp*1+ebx]
xor edi,edx
mov ebp,DWORD [16+esi]
add ebx,edi
mov edi,-1
rol ebx,21
xor edi,edx
add ebx,ecx
; R3 60
or edi,ebx
lea eax,[4149444226+ebp*1+eax]
xor edi,ecx
mov ebp,DWORD [44+esi]
add eax,edi
mov edi,-1
rol eax,6
xor edi,ecx
add eax,ebx
; R3 61
or edi,eax
lea edx,[3174756917+ebp*1+edx]
xor edi,ebx
mov ebp,DWORD [8+esi]
add edx,edi
mov edi,-1
rol edx,10
xor edi,ebx
add edx,eax
; R3 62
or edi,edx
lea ecx,[718787259+ebp*1+ecx]
xor edi,eax
mov ebp,DWORD [36+esi]
add ecx,edi
mov edi,-1
rol ecx,15
xor edi,eax
add ecx,edx
; R3 63
or edi,ecx
lea ebx,[3951481745+ebp*1+ebx]
xor edi,edx
mov ebp,DWORD [24+esp]
add ebx,edi
add esi,64
rol ebx,21
mov edi,DWORD [ebp]
add ebx,ecx
add eax,edi
mov edi,DWORD [4+ebp]
add ebx,edi
mov edi,DWORD [8+ebp]
add ecx,edi
mov edi,DWORD [12+ebp]
add edx,edi
mov DWORD [ebp],eax
mov DWORD [4+ebp],ebx
mov edi,DWORD [esp]
mov DWORD [8+ebp],ecx
mov DWORD [12+ebp],edx
cmp edi,esi
jae NEAR L$000start
pop eax
pop ebx
pop ebp
pop edi
pop esi
ret

374
tmp32/rc4-586.asm Normal file
View File

@@ -0,0 +1,374 @@
%ifidn __OUTPUT_FORMAT__,obj
section code use32 class=code align=64
%elifidn __OUTPUT_FORMAT__,win32
$@feat.00 equ 1
section .text code align=64
%else
section .text code
%endif
;extern _OPENSSL_ia32cap_P
global _RC4
align 16
_RC4:
L$_RC4_begin:
push ebp
push ebx
push esi
push edi
mov edi,DWORD [20+esp]
mov edx,DWORD [24+esp]
mov esi,DWORD [28+esp]
mov ebp,DWORD [32+esp]
xor eax,eax
xor ebx,ebx
cmp edx,0
je NEAR L$000abort
mov al,BYTE [edi]
mov bl,BYTE [4+edi]
add edi,8
lea ecx,[edx*1+esi]
sub ebp,esi
mov DWORD [24+esp],ecx
inc al
cmp DWORD [256+edi],-1
je NEAR L$001RC4_CHAR
mov ecx,DWORD [eax*4+edi]
and edx,-4
jz NEAR L$002loop1
mov DWORD [32+esp],ebp
test edx,-8
jz NEAR L$003go4loop4
lea ebp,[_OPENSSL_ia32cap_P]
bt DWORD [ebp],26
jnc NEAR L$003go4loop4
mov ebp,DWORD [32+esp]
and edx,-8
lea edx,[edx*1+esi-8]
mov DWORD [edi-4],edx
add bl,cl
mov edx,DWORD [ebx*4+edi]
mov DWORD [ebx*4+edi],ecx
mov DWORD [eax*4+edi],edx
inc eax
add edx,ecx
movzx eax,al
movzx edx,dl
movq mm0,[esi]
mov ecx,DWORD [eax*4+edi]
movd mm2,DWORD [edx*4+edi]
jmp NEAR L$004loop_mmx_enter
align 16
L$005loop_mmx:
add bl,cl
psllq mm1,56
mov edx,DWORD [ebx*4+edi]
mov DWORD [ebx*4+edi],ecx
mov DWORD [eax*4+edi],edx
inc eax
add edx,ecx
movzx eax,al
movzx edx,dl
pxor mm2,mm1
movq mm0,[esi]
movq [esi*1+ebp-8],mm2
mov ecx,DWORD [eax*4+edi]
movd mm2,DWORD [edx*4+edi]
L$004loop_mmx_enter:
add bl,cl
mov edx,DWORD [ebx*4+edi]
mov DWORD [ebx*4+edi],ecx
mov DWORD [eax*4+edi],edx
inc eax
add edx,ecx
movzx eax,al
movzx edx,dl
pxor mm2,mm0
mov ecx,DWORD [eax*4+edi]
movd mm1,DWORD [edx*4+edi]
add bl,cl
psllq mm1,8
mov edx,DWORD [ebx*4+edi]
mov DWORD [ebx*4+edi],ecx
mov DWORD [eax*4+edi],edx
inc eax
add edx,ecx
movzx eax,al
movzx edx,dl
pxor mm2,mm1
mov ecx,DWORD [eax*4+edi]
movd mm1,DWORD [edx*4+edi]
add bl,cl
psllq mm1,16
mov edx,DWORD [ebx*4+edi]
mov DWORD [ebx*4+edi],ecx
mov DWORD [eax*4+edi],edx
inc eax
add edx,ecx
movzx eax,al
movzx edx,dl
pxor mm2,mm1
mov ecx,DWORD [eax*4+edi]
movd mm1,DWORD [edx*4+edi]
add bl,cl
psllq mm1,24
mov edx,DWORD [ebx*4+edi]
mov DWORD [ebx*4+edi],ecx
mov DWORD [eax*4+edi],edx
inc eax
add edx,ecx
movzx eax,al
movzx edx,dl
pxor mm2,mm1
mov ecx,DWORD [eax*4+edi]
movd mm1,DWORD [edx*4+edi]
add bl,cl
psllq mm1,32
mov edx,DWORD [ebx*4+edi]
mov DWORD [ebx*4+edi],ecx
mov DWORD [eax*4+edi],edx
inc eax
add edx,ecx
movzx eax,al
movzx edx,dl
pxor mm2,mm1
mov ecx,DWORD [eax*4+edi]
movd mm1,DWORD [edx*4+edi]
add bl,cl
psllq mm1,40
mov edx,DWORD [ebx*4+edi]
mov DWORD [ebx*4+edi],ecx
mov DWORD [eax*4+edi],edx
inc eax
add edx,ecx
movzx eax,al
movzx edx,dl
pxor mm2,mm1
mov ecx,DWORD [eax*4+edi]
movd mm1,DWORD [edx*4+edi]
add bl,cl
psllq mm1,48
mov edx,DWORD [ebx*4+edi]
mov DWORD [ebx*4+edi],ecx
mov DWORD [eax*4+edi],edx
inc eax
add edx,ecx
movzx eax,al
movzx edx,dl
pxor mm2,mm1
mov ecx,DWORD [eax*4+edi]
movd mm1,DWORD [edx*4+edi]
mov edx,ebx
xor ebx,ebx
mov bl,dl
cmp esi,DWORD [edi-4]
lea esi,[8+esi]
jb NEAR L$005loop_mmx
psllq mm1,56
pxor mm2,mm1
movq [esi*1+ebp-8],mm2
emms
cmp esi,DWORD [24+esp]
je NEAR L$006done
jmp NEAR L$002loop1
align 16
L$003go4loop4:
lea edx,[edx*1+esi-4]
mov DWORD [28+esp],edx
L$007loop4:
add bl,cl
mov edx,DWORD [ebx*4+edi]
mov DWORD [ebx*4+edi],ecx
mov DWORD [eax*4+edi],edx
add edx,ecx
inc al
and edx,255
mov ecx,DWORD [eax*4+edi]
mov ebp,DWORD [edx*4+edi]
add bl,cl
mov edx,DWORD [ebx*4+edi]
mov DWORD [ebx*4+edi],ecx
mov DWORD [eax*4+edi],edx
add edx,ecx
inc al
and edx,255
ror ebp,8
mov ecx,DWORD [eax*4+edi]
or ebp,DWORD [edx*4+edi]
add bl,cl
mov edx,DWORD [ebx*4+edi]
mov DWORD [ebx*4+edi],ecx
mov DWORD [eax*4+edi],edx
add edx,ecx
inc al
and edx,255
ror ebp,8
mov ecx,DWORD [eax*4+edi]
or ebp,DWORD [edx*4+edi]
add bl,cl
mov edx,DWORD [ebx*4+edi]
mov DWORD [ebx*4+edi],ecx
mov DWORD [eax*4+edi],edx
add edx,ecx
inc al
and edx,255
ror ebp,8
mov ecx,DWORD [32+esp]
or ebp,DWORD [edx*4+edi]
ror ebp,8
xor ebp,DWORD [esi]
cmp esi,DWORD [28+esp]
mov DWORD [esi*1+ecx],ebp
lea esi,[4+esi]
mov ecx,DWORD [eax*4+edi]
jb NEAR L$007loop4
cmp esi,DWORD [24+esp]
je NEAR L$006done
mov ebp,DWORD [32+esp]
align 16
L$002loop1:
add bl,cl
mov edx,DWORD [ebx*4+edi]
mov DWORD [ebx*4+edi],ecx
mov DWORD [eax*4+edi],edx
add edx,ecx
inc al
and edx,255
mov edx,DWORD [edx*4+edi]
xor dl,BYTE [esi]
lea esi,[1+esi]
mov ecx,DWORD [eax*4+edi]
cmp esi,DWORD [24+esp]
mov BYTE [esi*1+ebp-1],dl
jb NEAR L$002loop1
jmp NEAR L$006done
align 16
L$001RC4_CHAR:
movzx ecx,BYTE [eax*1+edi]
L$008cloop1:
add bl,cl
movzx edx,BYTE [ebx*1+edi]
mov BYTE [ebx*1+edi],cl
mov BYTE [eax*1+edi],dl
add dl,cl
movzx edx,BYTE [edx*1+edi]
add al,1
xor dl,BYTE [esi]
lea esi,[1+esi]
movzx ecx,BYTE [eax*1+edi]
cmp esi,DWORD [24+esp]
mov BYTE [esi*1+ebp-1],dl
jb NEAR L$008cloop1
L$006done:
dec al
mov DWORD [edi-4],ebx
mov BYTE [edi-8],al
L$000abort:
pop edi
pop esi
pop ebx
pop ebp
ret
global _private_RC4_set_key
align 16
_private_RC4_set_key:
L$_private_RC4_set_key_begin:
push ebp
push ebx
push esi
push edi
mov edi,DWORD [20+esp]
mov ebp,DWORD [24+esp]
mov esi,DWORD [28+esp]
lea edx,[_OPENSSL_ia32cap_P]
lea edi,[8+edi]
lea esi,[ebp*1+esi]
neg ebp
xor eax,eax
mov DWORD [edi-4],ebp
bt DWORD [edx],20
jc NEAR L$009c1stloop
align 16
L$010w1stloop:
mov DWORD [eax*4+edi],eax
add al,1
jnc NEAR L$010w1stloop
xor ecx,ecx
xor edx,edx
align 16
L$011w2ndloop:
mov eax,DWORD [ecx*4+edi]
add dl,BYTE [ebp*1+esi]
add dl,al
add ebp,1
mov ebx,DWORD [edx*4+edi]
jnz NEAR L$012wnowrap
mov ebp,DWORD [edi-4]
L$012wnowrap:
mov DWORD [edx*4+edi],eax
mov DWORD [ecx*4+edi],ebx
add cl,1
jnc NEAR L$011w2ndloop
jmp NEAR L$013exit
align 16
L$009c1stloop:
mov BYTE [eax*1+edi],al
add al,1
jnc NEAR L$009c1stloop
xor ecx,ecx
xor edx,edx
xor ebx,ebx
align 16
L$014c2ndloop:
mov al,BYTE [ecx*1+edi]
add dl,BYTE [ebp*1+esi]
add dl,al
add ebp,1
mov bl,BYTE [edx*1+edi]
jnz NEAR L$015cnowrap
mov ebp,DWORD [edi-4]
L$015cnowrap:
mov BYTE [edx*1+edi],al
mov BYTE [ecx*1+edi],bl
add cl,1
jnc NEAR L$014c2ndloop
mov DWORD [256+edi],-1
L$013exit:
xor eax,eax
mov DWORD [edi-8],eax
mov DWORD [edi-4],eax
pop edi
pop esi
pop ebx
pop ebp
ret
global _RC4_options
align 16
_RC4_options:
L$_RC4_options_begin:
call L$016pic_point
L$016pic_point:
pop eax
lea eax,[(L$017opts-L$016pic_point)+eax]
lea edx,[_OPENSSL_ia32cap_P]
mov edx,DWORD [edx]
bt edx,20
jc NEAR L$0181xchar
bt edx,26
jnc NEAR L$019ret
add eax,25
ret
L$0181xchar:
add eax,12
L$019ret:
ret
align 64
L$017opts:
db 114,99,52,40,52,120,44,105,110,116,41,0
db 114,99,52,40,49,120,44,99,104,97,114,41,0
db 114,99,52,40,56,120,44,109,109,120,41,0
db 82,67,52,32,102,111,114,32,120,56,54,44,32,67,82,89
db 80,84,79,71,65,77,83,32,98,121,32,60,97,112,112,114
db 111,64,111,112,101,110,115,115,108,46,111,114,103,62,0
align 64
segment .bss
common _OPENSSL_ia32cap_P 16

1969
tmp32/rmd-586.asm Normal file

File diff suppressed because it is too large Load Diff

3970
tmp32/sha1-586.asm Normal file

File diff suppressed because it is too large Load Diff

6789
tmp32/sha256-586.asm Normal file

File diff suppressed because it is too large Load Diff

2835
tmp32/sha512-586.asm Normal file

File diff suppressed because it is too large Load Diff

641
tmp32/vpaes-x86.asm Normal file
View File

@@ -0,0 +1,641 @@
%ifidn __OUTPUT_FORMAT__,obj
section code use32 class=code align=64
%elifidn __OUTPUT_FORMAT__,win32
$@feat.00 equ 1
section .text code align=64
%else
section .text code
%endif
align 64
L$_vpaes_consts:
dd 218628480,235210255,168496130,67568393
dd 252381056,17041926,33884169,51187212
dd 252645135,252645135,252645135,252645135
dd 1512730624,3266504856,1377990664,3401244816
dd 830229760,1275146365,2969422977,3447763452
dd 3411033600,2979783055,338359620,2782886510
dd 4209124096,907596821,221174255,1006095553
dd 191964160,3799684038,3164090317,1589111125
dd 182528256,1777043520,2877432650,3265356744
dd 1874708224,3503451415,3305285752,363511674
dd 1606117888,3487855781,1093350906,2384367825
dd 197121,67569157,134941193,202313229
dd 67569157,134941193,202313229,197121
dd 134941193,202313229,197121,67569157
dd 202313229,197121,67569157,134941193
dd 33619971,100992007,168364043,235736079
dd 235736079,33619971,100992007,168364043
dd 168364043,235736079,33619971,100992007
dd 100992007,168364043,235736079,33619971
dd 50462976,117835012,185207048,252579084
dd 252314880,51251460,117574920,184942860
dd 184682752,252054788,50987272,118359308
dd 118099200,185467140,251790600,50727180
dd 2946363062,528716217,1300004225,1881839624
dd 1532713819,1532713819,1532713819,1532713819
dd 3602276352,4288629033,3737020424,4153884961
dd 1354558464,32357713,2958822624,3775749553
dd 1201988352,132424512,1572796698,503232858
dd 2213177600,1597421020,4103937655,675398315
dd 2749646592,4273543773,1511898873,121693092
dd 3040248576,1103263732,2871565598,1608280554
dd 2236667136,2588920351,482954393,64377734
dd 3069987328,291237287,2117370568,3650299247
dd 533321216,3573750986,2572112006,1401264716
dd 1339849704,2721158661,548607111,3445553514
dd 2128193280,3054596040,2183486460,1257083700
dd 655635200,1165381986,3923443150,2344132524
dd 190078720,256924420,290342170,357187870
dd 1610966272,2263057382,4103205268,309794674
dd 2592527872,2233205587,1335446729,3402964816
dd 3973531904,3225098121,3002836325,1918774430
dd 3870401024,2102906079,2284471353,4117666579
dd 617007872,1021508343,366931923,691083277
dd 2528395776,3491914898,2968704004,1613121270
dd 3445188352,3247741094,844474987,4093578302
dd 651481088,1190302358,1689581232,574775300
dd 4289380608,206939853,2555985458,2489840491
dd 2130264064,327674451,3566485037,3349835193
dd 2470714624,316102159,3636825756,3393945945
db 86,101,99,116,111,114,32,80,101,114,109,117,116,97,116,105
db 111,110,32,65,69,83,32,102,111,114,32,120,56,54,47,83
db 83,83,69,51,44,32,77,105,107,101,32,72,97,109,98,117
db 114,103,32,40,83,116,97,110,102,111,114,100,32,85,110,105
db 118,101,114,115,105,116,121,41,0
align 64
align 16
__vpaes_preheat:
add ebp,DWORD [esp]
movdqa xmm7,[ebp-48]
movdqa xmm6,[ebp-16]
ret
align 16
__vpaes_encrypt_core:
mov ecx,16
mov eax,DWORD [240+edx]
movdqa xmm1,xmm6
movdqa xmm2,[ebp]
pandn xmm1,xmm0
pand xmm0,xmm6
movdqu xmm5,[edx]
db 102,15,56,0,208
movdqa xmm0,[16+ebp]
pxor xmm2,xmm5
psrld xmm1,4
add edx,16
db 102,15,56,0,193
lea ebx,[192+ebp]
pxor xmm0,xmm2
jmp NEAR L$000enc_entry
align 16
L$001enc_loop:
movdqa xmm4,[32+ebp]
movdqa xmm0,[48+ebp]
db 102,15,56,0,226
db 102,15,56,0,195
pxor xmm4,xmm5
movdqa xmm5,[64+ebp]
pxor xmm0,xmm4
movdqa xmm1,[ecx*1+ebx-64]
db 102,15,56,0,234
movdqa xmm2,[80+ebp]
movdqa xmm4,[ecx*1+ebx]
db 102,15,56,0,211
movdqa xmm3,xmm0
pxor xmm2,xmm5
db 102,15,56,0,193
add edx,16
pxor xmm0,xmm2
db 102,15,56,0,220
add ecx,16
pxor xmm3,xmm0
db 102,15,56,0,193
and ecx,48
sub eax,1
pxor xmm0,xmm3
L$000enc_entry:
movdqa xmm1,xmm6
movdqa xmm5,[ebp-32]
pandn xmm1,xmm0
psrld xmm1,4
pand xmm0,xmm6
db 102,15,56,0,232
movdqa xmm3,xmm7
pxor xmm0,xmm1
db 102,15,56,0,217
movdqa xmm4,xmm7
pxor xmm3,xmm5
db 102,15,56,0,224
movdqa xmm2,xmm7
pxor xmm4,xmm5
db 102,15,56,0,211
movdqa xmm3,xmm7
pxor xmm2,xmm0
db 102,15,56,0,220
movdqu xmm5,[edx]
pxor xmm3,xmm1
jnz NEAR L$001enc_loop
movdqa xmm4,[96+ebp]
movdqa xmm0,[112+ebp]
db 102,15,56,0,226
pxor xmm4,xmm5
db 102,15,56,0,195
movdqa xmm1,[64+ecx*1+ebx]
pxor xmm0,xmm4
db 102,15,56,0,193
ret
align 16
__vpaes_decrypt_core:
lea ebx,[608+ebp]
mov eax,DWORD [240+edx]
movdqa xmm1,xmm6
movdqa xmm2,[ebx-64]
pandn xmm1,xmm0
mov ecx,eax
psrld xmm1,4
movdqu xmm5,[edx]
shl ecx,4
pand xmm0,xmm6
db 102,15,56,0,208
movdqa xmm0,[ebx-48]
xor ecx,48
db 102,15,56,0,193
and ecx,48
pxor xmm2,xmm5
movdqa xmm5,[176+ebp]
pxor xmm0,xmm2
add edx,16
lea ecx,[ecx*1+ebx-352]
jmp NEAR L$002dec_entry
align 16
L$003dec_loop:
movdqa xmm4,[ebx-32]
movdqa xmm1,[ebx-16]
db 102,15,56,0,226
db 102,15,56,0,203
pxor xmm0,xmm4
movdqa xmm4,[ebx]
pxor xmm0,xmm1
movdqa xmm1,[16+ebx]
db 102,15,56,0,226
db 102,15,56,0,197
db 102,15,56,0,203
pxor xmm0,xmm4
movdqa xmm4,[32+ebx]
pxor xmm0,xmm1
movdqa xmm1,[48+ebx]
db 102,15,56,0,226
db 102,15,56,0,197
db 102,15,56,0,203
pxor xmm0,xmm4
movdqa xmm4,[64+ebx]
pxor xmm0,xmm1
movdqa xmm1,[80+ebx]
db 102,15,56,0,226
db 102,15,56,0,197
db 102,15,56,0,203
pxor xmm0,xmm4
add edx,16
db 102,15,58,15,237,12
pxor xmm0,xmm1
sub eax,1
L$002dec_entry:
movdqa xmm1,xmm6
movdqa xmm2,[ebp-32]
pandn xmm1,xmm0
pand xmm0,xmm6
psrld xmm1,4
db 102,15,56,0,208
movdqa xmm3,xmm7
pxor xmm0,xmm1
db 102,15,56,0,217
movdqa xmm4,xmm7
pxor xmm3,xmm2
db 102,15,56,0,224
pxor xmm4,xmm2
movdqa xmm2,xmm7
db 102,15,56,0,211
movdqa xmm3,xmm7
pxor xmm2,xmm0
db 102,15,56,0,220
movdqu xmm0,[edx]
pxor xmm3,xmm1
jnz NEAR L$003dec_loop
movdqa xmm4,[96+ebx]
db 102,15,56,0,226
pxor xmm4,xmm0
movdqa xmm0,[112+ebx]
movdqa xmm2,[ecx]
db 102,15,56,0,195
pxor xmm0,xmm4
db 102,15,56,0,194
ret
align 16
__vpaes_schedule_core:
add ebp,DWORD [esp]
movdqu xmm0,[esi]
movdqa xmm2,[320+ebp]
movdqa xmm3,xmm0
lea ebx,[ebp]
movdqa [4+esp],xmm2
call __vpaes_schedule_transform
movdqa xmm7,xmm0
test edi,edi
jnz NEAR L$004schedule_am_decrypting
movdqu [edx],xmm0
jmp NEAR L$005schedule_go
L$004schedule_am_decrypting:
movdqa xmm1,[256+ecx*1+ebp]
db 102,15,56,0,217
movdqu [edx],xmm3
xor ecx,48
L$005schedule_go:
cmp eax,192
ja NEAR L$006schedule_256
je NEAR L$007schedule_192
L$008schedule_128:
mov eax,10
L$009loop_schedule_128:
call __vpaes_schedule_round
dec eax
jz NEAR L$010schedule_mangle_last
call __vpaes_schedule_mangle
jmp NEAR L$009loop_schedule_128
align 16
L$007schedule_192:
movdqu xmm0,[8+esi]
call __vpaes_schedule_transform
movdqa xmm6,xmm0
pxor xmm4,xmm4
movhlps xmm6,xmm4
mov eax,4
L$011loop_schedule_192:
call __vpaes_schedule_round
db 102,15,58,15,198,8
call __vpaes_schedule_mangle
call __vpaes_schedule_192_smear
call __vpaes_schedule_mangle
call __vpaes_schedule_round
dec eax
jz NEAR L$010schedule_mangle_last
call __vpaes_schedule_mangle
call __vpaes_schedule_192_smear
jmp NEAR L$011loop_schedule_192
align 16
L$006schedule_256:
movdqu xmm0,[16+esi]
call __vpaes_schedule_transform
mov eax,7
L$012loop_schedule_256:
call __vpaes_schedule_mangle
movdqa xmm6,xmm0
call __vpaes_schedule_round
dec eax
jz NEAR L$010schedule_mangle_last
call __vpaes_schedule_mangle
pshufd xmm0,xmm0,255
movdqa [20+esp],xmm7
movdqa xmm7,xmm6
call L$_vpaes_schedule_low_round
movdqa xmm7,[20+esp]
jmp NEAR L$012loop_schedule_256
align 16
L$010schedule_mangle_last:
lea ebx,[384+ebp]
test edi,edi
jnz NEAR L$013schedule_mangle_last_dec
movdqa xmm1,[256+ecx*1+ebp]
db 102,15,56,0,193
lea ebx,[352+ebp]
add edx,32
L$013schedule_mangle_last_dec:
add edx,-16
pxor xmm0,[336+ebp]
call __vpaes_schedule_transform
movdqu [edx],xmm0
pxor xmm0,xmm0
pxor xmm1,xmm1
pxor xmm2,xmm2
pxor xmm3,xmm3
pxor xmm4,xmm4
pxor xmm5,xmm5
pxor xmm6,xmm6
pxor xmm7,xmm7
ret
align 16
__vpaes_schedule_192_smear:
pshufd xmm1,xmm6,128
pshufd xmm0,xmm7,254
pxor xmm6,xmm1
pxor xmm1,xmm1
pxor xmm6,xmm0
movdqa xmm0,xmm6
movhlps xmm6,xmm1
ret
align 16
__vpaes_schedule_round:
movdqa xmm2,[8+esp]
pxor xmm1,xmm1
db 102,15,58,15,202,15
db 102,15,58,15,210,15
pxor xmm7,xmm1
pshufd xmm0,xmm0,255
db 102,15,58,15,192,1
movdqa [8+esp],xmm2
L$_vpaes_schedule_low_round:
movdqa xmm1,xmm7
pslldq xmm7,4
pxor xmm7,xmm1
movdqa xmm1,xmm7
pslldq xmm7,8
pxor xmm7,xmm1
pxor xmm7,[336+ebp]
movdqa xmm4,[ebp-16]
movdqa xmm5,[ebp-48]
movdqa xmm1,xmm4
pandn xmm1,xmm0
psrld xmm1,4
pand xmm0,xmm4
movdqa xmm2,[ebp-32]
db 102,15,56,0,208
pxor xmm0,xmm1
movdqa xmm3,xmm5
db 102,15,56,0,217
pxor xmm3,xmm2
movdqa xmm4,xmm5
db 102,15,56,0,224
pxor xmm4,xmm2
movdqa xmm2,xmm5
db 102,15,56,0,211
pxor xmm2,xmm0
movdqa xmm3,xmm5
db 102,15,56,0,220
pxor xmm3,xmm1
movdqa xmm4,[32+ebp]
db 102,15,56,0,226
movdqa xmm0,[48+ebp]
db 102,15,56,0,195
pxor xmm0,xmm4
pxor xmm0,xmm7
movdqa xmm7,xmm0
ret
align 16
__vpaes_schedule_transform:
movdqa xmm2,[ebp-16]
movdqa xmm1,xmm2
pandn xmm1,xmm0
psrld xmm1,4
pand xmm0,xmm2
movdqa xmm2,[ebx]
db 102,15,56,0,208
movdqa xmm0,[16+ebx]
db 102,15,56,0,193
pxor xmm0,xmm2
ret
align 16
__vpaes_schedule_mangle:
movdqa xmm4,xmm0
movdqa xmm5,[128+ebp]
test edi,edi
jnz NEAR L$014schedule_mangle_dec
add edx,16
pxor xmm4,[336+ebp]
db 102,15,56,0,229
movdqa xmm3,xmm4
db 102,15,56,0,229
pxor xmm3,xmm4
db 102,15,56,0,229
pxor xmm3,xmm4
jmp NEAR L$015schedule_mangle_both
align 16
L$014schedule_mangle_dec:
movdqa xmm2,[ebp-16]
lea esi,[416+ebp]
movdqa xmm1,xmm2
pandn xmm1,xmm4
psrld xmm1,4
pand xmm4,xmm2
movdqa xmm2,[esi]
db 102,15,56,0,212
movdqa xmm3,[16+esi]
db 102,15,56,0,217
pxor xmm3,xmm2
db 102,15,56,0,221
movdqa xmm2,[32+esi]
db 102,15,56,0,212
pxor xmm2,xmm3
movdqa xmm3,[48+esi]
db 102,15,56,0,217
pxor xmm3,xmm2
db 102,15,56,0,221
movdqa xmm2,[64+esi]
db 102,15,56,0,212
pxor xmm2,xmm3
movdqa xmm3,[80+esi]
db 102,15,56,0,217
pxor xmm3,xmm2
db 102,15,56,0,221
movdqa xmm2,[96+esi]
db 102,15,56,0,212
pxor xmm2,xmm3
movdqa xmm3,[112+esi]
db 102,15,56,0,217
pxor xmm3,xmm2
add edx,-16
L$015schedule_mangle_both:
movdqa xmm1,[256+ecx*1+ebp]
db 102,15,56,0,217
add ecx,-16
and ecx,48
movdqu [edx],xmm3
ret
global _vpaes_set_encrypt_key
align 16
_vpaes_set_encrypt_key:
L$_vpaes_set_encrypt_key_begin:
push ebp
push ebx
push esi
push edi
mov esi,DWORD [20+esp]
lea ebx,[esp-56]
mov eax,DWORD [24+esp]
and ebx,-16
mov edx,DWORD [28+esp]
xchg ebx,esp
mov DWORD [48+esp],ebx
mov ebx,eax
shr ebx,5
add ebx,5
mov DWORD [240+edx],ebx
mov ecx,48
mov edi,0
lea ebp,[(L$_vpaes_consts+0x30-L$016pic_point)]
call __vpaes_schedule_core
L$016pic_point:
mov esp,DWORD [48+esp]
xor eax,eax
pop edi
pop esi
pop ebx
pop ebp
ret
global _vpaes_set_decrypt_key
align 16
_vpaes_set_decrypt_key:
L$_vpaes_set_decrypt_key_begin:
push ebp
push ebx
push esi
push edi
mov esi,DWORD [20+esp]
lea ebx,[esp-56]
mov eax,DWORD [24+esp]
and ebx,-16
mov edx,DWORD [28+esp]
xchg ebx,esp
mov DWORD [48+esp],ebx
mov ebx,eax
shr ebx,5
add ebx,5
mov DWORD [240+edx],ebx
shl ebx,4
lea edx,[16+ebx*1+edx]
mov edi,1
mov ecx,eax
shr ecx,1
and ecx,32
xor ecx,32
lea ebp,[(L$_vpaes_consts+0x30-L$017pic_point)]
call __vpaes_schedule_core
L$017pic_point:
mov esp,DWORD [48+esp]
xor eax,eax
pop edi
pop esi
pop ebx
pop ebp
ret
global _vpaes_encrypt
align 16
_vpaes_encrypt:
L$_vpaes_encrypt_begin:
push ebp
push ebx
push esi
push edi
lea ebp,[(L$_vpaes_consts+0x30-L$018pic_point)]
call __vpaes_preheat
L$018pic_point:
mov esi,DWORD [20+esp]
lea ebx,[esp-56]
mov edi,DWORD [24+esp]
and ebx,-16
mov edx,DWORD [28+esp]
xchg ebx,esp
mov DWORD [48+esp],ebx
movdqu xmm0,[esi]
call __vpaes_encrypt_core
movdqu [edi],xmm0
mov esp,DWORD [48+esp]
pop edi
pop esi
pop ebx
pop ebp
ret
global _vpaes_decrypt
align 16
_vpaes_decrypt:
L$_vpaes_decrypt_begin:
push ebp
push ebx
push esi
push edi
lea ebp,[(L$_vpaes_consts+0x30-L$019pic_point)]
call __vpaes_preheat
L$019pic_point:
mov esi,DWORD [20+esp]
lea ebx,[esp-56]
mov edi,DWORD [24+esp]
and ebx,-16
mov edx,DWORD [28+esp]
xchg ebx,esp
mov DWORD [48+esp],ebx
movdqu xmm0,[esi]
call __vpaes_decrypt_core
movdqu [edi],xmm0
mov esp,DWORD [48+esp]
pop edi
pop esi
pop ebx
pop ebp
ret
global _vpaes_cbc_encrypt
align 16
_vpaes_cbc_encrypt:
L$_vpaes_cbc_encrypt_begin:
push ebp
push ebx
push esi
push edi
mov esi,DWORD [20+esp]
mov edi,DWORD [24+esp]
mov eax,DWORD [28+esp]
mov edx,DWORD [32+esp]
sub eax,16
jc NEAR L$020cbc_abort
lea ebx,[esp-56]
mov ebp,DWORD [36+esp]
and ebx,-16
mov ecx,DWORD [40+esp]
xchg ebx,esp
movdqu xmm1,[ebp]
sub edi,esi
mov DWORD [48+esp],ebx
mov DWORD [esp],edi
mov DWORD [4+esp],edx
mov DWORD [8+esp],ebp
mov edi,eax
lea ebp,[(L$_vpaes_consts+0x30-L$021pic_point)]
call __vpaes_preheat
L$021pic_point:
cmp ecx,0
je NEAR L$022cbc_dec_loop
jmp NEAR L$023cbc_enc_loop
align 16
L$023cbc_enc_loop:
movdqu xmm0,[esi]
pxor xmm0,xmm1
call __vpaes_encrypt_core
mov ebx,DWORD [esp]
mov edx,DWORD [4+esp]
movdqa xmm1,xmm0
movdqu [esi*1+ebx],xmm0
lea esi,[16+esi]
sub edi,16
jnc NEAR L$023cbc_enc_loop
jmp NEAR L$024cbc_done
align 16
L$022cbc_dec_loop:
movdqu xmm0,[esi]
movdqa [16+esp],xmm1
movdqa [32+esp],xmm0
call __vpaes_decrypt_core
mov ebx,DWORD [esp]
mov edx,DWORD [4+esp]
pxor xmm0,[16+esp]
movdqa xmm1,[32+esp]
movdqu [esi*1+ebx],xmm0
lea esi,[16+esi]
sub edi,16
jnc NEAR L$022cbc_dec_loop
L$024cbc_done:
mov ebx,DWORD [8+esp]
mov esp,DWORD [48+esp]
movdqu [ebx],xmm1
L$020cbc_abort:
pop edi
pop esi
pop ebx
pop ebp
ret

1111
tmp32/wp-mmx.asm Normal file

File diff suppressed because it is too large Load Diff

345
tmp32/x86-gf2m.asm Normal file
View File

@@ -0,0 +1,345 @@
%ifidn __OUTPUT_FORMAT__,obj
section code use32 class=code align=64
%elifidn __OUTPUT_FORMAT__,win32
$@feat.00 equ 1
section .text code align=64
%else
section .text code
%endif
;extern _OPENSSL_ia32cap_P
align 16
__mul_1x1_mmx:
sub esp,36
mov ecx,eax
lea edx,[eax*1+eax]
and ecx,1073741823
lea ebp,[edx*1+edx]
mov DWORD [esp],0
and edx,2147483647
movd mm2,eax
movd mm3,ebx
mov DWORD [4+esp],ecx
xor ecx,edx
pxor mm5,mm5
pxor mm4,mm4
mov DWORD [8+esp],edx
xor edx,ebp
mov DWORD [12+esp],ecx
pcmpgtd mm5,mm2
paddd mm2,mm2
xor ecx,edx
mov DWORD [16+esp],ebp
xor ebp,edx
pand mm5,mm3
pcmpgtd mm4,mm2
mov DWORD [20+esp],ecx
xor ebp,ecx
psllq mm5,31
pand mm4,mm3
mov DWORD [24+esp],edx
mov esi,7
mov DWORD [28+esp],ebp
mov ebp,esi
and esi,ebx
shr ebx,3
mov edi,ebp
psllq mm4,30
and edi,ebx
shr ebx,3
movd mm0,DWORD [esi*4+esp]
mov esi,ebp
and esi,ebx
shr ebx,3
movd mm2,DWORD [edi*4+esp]
mov edi,ebp
psllq mm2,3
and edi,ebx
shr ebx,3
pxor mm0,mm2
movd mm1,DWORD [esi*4+esp]
mov esi,ebp
psllq mm1,6
and esi,ebx
shr ebx,3
pxor mm0,mm1
movd mm2,DWORD [edi*4+esp]
mov edi,ebp
psllq mm2,9
and edi,ebx
shr ebx,3
pxor mm0,mm2
movd mm1,DWORD [esi*4+esp]
mov esi,ebp
psllq mm1,12
and esi,ebx
shr ebx,3
pxor mm0,mm1
movd mm2,DWORD [edi*4+esp]
mov edi,ebp
psllq mm2,15
and edi,ebx
shr ebx,3
pxor mm0,mm2
movd mm1,DWORD [esi*4+esp]
mov esi,ebp
psllq mm1,18
and esi,ebx
shr ebx,3
pxor mm0,mm1
movd mm2,DWORD [edi*4+esp]
mov edi,ebp
psllq mm2,21
and edi,ebx
shr ebx,3
pxor mm0,mm2
movd mm1,DWORD [esi*4+esp]
mov esi,ebp
psllq mm1,24
and esi,ebx
shr ebx,3
pxor mm0,mm1
movd mm2,DWORD [edi*4+esp]
pxor mm0,mm4
psllq mm2,27
pxor mm0,mm2
movd mm1,DWORD [esi*4+esp]
pxor mm0,mm5
psllq mm1,30
add esp,36
pxor mm0,mm1
ret
align 16
__mul_1x1_ialu:
sub esp,36
mov ecx,eax
lea edx,[eax*1+eax]
lea ebp,[eax*4]
and ecx,1073741823
lea edi,[eax*1+eax]
sar eax,31
mov DWORD [esp],0
and edx,2147483647
mov DWORD [4+esp],ecx
xor ecx,edx
mov DWORD [8+esp],edx
xor edx,ebp
mov DWORD [12+esp],ecx
xor ecx,edx
mov DWORD [16+esp],ebp
xor ebp,edx
mov DWORD [20+esp],ecx
xor ebp,ecx
sar edi,31
and eax,ebx
mov DWORD [24+esp],edx
and edi,ebx
mov DWORD [28+esp],ebp
mov edx,eax
shl eax,31
mov ecx,edi
shr edx,1
mov esi,7
shl edi,30
and esi,ebx
shr ecx,2
xor eax,edi
shr ebx,3
mov edi,7
and edi,ebx
shr ebx,3
xor edx,ecx
xor eax,DWORD [esi*4+esp]
mov esi,7
and esi,ebx
shr ebx,3
mov ebp,DWORD [edi*4+esp]
mov edi,7
mov ecx,ebp
shl ebp,3
and edi,ebx
shr ecx,29
xor eax,ebp
shr ebx,3
xor edx,ecx
mov ecx,DWORD [esi*4+esp]
mov esi,7
mov ebp,ecx
shl ecx,6
and esi,ebx
shr ebp,26
xor eax,ecx
shr ebx,3
xor edx,ebp
mov ebp,DWORD [edi*4+esp]
mov edi,7
mov ecx,ebp
shl ebp,9
and edi,ebx
shr ecx,23
xor eax,ebp
shr ebx,3
xor edx,ecx
mov ecx,DWORD [esi*4+esp]
mov esi,7
mov ebp,ecx
shl ecx,12
and esi,ebx
shr ebp,20
xor eax,ecx
shr ebx,3
xor edx,ebp
mov ebp,DWORD [edi*4+esp]
mov edi,7
mov ecx,ebp
shl ebp,15
and edi,ebx
shr ecx,17
xor eax,ebp
shr ebx,3
xor edx,ecx
mov ecx,DWORD [esi*4+esp]
mov esi,7
mov ebp,ecx
shl ecx,18
and esi,ebx
shr ebp,14
xor eax,ecx
shr ebx,3
xor edx,ebp
mov ebp,DWORD [edi*4+esp]
mov edi,7
mov ecx,ebp
shl ebp,21
and edi,ebx
shr ecx,11
xor eax,ebp
shr ebx,3
xor edx,ecx
mov ecx,DWORD [esi*4+esp]
mov esi,7
mov ebp,ecx
shl ecx,24
and esi,ebx
shr ebp,8
xor eax,ecx
shr ebx,3
xor edx,ebp
mov ebp,DWORD [edi*4+esp]
mov ecx,ebp
shl ebp,27
mov edi,DWORD [esi*4+esp]
shr ecx,5
mov esi,edi
xor eax,ebp
shl edi,30
xor edx,ecx
shr esi,2
xor eax,edi
xor edx,esi
add esp,36
ret
global _bn_GF2m_mul_2x2
align 16
_bn_GF2m_mul_2x2:
L$_bn_GF2m_mul_2x2_begin:
lea edx,[_OPENSSL_ia32cap_P]
mov eax,DWORD [edx]
mov edx,DWORD [4+edx]
test eax,8388608
jz NEAR L$000ialu
test eax,16777216
jz NEAR L$001mmx
test edx,2
jz NEAR L$001mmx
movups xmm0,[8+esp]
shufps xmm0,xmm0,177
db 102,15,58,68,192,1
mov eax,DWORD [4+esp]
movups [eax],xmm0
ret
align 16
L$001mmx:
push ebp
push ebx
push esi
push edi
mov eax,DWORD [24+esp]
mov ebx,DWORD [32+esp]
call __mul_1x1_mmx
movq mm7,mm0
mov eax,DWORD [28+esp]
mov ebx,DWORD [36+esp]
call __mul_1x1_mmx
movq mm6,mm0
mov eax,DWORD [24+esp]
mov ebx,DWORD [32+esp]
xor eax,DWORD [28+esp]
xor ebx,DWORD [36+esp]
call __mul_1x1_mmx
pxor mm0,mm7
mov eax,DWORD [20+esp]
pxor mm0,mm6
movq mm2,mm0
psllq mm0,32
pop edi
psrlq mm2,32
pop esi
pxor mm0,mm6
pop ebx
pxor mm2,mm7
movq [eax],mm0
pop ebp
movq [8+eax],mm2
emms
ret
align 16
L$000ialu:
push ebp
push ebx
push esi
push edi
sub esp,20
mov eax,DWORD [44+esp]
mov ebx,DWORD [52+esp]
call __mul_1x1_ialu
mov DWORD [8+esp],eax
mov DWORD [12+esp],edx
mov eax,DWORD [48+esp]
mov ebx,DWORD [56+esp]
call __mul_1x1_ialu
mov DWORD [esp],eax
mov DWORD [4+esp],edx
mov eax,DWORD [44+esp]
mov ebx,DWORD [52+esp]
xor eax,DWORD [48+esp]
xor ebx,DWORD [56+esp]
call __mul_1x1_ialu
mov ebp,DWORD [40+esp]
mov ebx,DWORD [esp]
mov ecx,DWORD [4+esp]
mov edi,DWORD [8+esp]
mov esi,DWORD [12+esp]
xor eax,edx
xor edx,ecx
xor eax,ebx
mov DWORD [ebp],ebx
xor edx,edi
mov DWORD [12+ebp],esi
xor eax,esi
add esp,20
xor edx,esi
pop edi
xor eax,edx
pop esi
mov DWORD [8+ebp],edx
pop ebx
mov DWORD [4+ebp],eax
pop ebp
ret
db 71,70,40,50,94,109,41,32,77,117,108,116,105,112,108,105
db 99,97,116,105,111,110,32,102,111,114,32,120,56,54,44,32
db 67,82,89,80,84,79,71,65,77,83,32,98,121,32,60,97
db 112,112,114,111,64,111,112,101,110,115,115,108,46,111,114,103
db 62,0
segment .bss
common _OPENSSL_ia32cap_P 16

477
tmp32/x86-mont.asm Normal file
View File

@@ -0,0 +1,477 @@
%ifidn __OUTPUT_FORMAT__,obj
section code use32 class=code align=64
%elifidn __OUTPUT_FORMAT__,win32
$@feat.00 equ 1
section .text code align=64
%else
section .text code
%endif
;extern _OPENSSL_ia32cap_P
global _bn_mul_mont
align 16
_bn_mul_mont:
L$_bn_mul_mont_begin:
push ebp
push ebx
push esi
push edi
xor eax,eax
mov edi,DWORD [40+esp]
cmp edi,4
jl NEAR L$000just_leave
lea esi,[20+esp]
lea edx,[24+esp]
add edi,2
neg edi
lea ebp,[edi*4+esp-32]
neg edi
mov eax,ebp
sub eax,edx
and eax,2047
sub ebp,eax
xor edx,ebp
and edx,2048
xor edx,2048
sub ebp,edx
and ebp,-64
mov eax,esp
sub eax,ebp
and eax,-4096
mov edx,esp
lea esp,[eax*1+ebp]
mov eax,DWORD [esp]
cmp esp,ebp
ja NEAR L$001page_walk
jmp NEAR L$002page_walk_done
align 16
L$001page_walk:
lea esp,[esp-4096]
mov eax,DWORD [esp]
cmp esp,ebp
ja NEAR L$001page_walk
L$002page_walk_done:
mov eax,DWORD [esi]
mov ebx,DWORD [4+esi]
mov ecx,DWORD [8+esi]
mov ebp,DWORD [12+esi]
mov esi,DWORD [16+esi]
mov esi,DWORD [esi]
mov DWORD [4+esp],eax
mov DWORD [8+esp],ebx
mov DWORD [12+esp],ecx
mov DWORD [16+esp],ebp
mov DWORD [20+esp],esi
lea ebx,[edi-3]
mov DWORD [24+esp],edx
lea eax,[_OPENSSL_ia32cap_P]
bt DWORD [eax],26
jnc NEAR L$003non_sse2
mov eax,-1
movd mm7,eax
mov esi,DWORD [8+esp]
mov edi,DWORD [12+esp]
mov ebp,DWORD [16+esp]
xor edx,edx
xor ecx,ecx
movd mm4,DWORD [edi]
movd mm5,DWORD [esi]
movd mm3,DWORD [ebp]
pmuludq mm5,mm4
movq mm2,mm5
movq mm0,mm5
pand mm0,mm7
pmuludq mm5,[20+esp]
pmuludq mm3,mm5
paddq mm3,mm0
movd mm1,DWORD [4+ebp]
movd mm0,DWORD [4+esi]
psrlq mm2,32
psrlq mm3,32
inc ecx
align 16
L$0041st:
pmuludq mm0,mm4
pmuludq mm1,mm5
paddq mm2,mm0
paddq mm3,mm1
movq mm0,mm2
pand mm0,mm7
movd mm1,DWORD [4+ecx*4+ebp]
paddq mm3,mm0
movd mm0,DWORD [4+ecx*4+esi]
psrlq mm2,32
movd DWORD [28+ecx*4+esp],mm3
psrlq mm3,32
lea ecx,[1+ecx]
cmp ecx,ebx
jl NEAR L$0041st
pmuludq mm0,mm4
pmuludq mm1,mm5
paddq mm2,mm0
paddq mm3,mm1
movq mm0,mm2
pand mm0,mm7
paddq mm3,mm0
movd DWORD [28+ecx*4+esp],mm3
psrlq mm2,32
psrlq mm3,32
paddq mm3,mm2
movq [32+ebx*4+esp],mm3
inc edx
L$005outer:
xor ecx,ecx
movd mm4,DWORD [edx*4+edi]
movd mm5,DWORD [esi]
movd mm6,DWORD [32+esp]
movd mm3,DWORD [ebp]
pmuludq mm5,mm4
paddq mm5,mm6
movq mm0,mm5
movq mm2,mm5
pand mm0,mm7
pmuludq mm5,[20+esp]
pmuludq mm3,mm5
paddq mm3,mm0
movd mm6,DWORD [36+esp]
movd mm1,DWORD [4+ebp]
movd mm0,DWORD [4+esi]
psrlq mm2,32
psrlq mm3,32
paddq mm2,mm6
inc ecx
dec ebx
L$006inner:
pmuludq mm0,mm4
pmuludq mm1,mm5
paddq mm2,mm0
paddq mm3,mm1
movq mm0,mm2
movd mm6,DWORD [36+ecx*4+esp]
pand mm0,mm7
movd mm1,DWORD [4+ecx*4+ebp]
paddq mm3,mm0
movd mm0,DWORD [4+ecx*4+esi]
psrlq mm2,32
movd DWORD [28+ecx*4+esp],mm3
psrlq mm3,32
paddq mm2,mm6
dec ebx
lea ecx,[1+ecx]
jnz NEAR L$006inner
mov ebx,ecx
pmuludq mm0,mm4
pmuludq mm1,mm5
paddq mm2,mm0
paddq mm3,mm1
movq mm0,mm2
pand mm0,mm7
paddq mm3,mm0
movd DWORD [28+ecx*4+esp],mm3
psrlq mm2,32
psrlq mm3,32
movd mm6,DWORD [36+ebx*4+esp]
paddq mm3,mm2
paddq mm3,mm6
movq [32+ebx*4+esp],mm3
lea edx,[1+edx]
cmp edx,ebx
jle NEAR L$005outer
emms
jmp NEAR L$007common_tail
align 16
L$003non_sse2:
mov esi,DWORD [8+esp]
lea ebp,[1+ebx]
mov edi,DWORD [12+esp]
xor ecx,ecx
mov edx,esi
and ebp,1
sub edx,edi
lea eax,[4+ebx*4+edi]
or ebp,edx
mov edi,DWORD [edi]
jz NEAR L$008bn_sqr_mont
mov DWORD [28+esp],eax
mov eax,DWORD [esi]
xor edx,edx
align 16
L$009mull:
mov ebp,edx
mul edi
add ebp,eax
lea ecx,[1+ecx]
adc edx,0
mov eax,DWORD [ecx*4+esi]
cmp ecx,ebx
mov DWORD [28+ecx*4+esp],ebp
jl NEAR L$009mull
mov ebp,edx
mul edi
mov edi,DWORD [20+esp]
add eax,ebp
mov esi,DWORD [16+esp]
adc edx,0
imul edi,DWORD [32+esp]
mov DWORD [32+ebx*4+esp],eax
xor ecx,ecx
mov DWORD [36+ebx*4+esp],edx
mov DWORD [40+ebx*4+esp],ecx
mov eax,DWORD [esi]
mul edi
add eax,DWORD [32+esp]
mov eax,DWORD [4+esi]
adc edx,0
inc ecx
jmp NEAR L$0102ndmadd
align 16
L$0111stmadd:
mov ebp,edx
mul edi
add ebp,DWORD [32+ecx*4+esp]
lea ecx,[1+ecx]
adc edx,0
add ebp,eax
mov eax,DWORD [ecx*4+esi]
adc edx,0
cmp ecx,ebx
mov DWORD [28+ecx*4+esp],ebp
jl NEAR L$0111stmadd
mov ebp,edx
mul edi
add eax,DWORD [32+ebx*4+esp]
mov edi,DWORD [20+esp]
adc edx,0
mov esi,DWORD [16+esp]
add ebp,eax
adc edx,0
imul edi,DWORD [32+esp]
xor ecx,ecx
add edx,DWORD [36+ebx*4+esp]
mov DWORD [32+ebx*4+esp],ebp
adc ecx,0
mov eax,DWORD [esi]
mov DWORD [36+ebx*4+esp],edx
mov DWORD [40+ebx*4+esp],ecx
mul edi
add eax,DWORD [32+esp]
mov eax,DWORD [4+esi]
adc edx,0
mov ecx,1
align 16
L$0102ndmadd:
mov ebp,edx
mul edi
add ebp,DWORD [32+ecx*4+esp]
lea ecx,[1+ecx]
adc edx,0
add ebp,eax
mov eax,DWORD [ecx*4+esi]
adc edx,0
cmp ecx,ebx
mov DWORD [24+ecx*4+esp],ebp
jl NEAR L$0102ndmadd
mov ebp,edx
mul edi
add ebp,DWORD [32+ebx*4+esp]
adc edx,0
add ebp,eax
adc edx,0
mov DWORD [28+ebx*4+esp],ebp
xor eax,eax
mov ecx,DWORD [12+esp]
add edx,DWORD [36+ebx*4+esp]
adc eax,DWORD [40+ebx*4+esp]
lea ecx,[4+ecx]
mov DWORD [32+ebx*4+esp],edx
cmp ecx,DWORD [28+esp]
mov DWORD [36+ebx*4+esp],eax
je NEAR L$007common_tail
mov edi,DWORD [ecx]
mov esi,DWORD [8+esp]
mov DWORD [12+esp],ecx
xor ecx,ecx
xor edx,edx
mov eax,DWORD [esi]
jmp NEAR L$0111stmadd
align 16
L$008bn_sqr_mont:
mov DWORD [esp],ebx
mov DWORD [12+esp],ecx
mov eax,edi
mul edi
mov DWORD [32+esp],eax
mov ebx,edx
shr edx,1
and ebx,1
inc ecx
align 16
L$012sqr:
mov eax,DWORD [ecx*4+esi]
mov ebp,edx
mul edi
add eax,ebp
lea ecx,[1+ecx]
adc edx,0
lea ebp,[eax*2+ebx]
shr eax,31
cmp ecx,DWORD [esp]
mov ebx,eax
mov DWORD [28+ecx*4+esp],ebp
jl NEAR L$012sqr
mov eax,DWORD [ecx*4+esi]
mov ebp,edx
mul edi
add eax,ebp
mov edi,DWORD [20+esp]
adc edx,0
mov esi,DWORD [16+esp]
lea ebp,[eax*2+ebx]
imul edi,DWORD [32+esp]
shr eax,31
mov DWORD [32+ecx*4+esp],ebp
lea ebp,[edx*2+eax]
mov eax,DWORD [esi]
shr edx,31
mov DWORD [36+ecx*4+esp],ebp
mov DWORD [40+ecx*4+esp],edx
mul edi
add eax,DWORD [32+esp]
mov ebx,ecx
adc edx,0
mov eax,DWORD [4+esi]
mov ecx,1
align 16
L$0133rdmadd:
mov ebp,edx
mul edi
add ebp,DWORD [32+ecx*4+esp]
adc edx,0
add ebp,eax
mov eax,DWORD [4+ecx*4+esi]
adc edx,0
mov DWORD [28+ecx*4+esp],ebp
mov ebp,edx
mul edi
add ebp,DWORD [36+ecx*4+esp]
lea ecx,[2+ecx]
adc edx,0
add ebp,eax
mov eax,DWORD [ecx*4+esi]
adc edx,0
cmp ecx,ebx
mov DWORD [24+ecx*4+esp],ebp
jl NEAR L$0133rdmadd
mov ebp,edx
mul edi
add ebp,DWORD [32+ebx*4+esp]
adc edx,0
add ebp,eax
adc edx,0
mov DWORD [28+ebx*4+esp],ebp
mov ecx,DWORD [12+esp]
xor eax,eax
mov esi,DWORD [8+esp]
add edx,DWORD [36+ebx*4+esp]
adc eax,DWORD [40+ebx*4+esp]
mov DWORD [32+ebx*4+esp],edx
cmp ecx,ebx
mov DWORD [36+ebx*4+esp],eax
je NEAR L$007common_tail
mov edi,DWORD [4+ecx*4+esi]
lea ecx,[1+ecx]
mov eax,edi
mov DWORD [12+esp],ecx
mul edi
add eax,DWORD [32+ecx*4+esp]
adc edx,0
mov DWORD [32+ecx*4+esp],eax
xor ebp,ebp
cmp ecx,ebx
lea ecx,[1+ecx]
je NEAR L$014sqrlast
mov ebx,edx
shr edx,1
and ebx,1
align 16
L$015sqradd:
mov eax,DWORD [ecx*4+esi]
mov ebp,edx
mul edi
add eax,ebp
lea ebp,[eax*1+eax]
adc edx,0
shr eax,31
add ebp,DWORD [32+ecx*4+esp]
lea ecx,[1+ecx]
adc eax,0
add ebp,ebx
adc eax,0
cmp ecx,DWORD [esp]
mov DWORD [28+ecx*4+esp],ebp
mov ebx,eax
jle NEAR L$015sqradd
mov ebp,edx
add edx,edx
shr ebp,31
add edx,ebx
adc ebp,0
L$014sqrlast:
mov edi,DWORD [20+esp]
mov esi,DWORD [16+esp]
imul edi,DWORD [32+esp]
add edx,DWORD [32+ecx*4+esp]
mov eax,DWORD [esi]
adc ebp,0
mov DWORD [32+ecx*4+esp],edx
mov DWORD [36+ecx*4+esp],ebp
mul edi
add eax,DWORD [32+esp]
lea ebx,[ecx-1]
adc edx,0
mov ecx,1
mov eax,DWORD [4+esi]
jmp NEAR L$0133rdmadd
align 16
L$007common_tail:
mov ebp,DWORD [16+esp]
mov edi,DWORD [4+esp]
lea esi,[32+esp]
mov eax,DWORD [esi]
mov ecx,ebx
xor edx,edx
align 16
L$016sub:
sbb eax,DWORD [edx*4+ebp]
mov DWORD [edx*4+edi],eax
dec ecx
mov eax,DWORD [4+edx*4+esi]
lea edx,[1+edx]
jge NEAR L$016sub
sbb eax,0
and esi,eax
not eax
mov ebp,edi
and ebp,eax
or esi,ebp
align 16
L$017copy:
mov eax,DWORD [ebx*4+esi]
mov DWORD [ebx*4+edi],eax
mov DWORD [32+ebx*4+esp],ecx
dec ebx
jge NEAR L$017copy
mov esp,DWORD [24+esp]
mov eax,1
L$000just_leave:
pop edi
pop esi
pop ebx
pop ebp
ret
db 77,111,110,116,103,111,109,101,114,121,32,77,117,108,116,105
db 112,108,105,99,97,116,105,111,110,32,102,111,114,32,120,56
db 54,44,32,67,82,89,80,84,79,71,65,77,83,32,98,121
db 32,60,97,112,112,114,111,64,111,112,101,110,115,115,108,46
db 111,114,103,62,0
segment .bss
common _OPENSSL_ia32cap_P 16

350
tmp32/x86cpuid.asm Normal file
View File

@@ -0,0 +1,350 @@
%ifidn __OUTPUT_FORMAT__,obj
section code use32 class=code align=64
%elifidn __OUTPUT_FORMAT__,win32
$@feat.00 equ 1
section .text code align=64
%else
section .text code
%endif
global _OPENSSL_ia32_cpuid
align 16
_OPENSSL_ia32_cpuid:
L$_OPENSSL_ia32_cpuid_begin:
push ebp
push ebx
push esi
push edi
xor edx,edx
pushfd
pop eax
mov ecx,eax
xor eax,2097152
push eax
popfd
pushfd
pop eax
xor ecx,eax
xor eax,eax
bt ecx,21
jnc NEAR L$000nocpuid
mov esi,DWORD [20+esp]
mov DWORD [8+esi],eax
cpuid
mov edi,eax
xor eax,eax
cmp ebx,1970169159
setne al
mov ebp,eax
cmp edx,1231384169
setne al
or ebp,eax
cmp ecx,1818588270
setne al
or ebp,eax
jz NEAR L$001intel
cmp ebx,1752462657
setne al
mov esi,eax
cmp edx,1769238117
setne al
or esi,eax
cmp ecx,1145913699
setne al
or esi,eax
jnz NEAR L$001intel
mov eax,2147483648
cpuid
cmp eax,2147483649
jb NEAR L$001intel
mov esi,eax
mov eax,2147483649
cpuid
or ebp,ecx
and ebp,2049
cmp esi,2147483656
jb NEAR L$001intel
mov eax,2147483656
cpuid
movzx esi,cl
inc esi
mov eax,1
xor ecx,ecx
cpuid
bt edx,28
jnc NEAR L$002generic
shr ebx,16
and ebx,255
cmp ebx,esi
ja NEAR L$002generic
and edx,4026531839
jmp NEAR L$002generic
L$001intel:
cmp edi,7
jb NEAR L$003cacheinfo
mov esi,DWORD [20+esp]
mov eax,7
xor ecx,ecx
cpuid
mov DWORD [8+esi],ebx
L$003cacheinfo:
cmp edi,4
mov edi,-1
jb NEAR L$004nocacheinfo
mov eax,4
mov ecx,0
cpuid
mov edi,eax
shr edi,14
and edi,4095
L$004nocacheinfo:
mov eax,1
xor ecx,ecx
cpuid
and edx,3220176895
cmp ebp,0
jne NEAR L$005notintel
or edx,1073741824
and ah,15
cmp ah,15
jne NEAR L$005notintel
or edx,1048576
L$005notintel:
bt edx,28
jnc NEAR L$002generic
and edx,4026531839
cmp edi,0
je NEAR L$002generic
or edx,268435456
shr ebx,16
cmp bl,1
ja NEAR L$002generic
and edx,4026531839
L$002generic:
and ebp,2048
and ecx,4294965247
mov esi,edx
or ebp,ecx
bt ecx,27
jnc NEAR L$006clear_avx
xor ecx,ecx
db 15,1,208
and eax,6
cmp eax,6
je NEAR L$007done
cmp eax,2
je NEAR L$006clear_avx
L$008clear_xmm:
and ebp,4261412861
and esi,4278190079
L$006clear_avx:
and ebp,4026525695
mov edi,DWORD [20+esp]
and DWORD [8+edi],4294967263
L$007done:
mov eax,esi
mov edx,ebp
L$000nocpuid:
pop edi
pop esi
pop ebx
pop ebp
ret
;extern _OPENSSL_ia32cap_P
global _OPENSSL_rdtsc
align 16
_OPENSSL_rdtsc:
L$_OPENSSL_rdtsc_begin:
xor eax,eax
xor edx,edx
lea ecx,[_OPENSSL_ia32cap_P]
bt DWORD [ecx],4
jnc NEAR L$009notsc
rdtsc
L$009notsc:
ret
global _OPENSSL_instrument_halt
align 16
_OPENSSL_instrument_halt:
L$_OPENSSL_instrument_halt_begin:
lea ecx,[_OPENSSL_ia32cap_P]
bt DWORD [ecx],4
jnc NEAR L$010nohalt
dd 2421723150
and eax,3
jnz NEAR L$010nohalt
pushfd
pop eax
bt eax,9
jnc NEAR L$010nohalt
rdtsc
push edx
push eax
hlt
rdtsc
sub eax,DWORD [esp]
sbb edx,DWORD [4+esp]
add esp,8
ret
L$010nohalt:
xor eax,eax
xor edx,edx
ret
global _OPENSSL_far_spin
align 16
_OPENSSL_far_spin:
L$_OPENSSL_far_spin_begin:
pushfd
pop eax
bt eax,9
jnc NEAR L$011nospin
mov eax,DWORD [4+esp]
mov ecx,DWORD [8+esp]
dd 2430111262
xor eax,eax
mov edx,DWORD [ecx]
jmp NEAR L$012spin
align 16
L$012spin:
inc eax
cmp edx,DWORD [ecx]
je NEAR L$012spin
dd 529567888
ret
L$011nospin:
xor eax,eax
xor edx,edx
ret
global _OPENSSL_wipe_cpu
align 16
_OPENSSL_wipe_cpu:
L$_OPENSSL_wipe_cpu_begin:
xor eax,eax
xor edx,edx
lea ecx,[_OPENSSL_ia32cap_P]
mov ecx,DWORD [ecx]
bt DWORD [ecx],1
jnc NEAR L$013no_x87
and ecx,83886080
cmp ecx,83886080
jne NEAR L$014no_sse2
pxor xmm0,xmm0
pxor xmm1,xmm1
pxor xmm2,xmm2
pxor xmm3,xmm3
pxor xmm4,xmm4
pxor xmm5,xmm5
pxor xmm6,xmm6
pxor xmm7,xmm7
L$014no_sse2:
dd 4007259865,4007259865,4007259865,4007259865,2430851995
L$013no_x87:
lea eax,[4+esp]
ret
global _OPENSSL_atomic_add
align 16
_OPENSSL_atomic_add:
L$_OPENSSL_atomic_add_begin:
mov edx,DWORD [4+esp]
mov ecx,DWORD [8+esp]
push ebx
nop
mov eax,DWORD [edx]
L$015spin:
lea ebx,[ecx*1+eax]
nop
dd 447811568
jne NEAR L$015spin
mov eax,ebx
pop ebx
ret
global _OPENSSL_indirect_call
align 16
_OPENSSL_indirect_call:
L$_OPENSSL_indirect_call_begin:
push ebp
mov ebp,esp
sub esp,28
mov ecx,DWORD [12+ebp]
mov DWORD [esp],ecx
mov edx,DWORD [16+ebp]
mov DWORD [4+esp],edx
mov eax,DWORD [20+ebp]
mov DWORD [8+esp],eax
mov eax,DWORD [24+ebp]
mov DWORD [12+esp],eax
mov eax,DWORD [28+ebp]
mov DWORD [16+esp],eax
mov eax,DWORD [32+ebp]
mov DWORD [20+esp],eax
mov eax,DWORD [36+ebp]
mov DWORD [24+esp],eax
call DWORD [8+ebp]
mov esp,ebp
pop ebp
ret
global _OPENSSL_cleanse
align 16
_OPENSSL_cleanse:
L$_OPENSSL_cleanse_begin:
mov edx,DWORD [4+esp]
mov ecx,DWORD [8+esp]
xor eax,eax
cmp ecx,7
jae NEAR L$016lot
cmp ecx,0
je NEAR L$017ret
L$018little:
mov BYTE [edx],al
sub ecx,1
lea edx,[1+edx]
jnz NEAR L$018little
L$017ret:
ret
align 16
L$016lot:
test edx,3
jz NEAR L$019aligned
mov BYTE [edx],al
lea ecx,[ecx-1]
lea edx,[1+edx]
jmp NEAR L$016lot
L$019aligned:
mov DWORD [edx],eax
lea ecx,[ecx-4]
test ecx,-4
lea edx,[4+edx]
jnz NEAR L$019aligned
cmp ecx,0
jne NEAR L$018little
ret
global _OPENSSL_ia32_rdrand
align 16
_OPENSSL_ia32_rdrand:
L$_OPENSSL_ia32_rdrand_begin:
mov ecx,8
L$020loop:
db 15,199,240
jc NEAR L$021break
loop L$020loop
L$021break:
cmp eax,0
cmove eax,ecx
ret
global _OPENSSL_ia32_rdseed
align 16
_OPENSSL_ia32_rdseed:
L$_OPENSSL_ia32_rdseed_begin:
mov ecx,8
L$022loop:
db 15,199,248
jc NEAR L$023break
loop L$022loop
L$023break:
cmp eax,0
cmove eax,ecx
ret
segment .bss
common _OPENSSL_ia32cap_P 16
segment .CRT$XCU data align=4
extern _OPENSSL_cpuid_setup
dd _OPENSSL_cpuid_setup