AnsiString TfrmMain::secretrevert(AnsiString str)
{
try
    {
     char pch[100];
          if(str == "")
            {
               return "no";
             }
          strcpy(pch,str.c_str());
          int i;
          for(i = 0; i < str.Length(); i++)
          pch[i] ^= 0x08;
          pch[i] = 0;
          str = pch;
     }
  catch(...)
    {
    }
return str;
}

调用方法：
     SendStr=secretrevert(SendStr);
     SendStr=secretrevert(SendStr);

如需要源程序，请在网站留言栏留下Email.