Преобразование символьной строки и шифрование

String IntToBin(unsigned char In)
{
  int BitCount = 8;
  String Result("", BitCount);
  for(int i = BitCount, Mask = 1; i > 0; i--, Mask <<= 1)
    {
      if(In & Mask)
        Result[i] = '1';
      else
        Result[i] = '0';
    }
  return Result;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  String text = "Cowabunga, turtles!", result = "", pass = "", code = "";
  int i;
 
  for (i = 1; i <= text.Length(); i++)
    result += IntToBin(text[i]);  // перевод исходной строки в двоичный вид
 
  randomize();
  for (i = 1; i <= result.Length(); i++)
  {
    pass += random(2);  // "генерация" пароля-ключа
    pass[i] == result[i] ? code += "0" : code += "1";  // шифрование XOR
  }
 
  MessageBox(Handle, code.c_str(), "Зашифрованная строка", MB_ICONASTERISK+MB_TOPMOST);
}