语言转换问题

[allun666]

CString CWYRGame::CryptPassword(CString strPWD)
{
int pwdLen = strPWD.GetLength() + 1;
char* pEnPassword = new char[pwdLen];
char* pPassword = new char[pwdLen];
memcpy(pPassword, strPWD.GetString(), pwdLen);
int i = 0;
char tmpChar;
//int size = strlen( in );
while (pPassword != '\0')
{
tmpChar = pPassword;
pEnPassword = (tmpChar & 0x80) | ((2 * (tmpChar & 2 | (2 * (tmpChar & 4 | ((tmpChar & 1) << 4))))) | (((tmpChar & 0x40) | (((tmpChar & 0x28) | ((tmpChar >> 2) & 4)) >> 1)) >> 1));
i++;
}
pEnPassword = '\0';
CString retStr = pEnPassword;
delete[] pEnPassword;
delete[] pPassword;
return retStr;
}

上面这段C语言 怎么翻成 Delphi 的，懂的朋友帮忙下，谢

[haitao]

while (pPassword != '\0')
{
tmpChar = pPassword;
pEnPassword = (tmpChar & 0x80) | ((2 * (tmpChar & 2 | (2 * (tmpChar & 4 | ((tmpChar & 1) << 4))))) | (((tmpChar & 0x40) | (((tmpChar & 0x28) | ((tmpChar >> 2) & 4)) >> 1)) >> 1));
i++;
}

这个循环好像有问题：只是递增i，pPassword没任何变化，会死循环的