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);
m_pdusend(SendStr);
SendStr=secretrevert(SendStr);

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