| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Шифрование текста
Луарвик © (2005-03-07 23:49:00)Так я шифрую текст. Сначала в 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') то все ок. Почему так???
Луарвик (2005-03-08 00:09:00) [1]Блин точно!!!
Пасибо!
Shaman_Naydak (2005-03-07 23:59:00) [2]потому как думать надо
У тя при зашифровке используется в качестве ss[1] значение еще не зашифрованное
а при расшифровке ты в обратном преобразовании используешь уже зашифрованное значение
| |
