Шифрование\Дешифрование

 
#include <memory>
 
// формула кодировки
void EncryptSymbol(int &iSymbol) {
        // здесь можно делать всё, что пожелаете,
        // только в пределах разумного :-)
        iSymbol = (iSymbol * 2);
        if (iSymbol)
                iSymbol -= 1;
}
 
// формула декодировки
void DecryptSymbol(int &iSymbol) {
        if (iSymbol)
                iSymbol += 1;
        iSymbol /= 2;
}
 
// --- расшифровываем файл
AnsiString LoadTextFromCryptedBin(const AnsiString &sFileName) {
        std::auto_ptr<TMemoryStream>MemStream(new TMemoryStream);
        MemStream->LoadFromFile(sFileName);
        MemStream->Position = 0;
        const int iBuffSize = MemStream->Size;
        std::auto_ptr<int>iBuffPtr(new int[iBuffSize]);
        MemStream->Read(iBuffPtr.get(), iBuffSize);
        std::auto_ptr<char>chBuff(new char[iBuffSize]);
        for (int i = 0; i < iBuffSize; i++) {
                // расшифровываем символ
                DecryptSymbol(iBuffPtr.get()[i]);
                chBuff.get()[i] = iBuffPtr.get()[i];
        }
        return AnsiString(chBuff.get());
}
 
// зашифровываем файл
void SaveTextToCryptedBin(const AnsiString & sFileName, const AnsiString &sText)
{
        const int iBuffSize = sText.Length();
        std::auto_ptr<int>iBuffPtr(new int[iBuffSize]);
        for (int i = 0; i < iBuffSize; i++) {
                iBuffPtr.get()[i] = sText[i + 1];
                // зашифровываем символ
                EncryptSymbol(iBuffPtr.get()[i]);
        }
        std::auto_ptr<TMemoryStream>MyMemStream(new TMemoryStream);
        MyMemStream->Write(iBuffPtr.get(), iBuffSize);
        MyMemStream->Position = 0;
        MyMemStream->SaveToFile(sFileName);
}
 
// ---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject * Sender) {
 
        const AnsiString sCryptedText =
                "Testing string with different symbols 0123456789\n"
                "Special symbols - °©§¶\n"
                "Amount of strings!";
 
        Memo1->Lines->Text = sCryptedText;
 
        SaveTextToCryptedBin("c:\\MyTest.bin", sCryptedText);
 
        const AnsiString sDecryptedText = LoadTextFromCryptedBin("c:\\MyTest.bin");
        ShowMessage(sDecryptedText);
}
// ---------------------------------------------------------------------------

  AnsiString Crypt(AnsiString information)
  {
   AnsiString out;
    for (int i = 1; i < information.Length()+1; i++)
    {
     out += information[i] ^ 20;
    }
   return out;
  }

AnsiString  str = "абвгдежзийклмнопрстуфхцчшщъыьэюяАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ";
for (int i = 1; i < str.Length(); i++) {
  char chr = str[i+1]; // или +2, +3 и т.д.
  Lsbel->Caption = Lsbel->Caption + chr;
}

AnsiString  str = Edit->Text;
for (int i = 1; i < str.Length(); i++) {
  if (str[i] == "а") {
    str[i] = "k";
    Label->Caption = Lsbel->Caption + str[i];
  }
  if (str[i] == "б") {
    str[i] = "L";
    Label->Caption = Lsbel->Caption + str[i];
  }
  if (str[i] == "в") {
    str[i] = "1";
    Label->Caption = Lsbel->Caption + str[i];
  }
  // и т.д.
  // не оптимально, зато понятно :)
}

"Это табуляция - \t!\nЭто латиница - test!\nХорошая кодировка"

"<root>\n"
"\t<item>Текстовый узел, который необходимо зашифровать<item/>"
"\t<item> Name = \"Имя аттрибута\" <item/>\n"
"<root/>"

 "Это табуляция - \t!\nЭто латиница - test!\nХорошая кодировка"