/**
* Yasm style.
*
* @param pState The disassembler state.
*/
static void MyDisasYasmFormatter(PMYDISSTATE pState)
{
char szTmp[256];
#if 0
/* a very quick hack. */
strcpy(szTmp, RTStrStripL(strchr(pState->szLine, ':') + 1));
char *psz = strrchr(szTmp, '[');
*psz = '\0';
RTStrStripR(szTmp);
psz = strstr(szTmp, " ptr ");
if (psz)
memset(psz, ' ', 5);
char *pszEnd = strchr(szTmp, '\0');
while (pszEnd - &szTmp[0] < 71)
*pszEnd++ = ' ';
*pszEnd = '\0';
#else
size_t cch = DISFormatYasmEx(&pState->Dis, szTmp, sizeof(szTmp),
DIS_FMT_FLAGS_STRICT | DIS_FMT_FLAGS_ADDR_RIGHT | DIS_FMT_FLAGS_ADDR_COMMENT
| DIS_FMT_FLAGS_BYTES_RIGHT | DIS_FMT_FLAGS_BYTES_COMMENT | DIS_FMT_FLAGS_BYTES_SPACED,
NULL, NULL);
Assert(cch < sizeof(szTmp));
while (cch < 71)
szTmp[cch++] = ' ';
szTmp[cch] = '\0';
#endif
RTPrintf(" %s ; %s", szTmp, pState->szLine);
}
static void testDisas(const char *pszSub, uint8_t const *pabInstrs, uintptr_t uEndPtr, DISCPUMODE enmDisCpuMode)
{
RTTestISub(pszSub);
size_t const cbInstrs = uEndPtr - (uintptr_t)pabInstrs;
for (size_t off = 0; off < cbInstrs;)
{
uint32_t const cErrBefore = RTTestIErrorCount();
uint32_t cb = 1;
DISSTATE Dis;
char szOutput[256] = {0};
int rc = DISInstrToStr(&pabInstrs[off], enmDisCpuMode, &Dis, &cb, szOutput, sizeof(szOutput));
RTTESTI_CHECK_RC(rc, VINF_SUCCESS);
RTTESTI_CHECK(cb == Dis.cbInstr);
RTTESTI_CHECK(cb > 0);
RTTESTI_CHECK(cb <= 16);
RTStrStripR(szOutput);
RTTESTI_CHECK(szOutput[0]);
if (szOutput[0])
{
char *pszBytes = strchr(szOutput, '[');
RTTESTI_CHECK(pszBytes);
if (pszBytes)
{
RTTESTI_CHECK(pszBytes[-1] == ' ');
RTTESTI_CHECK(RT_C_IS_XDIGIT(pszBytes[1]));
RTTESTI_CHECK(pszBytes[cb * 3] == ']');
RTTESTI_CHECK(pszBytes[cb * 3 + 1] == ' ');
size_t cch = strlen(szOutput);
RTTESTI_CHECK(szOutput[cch - 1] != ',');
}
}
if (cErrBefore != RTTestIErrorCount())
RTTestIFailureDetails("rc=%Rrc, off=%#x (%u) cbInstr=%u enmDisCpuMode=%d\n",
rc, off, Dis.cbInstr, enmDisCpuMode);
RTTestIPrintf(RTTESTLVL_ALWAYS, "%s\n", szOutput);
/* Check with size-only. */
uint32_t cbOnly = 1;
DISSTATE DisOnly;
rc = DISInstrWithPrefetchedBytes((uintptr_t)&pabInstrs[off], enmDisCpuMode, 0 /*fFilter - none */,
Dis.abInstr, Dis.cbCachedInstr, NULL, NULL, &DisOnly, &cbOnly);
RTTESTI_CHECK_RC(rc, VINF_SUCCESS);
RTTESTI_CHECK(cbOnly == DisOnly.cbInstr);
RTTESTI_CHECK_MSG(cbOnly == cb, ("%#x vs %#x\n", cbOnly, cb));
off += cb;
}
}
static int scriptDtrReg(PVM pVM, char *pszVar, char *pszValue, void *pvUser)
{
NOREF(pszVar);
char *pszPart2 = strchr(pszValue, ':');
if (!pszPart2)
return -1;
*pszPart2++ = '\0';
pszPart2 = RTStrStripL(pszPart2);
pszValue = RTStrStripR(pszValue);
uint32_t u32;
int rc = RTStrToUInt32Ex(pszValue, NULL, 16, &u32);
if (RT_FAILURE(rc))
return rc;
uint16_t u16;
rc = RTStrToUInt16Ex(pszPart2, NULL, 16, &u16);
if (RT_FAILURE(rc))
return rc;
return ((PFNSETGUESTDTR)(uintptr_t)pvUser)(pVM, u32, u16);
}
/**
* Services the RTSYSOSINFO_PRODUCT, RTSYSOSINFO_RELEASE
* and RTSYSOSINFO_SERVICE_PACK requests.
*
* @returns See RTSystemQueryOSInfo.
* @param enmInfo See RTSystemQueryOSInfo.
* @param pszInfo See RTSystemQueryOSInfo.
* @param cchInfo See RTSystemQueryOSInfo.
*/
static int rtSystemWinQueryOSVersion(RTSYSOSINFO enmInfo, char *pszInfo, size_t cchInfo)
{
/*
* Make sure it's terminated correctly in case of error.
*/
*pszInfo = '\0';
/*
* Check that we got the windows version at init time.
*/
AssertReturn(g_WinOsInfoEx.dwOSVersionInfoSize, VERR_WRONG_ORDER);
/*
* Service the request.
*/
char szTmp[512];
szTmp[0] = '\0';
switch (enmInfo)
{
/*
* The product name.
*/
case RTSYSOSINFO_PRODUCT:
{
switch (g_enmWinVer)
{
case kRTWinOSType_95: strcpy(szTmp, "Windows 95"); break;
case kRTWinOSType_95SP1: strcpy(szTmp, "Windows 95 (Service Pack 1)"); break;
case kRTWinOSType_95OSR2: strcpy(szTmp, "Windows 95 (OSR 2)"); break;
case kRTWinOSType_98: strcpy(szTmp, "Windows 98"); break;
case kRTWinOSType_98SP1: strcpy(szTmp, "Windows 98 (Service Pack 1)"); break;
case kRTWinOSType_98SE: strcpy(szTmp, "Windows 98 (Second Edition)"); break;
case kRTWinOSType_ME: strcpy(szTmp, "Windows Me"); break;
case kRTWinOSType_NT351: strcpy(szTmp, "Windows NT 3.51"); break;
case kRTWinOSType_NT4: strcpy(szTmp, "Windows NT 4.0"); break;
case kRTWinOSType_2K: strcpy(szTmp, "Windows 2000"); break;
case kRTWinOSType_XP:
strcpy(szTmp, "Windows XP");
if (g_WinOsInfoEx.wSuiteMask & VER_SUITE_PERSONAL)
strcat(szTmp, " Home");
if ( g_WinOsInfoEx.wProductType == VER_NT_WORKSTATION
&& !(g_WinOsInfoEx.wSuiteMask & VER_SUITE_PERSONAL))
strcat(szTmp, " Professional");
#if 0 /** @todo fixme */
if (GetSystemMetrics(SM_MEDIACENTER))
strcat(szTmp, " Media Center");
#endif
break;
case kRTWinOSType_2003: strcpy(szTmp, "Windows 2003"); break;
case kRTWinOSType_VISTA:
{
strcpy(szTmp, "Windows Vista");
rtSystemWinAppendProductType(szTmp);
break;
}
case kRTWinOSType_2008: strcpy(szTmp, "Windows 2008"); break;
case kRTWinOSType_7: strcpy(szTmp, "Windows 7"); break;
case kRTWinOSType_2008R2: strcpy(szTmp, "Windows 2008 R2"); break;
case kRTWinOSType_8: strcpy(szTmp, "Windows 8"); break;
case kRTWinOSType_2012: strcpy(szTmp, "Windows 2012"); break;
case kRTWinOSType_81: strcpy(szTmp, "Windows 8.1"); break;
case kRTWinOSType_2012R2: strcpy(szTmp, "Windows 2012 R2"); break;
case kRTWinOSType_10: strcpy(szTmp, "Windows 10"); break;
case kRTWinOSType_2016: strcpy(szTmp, "Windows 2016"); break;
case kRTWinOSType_NT_UNKNOWN:
RTStrPrintf(szTmp, sizeof(szTmp), "Unknown NT v%u.%u",
g_WinOsInfoEx.dwMajorVersion, g_WinOsInfoEx.dwMinorVersion);
break;
default:
AssertFailed();
case kRTWinOSType_UNKNOWN:
RTStrPrintf(szTmp, sizeof(szTmp), "Unknown %d v%u.%u",
g_WinOsInfoEx.dwPlatformId, g_WinOsInfoEx.dwMajorVersion, g_WinOsInfoEx.dwMinorVersion);
break;
}
break;
}
/*
* The release.
*/
case RTSYSOSINFO_RELEASE:
{
RTStrPrintf(szTmp, sizeof(szTmp), "%u.%u.%u",
g_WinOsInfoEx.dwMajorVersion, g_WinOsInfoEx.dwMinorVersion, g_WinOsInfoEx.dwBuildNumber);
break;
}
/*
* Get the service pack.
*/
case RTSYSOSINFO_SERVICE_PACK:
{
if (g_WinOsInfoEx.wServicePackMajor)
{
if (g_WinOsInfoEx.wServicePackMinor)
RTStrPrintf(szTmp, sizeof(szTmp), "%u.%u",
(unsigned)g_WinOsInfoEx.wServicePackMajor, (unsigned)g_WinOsInfoEx.wServicePackMinor);
else
RTStrPrintf(szTmp, sizeof(szTmp), "%u",
(unsigned)g_WinOsInfoEx.wServicePackMajor);
}
else if (g_WinOsInfoEx.szCSDVersion[0])
{
/* just copy the entire string. */
char *pszTmp = szTmp;
int rc = RTUtf16ToUtf8Ex(g_WinOsInfoEx.szCSDVersion, RT_ELEMENTS(g_WinOsInfoEx.szCSDVersion),
&pszTmp, sizeof(szTmp), NULL);
if (RT_SUCCESS(rc))
RTStrStripR(szTmp);
else
szTmp[0] = '\0';
AssertCompile(sizeof(szTmp) > sizeof(g_WinOsInfoEx.szCSDVersion));
}
else
{
switch (g_enmWinVer)
{
case kRTWinOSType_95SP1: strcpy(szTmp, "1"); break;
case kRTWinOSType_98SP1: strcpy(szTmp, "1"); break;
default:
break;
}
}
break;
}
default:
AssertFatalFailed();
}
/*
* Copy the result to the return buffer.
*/
size_t cchTmp = strlen(szTmp);
Assert(cchTmp < sizeof(szTmp));
if (cchTmp < cchInfo)
{
memcpy(pszInfo, szTmp, cchTmp + 1);
return VINF_SUCCESS;
}
memcpy(pszInfo, szTmp, cchInfo - 1);
pszInfo[cchInfo - 1] = '\0';
return VERR_BUFFER_OVERFLOW;
}
/**
* Special entrypoint used by the hardening code when something goes south.
*
* Display an error dialog to the user.
*
* @param pszWhere Indicates where the error occured.
* @param enmWhat Indicates what init operation was going on at the time.
* @param rc The VBox status code corresponding to the error.
* @param pszMsgFmt The message format string.
* @param va Format arguments.
*/
extern "C" DECLEXPORT(void) TrustedError(const char *pszWhere, SUPINITOP enmWhat, int rc, const char *pszMsgFmt, va_list va)
{
# ifdef VBOX_WS_MAC
/* Hide setuid root from AppKit: */
HideSetUidRootFromAppKit();
# endif /* VBOX_WS_MAC */
char szMsgBuf[_16K];
/*
* We have to create QApplication anyway just to show the only one error-message.
* This is a bit hackish as we don't have the argument vector handy.
*/
int argc = 0;
char *argv[2] = { NULL, NULL };
QApplication a(argc, &argv[0]);
/*
* The details starts off a properly formatted rc and where/what, we use
* the szMsgBuf for this, thus this have to come before the actual message
* formatting.
*/
RTStrPrintf(szMsgBuf, sizeof(szMsgBuf),
"<!--EOM-->"
"where: %s\n"
"what: %d\n"
"%Rra\n",
pszWhere, enmWhat, rc);
QString strDetails = szMsgBuf;
/*
* Format the error message. Take whatever comes after a double new line as
* something better off in the details section.
*/
RTStrPrintfV(szMsgBuf, sizeof(szMsgBuf), pszMsgFmt, va);
char *pszDetails = strstr(szMsgBuf, "\n\n");
if (pszDetails)
{
while (RT_C_IS_SPACE(*pszDetails))
*pszDetails++ = '\0';
if (*pszDetails)
{
strDetails += "\n";
strDetails += pszDetails;
}
RTStrStripR(szMsgBuf);
}
QString strText = QApplication::tr("<html><b>%1 (rc=%2)</b><br/><br/>").arg(szMsgBuf).arg(rc);
strText.replace(QString("\n"), QString("<br>"));
/*
* Append possibly helpful hints to the error message.
*/
switch (enmWhat)
{
case kSupInitOp_Driver:
# ifdef RT_OS_LINUX
strText += g_QStrHintLinuxNoDriver;
# else /* RT_OS_LINUX */
strText += g_QStrHintOtherNoDriver;
# endif /* !RT_OS_LINUX */
break;
# ifdef RT_OS_LINUX
case kSupInitOp_IPRT:
case kSupInitOp_Misc:
if (rc == VERR_NO_MEMORY)
strText += g_QStrHintLinuxNoMemory;
else
# endif /* RT_OS_LINUX */
if (rc == VERR_VM_DRIVER_VERSION_MISMATCH)
# ifdef RT_OS_LINUX
strText += g_QStrHintLinuxWrongDriverVersion;
# else /* RT_OS_LINUX */
strText += g_QStrHintOtherWrongDriverVersion;
# endif /* !RT_OS_LINUX */
else
strText += g_QStrHintReinstall;
break;
case kSupInitOp_Integrity:
case kSupInitOp_RootCheck:
strText += g_QStrHintReinstall;
break;
default:
/* no hints here */
break;
}
static int scriptCommand(PVM pVM, const char *pszIn, size_t cch)
{
NOREF(cch);
int rc = VINF_SUCCESS;
char *psz = RTStrDup(pszIn);
char *pszEqual = strchr(psz, '=');
if (pszEqual)
{
/*
* var = value
*/
*pszEqual = '\0';
RTStrStripR(psz);
char *pszValue = RTStrStrip(pszEqual + 1);
/* variables */
static struct
{
const char *pszVar;
int (*pfnHandler)(PVM pVM, char *pszVar, char *pszValue, void *pvUser);
PFNRT pvUser;
} aVars[] =
{
{ "eax", scriptGPReg, (PFNRT)CPUMSetGuestEAX },
{ "ebx", scriptGPReg, (PFNRT)CPUMSetGuestEBX },
{ "ecx", scriptGPReg, (PFNRT)CPUMSetGuestECX },
{ "edx", scriptGPReg, (PFNRT)CPUMSetGuestEDX },
{ "esp", scriptGPReg, (PFNRT)CPUMSetGuestESP },
{ "ebp", scriptGPReg, (PFNRT)CPUMSetGuestEBP },
{ "esi", scriptGPReg, (PFNRT)CPUMSetGuestESI },
{ "edi", scriptGPReg, (PFNRT)CPUMSetGuestEDI },
{ "efl", scriptGPReg, (PFNRT)CPUMSetGuestEFlags },
{ "eip", scriptGPReg, (PFNRT)CPUMSetGuestEIP },
{ "ss", scriptSelReg, (PFNRT)CPUMSetGuestSS },
{ "cs", scriptSelReg, (PFNRT)CPUMSetGuestCS },
{ "ds", scriptSelReg, (PFNRT)CPUMSetGuestDS },
{ "es", scriptSelReg, (PFNRT)CPUMSetGuestES },
{ "fs", scriptSelReg, (PFNRT)CPUMSetGuestFS },
{ "gs", scriptSelReg, (PFNRT)CPUMSetGuestGS },
{ "cr0", scriptSysReg, (PFNRT)CPUMSetGuestCR0 },
{ "cr2", scriptSysReg, (PFNRT)CPUMSetGuestCR2 },
{ "cr3", scriptSysReg, (PFNRT)CPUMSetGuestCR3 },
{ "cr4", scriptSysReg, (PFNRT)CPUMSetGuestCR4 },
{ "ldtr",scriptSelReg, (PFNRT)CPUMSetGuestLDTR },
{ "tr", scriptSelReg, (PFNRT)CPUMSetGuestTR },
{ "idtr",scriptDtrReg, (PFNRT)CPUMSetGuestIDTR },
{ "gdtr",scriptDtrReg, (PFNRT)CPUMSetGuestGDTR }
};
rc = -1;
for (unsigned i = 0; i < RT_ELEMENTS(aVars); i++)
{
if (!strcmp(psz, aVars[i].pszVar))
{
rc = aVars[i].pfnHandler(pVM, psz, pszValue, (void*)(uintptr_t)aVars[i].pvUser);
break;
}
}
}
RTStrFree(psz);
return rc;
}