xor шифрование (delphi)

[Блуд]

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

Интересно .Еще вопрос как можно записать строку в файл несколько раз.

var
a:textfile;
begin
assingfile(a,'1.txt');
append(a);
writeln(a,'строка');
closefile(a);
end;

как то так

[CAMOBAP]

Спасибо)Очень благодарен)

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

1) один вопрос, одна тема!
не отвлекайтесь о темы (а для нового вопроса создавайте новую тему!)...

2) Есть подозрение на x-y-z (Сага о X, Y и Z... или о том, как же важно правильно формулировать, чего мы хотим.)

Посчитал что много тем засоряет форум.С следующий раз буду делать по правилу.

[Serge_Bliznykov]

ок.

с шифрованием разобрались? Тему можно закрывать?
или пока оставим открытой?

[CAMOBAP]

Пока нет. Отпишу как получиться
Можете объяснить один момент.
В xor алгоритме на который я дал ссылку в конце используется переменная c:char;
Зачем она там, ведь можно записывать и не использовав ее?

[Serge_Bliznykov]

Зачем она там, ведь можно записывать и не использовав ее?

процитирую код, о котором идёт речь..

write('Should i save it to result.txt ?');
  read(c);
  if c in ['Y','y'] then ...

она для того, чтобы ввести ответ пользователя.
если Вам не надо запрашивать ответ - то она Вам, разумеется, не нужна.
Поймите, это же просто пример - Вы должны разобрать его, понять, что и как там делается и взять нужное, что нужно - переделать, что не нужно - выкинуть... Кстати, рекомендую вместо добавления в цикле ключа к само ключу до заданной длины всё таки использовать циклический индекс, как я показал в своём примере...

[CAMOBAP]

А обратно? обратно как можно расшифровать?

[veniside]

обратно тем же xor