procedure TForm1.Button1Click(Sender: TObject);
var
t:Integer;
str,kr:String;
begin
str:=Edit1.Text;
//str-строка открытого текста
for t:=1 to Length(Str)do
kr:=kr+chr(ord(Str[t])+1);
//kr-строка закрытого текста
Edit2.Text:=kr;
end;
Нет Delphi 7.0 - Нужно накидать проект
Всем привет.
Брату задали лабораторку на Delphi 7.0 А у меня среды нет :)
Кому не сложно накидайте проект в среде по лабораторке. Там 2 кнопки - шифрование, дешифрование.
Создадим алгоритм шифрования «Простой заменой».
1.Создайте новый проект в среде Delphi 7.0.
2.Назовите проект «Шифрование простой заменой»
Элементы управления - два Label, 2 TextBox, 2 Button
3.Код кнопки «шифровать».
4. Код кнопки расшифровать сделайте сами.
Брату задали лабораторку на Delphi 7.0 А у меня среды нет :)
Кому не сложно накидайте проект в среде по лабораторке. Там 2 кнопки - шифрование, дешифрование.
Создадим алгоритм шифрования «Простой заменой».
1.Создайте новый проект в среде Delphi 7.0.
2.Назовите проект «Шифрование простой заменой»
Элементы управления - два Label, 2 TextBox, 2 Button
3.Код кнопки «шифровать».
Код:
проект сделал. че в Label'ах написать? :)
впрочем сделал на свое усмотрение. проект в архиве. без екзешника.