есть небольшой баг
замена некоторых пробелов на + #pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//************************************************************
AnsiString XOR_Crypt(AnsiString in, AnsiString pass)
{
AnsiString out;
for (int x=1;x<in.Length()+1;x++)
{
out += (char)(in[x] ^ pass[x%pass.Length()+1]);
}
return out;
}
//обьявление функции********************************
Edit1->Text = XOR_Crypt(Edit2->Text,"!");
Memo1->Lines->Text = XOR_Crypt(Memo2->Lines->Text,"!");
//применение в Мемо и Едит**************