汇编源代码之获得操作系统版本

Ericky

dos下可以调用DOS中断服务程序,
WINDOWS下可以调用 API 函数GetVersionEx()
这是我测试PE格式的STUB的源代码, 可以在DOS和WINDOWS下运行,其功能是报告当前OS信息.
; @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
; FileName: os_type.asm
; function: Reports current operation system type
; Author　: Purple Endurer
; Version : 0.1
;
; OS Name　　　Offset of INT 08h　　Offset of INT 43h
; -------------------------------------------------------
; MS DOS 7.00　001Fh　　　　　　　　5710h
; MS DOS 7.10　18DEh　　　　　　　　6EE5h
; UCDOS　　　　1AF3h
; UCDOS98　　　1AEBh　　　　　　　　6E20h
; MSDOS mode　 0000h
; PDOS95　　　 0A50h　　　　　　　　6E20h
;
; Date　　　　 Summary
; -------------------------------------------------------
; 2002.04.07　 Created from software paper 95P125
; 2002.06.11　 Show version if os is MS-DOS
; 2002.08.07　 Convert it to DOS EXE format to be stub
;　　　　　　　program in PE format execute file
; 2004.02.09　 Added the condition　asm var 'UseStack'
;　　　　　　　Question:
;　　　　　　　Why can this program run normally with stack segment,
;　　　　　　　though there is push and pop instruction in bin2dec proc?
　　UseStack　　　　equ 0
data　　segment
　　　　 strMSDOS　 db "MS DOS "
　　　　 cMajorVer　db ' '
　　　　　　　　　 db '.'
　　　　 cMinorVer　db "　　$"
　　strUCDOS　 db "UCDOS"
　　　　 cUCDOSVer　db " 98特别版$"
　　strPDOS95　db "Windows95中文DOS方式PDOS95$"
data　ends
　　if UseStack
　　　　 sseg segment stack
　　　　　　　　 db 10 dup(?)
　　　　 sseg ends
endif
code　 segment
;--------------------------------------
if UseStack
　　　 assume cs: code, ds: data, ss: sseg
else
　　　 assume cs: code, ds: data
endif
　　main　proc
start:
　　　 mov　ax, data
　　　 mov　ds, ax
　　if UseStack
　　　 mov ax, sseg
　　　 mov ss, ax
endif
　　 mov　ah, 30h　; Get Version
　　　 int　21h
　　　 add　al, '0'
　　　 mov　cMajorVer, al
　　　 mov　bx, offset cMinorVer
　　　 call bin2dec
　　 mov　ax, 3508h
　　　 int　21h
　　 mov　dx, offset strMSDOS
　　　 mov　ah, 09h
　　　 int　21h
　　 cmp　bx, 1fh
　　　 je　 @end　;Here is DOS 7.00 only
　　　 cmp　bx, 18deh
　　　 je　 @End　;Here is DOS 7.10 only
　　 mov　dx, offset strUCDOS
　　　 cmp　bx, 1aebh
　　　 je　 @Report
　　 cmp　bx, 1af3h
　　　 jne　@next2
　　　 mov　cUCDOSVer, '$'
　　　 jmp　@report
　　@next2:
　　 mov　dx, offset strPDOS95
　　　 cmp　bx, 0a50h
　　　 jne　 @End
@Report:
　　　 ;mov ah, 09h
　　　 int　21h
@End:
　　　 mov　ax, 4c00h
　　　 int　21h
main　endp
　　; ========================================================
; Input :　AH = the Binary will be translated)
;　　　　　BX = First offset of memory us to store the result
; Output:　BX = First offset of memory stored the result
; --------------------------------------------------------
bin2dec proc
　　　 push dx
　　　 mov　dl, 10
@LoopDiv:
　　　 mov　al, ah
　　　 xor　ah, ah
　　　 div　dl　　　; (AL) <- (AX) / (DL)　　(AH) <- (AX) % (DL)
　　　 add　al, '0'
　　　 mov　[bx], al
　　　 inc　bx
　　　 cmp　ah, 10
　　　 jg　@LoopDiv
　　add　ah, '0'
　　　 mov　[bx], ah
　　　 pop　dx
　　　 ret
bin2dec endp
;=========================================
code　ends
　　　 end　main
　　;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
;FileName: StubDemo.asm
; Fuction: Demo how to use the custome stub of PE exe files.
;　Author: Purple Endurer
stub
;The command line refered cursom STUB program:
;\masm32\bin\link /stub:<filename.exe> /subsystem:windows <objectname.obj>
;Example:
;D:\masm32v6\WORKS\my_stub>\masm32\bin\link /stub:stub.exe /subsystem:windows stubdemo.obj
;Microsoft (R) Incremental Linker Version 5.12.8078
;Copyright (C) Microsoft Corp 1992-1998. All rights reserved.
　　;stub.exe : warning LNK4060: stub file missing full MS-DOS header; rebuild stub with /KNOWEAS 16-bit LINK option
　　; Date　　　　 Summary
; -------------------------------------------------------
; 2002.04.07　 Created!
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
　　.386
.model flat, stdcall
option casemap:none
include \masm32\include\windows.inc
include \masm32\include\kernel32.inc
include \masm32\include\user32.inc
includelib \masm32\lib\user32.lib
includelib \masm32\lib\kernel32.lib
　　bDetailInfo　　　　 equ 0
　　.data
szMsgBoxTitle　　　 db "当前操作系统",0
if　 bDetailInfo　　 ;?????? bDetailInfo
　　 szWin31　　　　　　 db "Win32s on Windows 3.1 ", 0
　　 szWin9x　　　　　　 db "Win32 on Windows 95 ", 0
else
　　 szWin31　　　　　　 db "Windows 3.1 ", 0
　　 szWin9x　　　　　　 db "Windows 95 ", 0
endif　　　　　　　　　 ;?????? bDetailInfo
　　szWinNT　　　　　　 db "Windows NT ", 0
　　szFormat4OsVer　　　db "%lu.%lu.%lu", 0
szGetOsInfoFail　　 db "取操作系统信息失败!", 0
　　.data?
OsVer　　　　　　　 OSVERSIONINFO <>
szOsVerInfo　　　　 db　 255 dup (?)
szOsVerInfoTmp　　　db　 255 dup (?)
　　.code
start:
　　　　　　 mov　　OsVer.dwOSVersionInfoSize, SIZEOF OSVERSIONINFO
　　　　　　 invoke GetVersionEx, ADDR OsVer
　　　　　　 .if　　eax
　　　　　　　　　 mov eax, OsVer.dwPlatformId
　　　　　　　　　 ;Identifies the build number of the operating
　　　　　　　　　 ;system in the low-order word For Win9X
　　 .if eax == VER_PLATFORM_WIN32s
　　　　　　　　　　　 mov esi, OFFSET szWin31
　　　　　　　　　　　 and OsVer.dwBuildNumber, 0FFFFh
　　　　　　　　　 .elseif eax == VER_PLATFORM_WIN32_WINDOWS
　　　　　　　　　　　 mov esi, OFFSET szWin9x
　　　　　　　　　　　 and OsVer.dwBuildNumber, 0FFFFh
　　 .else ; eax ==VER_PLATFORM_WIN32_NT
　　　　　　　　　　　 mov esi, OFFSET szWinNT
　　　　　　　　　 .endif
　　 invoke lstrcpy, ADDR szOsVerInfo, esi
　　 invoke wsprintf, ADDR szOsVerInfoTmp,\
　　　　　　　　　　　　　 ADDR szFormat4OsVer, OsVer.dwMajorVersion,\
　　　　　　　　　　　　　 OsVer.dwMinorVersion, OsVer.dwBuildNumber
　　 invoke lstrcat, ADDR szOsVerInfo, ADDR szOsVerInfoTmp
　　　　　　　　　 invoke lstrcat, ADDR szOsVerInfo, ADDR OsVer.szCSDVersion
　　　　　　　　　 mov　　edi, OFFSET szOsVerInfo
　　　　　　　　　 mov　　esi, MB_OK OR MB_ICONINFORMATION
　　　　　　 .else
　　　　　　　　　 mov　　edi, OFFSET szGetOsInfoFail
　　　　　　　　　 mov　　esi, MB_OK OR MB_ICONWARNING
　　　　　　 .endif
　　 invoke MessageBox, NULL, edi, addr szMsgBoxTitle, esi
　　　　 invoke ExitProcess,NULL
end start

lcj123

精彩文章希望继续努力
沙发{:soso_e102:}是我的

Ericky

lcj123 发表于 2012-7-2 18:12
精彩文章希望继续努力

多谢~一定继续努力~

娱乐哟

这是易语言？