Усложнить алгоритм шифрования

 void __fastcall TForm1::Shifr(AnsiString &Str2)
{
AnsiString A="1234567890абвгд";
int i,j,p;
AnsiString Str, Str3;
Str= Str2;
Str3= "";
 
for(int i=1;i<=Str.Length();i++)
for(int j=1;j<=A.Length();j++)
{
if(Str[i]==A[j])
{
p=j;
if(j+3>A.Length())
{
p=j-A.Length();
}
p=p+3;
Str3+=A[p];
}
 
}
//Edit2->Text=Str2;
Str2=Str3;
}
///----------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int i;
AnsiString Str;
  IBDataSet1->First();
  for(i=0;i<IBDataSet1->RecordCount;i++)
        {
        Str = IBDataSet1->FieldByName("PPASSWORD")->AsString;
        Shifr(Str);
        ShowMessage(Str);
        IBDataSet1->Edit();
        IBDataSet1->FieldByName("PPASSWORD")->AsString=Str;
        IBDataSet1->Post();
         IBDataSet1->Next();
        }
 
IBDataSet1->First();
}

String XOR(String in, String pass)
{
  String out = "";
  for (int x = 1; x <= in.Length(); x++)
    out += (char)(in[x] ^ pass[x%pass.Length()+1]);
  return out;
}

  String in = "Uewf44hy6", pass = "pswd", result;
  result = XOR(in, pass);
  in = XOR(result, pass);
  Button->Caption = in + "          " + result;

String XOR(String in, String pass)
{
  String out = "";
  for (int x = 1; x <= in.Length(); x++)
    out += (char)(in[x] ^ pass[x%pass.Length()+1]);
  return out;
}