[Runner626]

Имеется программа для шифрования и расшифрования файла с ASCII. Шифрует только на русском. Помогите пожалуйста как добавить поддержку английского языка и символов , - ; _. P.S. Программа работает с расшифрованием еще не стабильно, но я над этим работаю. Вот код.

Код:

//шифрование текста
procedure TForm1.Button1Click(Sender: TObject);
var Text,Key, Key1: AnsiString;
i, m: integer;
slovo:string[30];
begin
Text:=Edit1.Text;
Key1:=Edit2.Text;
Key:=Key1;
slovo:=Copy(Key1,1,length(key1));
if length(key1)<length(text) then begin
Key:=Key+slovo;
for i := 1 to length(Text) do begin
Key:=Key+slovo;
if (Ord(Text[i])+Ord(Key[i]))>255 then
Text[i]:=Chr((Ord(Text[i])+Ord(Key[i]))-255);
end;
end;
Edit3.Text:=Text;
end;

//расшифровка текста
procedure TForm1.Button2Click(Sender: TObject);
var Text, Key, Key1: AnsiString;
i: integer;
slovo:string[30];
begin
Text:=Edit1.Text;
Key1:=Edit2.Text;
Key:=Key1;
slovo:=Copy(Key1,1,length(key1));
if length(key1)<length(text) then begin
Key:=Key+slovo;
for i := 1 to Length(Text) do begin
if (Ord(Text[i])-Ord(Key[i]))<0then
Text[i]:=Chr((Ord(Text[i])-Ord(Key[i])+255));
Key:=Key+slovo;
end;
end;
Edit3.Text:=Text;
end;

[Assistant]

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

[Runner626]

Именно этот алгоритм и нужен. Единственное что не могу придумать это поддержку языка.

[Konrad]

Ужесть алгоритм.
Хит сезона....

O mod писавший его, ясен пень, не слышал.

Ci=(Pi+K[i mod Dk])mod 256