Шифрование текста

← →
Луарвик (2005-03-07 23:49) [0]

Так я шифрую текст. Сначала в showmessage выводиться зашифрованая строка, далее розшифрованая.

procedure TForm1.Button1Click(Sender: TObject);
var l:integer;ss,s:string;
begin
ss:=Edit1.Text;
for l:=1 to Length(ss) do s:=s+Chr(Ord(ss[l])-Length(ss) + ord(ss[1]));
showmessage(s);
ss:=s;
s:="";
for l:=1 to Length(ss) do s:=s+Chr(Ord(ss[l])+Length(ss) - ord(ss[1])) ;
showmessage(s);
end;

Проблема в том что или строка не правильно шифруеться или она неправильно розшифровуеться, а дело в ord(ss[1]). Если его заменить на ord("m") то все ок. Почему так???

← →
Shaman_Naydak (2005-03-07 23:59) [1]

потому как думать надо
У тя при зашифровке используется в качестве ss[1] значение еще не зашифрованное
а при расшифровке ты в обратном преобразовании используешь уже зашифрованное значение

← →
Луарвик (2005-03-08 00:09) [2]

Блин точно!!!
Пасибо!

Шифрование текста Найти похожие ветки