Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] Шифровка текста ключом

Автор: TwisT_X 27.2.2005, 20:40

Создайте приложение, шифрующее текст ключом, состоящим из пяти чисел, применяющихся циклически к символам текста..
примерный код который надо использовать я знаю:

Код


function CodeDecode(S: string; Key: word): string;
var i, L: word;
begin
L:= Lenght(S);
 for i:= 1 to L do
  S[i]:= Chr(Ord(S[i]) xor Key);
 Result := S;
end;

но как тут и что тут надо изменить и добавить ?.

Автор: Akina 28.2.2005, 10:27

function CodeDecode(S: string; Key(1...5): word): string;
var i, L: word;
begin
L:= Lenght(S);
for i:= 1 to L do
S[i]:= Chr(Ord(S[i]) xor Key(i mod 5 + 1));
Result := S;
end;

Автор: TwisT_X 28.2.2005, 19:37

Цитата

(1...5)

если это массив, то 1..5 !!

Цитата

mod 5 + 1

как понять вот это ?.
объясни плиз.. Akina

Автор: Akina 1.3.2005, 10:15

Я даже тегом кода не обрамил - догадайся, почему? правильно, это идея, а не решение...

Цитата(TwisT_X @ 28.2.2005, 20:37)

если это массив, то 1..5 !!

тут я тебе показал, что вместо числа мы принимаем массив из 5 заданных чисел.

Цитата(TwisT_X @ 28.2.2005, 20:37)

как понять вот это ?.

mod - оператор деления по модулю. по-русски - получение остатка от деления. как правильно это записывается в Паскале - разбирайся сам. результат - число в диапазоне 0-4. Прибавляем единичку...

Автор: En_t_end 1.3.2005, 15:50

mod
Аналог в си : % остаток от целочисленного деления.

Автор: TwisT_X 1.3.2005, 21:14

Ладно .. сделаю вид что все понял .. smile

попробую откомлировать .. потом напишу что получилось..