Очередное сори за подъем старой темы. Вообще XOR шифрование самое убогое  его мона взять тока за основу. При шифровании методом XOR, надо учесть не один нюанс:
1 - строка A должна быть того же размера что и строка B
2 - символ Аn != Bn (иначе потеря данных)

Лично я как то пытался сделать шифрование по XOR методу, но исключительно шифрование ограничивалось массивами суммой которых являлось одно число и сортировка массивов была
разной. 
То есть например есть массив N элементы которого равны N1 = N0+1
Затем производил сортировку типа: x = N[i]; N[N[x]] += z; N[N[x]] -= z; (примерно)
После чего строки мона было XOR'ить 

Но самый лучший метод который мне понравился, это когда заранее определенный массив состоящий из N1 = N0+1 изначально, сортировался по маске значений пароля, затем входящий поток 
шифровался простым return Table[InValue]; Это на мой взгляд и быстро и весьма широкие границы воображения открывает 

Это сообщение отредактировал(а) NYX - 20.1.2010, 14:44

объясните плиз xor шифрование ааааа
вообще как шифровать слово

Добавлено через 1 минуту и 23 секунды
procedure TForm1.Button2Click(Sender: TObject);
   var FName: string;
begin

      if OpenDialog1.Execute then
       begin
        FName := OpenDialog1.FileName;
        Memo1.Lines.LoadFromFile(FName);
       end;
end;

procedure TForm1.Button1Click(Sender: TObject);
  var j: integer;
  key, text, longkey, result: string;
  i: integer;
  toto, c: char;
begin


        if edit1.Text='' then  Application.MessageBox('Вкажіть код!', ä!','Помилка!')
         else
         begin
              if Memo1.Lines.Count=0 then  Application.MessageBox('Відсутній код!','Помилка!!!')
                 else
                 begin

                   key:=Edit1.Text;
                   for j:=0 to Memo1.Lines.Count do
                    begin

                      text:=Memo1.Lines.Strings[j];

                      for i := 0 to (length(text) div length(key)) do
                        longkey := longkey + key;
                        for i := 1 to length(text) do
                        begin
                          toto := chr((ord(text[i]) xor ord(longkey[i]))); // XOR алгоритм
                          result := result + toto;
                        end;
                      Memo1.Lines.Strings[j]:=result;
                      end;
                   //zapuskaesh codirovanie
                 end;
         end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var FName: string;
begin
if SaveDialog1.Execute then
       begin
        FName := SaveDialog1.FileName;
        Memo1.Lines.savetofile(FName);
       end;

end;

end.
че за программа

Прежде объясните каким простите концом тот ваш код на Delphi (к тому же не оформленный как код) относится к С++

По теме
http://lmgtfy.com/?q=xor+%D1%88%D0%B8%D1%8...%BD%D0%B8%D0%B5

Простейший  алгоритм кодирования…


Пример  использования с проверкой переноса строк:

Возьмите наш ГОСТ 28147-89 и шифруйте на здоровье. В режиме гаммирования получите текст той же длинны. И надежно и просто. Операции там примитивные:побитовое исключающее или, сложение по модулю 2 в степени 32(просто не учитывай перенос при сложении беззнаковых 32-битных), сдвиг в лево на 11 бит и таблица замен. Пишится легко как на C++ так и на ассемблере(вставка для билдера). Сейчас с собой нет кода, но если нужно, то с удовольствием поделюсь. Есть и другие алгоритмы.