Шифрование алгоритмом цезарь: Описание переменных var i,o,ofset: integer; str:string; x:char;
Алгоритм шифрования: try final.Caption:=''; str:=eText.Lines.Text; ofset:=strtoInt(eoffset.Text); for i:=1 to length(str) do begin o:=ord(str[i])+ofset; if o >= 256 then dec(o, 256);
x:=chr(o); final.Caption:=final.Caption+x; end; except MessageDlg('Внимание! Вы не правильно ввели текст или смещение',mtWarning ,[mbOK ],1); end;
Дешифрация: Описание переменных: i,o,k:integer; str:string; y:char;
Алгоритм: try str:=final.Caption; k:=strtoInt(eoffset.Text); final.Caption:=' DeCrypt='; for i:=1 to length(str) do begin o:=ord(str[i])-k; if o < 0 then Inc(o, 256); y:=chr(o); final.Caption:=final.Caption+y; end; except MessageDlg('Сначала зашифруйте текст!!!',mtWarning ,[mbOK ],1); end;
Главная 