forked from KolibriOS/kolibrios
1427 lines
22 KiB
NASM
1427 lines
22 KiB
NASM
format PE GUI 4.0
|
|
section '.text' code readable executable
|
|
entry start
|
|
start:
|
|
xor ebx, ebx
|
|
push ofn
|
|
call [GetOpenFileNameA]
|
|
test eax, eax
|
|
jnz @f
|
|
push ebx
|
|
call [ExitProcess]
|
|
@@:
|
|
call [GetVersion]
|
|
test eax, eax
|
|
sets [b9x]
|
|
js install_9x
|
|
mov [img_name+2], bl
|
|
push ebx
|
|
push ebx
|
|
push 3
|
|
push ebx
|
|
push 3
|
|
push 80000000h
|
|
push dn
|
|
call [CreateFileA]
|
|
inc eax
|
|
jnz @f
|
|
norights:
|
|
push 10h
|
|
push ebx
|
|
push norightsmsg
|
|
mbx:
|
|
push ebx
|
|
call [MessageBoxA]
|
|
push ebx
|
|
call [ExitProcess]
|
|
@@:
|
|
lea esi, [eax-1]
|
|
push ebx
|
|
push tmp
|
|
push 12
|
|
push sdn
|
|
push ebx
|
|
push ebx
|
|
push 0x2D1080
|
|
push esi
|
|
call [DeviceIoControl]
|
|
test eax, eax
|
|
jnz @f
|
|
cnr:
|
|
push esi
|
|
call [CloseHandle]
|
|
jmp norights
|
|
@@:
|
|
push ebx
|
|
push tmp
|
|
push 20h
|
|
push pi
|
|
push ebx
|
|
push ebx
|
|
push 0x74004
|
|
push esi
|
|
call [DeviceIoControl]
|
|
test eax, eax
|
|
jz cnr
|
|
push esi
|
|
call [CloseHandle]
|
|
cmp [sdn], 7
|
|
jz @f
|
|
push 10h
|
|
push 0
|
|
push nohd
|
|
jmp mbx
|
|
@@:
|
|
mov al, byte [sdn+4]
|
|
or al, 80h
|
|
mov [mtldr_code+7], al
|
|
mov eax, [pi]
|
|
mov edx, [pi+4]
|
|
shrd eax, edx, 9
|
|
shr edx, 9
|
|
jz @f
|
|
m1e: push 10h
|
|
push ebx
|
|
push m1
|
|
jmp mbx
|
|
@@:
|
|
install_cmn:
|
|
mov [mtldr_code+8], eax
|
|
mov esi, img_name
|
|
mov edi, img_real_name
|
|
mov byte [esi+2], '\'
|
|
push 256
|
|
push edi
|
|
push esi
|
|
call [GetShortPathNameA]
|
|
cmp eax, 256
|
|
jb @f
|
|
push 10h
|
|
push ebx
|
|
push ptl
|
|
jmp mbx
|
|
@@:
|
|
test eax, eax
|
|
jnz @f
|
|
push esi edi
|
|
mov ecx, 256/4
|
|
rep movsd
|
|
pop edi esi
|
|
@@:
|
|
cmp byte [edi], 0
|
|
jz lcd
|
|
cmp byte [edi], 'A'
|
|
jb lcc
|
|
cmp byte [edi], 'Z'
|
|
ja lcc
|
|
add byte [edi], 20h
|
|
lcc:
|
|
inc edi
|
|
jmp @b
|
|
lcd:
|
|
mov esi, img_real_name
|
|
cmp [b9x], 0
|
|
jnz @f
|
|
cmp byte [esi], 'c'
|
|
jnz notc
|
|
@@:
|
|
push 256/4
|
|
pop ecx
|
|
lea edi, [esi+ecx*4]
|
|
rep movsd
|
|
mov edi, esi
|
|
xor eax, eax
|
|
or ecx, -1
|
|
repnz scasb
|
|
dec edi
|
|
std
|
|
mov al, '\'
|
|
repnz scasb
|
|
cld
|
|
inc edi
|
|
inc edi
|
|
mov eax, 'mtld'
|
|
stosd
|
|
mov al, 'r'
|
|
stosb
|
|
jmp cmn
|
|
notc:
|
|
mov dword [mtldr_name], 'C:\m'
|
|
mov dword [mtldr_name+4], 'tldr'
|
|
mov edi, mtldr_name+8
|
|
cmn:
|
|
and word [edi], 0
|
|
mf:
|
|
push mtldr_name
|
|
call [GetFileAttributesA]
|
|
inc eax
|
|
jnz @f
|
|
call [GetLastError]
|
|
cmp eax, 2
|
|
jz fo
|
|
@@:
|
|
cmp byte [edi], 0
|
|
jnz @f
|
|
mov byte [edi], '0'
|
|
jmp mf
|
|
@@:
|
|
cmp byte [edi], '9'
|
|
jae @f
|
|
mfi:
|
|
inc byte [edi]
|
|
jmp mf
|
|
@@:
|
|
ja @f
|
|
mov byte [edi], 'A'
|
|
jmp mf
|
|
@@:
|
|
cmp byte [edi], 'Z'
|
|
jb mfi
|
|
nomx: push 10h
|
|
push ebx
|
|
push nom
|
|
jmp mbx
|
|
fo:
|
|
cmp [b9x], 0
|
|
jnz install_9x_2
|
|
call write_mtldr1
|
|
push ecx
|
|
call [GetVersion]
|
|
pop ecx
|
|
cmp al, 6
|
|
jae install_vista
|
|
mov al, 2
|
|
mov edi, tmp_data
|
|
neg ecx
|
|
add ecx, 2000h - mtldr_code_size
|
|
push ebx
|
|
push tmp
|
|
push ecx
|
|
push edi
|
|
push esi
|
|
rep stosb
|
|
call [WriteFile]
|
|
push esi
|
|
call [CloseHandle]
|
|
push bootini
|
|
mov edi, systitle+1
|
|
mov esi, ostitle
|
|
mov byte [edi-1], '"'
|
|
@@:
|
|
lodsb
|
|
test al, al
|
|
jz @f
|
|
stosb
|
|
jmp @b
|
|
@@:
|
|
mov word [edi], '"'
|
|
push bootini
|
|
call [GetFileAttributesA]
|
|
push eax
|
|
and al, not 1
|
|
push eax
|
|
push bootini
|
|
call [SetFileAttributesA]
|
|
push bootini
|
|
push systitle
|
|
push mtldr_name
|
|
push mtldr_name
|
|
push mtldr_name
|
|
call [CharToOemA]
|
|
push osstr
|
|
call [WritePrivateProfileStringA]
|
|
xchg eax, [esp]
|
|
push eax
|
|
push bootini
|
|
call [SetFileAttributesA]
|
|
pop eax
|
|
test eax, eax
|
|
jnz suci
|
|
; failed, delete written mtldr
|
|
call delete_mtldr
|
|
push 10h
|
|
push ebx
|
|
push insterr
|
|
jmp mbx
|
|
suci:
|
|
push 40h
|
|
push suct
|
|
push succ
|
|
jmp mbx
|
|
|
|
install_9x:
|
|
mov al, [img_name]
|
|
or al, 20h
|
|
sub al, 'a'-1
|
|
mov byte [regs], al
|
|
push ebx
|
|
push ebx
|
|
push 3
|
|
push ebx
|
|
push 3
|
|
push 80000000h
|
|
push vwin32
|
|
call [CreateFileA]
|
|
inc eax
|
|
jz norights
|
|
dec eax
|
|
xchg eax, esi
|
|
push ebx
|
|
push tmp
|
|
push 28
|
|
push regs
|
|
push 28
|
|
push regs
|
|
push 1
|
|
push esi
|
|
call [DeviceIoControl]
|
|
push eax
|
|
push esi
|
|
call [CloseHandle]
|
|
pop eax
|
|
test eax, eax
|
|
@@: jz norights
|
|
mov al, [diskinfobuf+3]
|
|
cmp al, 0xFF
|
|
jz @b
|
|
cmp al, 80h
|
|
jb norights
|
|
mov [mtldr_code+7], al
|
|
cmp dword [diskinfobuf+12], 0
|
|
jnz m1e
|
|
mov eax, [diskinfobuf+8]
|
|
jmp install_cmn
|
|
|
|
install_9x_2:
|
|
push ebx
|
|
push ebx
|
|
push 3
|
|
push ebx
|
|
push 1
|
|
push 80000000h
|
|
push config
|
|
call [CreateFileA]
|
|
inc eax
|
|
jnz @f
|
|
ie2:
|
|
push 10h
|
|
push ebx
|
|
push insterr2
|
|
jmp mbx
|
|
@@:
|
|
dec eax
|
|
xchg eax, esi
|
|
push ebx
|
|
push esi
|
|
call [GetFileSize]
|
|
inc eax
|
|
jz ie2
|
|
dec eax
|
|
xchg eax, ebp
|
|
push 4
|
|
push 1000h
|
|
push ebp
|
|
push ebx
|
|
call [VirtualAlloc]
|
|
xchg eax, edi
|
|
test edi, edi
|
|
jz ie2
|
|
push ebx
|
|
push tmp
|
|
push ebp
|
|
push edi
|
|
push esi
|
|
call [ReadFile]
|
|
push esi
|
|
call [CloseHandle]
|
|
push ebx
|
|
push 80h
|
|
push 2
|
|
push ebx
|
|
push ebx
|
|
push 40000000h
|
|
push config
|
|
call [CreateFileA]
|
|
inc eax
|
|
jz ie2
|
|
dec eax
|
|
xchg eax, esi
|
|
mov eax, dword [edi]
|
|
or eax, 0x20202000
|
|
cmp eax, '[men'
|
|
jz menu
|
|
push ostitle
|
|
call [lstrlenA]
|
|
cmp eax, 17
|
|
ja bt1
|
|
push esi edi
|
|
mov esi, ostitle
|
|
mov edi, mtldr_code+23Ah
|
|
mov ecx, eax
|
|
rep movsb
|
|
mov dword [edi], '? [y'
|
|
mov dword [edi+4], '/n]:'
|
|
mov word [edi+8], ' '
|
|
pop edi esi
|
|
jmp ct1
|
|
bt1:
|
|
push img_real_name+3
|
|
call [lstrlenA]
|
|
add eax, mtldr_code_size+1+100h
|
|
mov word [mtldr_code+0x19], ax
|
|
ct1:
|
|
push ebx
|
|
push tmp
|
|
push 8
|
|
push install
|
|
push esi
|
|
call [WriteFile]
|
|
cfgd:
|
|
mov eax, mtldr_name
|
|
push eax
|
|
push eax
|
|
push eax
|
|
call [CharToOemA]
|
|
call [lstrlenA]
|
|
push ebx
|
|
push tmp
|
|
push eax
|
|
push mtldr_name
|
|
push esi
|
|
call [WriteFile]
|
|
push ebx
|
|
push tmp
|
|
push 2
|
|
push newline
|
|
push esi
|
|
call [WriteFile]
|
|
push ebx
|
|
push tmp
|
|
push ebp
|
|
push edi
|
|
push esi
|
|
call [WriteFile]
|
|
push esi
|
|
call [CloseHandle]
|
|
call write_mtldr1
|
|
push ostitle
|
|
call [lstrlenA]
|
|
cmp eax, 11
|
|
jbe @f
|
|
push ebx
|
|
push tmp
|
|
push ld2sz
|
|
push ld2
|
|
push esi
|
|
push ebx
|
|
push tmp
|
|
push eax
|
|
push ostitle
|
|
push esi
|
|
push ebx
|
|
push tmp
|
|
push ld1sz
|
|
push ld1
|
|
push esi
|
|
call [WriteFile]
|
|
call [WriteFile]
|
|
call [WriteFile]
|
|
@@:
|
|
push esi
|
|
call [CloseHandle]
|
|
jmp suci
|
|
menu:
|
|
push edi
|
|
or ecx, -1
|
|
mes:
|
|
mov al, 0xA
|
|
repnz scasb
|
|
cmp byte [edi], '['
|
|
jz med
|
|
cmp dword [edi], 'menu'
|
|
jnz mes
|
|
cmp dword [edi+4], 'item'
|
|
jnz mes
|
|
cmp byte [edi+8], '='
|
|
jnz mes
|
|
mov eax, [edi+9]
|
|
or eax, ' '
|
|
cmp eax, 'koli'
|
|
jnz mes
|
|
mov eax, [edi+13]
|
|
and eax, 0xFFFFFF
|
|
or eax, ' '
|
|
cmp eax, 'bri'
|
|
jnz mes
|
|
movzx eax, byte [edi+16]
|
|
or al, 0x20
|
|
mov [menuitems+eax], 1
|
|
jmp mes
|
|
med:
|
|
cmp word [edi-4], 0x0A0D
|
|
jnz @f
|
|
dec edi
|
|
dec edi
|
|
jmp med
|
|
@@:
|
|
sub edi, [esp]
|
|
push ebx
|
|
push tmp
|
|
push edi
|
|
push dword [esp+12]
|
|
push esi
|
|
call [WriteFile]
|
|
add [esp], edi
|
|
sub ebp, edi
|
|
mov ecx, 7
|
|
cmp [menuitems+0x20], 0
|
|
jnz @f
|
|
cmp [menuitems+','], 0
|
|
jz mef
|
|
@@:
|
|
mov eax, '0'
|
|
mel1:
|
|
cmp [menuitems+eax], 0
|
|
jz med1
|
|
inc eax
|
|
cmp al, '9'+1
|
|
jb mel1
|
|
jnz @f
|
|
mov al, 'a'
|
|
jmp mel1
|
|
@@:
|
|
cmp al, 'z'
|
|
jbe mel1
|
|
push ebx
|
|
push tmp
|
|
push ebp
|
|
push dword [esp+12]
|
|
push esi
|
|
call [WriteFile]
|
|
push esi
|
|
call [CloseHandle]
|
|
jmp nomx
|
|
med1:
|
|
mov [menuitem+7], al
|
|
mov ecx, 8
|
|
mef:
|
|
push ebx
|
|
push tmp
|
|
push ecx
|
|
push menuitem
|
|
push esi
|
|
push ebx
|
|
push tmp
|
|
push ecx
|
|
push menuitem
|
|
push esi
|
|
push ebx
|
|
push tmp
|
|
push 9
|
|
push mis
|
|
push esi
|
|
call [WriteFile]
|
|
call [WriteFile]
|
|
push ebx
|
|
push tmp
|
|
push title9xsz
|
|
push title9x
|
|
push esi
|
|
call [WriteFile]
|
|
push ebx
|
|
push tmp
|
|
push ostitle
|
|
call [lstrlenA]
|
|
push eax
|
|
push ostitle
|
|
push esi
|
|
call [WriteFile]
|
|
push ebx
|
|
push tmp
|
|
push title9x2sz
|
|
push title9x2
|
|
push esi
|
|
call [WriteFile]
|
|
call [WriteFile]
|
|
push ebx
|
|
push tmp
|
|
push 11
|
|
push sec9x2
|
|
push esi
|
|
call [WriteFile]
|
|
mov byte [mtldr_code+1], 37h
|
|
pop edi
|
|
jmp cfgd
|
|
|
|
install_vista:
|
|
push esi
|
|
call [CloseHandle]
|
|
mov edi, sbn
|
|
call adjust_privilege
|
|
mov edi, srn
|
|
call adjust_privilege
|
|
push ebx
|
|
push ebx
|
|
call [CoInitializeEx]
|
|
test eax, eax
|
|
js we
|
|
push ebx
|
|
push ebx
|
|
push ebx
|
|
push 3
|
|
push ebx
|
|
push ebx
|
|
push ebx
|
|
push -1
|
|
push ebx
|
|
call [CoInitializeSecurity]
|
|
test eax, eax
|
|
jns @f
|
|
we2:
|
|
call [CoUninitialize]
|
|
we:
|
|
call delete_mtldr
|
|
push 10h
|
|
push ebx
|
|
push wmierr
|
|
jmp mbx
|
|
@@:
|
|
push ebx
|
|
push esp
|
|
push IID_IWbemLocator
|
|
push 1
|
|
push ebx
|
|
push CLSID_WbemLocator
|
|
call [CoCreateInstance]
|
|
pop edi
|
|
test eax, eax
|
|
js we2
|
|
push ebx
|
|
push esp
|
|
push ebx
|
|
push ebx
|
|
push ebx
|
|
push ebx
|
|
push ebx
|
|
push ebx
|
|
push ns
|
|
push edi
|
|
mov esi, [edi]
|
|
call dword [esi+12]
|
|
push eax
|
|
push edi
|
|
call dword [esi+8]
|
|
pop eax
|
|
pop edi
|
|
test eax, eax
|
|
js we2
|
|
push ebx
|
|
push ebx
|
|
push 3
|
|
push 3
|
|
push ebx
|
|
push ebx
|
|
push 10
|
|
push edi
|
|
call [CoSetProxyBlanket]
|
|
test eax, eax
|
|
jns @f
|
|
we3:
|
|
mov eax, [edi]
|
|
push edi
|
|
call dword [eax+8]
|
|
jmp we2
|
|
@@:
|
|
xor esi, esi
|
|
push osp
|
|
push osn
|
|
push bs
|
|
call call_method
|
|
test eax, eax
|
|
js we3
|
|
mov esi, guid
|
|
mov ebp, menuitems
|
|
push esi
|
|
call [CoCreateGuid]
|
|
push 2000h/2
|
|
push ebp
|
|
push esi
|
|
call [StringFromGUID2]
|
|
mov esi, [varout+8]
|
|
push con
|
|
push bs
|
|
call call_method
|
|
jns @f
|
|
wecei:
|
|
mov ebp, coerr
|
|
wece:
|
|
mov eax, [esi]
|
|
push esi
|
|
call dword [eax+8]
|
|
mov eax, [edi]
|
|
push edi
|
|
call dword [eax+8]
|
|
call [CoUninitialize]
|
|
call delete_mtldr
|
|
push 10h
|
|
push ebx
|
|
push ebp
|
|
jmp mbx
|
|
@@:
|
|
pop eax
|
|
push esi
|
|
push eax
|
|
mov ebp, tmp_data
|
|
mov dword [vartmpstr+8], ebp
|
|
mov dword [vari32+8], 0x12000004
|
|
push 2000h/2
|
|
push ebp
|
|
push -1
|
|
push ostitle
|
|
push ebx
|
|
push ebx
|
|
call [MultiByteToWideChar]
|
|
mov esi, [varout+8]
|
|
push ssen
|
|
push bo
|
|
call call_method
|
|
mov ebp, setproperr
|
|
js wece2
|
|
sub dword [esp], 24
|
|
mov byte [vari32+8], 2
|
|
push 2000h/2
|
|
push tmp_data
|
|
push -1
|
|
push mtldr_name+2
|
|
push ebx
|
|
push ebx
|
|
call [MultiByteToWideChar]
|
|
push ssen
|
|
push bo
|
|
call call_method
|
|
js wece2
|
|
mov dword [vari32+8], 0x11000001
|
|
mov ecx, tmp_data
|
|
mov dword [ecx], '\' + ('?' shl 16)
|
|
mov dword [ecx+4], '?' + ('\' shl 16)
|
|
xor eax, eax
|
|
mov dword [ecx+12], eax
|
|
mov al, [mtldr_name+1]
|
|
shl eax, 16
|
|
mov al, [mtldr_name]
|
|
mov dword [ecx+8], eax
|
|
push spden
|
|
push bo
|
|
call call_method
|
|
js wece2
|
|
mov eax, [esi]
|
|
push esi
|
|
call dword [eax+8]
|
|
pop eax
|
|
pop esi
|
|
push eax
|
|
push oon
|
|
push bs
|
|
call call_method
|
|
mov ebp, orerr
|
|
js wece3
|
|
pop eax
|
|
push esi
|
|
push eax
|
|
mov esi, [varout+8]
|
|
mov dword [vari32+8], 0x24000001
|
|
push gen
|
|
push bo
|
|
call call_method
|
|
js wece2
|
|
push esi
|
|
mov esi, [varout+8]
|
|
push ebx
|
|
push ebx
|
|
push varout
|
|
push ebx
|
|
push idsn
|
|
mov eax, [esi]
|
|
push esi
|
|
call dword [eax+16]
|
|
push eax
|
|
mov eax, [esi]
|
|
push esi
|
|
call dword [eax+8]
|
|
pop eax
|
|
pop esi
|
|
test eax, eax
|
|
js wece2
|
|
push esi
|
|
cmp word [varout], 2008h
|
|
jnz wece4
|
|
mov esi, [varout+8]
|
|
cmp word [esi], 1
|
|
jnz wece4
|
|
push dword [esi+20]
|
|
mov eax, [esi+16]
|
|
inc eax
|
|
push eax
|
|
push esp
|
|
push esi
|
|
call [SafeArrayRedim]
|
|
pop ecx
|
|
pop ecx
|
|
test eax, eax
|
|
js wece4
|
|
push menuitems
|
|
call [SysAllocString]
|
|
test eax, eax
|
|
jz wece4
|
|
push eax
|
|
mov ecx, [esi+16]
|
|
add ecx, [esi+20]
|
|
dec ecx
|
|
push ecx
|
|
mov ecx, esp
|
|
push eax
|
|
push ecx
|
|
push esi
|
|
call [SafeArrayPutElement]
|
|
pop ecx
|
|
call [SysFreeString]
|
|
pop esi
|
|
push solen
|
|
push bo
|
|
call call_method
|
|
js wece2
|
|
push varout
|
|
call [VariantClear]
|
|
mov eax, [esi]
|
|
push esi
|
|
call dword [eax+8]
|
|
pop eax
|
|
pop esi
|
|
mov eax, [esi]
|
|
push esi
|
|
call dword [eax+8]
|
|
mov eax, [edi]
|
|
push edi
|
|
call dword [eax+8]
|
|
call [CoUninitialize]
|
|
jmp suci
|
|
wece4:
|
|
pop esi
|
|
wece2:
|
|
mov eax, [esi]
|
|
push esi
|
|
call dword [eax+8]
|
|
pop eax
|
|
pop esi
|
|
push eax
|
|
wece3:
|
|
mov dword [vartmpstr+8], menuitems
|
|
pop eax
|
|
push dop
|
|
push don
|
|
push bs
|
|
call call_method
|
|
pop eax
|
|
jmp wece
|
|
|
|
write_mtldr1:
|
|
push ebx
|
|
push 80h
|
|
push 2
|
|
push ebx
|
|
push ebx
|
|
push 40000000h
|
|
push mtldr_name
|
|
call [CreateFileA]
|
|
inc eax
|
|
jnz @f
|
|
push 10h
|
|
push ebx
|
|
push noc
|
|
jmp mbx
|
|
@@:
|
|
dec eax
|
|
xchg eax, esi
|
|
push ebx
|
|
push tmp
|
|
push mtldr_code_size
|
|
push mtldr_code
|
|
push esi
|
|
call [WriteFile]
|
|
push img_real_name
|
|
push img_real_name
|
|
call [CharToOemA]
|
|
mov edi, img_real_name+3
|
|
push edi
|
|
call [lstrlenA]
|
|
inc eax
|
|
push eax
|
|
push ebx
|
|
push tmp
|
|
push eax
|
|
push edi
|
|
push esi
|
|
call [WriteFile]
|
|
pop ecx
|
|
ret
|
|
delete_mtldr:
|
|
push mtldr_name
|
|
push mtldr_name
|
|
push mtldr_name
|
|
call [OemToCharA]
|
|
call [DeleteFileA]
|
|
ret
|
|
|
|
adjust_privilege:
|
|
cmp [advapi32], 0
|
|
jnz @f
|
|
push advapi32_name
|
|
call [LoadLibraryA]
|
|
mov [advapi32], eax
|
|
mov esi, eax
|
|
test esi, esi
|
|
jz ape
|
|
push opts
|
|
push esi
|
|
call [GetProcAddress]
|
|
mov [OpenProcessToken], eax
|
|
test eax, eax
|
|
jz ape
|
|
push lpvs
|
|
push esi
|
|
call [GetProcAddress]
|
|
mov [LookupPrivilegeValueA], eax
|
|
test eax, eax
|
|
jz ape
|
|
push atps
|
|
push esi
|
|
call [GetProcAddress]
|
|
mov [AdjustTokenPrivileges], eax
|
|
test eax, eax
|
|
jz ape
|
|
@@:
|
|
push ebx
|
|
push esp
|
|
push 28h
|
|
call [GetCurrentProcess]
|
|
push eax
|
|
call [OpenProcessToken]
|
|
test eax, eax
|
|
pop esi
|
|
jz ape
|
|
push 2
|
|
push ebx
|
|
push ebx
|
|
mov eax, esp
|
|
push 1
|
|
push eax
|
|
push edi
|
|
push ebx
|
|
call [LookupPrivilegeValueA]
|
|
test eax, eax
|
|
jz ape2
|
|
mov eax, esp
|
|
push ebx
|
|
push ebx
|
|
push ebx
|
|
push eax
|
|
push ebx
|
|
push esi
|
|
call [AdjustTokenPrivileges]
|
|
test eax, eax
|
|
jz ape2
|
|
add esp, 10h
|
|
push esi
|
|
call [CloseHandle]
|
|
ret
|
|
ape2:
|
|
add esp, 10h
|
|
push esi
|
|
call [CloseHandle]
|
|
ape:
|
|
push 10h
|
|
push ebx
|
|
push apf
|
|
jmp mbx
|
|
|
|
call_method:
|
|
push ebx
|
|
mov eax, esp
|
|
push ebx
|
|
push eax
|
|
push ebx
|
|
push ebx
|
|
push dword [eax+8]
|
|
mov eax, [edi]
|
|
push edi
|
|
call dword [eax+24]
|
|
xchg edi, [esp]
|
|
test eax, eax
|
|
js r
|
|
push ebx
|
|
mov eax, esp
|
|
push ebx
|
|
push eax
|
|
push ebx
|
|
push dword [eax+16]
|
|
mov eax, [edi]
|
|
push edi
|
|
call dword [eax+76]
|
|
push eax
|
|
mov eax, [edi]
|
|
push edi
|
|
call dword [eax+8]
|
|
pop eax
|
|
pop edi
|
|
test eax, eax
|
|
js r
|
|
push ebx
|
|
push esp
|
|
push ebx
|
|
mov eax, [edi]
|
|
push edi
|
|
call dword [eax+60]
|
|
push eax
|
|
mov eax, [edi]
|
|
push edi
|
|
call dword [eax+8]
|
|
pop eax
|
|
pop edi
|
|
test eax, eax
|
|
js r
|
|
cml1:
|
|
mov eax, [esp+16]
|
|
add dword [esp+16], 8
|
|
cmp dword [eax], 0
|
|
jz cme1
|
|
push ebx
|
|
push dword [eax+4]
|
|
push ebx
|
|
push dword [eax]
|
|
mov eax, [edi]
|
|
push edi
|
|
call dword [eax+20]
|
|
test eax, eax
|
|
js r2
|
|
jmp cml1
|
|
cme1:
|
|
and dword [varout], 0
|
|
mov ecx, [esp+8]
|
|
test esi, esi
|
|
jz cms
|
|
push ebx
|
|
push ebx
|
|
push varout
|
|
push ebx
|
|
push rpn
|
|
mov eax, [esi]
|
|
push esi
|
|
call dword [eax+16]
|
|
test eax, eax
|
|
js r2
|
|
cmp word [varout], 8
|
|
jnz r2
|
|
mov ecx, [varout+8]
|
|
cms:
|
|
pop edx
|
|
push edx
|
|
push ebx
|
|
mov eax, esp
|
|
push ebx
|
|
push eax
|
|
push edi
|
|
push ebx
|
|
push ebx
|
|
push dword [eax+16]
|
|
push ecx
|
|
mov eax, [edx]
|
|
push edx
|
|
call dword [eax+96]
|
|
push eax
|
|
mov eax, [edi]
|
|
push edi
|
|
call dword [eax+8]
|
|
push varout
|
|
call [VariantClear]
|
|
pop eax
|
|
pop edi
|
|
test eax, eax
|
|
js r
|
|
push ebx
|
|
push ebx
|
|
push varout
|
|
push ebx
|
|
push retvaln
|
|
mov eax, [edi]
|
|
push edi
|
|
call dword [eax+16]
|
|
test eax, eax
|
|
js r2
|
|
mov eax, 80000000h
|
|
cmp word [varout], 11
|
|
jnz r2
|
|
cmp word [varout+8], 0
|
|
jz r2
|
|
mov eax, [esp+16]
|
|
mov eax, [eax-4]
|
|
test eax, eax
|
|
jz r2
|
|
push ebx
|
|
push ebx
|
|
push varout
|
|
push ebx
|
|
push eax
|
|
mov eax, [edi]
|
|
push edi
|
|
call dword [eax+16]
|
|
test eax, eax
|
|
js r2
|
|
cmp word [varout], 13
|
|
setnz al
|
|
shl eax, 31
|
|
r2:
|
|
push eax
|
|
mov eax, [edi]
|
|
push edi
|
|
call dword [eax+8]
|
|
pop eax
|
|
r:
|
|
pop edi
|
|
test eax, eax
|
|
ret 8
|
|
|
|
ofn_hook:
|
|
cmp dword [esp+8], 2
|
|
jnz @f
|
|
push 260
|
|
push ostitle
|
|
push 23
|
|
push dword [esp+12+4]
|
|
call [GetDlgItemTextA]
|
|
@@:
|
|
xor eax, eax
|
|
ret 10h
|
|
|
|
section '.data' data readable writable
|
|
data resource from 'rsrc.res'
|
|
end data
|
|
|
|
align 4
|
|
ofn:
|
|
dd 76
|
|
dd 0
|
|
dd ofn_title_template
|
|
dd filter
|
|
dd 0
|
|
dd 0
|
|
dd 0
|
|
dd img_name
|
|
dd 100h
|
|
dd 0
|
|
dd 0
|
|
dd 0
|
|
dd ofn_title
|
|
dd 818A4h
|
|
dd 0
|
|
dd aImg
|
|
dd 0
|
|
dd ofn_hook
|
|
dd 0
|
|
ofn_title_template:
|
|
dw 1,-1
|
|
dd 0
|
|
dd 0
|
|
dd 56000444h
|
|
dw 2
|
|
dw 0,0,275,28
|
|
dw 0,0,0
|
|
dw 8
|
|
dd 0
|
|
du 'MS Sans Serif',0
|
|
align 4
|
|
dd 0
|
|
dd 0
|
|
dd 50010000h
|
|
dw 5,12,45,9
|
|
dw -1
|
|
dw 0
|
|
dw -1,82h
|
|
du 'Title:',0
|
|
dw 0
|
|
align 4
|
|
dd 0
|
|
dd 204h
|
|
dd 50010080h
|
|
dw 54,10,218,12
|
|
dw 23
|
|
dw 0
|
|
dw -1,81h
|
|
du 'KolibriOS',0
|
|
dw 0
|
|
|
|
filter db 'Image files (*.img)',0,'*.img',0,'All files',0,'*.*',0,0
|
|
ofn_title db 'Select KolibriOS image file',0
|
|
aImg db 'img',0
|
|
norightsmsg db 'Cannot query drive info.',10
|
|
db 'Probably it is invalid drive or you are not administrator',0
|
|
nohd db 'Image must be on hard disk!',0
|
|
m1 db 'Please mail to diamondz@land.ru',0
|
|
nom db "Too many mtldr's found!",0
|
|
noc db 'Cannot create mtldr file!',0
|
|
osstr db 'operating systems',0
|
|
bootini db 'c:\boot.ini',0
|
|
insterr db 'Cannot write to boot.ini. Probably you are not administrator.',0
|
|
insterr2 db 'Cannot open config.sys',0
|
|
ptl db 'Path is too long',0
|
|
succ db 'Installation successful!',0
|
|
suct db 'Success',0
|
|
vwin32 db '\\.\vwin32',0
|
|
config db 'C:\config.sys',0
|
|
sec9x2 db ']',13,10
|
|
install db 'install='
|
|
newline db 13,10
|
|
menuitem db 'kolibri',0
|
|
mis db 'menuitem='
|
|
title9x db ',Load '
|
|
title9xsz = $ - title9x
|
|
title9x2 db 13,10,13,10,'['
|
|
title9x2sz = $ - title9x2
|
|
ld1 db 'Load '
|
|
ld1sz = $ - ld1
|
|
ld2 db '? [y/n]: ',0
|
|
ld2sz = $ - ld2
|
|
apf db 'Cannot adjust backup and restore privileges',0
|
|
opts db 'OpenProcessToken',0
|
|
lpvs db 'LookupPrivilegeValueA',0
|
|
atps db 'AdjustTokenPrivileges',0
|
|
sbn db 'SeBackupPrivilege',0
|
|
srn db 'SeRestorePrivilege',0
|
|
wmierr db 'BCD WMI API: initialization error',0
|
|
coerr db 'Cannot create BCD object for KolibriOS loader',0
|
|
setproperr db 'Cannot create BCD element in object for KolibriOS loader',0
|
|
orerr db 'Cannot add KolibriOS loader in BCD display list',0
|
|
ns du 'root\wmi',0
|
|
retvaln du 'ReturnValue'
|
|
emptystr du 0
|
|
rpn du '__Relpath',0
|
|
bs du 'BcdStore',0
|
|
bo du 'BcdObject',0
|
|
osn du 'OpenStore',0
|
|
con du 'CreateObject',0
|
|
don du 'DeleteObject',0
|
|
oon du 'OpenObject',0
|
|
ssen du 'SetStringElement',0
|
|
spden du 'SetPartitionDeviceElement',0
|
|
gen du 'GetElement',0
|
|
solen du 'SetObjectListElement',0
|
|
fn du 'File',0
|
|
storen du 'Store',0
|
|
idn du 'Id',0
|
|
idsn du 'Ids',0
|
|
tn du 'Type',0
|
|
obn du 'Object',0
|
|
sn du 'String',0
|
|
dtn du 'DeviceType',0
|
|
aon du 'AdditionalOptions',0
|
|
pn du 'Path',0
|
|
en du 'Element',0
|
|
bg du '{9dea862c-5cdd-4e70-acc1-f32b344d4795}',0
|
|
|
|
align 4
|
|
advapi32 dd 0
|
|
|
|
regs:
|
|
dd 0
|
|
dd diskinfobuf
|
|
dd 86Fh
|
|
dd 440Dh
|
|
dd 0
|
|
dd 0
|
|
dd 1
|
|
|
|
diskinfobuf:
|
|
db 10h,0,0,0FFh
|
|
times 0Ch db 0
|
|
|
|
IID_IWbemLocator:
|
|
dd 0DC12A687h
|
|
dw 737Fh
|
|
dw 11CFh
|
|
db 88h, 4Dh, 00h, 0AAh, 00h, 4Bh, 2Eh, 24h
|
|
CLSID_WbemLocator:
|
|
dd 4590F811h
|
|
dw 1D3Ah
|
|
dw 11D0h
|
|
db 89h, 1Fh, 00h, 0AAh, 00h, 4Bh, 2Eh, 24h
|
|
IID_IWbemClassObject:
|
|
dd 0DC12A681h
|
|
dw 737Fh
|
|
dw 11CFh
|
|
db 88h, 4Dh, 00h, 0AAh, 00h, 4Bh, 2Eh, 24h
|
|
varemptystr:
|
|
dd 8, 0, emptystr, 0
|
|
vartmpstr:
|
|
dd 8, 0, menuitems, 0
|
|
varbootmgr:
|
|
dd 8, 0, bg, 0
|
|
vari32:
|
|
dd 3, 0, 10400008h, 0
|
|
vari32_pd:
|
|
dd 3, 0, 2, 0
|
|
osp:
|
|
dd fn, varemptystr
|
|
dd 0, storen
|
|
dd idn, vartmpstr
|
|
dd tn, vari32
|
|
dd 0, obn
|
|
dd tn, vari32
|
|
dd sn, vartmpstr
|
|
dd 0, 0
|
|
dd tn, vari32
|
|
dd dtn, vari32_pd
|
|
dd aon, varemptystr
|
|
dd pn, vartmpstr
|
|
dd 0, 0
|
|
dd idn, varbootmgr
|
|
dd 0, obn
|
|
dd tn, vari32
|
|
dd 0, en
|
|
dd tn, vari32
|
|
dd idsn, varout
|
|
dd 0, 0
|
|
|
|
dop:
|
|
dd idn, vartmpstr
|
|
dd 0, 0
|
|
|
|
data import
|
|
macro thunk a
|
|
{a#_thunk:dw 0
|
|
db `a,0}
|
|
dd 0,0,0, rva kernel32_name, rva kernel32_thunks
|
|
dd 0,0,0, rva user32_name, rva user32_thunks
|
|
dd 0,0,0, rva comdlg32_name, rva comdlg32_thunks
|
|
dd 0,0,0, rva ole32_name, rva ole32_thunks
|
|
dd 0,0,0, rva oleaut32_name, rva oleaut32_thunks
|
|
dd 0,0,0,0,0
|
|
kernel32_name db 'kernel32.dll',0
|
|
user32_name db 'user32.dll',0
|
|
advapi32_name db 'advapi32.dll',0
|
|
comdlg32_name db 'comdlg32.dll',0
|
|
ole32_name db 'ole32.dll',0
|
|
oleaut32_name db 'oleaut32.dll',0
|
|
|
|
kernel32_thunks:
|
|
GetVersion dd rva GetVersion_thunk
|
|
CreateFileA dd rva CreateFileA_thunk
|
|
DeviceIoControl dd rva DeviceIoControl_thunk
|
|
CloseHandle dd rva CloseHandle_thunk
|
|
GetFileAttributesA dd rva GetFileAttributesA_thunk
|
|
SetFileAttributesA dd rva SetFileAttributesA_thunk
|
|
GetLastError dd rva GetLastError_thunk
|
|
ReadFile dd rva ReadFile_thunk
|
|
WriteFile dd rva WriteFile_thunk
|
|
ExitProcess dd rva ExitProcess_thunk
|
|
WritePrivateProfileStringA dd rva WritePrivateProfileStringA_thunk
|
|
GetShortPathNameA dd rva GetShortPathNameA_thunk
|
|
lstrlenA dd rva lstrlenA_thunk
|
|
VirtualAlloc dd rva VirtualAlloc_thunk
|
|
GetFileSize dd rva GetFileSize_thunk
|
|
DeleteFileA dd rva DeleteFileA_thunk
|
|
MultiByteToWideChar dd rva MultiByteToWideChar_thunk
|
|
GetCurrentProcess dd rva GetCurrentProcess_thunk
|
|
LoadLibraryA dd rva LoadLibraryA_thunk
|
|
GetProcAddress dd rva GetProcAddress_thunk
|
|
dw 0
|
|
thunk GetVersion
|
|
thunk CreateFileA
|
|
thunk DeviceIoControl
|
|
thunk CloseHandle
|
|
thunk GetFileAttributesA
|
|
thunk SetFileAttributesA
|
|
thunk GetLastError
|
|
thunk ReadFile
|
|
thunk WriteFile
|
|
thunk ExitProcess
|
|
thunk WritePrivateProfileStringA
|
|
thunk GetShortPathNameA
|
|
thunk lstrlenA
|
|
thunk VirtualAlloc
|
|
thunk GetFileSize
|
|
thunk DeleteFileA
|
|
thunk MultiByteToWideChar
|
|
thunk GetCurrentProcess
|
|
thunk LoadLibraryA
|
|
thunk GetProcAddress
|
|
|
|
user32_thunks:
|
|
MessageBoxA dd rva MessageBoxA_thunk
|
|
CharToOemA dd rva CharToOemA_thunk
|
|
OemToCharA dd rva OemToCharA_thunk
|
|
GetDlgItemTextA dd rva GetDlgItemTextA_thunk
|
|
dw 0
|
|
thunk MessageBoxA
|
|
thunk CharToOemA
|
|
thunk OemToCharA
|
|
thunk GetDlgItemTextA
|
|
|
|
comdlg32_thunks:
|
|
GetOpenFileNameA dd rva GetOpenFileNameA_thunk
|
|
dw 0
|
|
thunk GetOpenFileNameA
|
|
|
|
ole32_thunks:
|
|
CoInitializeEx dd rva CoInitializeEx_thunk
|
|
CoUninitialize dd rva CoUninitialize_thunk
|
|
CoInitializeSecurity dd rva CoInitializeSecurity_thunk
|
|
CoCreateInstance dd rva CoCreateInstance_thunk
|
|
CoSetProxyBlanket dd rva CoSetProxyBlanket_thunk
|
|
CoCreateGuid dd rva CoCreateGuid_thunk
|
|
StringFromGUID2 dd rva StringFromGUID2_thunk
|
|
dw 0
|
|
thunk CoInitializeEx
|
|
thunk CoUninitialize
|
|
thunk CoInitializeSecurity
|
|
thunk CoCreateInstance
|
|
thunk CoSetProxyBlanket
|
|
thunk CoCreateGuid
|
|
thunk StringFromGUID2
|
|
|
|
oleaut32_thunks:
|
|
VariantClear dd rva VariantClear_thunk
|
|
SafeArrayRedim dd rva SafeArrayRedim_thunk
|
|
SafeArrayPutElement dd rva SafeArrayPutElement_thunk
|
|
SysAllocString dd rva SysAllocString_thunk
|
|
SysFreeString dd rva SysFreeString_thunk
|
|
dw 0
|
|
thunk VariantClear
|
|
thunk SafeArrayRedim
|
|
thunk SafeArrayPutElement
|
|
thunk SysAllocString
|
|
thunk SysFreeString
|
|
end data
|
|
|
|
mtldr_code:
|
|
file 'mtldr_for_installer'
|
|
mtldr_code_size = $ - mtldr_code
|
|
|
|
dn db '\\.\'
|
|
img_name rb 256
|
|
img_real_name rb 256
|
|
mtldr_name rb 256
|
|
tmp_data rb 2000h
|
|
ostitle rb 260
|
|
systitle rb 262
|
|
|
|
align 4
|
|
OpenProcessToken dd ?
|
|
LookupPrivilegeValueA dd ?
|
|
AdjustTokenPrivileges dd ?
|
|
tmp dd ?
|
|
sdn rd 3
|
|
pi rd 8
|
|
varout rd 4
|
|
guid rd 4
|
|
b9x db ?
|
|
menuitems rb 100h
|