bn-win32.asm

老外写的加密库cryptlib(版本3.1)

	; Don't even think of reading this code
	; It was automatically generated by x86.pl
	; Which is a perl program used to generate the x86 assember for
	; any of elf, a.out, BSDI, Win32, gaswin (for GNU as on Win32) or Solaris
	; eric <[e-mail]>
	; 
segment .text
global	_bn_mul_add_words
_bn_mul_add_words:
	push	ebp
	push	ebx
	push	esi
	push	edi
	; 
	xor	esi,		esi
	mov	edi,		[20+esp]
	mov	ecx,		[28+esp]
	mov	ebx,		[24+esp]
	and	ecx,		4294967288
	mov	ebp,		[32+esp]
	push	ecx
	jz NEAR	$L000maw_finish
L001maw_loop:
	mov	[esp],		ecx
	; Round 0
	mov	eax,		[ebx]
	mul	ebp
	add	eax,		esi
	mov	esi,		[edi]
	adc	edx,		0
	add	eax,		esi
	adc	edx,		0
	mov	[edi],		eax
	mov	esi,		edx
	; Round 4
	mov	eax,		[4+ebx]
	mul	ebp
	add	eax,		esi
	mov	esi,		[4+edi]
	adc	edx,		0
	add	eax,		esi
	adc	edx,		0
	mov	[4+edi],	eax
	mov	esi,		edx
	; Round 8
	mov	eax,		[8+ebx]
	mul	ebp
	add	eax,		esi
	mov	esi,		[8+edi]
	adc	edx,		0
	add	eax,		esi
	adc	edx,		0
	mov	[8+edi],	eax
	mov	esi,		edx
	; Round 12
	mov	eax,		[12+ebx]
	mul	ebp
	add	eax,		esi
	mov	esi,		[12+edi]
	adc	edx,		0
	add	eax,		esi
	adc	edx,		0
	mov	[12+edi],	eax
	mov	esi,		edx
	; Round 16
	mov	eax,		[16+ebx]
	mul	ebp
	add	eax,		esi
	mov	esi,		[16+edi]
	adc	edx,		0
	add	eax,		esi
	adc	edx,		0
	mov	[16+edi],	eax
	mov	esi,		edx
	; Round 20
	mov	eax,		[20+ebx]
	mul	ebp
	add	eax,		esi
	mov	esi,		[20+edi]
	adc	edx,		0
	add	eax,		esi
	adc	edx,		0
	mov	[20+edi],	eax
	mov	esi,		edx
	; Round 24
	mov	eax,		[24+ebx]
	mul	ebp
	add	eax,		esi
	mov	esi,		[24+edi]
	adc	edx,		0
	add	eax,		esi
	adc	edx,		0
	mov	[24+edi],	eax
	mov	esi,		edx
	; Round 28
	mov	eax,		[28+ebx]
	mul	ebp
	add	eax,		esi
	mov	esi,		[28+edi]
	adc	edx,		0
	add	eax,		esi
	adc	edx,		0
	mov	[28+edi],	eax
	mov	esi,		edx
	; 
	mov	ecx,		[esp]
	add	ebx,		32
	add	edi,		32
	sub	ecx,		8
	jnz NEAR	L001maw_loop
$L000maw_finish:
	mov	ecx,		[32+esp]
	and	ecx,		7
	jnz NEAR	$L002maw_finish2
	jmp	$L003maw_end
