Консультация № 73078
29.01.2007, 09:42
0.00 руб.
0 2 2
Здравствуйте уважаемые эксперты. У меня вопрос. Подскажите, как сделать небольшую програмку для генерации паролей. В форме расположен RadioGroup1. Нужно сделать три радиокнопки в нём, чтобы при выделении нужной, и нажатии на кнопку Button, происходило следующее. Если на первую, то генерировались только цифры, если на вторую - английские буквы, если на третью - генерировались и цифры и английские буква в случайном порядке. Спасибо всем, если поможите ответить

Обсуждение

Неизвестный
29.01.2007, 10:00
общий
это ответ
Здравствуйте, SashaFAN!
Код в приложении.
Радиокнопки должны называться соответственно:
буквы
цифры
все сразу

Приложение:
procedure TForm1.Button1Click(Sender: TObject);var r: integer;begin case RadioGroup1.ItemIndex of 0: r := random(25); pass := pass + Chr(Ord(‘a‘)+r); 1: r := random(10); pass := pass + Chr(Ord(‘0‘)+r); 2: r := random(35); if (r > 10) then pass := pass + Chr(Ord(‘a‘)+(r-10) else pass := pass + Chr(Ord(‘0‘)+r) end;end;
Неизвестный
29.01.2007, 10:57
общий
это ответ
Здравствуйте, SashaFAN!
Попробуй функцию SystemVolumeInformation (серицный номер винчестера). Только там буквы и цифри вместе.
Форма ответа