Пишем генератор ключей (KeyGen) |
![]() |
![]() |
Статьи |
Только в учебных целях! Давайте напишем генератор ключей для программы Телефонные коды городов. При анализе программы выяснилось, что серийный номер регистрации программы имеет вид XXXX-XXXX-XXXX-XXXX-XXXX-XXXX-XXXX-XXXX (восемь групп по четыре символа, разделенные дефисом). Причем сумма шестнадцатиричных кодов групп равна соответственно 300, 400, 310, 410, 320, 420, 330, 430. ![]() Итак, приступим. Для начала на форму поместим кнопку TButton (btnGenerate) и поле ввода TEdit (edSerial). Для простоты задаем массив, в котором будут храниться цифры и латинские буквы. В событии формы OnCreate заполняем массив:
Далее создаем функцию, которая будет генерировать, и возвращать строку из четырех символов. В качестве входного параметра этой функции передаем число, которое обозначает сумму hex-кодов группы символов. В секцию Private declarations добавляем определение функции:
И при нажатии на кнопку OnClick формируем строку серийника и помещаем ее в поле ввода edSerial.
Вот и все! Генератор ключей готов. Можно дополнить эту программку еще одной кнопкой, которая будет копировать сгенерированный серийный номер в буфер обмена Windows, но я считаю, что это уже излишество. |