$L002maw_finish2:
	; Tail Round 0
	mov	eax,		[ebx]
	mul	ebp
	add	eax,		esi
	mov	esi,		[edi]
	adc	edx,		0
	add	eax,		esi
	adc	edx,		0
	dec	ecx
	mov	[edi],		eax
	mov	esi,		edx
	jz NEAR	$L003maw_end
	; Tail Round 1
	mov	eax,		[4+ebx]
	mul	ebp
	add	eax,		esi
	mov	esi,		[4+edi]
	adc	edx,		0
	add	eax,		esi
	adc	edx,		0
	dec	ecx
	mov	[4+edi],	eax
	mov	esi,		edx
	jz NEAR	$L003maw_end
	; Tail Round 2
	mov	eax,		[8+ebx]
	mul	ebp
	add	eax,		esi
	mov	esi,		[8+edi]
	adc	edx,		0
	add	eax,		esi
	adc	edx,		0
	dec	ecx
	mov	[8+edi],	eax
	mov	esi,		edx
	jz NEAR	$L003maw_end
	; Tail Round 3
	mov	eax,		[12+ebx]
	mul	ebp
	add	eax,		esi
	mov	esi,		[12+edi]
	adc	edx,		0
	add	eax,		esi
	adc	edx,		0
	dec	ecx
	mov	[12+edi],	eax
	mov	esi,		edx
	jz NEAR	$L003maw_end
	; Tail Round 4
	mov	eax,		[16+ebx]
	mul	ebp
	add	eax,		esi
	mov	esi,		[16+edi]
	adc	edx,		0
	add	eax,		esi
	adc	edx,		0
	dec	ecx
	mov	[16+edi],	eax
	mov	esi,		edx
	jz NEAR	$L003maw_end
	; Tail Round 5
	mov	eax,		[20+ebx]
	mul	ebp
	add	eax,		esi
	mov	esi,		[20+edi]
	adc	edx,		0
	add	eax,		esi
	adc	edx,		0
	dec	ecx
	mov	[20+edi],	eax
	mov	esi,		edx
	jz NEAR	$L003maw_end
	; Tail Round 6
	mov	eax,		[24+ebx]
	mul	ebp
	add	eax,		esi
	mov	esi,		[24+edi]
	adc	edx,		0
	add	eax,		esi
	adc	edx,		0
	mov	[24+edi],	eax
	mov	esi,		edx
$L003maw_end:
	mov	eax,		esi
	pop	ecx
	pop	edi
	pop	esi
	pop	ebx
	pop	ebp
	ret
global	_bn_mul_words
_bn_mul_words:
	push	ebp
	push	ebx
	push	esi
	push	edi
	; 
	xor	esi,		esi
	mov	edi,		[20+esp]
	mov	ebx,		[24+esp]
	mov	ebp,		[28+esp]
	mov	ecx,		[32+esp]
	and	ebp,		4294967288
	jz NEAR	$L004mw_finish
L005mw_loop:
	; Round 0
	mov	eax,		[ebx]
	mul	ecx
	add	eax,		esi
	adc	edx,		0
	mov	[edi],		eax
	mov	esi,		edx
	; Round 4
	mov	eax,		[4+ebx]
	mul	ecx
	add	eax,		esi
	adc	edx,		0
	mov	[4+edi],	eax
	mov	esi,		edx
	; Round 8
	mov	eax,		[8+ebx]
	mul	ecx
	add	eax,		esi
	adc	edx,		0
	mov	[8+edi],	eax
	mov	esi,		edx
	; Round 12
	mov	eax,		[12+ebx]
	mul	ecx
	add	eax,		esi
	adc	edx,		0
	mov	[12+edi],	eax
	mov	esi,		edx
	; Round 16
	mov	eax,		[16+ebx]
	mul	ecx
	add	eax,		esi
	adc	edx,		0
	mov	[16+edi],	eax
	mov	esi,		edx
	; Round 20
	mov	eax,		[20+ebx]
	mul	ecx
	add	eax,		esi
	adc	edx,		0
	mov	[20+edi],	eax
	mov	esi,		edx
	; Round 24
	mov	eax,		[24+ebx]
	mul	ecx
	add	eax,		esi
	adc	edx,		0
	mov	[24+edi],	eax
	mov	esi,		edx
	; Round 28
	mov	eax,		[28+ebx]
	mul	ecx
	add	eax,		esi
	adc	edx,		0
	mov	[28+edi],	eax
	mov	esi,		edx
	; 
	add	ebx,		32
	add	edi,		32
	sub	ebp,		8
	jz NEAR	$L004mw_finish
	jmp	L005mw_loop
