Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 30.07.2018, 20:32   #1
DirBeer
Новичок
 
Регистрация: 30.07.2018
Сообщений: 2
Репутация: 10
Печаль На Delphi 7 написать код для кейгена

На Delphi 7 писал код для кейгена. Не могу разобраться с написанием кода. Что нужно:
- вывод случайного ключа по алгоритму на PHP (я с PHP пришёл, код на PHP выглядит так, суть надеюсь поймёте)
Код:

... 

$randomkey = rand(1,5); //вообщем не помню как правильно, суть - рандомное число в переменную randomkey от 1 до 5.

if ($randomkey == "1") {
 $key == "BLA12-BLA34-BLA-56-BLA78-BLA90"; // пусть если будет один, будет такое
 setText("$edit1", "$key");
 $key == "";
}

if ($randomkey == "2" {
 $key == "OMGML-GITSM-YTIME-OHMYG-GOD!!"; // пусть если будет два, будет такое
 setText("$edit1", "$key");
 $key == "";
}

...

И так продолжается пока все цифры не будут соответственны каждому ключу. Помогите, пожалуйста, сделать такое на Delphi, я новичок. Это простой кейген, который просто даёт ключи из базы.
Заранее спасибо, DirBeer
DirBeer вне форума   Ответить с цитированием
Старый 31.07.2018, 05:11   #2
Alex11223
Модератор
Заслуженный модератор
 
Регистрация: 12.01.2011
Сообщений: 17,339
Репутация: 3350

icq: 512-765
skype: alexp.frl
По умолчанию

хз что значит "все цифры не будут соответственны каждому ключу", но в коде выше только работа со строками и рандом. Если вы не можете это изучить/нагуглить, то программирование явно не для вас.
Alex11223 вне форума   Ответить с цитированием
Старый 31.07.2018, 10:09   #3
evg_m
Профессионал
 
Регистрация: 20.04.2008
Сообщений: 4,751
Репутация: 2097
По умолчанию

http://www.delphibasics.ru/Random.php
__________________
программа — запись алгоритма на языке понятном транслятору
evg_m вне форума   Ответить с цитированием
Старый 31.07.2018, 10:23   #4
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 24,601
Репутация: 5352
По умолчанию

если "в лоб":
на создании формы или на открытии проекта:
Код:

Randomize; // иницилизация генератора ПСЧ

собственно аналог PHP кода:
Код:

  m:=random(5)+1; // получить случайное число от 1 до 5
  case m  of
    1: Edit1.Text := 'BLA12-BLA34-BLA-56-BLA78-BLA90';
    2: Edit1.Text := 'OMGML-GITSM-YTIME-OHMYG-GOD!!';
  ....
  end;

Serge_Bliznykov вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите написать код для небольшой задачки в delphi. Alfanok Помощь студентам 12 30.10.2017 07:55
Помогите написать код в Delphi для БД. Sentinel2h БД в Delphi 23 23.05.2017 15:34
анализ и создание кейгена D2R2 Фриланс 31 06.02.2015 07:10
Написать код на Delphi Настен@ Помощь студентам 2 20.12.2013 15:27
написать код(Delphi) Saka Помощь студентам 10 07.12.2009 00:17


09:29.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru