妖々剣戟夢想 bgm extractor asm ver. Got no C compiler :(

extractor.asm

;MASMPlus 代码模板 - 控制台程序
;link: /SUBSYSTEM:CONSOLE /nologo /SECTION:.text,RWE /MERGE:.rdata=.text /MERGE:.data=.text
.686
.model flat, stdcall
option casemap :none

include windows.inc
include kernel32.inc
include masm32.inc

includelib kernel32.lib
includelib masm32.lib
include macro.asm

.data
	ddMagicNumbers dd 576,2838748,9760642,13925733,21502882, \
							30222582,35811704,41345235,45306303, \
							54451205,66477898,75360464,84057730, \
							91119754,97171761,99622608,108506849, \
							117227799
	
	NNums equ lengthof ddMagicNumbers - 1
	ddNNums dd NNums
	
	sCantOpen db "无法打开pack01.pak，请把此程序放到游戏的resource目录里运行！", 13, 10, 0
	sCantWrite db "无法以写入方式打开文件！请尝试使用管理员权限运行本程序！", 13, 10, 0
	sWriting db "正在写入 "
	sSongName db "00.ogg"
	sTail db " ...", 13, 10, 0
	
.data?
	pBuf		dd ?
	hDataFile dd ?
	ddJunk dd ?
.CODE
	
ErrMsg proc pMsg:DWORD
	invoke StdOut, pMsg
	invoke StdIn, offset ddJunk, 3
	invoke ExitProcess, 1
	ret
ErrMsg endp
	
START:
	invoke CreateFile, offset CTEXT("pack01.pak"), GENERIC_READ, FILE_SHARE_READ OR FILE_SHARE_WRITE, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL
	.if eax == -1
		invoke ErrMsg, offset sCantOpen
	.endif
	mov hDataFile, eax
	
	invoke VirtualAlloc,NULL,15*1024*1024,MEM_COMMIT,PAGE_READWRITE
	mov pBuf, eax
	
	lea esi, ddMagicNumbers
	lodsd
	mov ebx, eax ; ebx <- this postition
	.while ddNNums
		lodsd
		mov edi, eax ; edi <- next position
		
		invoke SetFilePointer, hDataFile, ebx, NULL, FILE_BEGIN
		
		mov edx, edi
		sub edx, ebx ; <- size
		invoke ReadFile,hDataFile, pBuf, edx, offset ddJunk,NULL
		
		
		mov eax, NNums
		sub eax, ddNNums
		inc eax
		cmp eax, 0ah
		jl @F
		add eax, 0F6h
		@@:
		bswap eax
		shr eax, 16
		add ax, '00'
		mov WORD ptr sSongName, ax
		mov BYTE ptr sTail, ' '
		invoke StdOut, offset sWriting
		mov BYTE ptr sTail, 0
		invoke CreateFile, offset sSongName, GENERIC_WRITE, FILE_SHARE_READ, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL
		push eax ; pair with CloseHandle
		.if eax == -1
			invoke ErrMsg, offset sCantWrite
		.endif
		mov edx, edi
		sub edx, ebx ; <- size
		invoke WriteFile, eax, pBuf, edx, offset ddJunk, NULL
		call CloseHandle
		mov ebx, edi ; next one
		dec ddNNums
	.endw
	ret
end START