Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
Sanya161rus
0 / 0 / 0
Регистрация: 07.05.2017
Сообщений: 46
1

Генератор ключей

23.07.2017, 12:26. Просмотров 1197. Ответов 2
Метки нет (Все метки)

Привет ребят, такой вопрос, как мне сделать генератор ключей, который будет записывать каждый ключ в отдельный файл lic, вот допустим я открыл программу, поставил 1000 ключей мне выдать и он создал 1000 ключей в разных файлах lic
Помогите пожалуйста кодиком
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.07.2017, 12:26
Ответы с готовыми решениями:

Генератор ключей в делфи
Всем добрый вечер!!Необходими написать генератор ключей в делфи,я сам в делфи...

генерация ключей
Есть программа который сделано на делфи. Первый раз программисты дали ключ,...

Экспорт ключей реестра
Есть программка которая удаляет найденые ключи реестра, хочу добавить...

Несколько паролей, ключей
Помогите пожалуйста сталкивался с такой проблемой каксоздание несколько ключей...

Реестр: проверять изменения ключей
Дан реестр компьютера, надо сделать его снимок, и проверять его изменения. При...

2
вадим19931
0 / 0 / 0
Регистрация: 28.07.2016
Сообщений: 44
23.07.2017, 12:46 2
Обычно, делаешь генерацию с помощью Random, далее делаешь создание файл в папке с название сгенерированного числа, для этого создаешь переменную в которую запишутся сгенерированные числа, делай Tstringlist, а далее начинаешь делать цикл создания файлов с расширение .lic и подбираешь построчно каждый ключ в имя файла и создаешь в папке с программой
0
krapotkin
3483 / 3076 / 1062
Регистрация: 14.04.2014
Сообщений: 14,871
Записей в блоге: 15
23.07.2017, 15:00 3
Лучший ответ Сообщение было отмечено Sanya161rus как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
procedure GenerateKeys();
var i:integer;
  key, fname:string;
begin
  for i:=0 to 999 do
  begin
    key := GenerateKey();
    fname := format('key%.3d.lic',[i]);
    saveKey( fname, key)
  end;
end;
 
procedure SaveKey(fileName, key:string);
var L:StringList;
begin
  L:=TstringList.Create;
  try
    L.Text := key;
    L.SaveToFile(fileName);
  finally
    L.free;
  end;
end;
 
function GenerateKey(): string;
begin
  result := ????
end;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.07.2017, 15:00

Пароль с большим количеством ключей
Доброго времени суток, имеется задумка сделать ввод пароля из множества ключей,...

Удаление ключей реестра через Delphi
День добрый. Нужно удалить ключи реестра с неопределенными именами в Delphi....

Прочитать имена (пути?) ключей реестра
Добрый день, необходимо получить имена(так они подписаны в редакторе реестра)...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru