Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[52.15.205.134] |
|
Сообщ.
#1
,
|
|
|
Ребята, подскажите цикл генерации случайных паролей. К примеру указываю от 2 и до 10 и генерируется рандомное число паролей от 2 до 10 символов - в порядке убывания (от большего значения до меньшего).
Пример: на выходе должно быть так: o3!7nl@zhw o2dj511jiw o6@@! p8b7 1z8 !z К примеру как в данном коде задать: const len=8; {длина пароля} x=100; {кол-во создаваемых} var Dict, Pass : string; i,j: integer; f1 : textfile; ....................................................... Randomize; for i:=0 to x-1 do begin Pass:=''; for j:=0 to len-1 do Pass:=Pass+Dict[Random(75)+1]; {генерируем} writeln(f1, Pass); end; |
Сообщ.
#2
,
|
|
|
Цитата Kirilis2018 @ генерируется рандомное число паролей от 2 до 10 символов - в порядке убывания А по какому принципу должно генерироваться определенное количество паролей одной длины? Всего паролей 100, пароли от 10 до 2 символов. Паролей с длиной 10 должно быть какое количество? |
Сообщ.
#3
,
|
|
|
^D^ima, Благодарю что взялись помочь мне. Но вчера вопрос решил вот так, еще раз спасибо:
const Alph = 'abcdefghijklmnopqrstuvwxyz1234567890!@#$%^&*()_+=-'; var i, j, k: integer; s: String; L: TStringList; begin L := TStringList.Create; for i := 1 to se_Count.Value do begin k := RandomRange(se_Min.Value, se_Max.Value + 1); s := ''; for j := 1 to k do s := s + Alph[RandomRange(1, Length(Alph) + 1)]; L.Add(s); end; L.CustomSort(lSort); Memo1.Lines.Assign(L); L.Free; |