20.06.2013, 12:53 | #1 (permalink) |
Member
Регистрация: 28.11.2010
Сообщений: 728
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 45
|
Шифрование
вот мой код.но при нажатии на кнопку прогамма зависает и выдаёт ошибку.где моя ошибка. void __fastcall TForm1::Button1Click(TObject *Sender) { char symbol; int code; for (int i=0;i<Edit1->GetTextLen();i++){ symbol = Edit1->Text[i]; code = (int) symbol +1; Memo1->Text=Memo1->Text+ (char)code; } } |
20.06.2013, 12:53 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Дам вам рекомендацию - прочитайте данные топики Шифрование перестановкой полубайтов Pascal, Delphi. Шифрование методом Льюиса |
23.06.2013, 14:22 | #3 (permalink) |
Member
Регистрация: 28.11.2010
Сообщений: 728
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 45
|
уже не надо.разобрался.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|