Криптография

[helpme]

Нужно на дельфи написать прог-му которая будет кодировать текст по одному из простых алгоритмов:Цезаря либо Моноалфавитной перестановки. Делфи не помню совсем, мне нужно хотябы узнать как вытащить данные из Edit или Maskedit или memo в переменную, и как обратно из переменной вывести в memo или edit

[mihali4]

Делфи не помню совсем, мне нужно хотябы узнать как вытащить данные из Edit или Maskedit или memo в переменную, и как обратно из переменной вывести в memo или edit

Нужно просто посмотреть на их текстовые свойства.

[Maslan]

Цезарь:

 var i:integer;
begin
Edit2.Text:='';
For i:=1 to Length(Edit1.Text) do
 Edit2.Text:=Edit2.Text+chr(((Ord(Edit1.Text[i])+3)mod 256)+1);
end;

но учти, что это совсем простая реализация и использует не латинский алфавит, а всю ASCII-таблицу.

[helpme]

сделал так:

var i:integer;
var k:Integer;
begin
   //k:=Edit3.Text;
   Edit2.Text:='';
For i:=1 to Length(Edit1.Text) do
if (Edit2.Text<>chr(13)) and (Edit2.Text<>chr(10)) then Edit2.Text:=Edit2.Text+chr((Ord(Edit1.Text[i])+k)mod 255);
end;
end.

k -ключ по которому будет шифровать,k:=Edit2.Text - пишет про несовместимость данных, как сделать edit - integer?

Код заключаем в тэги - кнопка . SupVis.

[mihali4]

MyInteger:=StrToInt(Edit2.Text)

[helpme]

edit3 должен быть только integer, а как сделать обработку ошибок чтобы программа корректно завершалась при введении в edit3 не цифр

[mihali4]

Разрешить ввод в Edit3 только цифр.

[helpme]

Сообщение от mihali4

Разрешить ввод в Edit3 только цифр.

Можно и так конечно, но как разрешить ввод в Edit3 только цифр?

[mihali4]

Например, в обработчике события OnKeyPress проверять значение KEY.
Этот вопрос уже столько раз рассматривался, что мне не хочется плодить новые посты на эту тему.
Приложите минимальные усилия и просмотрите десяток-другой тем, вот и найдете ответы, думается, на многие ваши вопросы.