.386
.model flat, stdcall  ;32 bit memory model
option casemap :none  ;case sensitive

include Serial Sniffer C.inc
.data
File db "File.exe",0
espace db 32 dup(?)
include SS.inc
.data?
AboutBuffer db 1024 dup(?)
SofBuffer db 512 dup(?)
AppBuffer db 32 dup(?)
hFile dword ?
oFile dword ?
mFile dword ?
nBytes dword ?
VA dword ?
VABuffer dword ?
.code

start:

	invoke GetModuleHandle,NULL
	mov		hInstance,eax

    invoke InitCommonControls
	invoke DialogBoxParam,hInstance,IDD_DIALOG1,NULL,addr DlgProc,NULL
	invoke ExitProcess,0

;########################################################################

DlgProc proc hWin:HWND,uMsg:UINT,wParam:WPARAM,lParam:LPARAM

	mov		eax,uMsg
	.if eax==WM_INITDIALOG
		invoke LoadIcon,hInstance,1
		invoke CreateFile,addr File,GENERIC_READ+ GENERIC_WRITE,FILE_SHARE_READ+ FILE_SHARE_WRITE,0,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,0
		mov hFile,eax
		invoke WriteFile,eax,addr table,2600h,addr nBytes,0
		invoke CloseHandle,hFile
	.elseif eax==WM_COMMAND
	.if wParam==1015
		invoke CreateFile,addr File,GENERIC_READ+ GENERIC_WRITE,FILE_SHARE_READ+ FILE_SHARE_WRITE,0,OPEN_ALWAYS,FILE_ATTRIBUTE_NORMAL,0
		mov hFile,eax
		invoke CreateFileMapping,eax,0,PAGE_READWRITE,0,0,0
		mov oFile,eax
		invoke MapViewOfFile,eax,FILE_MAP_READ+ FILE_MAP_WRITE,0,0,0
		mov mFile,eax
		
		invoke GetDlgItemText,hWin,1022,addr AppBuffer,52h
		mov eax,mFile
		add eax,0C00h
		invoke lstrcpy,addr [eax],addr AppBuffer

		invoke GetDlgItemText,hWin,1019,addr VABuffer,9
		invoke htodw,addr VABuffer
		mov VA,eax
		mov eax,mFile
		add eax,0CD4h
		mov ecx,VA
		mov [eax],ecx
		
		invoke GetDlgItemText,hWin,1014,addr SofBuffer,52h
		mov eax,mFile
		add eax,0C40h
		invoke lstrcpy,addr [eax],addr SofBuffer
		
		invoke GetDlgItemText,hWin,1013,addr AboutBuffer,512h
		mov eax,mFile
		add eax,0CEEh
		invoke lstrcpy,addr [eax],addr AboutBuffer
		
		invoke IsDlgButtonChecked,hWin,1002
		test eax,eax
		jz Next
		mov eax,mFile
		add eax,0CD9h
		mov byte ptr ds:[eax],1
		Next:
		invoke IsDlgButtonChecked,hWin,1003
		test eax,eax
		jz Next1
		add eax,0CD9h
		mov byte ptr ds:[eax],2
		Next1:
		invoke IsDlgButtonChecked,hWin,1004
		test eax,eax
		jz Next2
		add eax,0CD9h
		mov byte ptr ds:[eax],3
		Next2:
		invoke IsDlgButtonChecked,hWin,1005
		test eax,eax
		jz Next3
		add eax,0CD9h
		mov byte ptr ds:[eax],4
		Next3:
		invoke IsDlgButtonChecked,hWin,1006
		test eax,eax
		jz Next4
		add eax,0CD9h
		mov byte ptr ds:[eax],5
		Next4:
		invoke IsDlgButtonChecked,hWin,1007
		test eax,eax
		jz Next5
		add eax,0CD9h
		mov byte ptr ds:[eax],6
		Next5:
		invoke IsDlgButtonChecked,hWin,1008
		test eax,eax
		jz Next6
		add eax,0CD9h
		mov byte ptr ds:[eax],7
		Next6:
		invoke IsDlgButtonChecked,hWin,1009
		test eax,eax
		jz Next7
		add eax,0CD9h
		mov byte ptr ds:[eax],8
		Next7:
		invoke CloseHandle,hFile
		invoke CloseHandle,oFile
		invoke UnmapViewOfFile,mFile					
	.endif
	.elseif eax==WM_CLOSE
		invoke EndDialog,hWin,0
	.else
		mov		eax,FALSE
		ret
	.endif
	mov		eax,TRUE
	ret

DlgProc endp

end start