- -没人知道？

看VM的例子,有给ASM加壳的啊

dlgproc proc hWin:DWORD,uMsg:DWORD,wParam:DWORD,lParam:DWORD

    local buffer[100]:BYTE

    .if uMsg == WM_COMMAND
      .if wParam == IDC_CHECKPASSWORD
        VMProtectBegin   
        invoke GetDlgItemText,hWin,IDC_PASSWORD,addr buffer,sizeof buffer
        invoke atodw, addr buffer
        cdq
        mov ecx, 17
        idiv ecx
        .if edx == 13
          invoke MessageBox,hWin,SADD("Correct password"),SADD("Information"),MB_ICONINFORMATION or MB_OK
        .else
          invoke MessageBox,hWin,SADD("Incorrect password"),SADD("Error"),MB_ICONERROR or MB_OK
          invoke GetDlgItem,hWin,IDC_PASSWORD
             invoke SetFocus,eax
        .endif
       VMProtectEnd
      .endif

    .elseif uMsg == WM_CLOSE
      invoke EndDialog,hWin,0

    .endif

    xor eax, eax
    ret

dlgproc endp