надеялся, что дальше сам догадаешься, но видать ошибся:
Код:
var
i: Integer;
begin
Edit2.Text:='';
Edit3.Text:='';
// шифруемся
for i:=1 to Length(Edit1.Text) do
Edit2.Text:=Edit2.Text+Format('%.2d', [Ord(Edit1.Text[i])-Ord('а')]);
// дешифруемся
for i:=0 to (Length(Edit2.Text) div 2)-1 do
Edit3.Text:=Edit3.Text+Chr(StrToInt(Edit2.Text[i*2+1]+Edit2.Text[i*2+2])+Ord('а'));
end;
да, и с заданием автор тожа напутал что-то: с большими (строчными) и маленькими (прописными) буквами что делать? кейсить?
Цитата:
|
Сообщение от dr. F.I.N.
Я бы ваш "пример" расшифровывал бы:
1 7 1 8 10 1 4 6 1 8 - и это тоже правильно 
А Ё А Ж И А Г Е А Ж  |
тожа очень удачное замечание