Парное шифрование с ключом из 15 букв.

[Ветас]

Подскажите, пожалуйста, каким образом можно зашифровать введенный текст фразой, состоящей из 15-ти букв "железный шпиц дома лежит",
если можете то приведите,пожалуйста, код.

[alexBlack]

Вопрос повторяется с завидной регулярностью. По-прежнему лень воспользоваться поиском.

Например так:

function Crypt(text, password:String):String;
var N, i:integer;
begin
   crypt := text;
   N := 1;
   for i:=1 to length(text) do begin
      Crypt[i] := chr(ord(text[i]) xor ord(password[N]));
      inc(N);
      if N > length(password) then N := 1;
   end;
end;

var S:String;
begin
   S := Crypt('Длинная шифруемая строка текста. Помните об ограничениях String в Pascal max 255 символов.',
              'железный шпиц дома лежит');
   S := Crypt(S, 'железный шпиц дома лежит');   // расшифровать

[mefisto85]

в delphi шифрует не правильно... выводит какие то символы а при расшифровке добавляет два лишних символа

[Serge_Bliznykov]

Сообщение от mefisto85

в delphi шифрует не правильно... выводит какие то символы а при расшифровке добавляет два лишних символа

Вы глупости болтать изволите.
Код работает абсолютно корректно.
А Ваша проблема в том, что Вы результат шифрования засовываете в какой-то визуальный компонент (скорее всего Мемо), совершенно забывая (или не зная) о том, что в результате шифрования XOR с ключом, получаются НЕПЕЧАТНЫЕ символы. Визуальные компоненты не предназначены для взаимодействия с непечатными символами. Они их коверкают, поэтому Вы не можете корректно расшифровать зашифрованное.


p.s. HINT. Если Вам реально нужно отображать зашифрованный текст, тогда переводите его в текстовый вид с помощью алгортима base64 или uue.

[mefisto85]

так ладно ну а как мне тогда правильно показать что она там зашифровала

[Serge_Bliznykov]

так ладно ну а как мне тогда правильно показать что она там зашифровала

Тот алгоритм, который описан у Вас в файле (кстати, правильно "шифрование") не имеет абсолютно ничего общего с операцией XOR (на основе которой написан код в сообщении #2). Вам этот код не подходит!
Вам нужен абсолютно другой алгоритм -> нужен другой код программы.
Надо программу писать заново!

[mefisto85]

ну я тоже так подумал... что это мне не подходит а подскажите как что использовать чем пользоваться

[s-andriano]

Для начала прочитать тот текст, ссылку на который Вы опубликовали.

[mefisto85]

да я читал только как 'то реализовать хотя бы скажите как я сам делать буду

[s-andriano]

Сообщение от mefisto85

да я читал только как 'то реализовать хотя бы скажите как я сам делать буду

А теперь возьмите лист бумаги и зашифруйте вручную, пользуясь описанным алгоритмом.

Собственно, программу Вы сможете написать только после того, как поймете, как должен работать алгоритм. А для этого его нужно осуществить самому.