Шифратор

[Andryan00]

Помогите переделать так, чтобы работал не только для русских символов

function Cesar_Crypt(s:string):string;
const
  SizeA = 33; //Размер алфавита
  RusA = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя'; //Алфавит
var i, P :integer;
    temp:string;
begin
s:=AnsiLowerCase(s);
temp:='';
//удаление символов сообщения, не входящих в наш алфавит
for i := 1 to length(s) do if pos(s[i],RusA)<>0 then temp:=temp+s[i];
s:=temp;
for i:=1 to length(s) do
  begin
  P:=pos(s[i],RusA)+3;
  if P>SizeA then P:=P-SizeA;
  Result:=Result+RusA[P];
  end;
end;

//Дешифрование Цезаря
function Cesar_DeCrypt(s:string):string;
const
  SizeA = 33; //Размер алфавита
  RusA = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя'; //Алфавит
var i, P :integer;
    temp:string;
begin
s:=AnsiLowerCase(s);
temp:='';
//удаление символов сообщения, не входящих в наш алфавит
for i := 1 to length(s) do if pos(s[i],RusA)<>0 then temp:=temp+s[i];
s:=temp;
for i:=1 to length(s) do
  begin
  P:=pos(s[i],RusA)-3;
  if P<=0 then P:=P+SizeA;
  Result:=Result+RusA[P];
  end;
end;

[northener]

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

Помогите переделать так, чтобы работал не только для русских символов

Что значит "не только для русских символов"? Для китайских символов код тоже должен работать?

[Andryan00]

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

Что значит "не только для русских символов"? Для китайских символов код тоже должен работать?

Не, извиняюсь за не точный вопрос. Шифратор для русских, английских символов и цифр.

[BDA]

Тогда посмотрите на код и подумайте, для чего нужны константы SizeA и RusA.

[Andryan00]

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

Тогда посмотрите на код и подумайте, для чего нужны константы SizeA и RusA.

Я пробовал изменять, добавляя количество символов и сами символы, не работает таким образом, поэтому и спрашиваю здесь

[northener]

Во всемирной помойке полно реализаций кода Цезаря. Ищи другой.