Генератор случайных чисел/англ.букв, вопрос

[FleXik]

Мне нужно чтобы программа генерировала случайные числа/англ буквы, общее количество символов "ключа" должно быть 32символа.

1234567890qwertyuiopasdfghjklzxcvbn m (только цифры и маленькие англ буквы). Также нужно самому указывать количество "ключей" для генерации в Edit1, как сделать такой генератор? Или хотябы в нужное русло направте, спасибо.

[Serge_Bliznykov]

на форуме такие темы уже были.
Впрочем, ответ простой, поэтому несложно написать ещё раз..

const PassChar = '1234567890qwertyuiopasdfghjklzxcvbnm';
var
    LenPass : integer;
    sPass : string;
    i, passCharCount : integer;
begin
   Randomize;
   LenPass := 32; {длина пароля}
   passCharCount := Length(PassChar);

   sPass := '';
     
   for i:=1 to LenPass do
      sPass := sPass + PassChar[ Random(passCharCount)+1 ];

   ShowMessage('Полученный пароль: '+ sPass);
end;

[FleXik]

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

на форуме такие темы уже были.
Впрочем, ответ простой, поэтому несложно написать ещё раз..

const PassChar = '1234567890qwertyuiopasdfghjklzxcvbnm';
var
    LenPass : integer;
    sPass : string;
    i, passCharCount : integer;
begin
   Randomize;
   LenPass := 32; {длина пароля}
   passCharCount := Length(PassChar);

   sPass := '';
     
   for i:=1 to LenPass do
      sPass := sPass + PassChar[ Random(passCharCount)+1 ];

   ShowMessage('Полученный пароль: '+ sPass);
end;

Спасибо!!! Очень выручили , и это, я незнаю где на этом форуме поиск находится, не замечал, иначе бы тему не создавал, еще раз спасибо!

[Serge_Bliznykov]

Пожалуйста!

и это, я незнаю где на этом форуме поиск находится, не замечал

шутить изволите?!



и ещё, напоминаю, что избыточное цитирование ("overquoting") запрещено! цитируйте только ту часть сообщения, которая Вам необходима при ответе!

успехов!

[SephirothAz]

Вот и напал на вас полный чайник. У меня есть составная из 32 символов
Пример: 000000010087000B140C4512D391F43F
или 00000001008C0006100006BCE9738928
Как мне сделать так, чтобы в первом случае всё после
000000010087000B140 автоматически генерировалось, а во втором случае после
00000001008C000610000?
И чтобы в итоге я мог получить целую строчку и копировать её.

[BDA]

SephirothAz, киньте на форму 2 едита и 1 кнопку.
Код на кнопке (чуть подредактированный код Serge_Bliznykov'а):

procedure TForm1.Button1Click(Sender: TObject);
const
  PassChar = '1234567890qwertyuiopasdfghjklzxcvbnm';
var
  LenPass: integer;
  sPass: string;
  i, passCharCount: integer;
begin
  Randomize;
  passCharCount := Length(PassChar);
  sPass := Edit1.Text;
  LenPass := 32 - Length(sPass);
  if LenPass < 0 then
    exit;
  for i := 1 to LenPass do
    sPass := sPass + PassChar[Random(passCharCount) + 1];
  Edit2.Text := sPass;
end;

Использование:
Вставляете в edit1 неизменяемую часть строки;
Нажимаете кнопку;
Копируете из edit2 полученную строку.

[northener]

Только PassChar надо изменить

PassChar = '1234567890ABCDEF';

[SephirothAz]

А не мог бы кто-нибудь сделать то, что мне хочется? А то установил делфи, ввёл данные, которые предложены вами и понял... Что я вообще не соображаю в языках программирования...

[BDA]

Попробуйте.

[SephirothAz]

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

Попробуйте.

Поздно я очнулся... Видимо файл уже удалён.(

P.S.: Переустановил винду, потерял все ссылки.)
P.P.S.: Какую сборку программ мне надо, чтоб это самому написать?