语言转换问题

Question

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 的，懂的朋友帮忙下，谢

Answer 1

 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没任何变化，会死循环的