$L004mw_finish:
	mov	ebp,		[28+esp]
	and	ebp,		7
	jnz NEAR	$L006mw_finish2
	jmp	$L007mw_end
$L006mw_finish2:
	; Tail Round 0
	mov	eax,		[ebx]
	mul	ecx
	add	eax,		esi
	adc	edx,		0
	mov	[edi],		eax
	mov	esi,		edx
	dec	ebp
	jz NEAR	$L007mw_end
	; Tail Round 1
	mov	eax,		[4+ebx]
	mul	ecx
	add	eax,		esi
	adc	edx,		0
	mov	[4+edi],	eax
	mov	esi,		edx
	dec	ebp
	jz NEAR	$L007mw_end
	; Tail Round 2
	mov	eax,		[8+ebx]
	mul	ecx
	add	eax,		esi
	adc	edx,		0
	mov	[8+edi],	eax
	mov	esi,		edx
	dec	ebp
	jz NEAR	$L007mw_end
	; Tail Round 3
	mov	eax,		[12+ebx]
	mul	ecx
	add	eax,		esi
	adc	edx,		0
	mov	[12+edi],	eax
	mov	esi,		edx
	dec	ebp
	jz NEAR	$L007mw_end
	; Tail Round 4
	mov	eax,		[16+ebx]
	mul	ecx
	add	eax,		esi
	adc	edx,		0
	mov	[16+edi],	eax
	mov	esi,		edx
	dec	ebp
	jz NEAR	$L007mw_end
	; Tail Round 5
	mov	eax,		[20+ebx]
	mul	ecx
	add	eax,		esi
	adc	edx,		0
	mov	[20+edi],	eax
	mov	esi,		edx
	dec	ebp
	jz NEAR	$L007mw_end
	; Tail Round 6
	mov	eax,		[24+ebx]
	mul	ecx
	add	eax,		esi
	adc	edx,		0
	mov	[24+edi],	eax
	mov	esi,		edx
$L007mw_end:
	mov	eax,		esi
	pop	edi
	pop	esi
	pop	ebx
	pop	ebp
	ret
global	_bn_sqr_words
_bn_sqr_words:
	push	ebp
	push	ebx
	push	esi
	push	edi
	; 
	mov	esi,		[20+esp]
	mov	edi,		[24+esp]
	mov	ebx,		[28+esp]
	and	ebx,		4294967288
	jz NEAR	$L008sw_finish
L009sw_loop:
	; Round 0
	mov	eax,		[edi]
	mul	eax
	mov	[esi],		eax
	mov	[4+esi],	edx
	; Round 4
	mov	eax,		[4+edi]
	mul	eax
	mov	[8+esi],	eax
	mov	[12+esi],	edx
	; Round 8
	mov	eax,		[8+edi]
	mul	eax
	mov	[16+esi],	eax
	mov	[20+esi],	edx
	; Round 12
	mov	eax,		[12+edi]
	mul	eax
	mov	[24+esi],	eax
	mov	[28+esi],	edx
	; Round 16
	mov	eax,		[16+edi]
	mul	eax
	mov	[32+esi],	eax
	mov	[36+esi],	edx
	; Round 20
	mov	eax,		[20+edi]
	mul	eax
	mov	[40+esi],	eax
	mov	[44+esi],	edx
	; Round 24
	mov	eax,		[24+edi]
	mul	eax
	mov	[48+esi],	eax
	mov	[52+esi],	edx
	; Round 28
	mov	eax,		[28+edi]
	mul	eax
	mov	[56+esi],	eax
	mov	[60+esi],	edx
	; 
	add	edi,		32
	add	esi,		64
	sub	ebx,		8
	jnz NEAR	L009sw_loop
$L008sw_finish:
	mov	ebx,		[28+esp]
	and	ebx,		7
	jz NEAR	$L010sw_end
	; Tail Round 0
	mov	eax,		[edi]
	mul	eax
	mov	[esi],		eax
	dec	ebx
	mov	[4+esi],	edx
	jz NEAR	$L010sw_end
	; Tail Round 1
	mov	eax,		[4+edi]
	mul	eax
	mov	[8+esi],	eax
	dec	ebx
	mov	[12+esi],	edx
	jz NEAR	$L010sw_end
	; Tail Round 2
	mov	eax,		[8+edi]
	mul	eax
	mov	[16+esi],	eax
	dec	ebx
	mov	[20+esi],	edx
	jz NEAR	$L010sw_end
	; Tail Round 3
	mov	eax,		[12+edi]
	mul	eax
	mov	[24+esi],	eax
	dec	ebx
	mov	[28+esi],	edx
	jz NEAR	$L010sw_end
	; Tail Round 4
	mov	eax,		[16+edi]
	mul	eax
	mov	[32+esi],	eax
	dec	ebx
	mov	[36+esi],	edx
	jz NEAR	$L010sw_end
	; Tail Round 5
	mov	eax,		[20+edi]
	mul	eax
	mov	[40+esi],	eax
	dec	ebx
	mov	[44+esi],	edx
	jz NEAR	$L010sw_end
	; Tail Round 6
	mov	eax,		[24+edi]
	mul	eax
	mov	[48+esi],	eax
	mov	[52+esi],	edx
$L010sw_end:
	pop	edi
	pop	esi
	pop	ebx
	pop	ebp
	ret
global	_bn_div_words
_bn_div_words:
	push	ebp
	push	ebx
	push	esi
	push	edi
	mov	edx,		[20+esp]
	mov	eax,		[24+esp]
	mov	ebx,		[28+esp]
	div	ebx
	pop	edi
	pop	esi
	pop	ebx
	pop	ebp
	ret
global	_bn_add_words
_bn_add_words:
	push	ebp
	push	ebx
	push	esi
	push	edi
	; 
	mov	ebx,		[20+esp]
	mov	esi,		[24+esp]
	mov	edi,		[28+esp]
	mov	ebp,		[32+esp]
	xor	eax,		eax
	and	ebp,		4294967288
	jz NEAR	$L011aw_finish
L012aw_loop:
	; Round 0
	mov	ecx,		[esi]
	mov	edx,		[edi]
	add	ecx,		eax
	mov	eax,		0
	adc	eax,		eax
	add	ecx,		edx
	adc	eax,		0
	mov	[ebx],		ecx
	; Round 1
	mov	ecx,		[4+esi]
	mov	edx,		[4+edi]
	add	ecx,		eax
	mov	eax,		0
	adc	eax,		eax
	add	ecx,		edx
	adc	eax,		0
	mov	[4+ebx],	ecx
	; Round 2
	mov	ecx,		[8+esi]
	mov	edx,		[8+edi]
	add	ecx,		eax
	mov	eax,		0
	adc	eax,		eax
	add	ecx,		edx
	adc	eax,		0
	mov	[8+ebx],	ecx
	; Round 3
	mov	ecx,		[12+esi]
	mov	edx,		[12+edi]
	add	ecx,		eax
	mov	eax,		0
	adc	eax,		eax
	add	ecx,		edx
	adc	eax,		0
	mov	[12+ebx],	ecx
	; Round 4
	mov	ecx,		[16+esi]
	mov	edx,		[16+edi]
	add	ecx,		eax
	mov	eax,		0
	adc	eax,		eax
	add	ecx,		edx
	adc	eax,		0
	mov	[16+ebx],	ecx
	; Round 5
	mov	ecx,		[20+esi]
	mov	edx,		[20+edi]
	add	ecx,		eax
	mov	eax,		0
	adc	eax,		eax
	add	ecx,		edx
	adc	eax,		0
	mov	[20+ebx],	ecx
	; Round 6
	mov	ecx,		[24+esi]
	mov	edx,		[24+edi]
	add	ecx,		eax
	mov	eax,		0
	adc	eax,		eax
	add	ecx,		edx
	adc	eax,		0
	mov	[24+ebx],	ecx
	; Round 7
	mov	ecx,		[28+esi]
	mov	edx,		[28+edi]
	add	ecx,		eax
	mov	eax,		0
	adc	eax,		eax
	add	ecx,		edx
	adc	eax,		0
	mov	[28+ebx],	ecx
	; 
	add	esi,		32
	add	edi,		32
	add	ebx,		32
	sub	ebp,		8
	jnz NEAR	L012aw_loop
