Шифратор клавиш.

[oliviya1111]

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

procedure TForm1.Button1Click(Sender: TObject);
var
doS:string;
posleS:string;
S:string;
dlina:integer;
i:integer;
begin
posles:=' ';
doS:=Edit1.Text;
dlina:=length(doS);
For i:=1 to dlina do
begin
posleS:=posleS+chr(ord(doS[i])*2);
end;
Edit3.Text:=posleS;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Son Of Pain]

Работает она очень просто - умножает ascii-код каждой буквы на 2, вот и все.

А вот с расшифровкой будут проблемы. Очевидно, что все, что мы можем сделать - заменить умножение делением. Это будет работать для английского текста (точнее для символов, чьи коды <=127). А русский текст надежно расшифровать не получится никак, потому что умножение на 2 фактически выполняется по модулю 255, и байт будет переполняться.

[Хамяг]

widechar - это же 65 килосимволов, разве нет? должно работать всё равно.

хотя, в старых версия делфей char это ansichar, и необходимо самому сменить тип переменной на widechar.

и в качеcтве совета - вместо ord и chr лучше использовать привидение типов (word и widechar).

[Son Of Pain]

Сообщение от Хамяг

хотя, в старых версия делфей char это ansichar, и необходимо самому сменить тип переменной на widechar.

Да, я просто версии старше седьмой в руках не держал, потому исхожу из нее )

[oliviya1111]

Сообщение от Son Of Pain

Работает она очень просто - умножает ascii-код каждой буквы на 2, вот и все.

А вот с расшифровкой будут проблемы. Очевидно, что все, что мы можем сделать - заменить умножение делением. Это будет работать для английского текста (точнее для символов, чьи коды <=127). А русский текст надежно расшифровать не получится никак, потому что умножение на 2 фактически выполняется по модулю 255, и байт будет переполняться.

Спасибо за помощь) попробую придумать что-нибудь. деление на 2 не помогает. пишет ошибка в неправильности. но ошибка в самой программе.
даже не знаю что придумать...
менять шифратор нельзя точно...

[Son Of Pain]

Какую-какую ошибку пишет? )

[oliviya1111]

Сообщение от Son Of Pain

Какую-какую ошибку пишет? )

[Pascal Error] Unit1.pas(45): E2008 Incompatible types

[oliviya1111]

procedure TForm1.Button2Click(Sender: TObject);
var
doS,posleS,S:string;
dlina,i:integer;
begin
doS:=' ';
posleS:=Edit3.Text;
dlina:=length(posleS);
For i:=1 to dlina do
begin
doS:=doS+chr(ord(posleS[i])/2);
end;
Edit4.Text:=doS;
end.
это типо дешифратор моими руками....
плохо реагирует на строчку: doS:=doS+chr(ord(posleS[i])/2);

[Son Of Pain]

Вместо / должно быть написано div

[oliviya1111]

Сообщение от Son Of Pain

И что написано в той строчке?

doS:=doS+chr(ord(posleS[i])/2);
пишет ошибку: [Pascal Error] Unit1.pas(45): E2008 Incompatible types