Генератор своих чисел?

[xitroi]

Вообщем нужно сделать генератор своих случайных чисел.
Чтобы при нажатии на кнопку в компоненте Edit1 отображался код.
Но мне нужно, чтобы это было реализованно не через randomize.
У меня в текстовом дукументе храняться пароли.
Я хочу перибирать их при нажатии на кнопку и чтобы они отображались в
Edit1 .
Если знаете такой код пожалуйста подскажите.
Перерыл весь интернет. Побывал на разных сайтах, но нечего не нашел.

[evg_m]

чтобы это было реализованно не через randomize.

создание ХОРОШЕГО (с устойчивым равномерным или другим вероятностным законом) генератора непростая МАТЕМАТИЧЕСКАЯ задача.

С целью утверждения нового стандарта шифрования Advanced Encryption Standard Национальный институт стандартов и технологий при поддержке правительства США провел конкурс, в ходе которого были протестированы 15 претендовавших алгоритмов. Один из критериев, используемых при оценке алгоритмов, заключался в их пригодности в качестве генераторов случайных чисел. Проверка таких генераторов на предмет формирования случайных двоичных последовательностей с хорошими статистическими свойствами осуществлялась с помощью набора статистических тестов NIST.

В течение первого раунда AES тестирование проводилось с 128-битными ключами. Лишь 9 алгоритмов из 15 алгоритмов пройти статистические тесты.[10]

из википедии

[xitroi]

Неужели в Delphi нельзя реализовать то, что в Visual Basic?!

Text1.text = Int(Rnd*3)
Select Case Text1
Case 0
Text1.text = '474545455555555';
Case 1
Text1.text = '4888111177774444';
Case 2
Text1.text = '66669955544444522';

[xitroi]

Вы наверно меня не поняли. Потому, что я не правильно сформулировал вопрос. Прошу прощения.
Но все таки вот видео Смотреть видео
Тоже самое можно проделать в Delphi?!

[Пепел Феникса]

это не есть генератор, а обычное ветвление(выбор)

case <чтото> of
 1:<один вариант> 
 2:<второй вариант> 
 else <если не подошло вообще, можно опустить естественно>
end;

[Serge_Bliznykov]

type
  TForm1 = class(TForm)
  .....
  public
     TS : TStringList;


на событие создания формы  (Form - event - "OnCreate")
procedure TForm1.FormCreate(Sender: TObject);
begin
   randomize;
   TS := TStringList.Create;
   TS.LoadFromFile('ИмяВашегоФайлаСПаролями');
end;

дальше, по нажатию на кнопку:
  Edit1.Text := TS.Strings[random(TS.Count)];

на закрытие формы (событие OnClose)
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FreeAndNil(TS);
end;

всё.

[xitroi]

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

type
  TForm1 = class(TForm)
  .....
  public
     TS : TStringList;


на событие создания формы  (Form - event - "OnCreate")
procedure TForm1.FormCreate(Sender: TObject);
begin
   randomize;
   TS := TStringList.Create;
   TS.LoadFromFile('ИмяВашегоФайлаСПаролями');
end;

дальше, по нажатию на кнопку:
  Edit1.Text := TS.Strings[random(TS.Count)];

на закрытие формы (событие OnClose)
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FreeAndNil(TS);
end;

всё.

Благодарю!
А можно, без отдельного текстового файла обойтись?
Ну чтобы в код поместить пароли.

[Serge_Bliznykov]

А можно, без отдельного текстового файла обойтись?
Ну чтобы в код поместить пароли.

Это совсем не проблема!
Только скажите, Вы хотите получать эти пароли последовательно или случайным образом? (кстати, в последнем случае возможны повторные выпадения одного и того же пароля...)

вместо:
TS.LoadFromFile('ИмяВашегоФайлаСПар олями');
напишите:

  TS.Append('Пароль1');
  TS.Append('Пароль2');
  TS.Append('Пароль3');
  TS.Append('Пароль4');
  ...
  TS.Append('ПарольXXXX');

и дальше всё тоже самое.
Хотя, не совсем ясно, зачем подобные извращения ;(

[xitroi]

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

Это совсем не проблема!
Только скажите, Вы хотите получать эти пароли последовательно или случайным образом? (кстати, в последнем случае возможны повторные выпадения одного и того же пароля...)

вместо:
TS.LoadFromFile('ИмяВашегоФайлаСПар олями');
напишите:

  TS.Append('Пароль1');
  TS.Append('Пароль2');
  TS.Append('Пароль3');
  TS.Append('Пароль4');
  ...
  TS.Append('ПарольXXXX');

и дальше всё тоже самое.
Хотя, не совсем ясно, зачем подобные извращения ;(

А гды вы видели keygen c отдельной папкой в которой лежит файл .txt?
Или я должен упаковать файл .txt в ресурсы Res? Но помойму это и есть извращение.

[xitroi]

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

Только скажите, Вы хотите получать эти пароли последовательно или случайным образом? (кстати, в последнем случае возможны повторные выпадения одного и того же пароля...)

I]

Если вам не трудно покажите, чтобы было последовательно.