stackover.asm

汇编实战大全.请按书中的附录 A设置好系统的环境变量

;********************************
;文件：StackOver.asm            *
;功能：与StackNormal一起测试在  *
;      堆栈越界时的页分配的过程 *
;********************************

.386p
.model flat,stdcall
extrn MessageBoxA:proc
extrn ExitProcess:proc
NULL  = 0
MB_OK = 0
COMMIT  = 2000H
RESERVE = 100000H

.data 
	Caption     db 'Caption',0
	TextNormal	db 'Normal',0
	TextOver	db 'Overflow',0
	EspTemp		dd ?

.code
main:

	lea  eax,[esp-4*2]		;生成异常处理链表
	xchg fs:[0],eax
	mov  ebx,offset SEH
	push ebx
	push eax
	mov  [EspTemp],esp
	call WriteStack
	
	call MessageBoxA,NULL,offset TextNormal,offset Caption,MB_OK
	
	pop  eax
	pop  ebx
	xchg fs:[0],eax
	call ExitProcess,0
SEH:
	mov  esp,[EspTemp]
	call MessageBoxA,NULL,offset TextOver,offset Caption,MB_OK
	call ExitProcess,0
	
WriteStack proc				;写堆栈
	push ebp
	mov  ebp,esp
	
	mov  ecx,COMMIT + 4096
	lea  edi,[esp-1] 
	sub  edi,ecx
	mov  al,'L'
	cld
	rep  stosb
	
	mov  esp,ebp
	pop  ebp
	ret
WriteStack endp	

	end main