У меня небольшая проблема с этим шифрованием... Оказалось, он не шифрует символ переноса строки. И, значит, как мне кажется, не шифрует и символ табуляции. Это исправляемо? 

Странный вопрос. Что передаёшь функции/задаче, то и шифруется (если она, конечно, нормально реализована). 

xor-шифрование, как и большинство известных мне алгоритмов шифрования не имеет дела с текстом
они имеют дело только с последовательность чисел
поэтому алгоритму, обычно по барабану семантическая нагрузка символа
в более сложные алгоритмы встраивается учёт вероятностей появления того или иного символа, что позволяет затруднить статистические методы взлома
в ещё более сложных алгоритмах могут использоваться какие-нибудь более глубокие данные о символах
но xor - явно не тот случай
тут, ИМХО, проблема находится где-то между приёмом текста от пользователя и отправкой массива байт в алгоритм шифрования... 

хм... сама функция шифровки описана так:

А вызывается она вот таким макаром:

Где Rezults - компонент класса TMemo, XOR_Crypt() - собственно функция шифровки, Temp - еще компонент класса TMemo, XORCryptkey - компонент TEdit, в который вводится ключ для расшифровки. 

Да елки! Неужто никто в жизнь не шифровал этим алгоритмом символы переноса строки! 

1. как проявляется "нешифрование" символов переноса строки
2. неплохо было бы посмотреть шифруемую строку, как последовательность кодов её символов 

секунду.... не понял... сейчас снова попробовал закодировать-расшифровать, почему-то получилось... правда, я там код слегка менял... мда. Ладно, прошу извинить за беспокойство, проблема решилась как-то сама собой...

Добавлено @ 19:16 
Нет, не решилась! Протестировал еще раз, пожестче. Оказалось, что символы переноса строки шифруются нормально! Не шифруется цифра 1 ! Вот что! То есть, я пробовал зашифровать вот такое:

В итоге в файле получал кракозябры, как и надо. Расшифровываю, на выходе получаю следующее:

Т.е. символы при шифровке урезаются до единицы. Почему так? То есть проблемой является только единица! 

У тебя там скорее всего трабла с '\0' тобишь с символом конца строки. Потому что ты работаешь с AnsiString и оператором '+'.
Перепиши функции на char*. 

Эммм.... не получилось... Переписал вот так:

Может, где и наврал, но суть не в этом. В функцию, как я писал выше, передается два аргумента типа AnsiString, который нельзя преобразовать в char, как говорит компилер... 

не пойдёт... даже не скомпилируется...
нужно передавать длину строки

P.S.
Модератор: 
судя по всему, проблема не с алгоритмом, так что лучше перемещу это в Delphi... 

P.S. А вот в Delphi этому точно нечего делать. Мы вроде тут С++ разбираем. И, соответственно, Borland C++ Builder, а не Delphi/Kylix.

Не могу понять, как написать функцию... Похоже, придется смириться с ошибкой с единицей. 

У меня была такая проблема с шифрованием методом XOR, решил я ёё следующим способом - перед шифровкой символы '\0' заменял на '\r\m'(или что-то похожее) и все заработало как часы. 

на автомате написал Delphi
зато перенёс правильно  

Вот код xor шифрования, который я использовал для шифрования паролей пользователей многопользовательской игры в морской бой, защиты никакой канеш, но от "дурака" вполне приемлемо)))
работает без накладок) 
 

Мож уже и не надо , но
 

Romikgy, 

ничем по сути не отличается от 


Прав был  sergej.z про \0,  решение предложил уже почти готовое  Artemon : 
А с char или String ты работаешь не суть важно. Лучше делать универсально, а универсально(чтобы везде не париться с char*) - это как  Artemon предлагал. 

Вообще, информация в закодированном виде уже не String, а ByteArray или попросту Blob. Я бы не стал из него AnsiString делать.  

так... вопрос: в качестве ключа может быть передан только один символ? Или несколько? 

учитывая что ксориш ты один символ -- ключ длиннее байта -- изилишен. 

_hunter, сорри, ты не прав. Здесь как раз защищённость зависит от длинны ключа. 
Ключ в 1 байт означает 256 проверок и открытый текст у тебя.
Ключ длинной в сам текст означает, что подобрать его можно будет только перебором. 

и как ты собираешся записать результат шифрования ключем длинной в текст в один байт?

если увеличивать длину ключа, нужно и размер одного элемента увеличивать 

Почему?
Длина результата шифрования = длине исходного текста.  

Вот, оказывается, в чем проблема. По моему коду не шифруются те символы, которые содержатся в ключе! 

Блин, конечно нет, ведь туда 0 записывается, что для AnsiString означает конец строки. Я же говорю, пиши в char* и запоминай длину! 

ты, чтоли, последовательно ксорить предлагаеш?
 -- тоже вариант... 

но как ее решить-то? 

Писал без компилера так что может чтото не работать

 

Вот в этом коде, да и в других вариантох функции XOR-шифрования есть такая конструкция Key[x%Key.Length()+1].
Допустим вызываем функцию XOR_Crypt("abcdefgh","12345").
Идем по циклу. При x=4 получится что индекс строки Key будет равен 9, то есть Key[9], но ведь в Key всего 5 символов. Ошибка?

Это с какого перепугу он будет 9?   4 % 5 + 1  будет 5
Угу, операция '%' - это остаток от деления, а не что то другое   

точно) я почему-то подумал, что оператор % - это мы получаем дробную часть)

Это сообщение отредактировал(а) Нитонисе - 13.1.2010, 13:38

Очередное сори за подъем старой темы. Вообще 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++ так и на ассемблере(вставка для билдера). Сейчас с собой нет кода, но если нужно, то с удовольствием поделюсь. Есть и другие алгоритмы.