$L011aw_finish:
	mov	ebp,		[32+esp]
	and	ebp,		7
	jz NEAR	$L013aw_end
	; Tail Round 0
	mov	ecx,		[esi]
	mov	edx,		[edi]
	add	ecx,		eax
	mov	eax,		0
	adc	eax,		eax
	add	ecx,		edx
	adc	eax,		0
	dec	ebp
	mov	[ebx],		ecx
	jz NEAR	$L013aw_end
	; Tail Round 1
	mov	ecx,		[4+esi]
	mov	edx,		[4+edi]
	add	ecx,		eax
	mov	eax,		0
	adc	eax,		eax
	add	ecx,		edx
	adc	eax,		0
	dec	ebp
	mov	[4+ebx],	ecx
	jz NEAR	$L013aw_end
	; Tail Round 2
	mov	ecx,		[8+esi]
	mov	edx,		[8+edi]
	add	ecx,		eax
	mov	eax,		0
	adc	eax,		eax
	add	ecx,		edx
	adc	eax,		0
	dec	ebp
	mov	[8+ebx],	ecx
	jz NEAR	$L013aw_end
	; Tail Round 3
	mov	ecx,		[12+esi]
	mov	edx,		[12+edi]
	add	ecx,		eax
	mov	eax,		0
	adc	eax,		eax
	add	ecx,		edx
	adc	eax,		0
	dec	ebp
	mov	[12+ebx],	ecx
	jz NEAR	$L013aw_end
	; Tail Round 4
	mov	ecx,		[16+esi]
	mov	edx,		[16+edi]
	add	ecx,		eax
	mov	eax,		0
	adc	eax,		eax
	add	ecx,		edx
	adc	eax,		0
	dec	ebp
	mov	[16+ebx],	ecx
	jz NEAR	$L013aw_end
	; Tail Round 5
	mov	ecx,		[20+esi]
	mov	edx,		[20+edi]
	add	ecx,		eax
	mov	eax,		0
	adc	eax,		eax
	add	ecx,		edx
	adc	eax,		0
	dec	ebp
	mov	[20+ebx],	ecx
	jz NEAR	$L013aw_end
	; Tail Round 6
	mov	ecx,		[24+esi]
	mov	edx,		[24+edi]
	add	ecx,		eax
	mov	eax,		0
	adc	eax,		eax
	add	ecx,		edx
	adc	eax,		0
	mov	[24+ebx],	ecx
$L013aw_end:
	pop	edi
	pop	esi
	pop	ebx
	pop	ebp
	ret
global	_bn_sub_words
_bn_sub_words:
	push	ebp
	push	ebx
	push	esi
	push	edi
	; 
	mov	ebx,		[20+esp]
	mov	esi,		[24+esp]
	mov	edi,		[28+esp]
	mov	ebp,		[32+esp]
	xor	eax,		eax
	and	ebp,		4294967288
	jz NEAR	$L014aw_finish
L015aw_loop:
	; Round 0
	mov	ecx,		[esi]
	mov	edx,		[edi]
	sub	ecx,		eax
	mov	eax,		0
	adc	eax,		eax
	sub	ecx,		edx
	adc	eax,		0
	mov	[ebx],		ecx
	; Round 1
	mov	ecx,		[4+esi]
	mov	edx,		[4+edi]
	sub	ecx,		eax
	mov	eax,		0