генератор пароля без повторения

[brownb]

function RandomPassword(PLen: Integer): string;
 var
   str: string;
 begin
   Randomize;
   //string with all possible chars
  str    := '1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';
   Result := '';
   repeat
     Result := Result + str[Random(Length(str)) + 1];
   until (Length(Result) = PLen)
 end;
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.add('22'+RandomPassword(11));

Нужно сгенерировать все возможные варианты(без повтора) с 11 символами(цыфры и англ буквы в верхнем регистре) которые начинаются с двух цифр.То есть
22C0F49DD3F63
22C0F49DD2WE1
22...
22...
Пробую вот так,работает но вот как быть с повторами?

[Аватар]

Нужно сгенерировать все возможные варианты(без повтора) с 11 символами(цыфры и англ буквы в верхнем регистре)

Ну пусть первые 2 фиксированы. Что будешь делать с почти тремя триллионами возможных ключей в такой постановке?

[brownb]

Сообщение от Аватар

Ну пусть первые 2 фиксированы. Что будешь делать с почти тремя триллионами возможных ключей в такой постановке?

Чтонибудь придумаю)Помойму даже 3 фиксированные т.е 10 символов

[evg_m]

т но вот как быть с повторами?

1. проверять, уже сгенерированные и добавлять только нужные(новые).

s:=RandomPass;
if memo.lines.indexof(s)<0 then memo.lines.add(s);

P.S. к использованию Memo
смотреть 2 трлн. строк б-р-р...
да и работать с таким объемом будет медленно.
лучше хранить в TStringList. Возможности все те же.
и даже больше смотри свойства Duplicate Sort Sorted.

2. если нужны ВСЕ, то лучше и генерировать их по порядку а не случайным путем.

[brownb]

А можно пример по порядку?И как подсчитать количество вариантов и сколько это займет ГБ?)

[evg_m]

А можно пример по порядку?

http://www.programmersforum.ru/showt...F0%E5%E1%EE%F0

и сколько это займет ГБ?)

= (мощность алфавита =26+10) ** (количество знаков в последовательности =11(или 10) ) * (количество байт в ЗАПИСИ последовательности =10) / (размер ГБ в байтах =10 **9 (1 000 000 000 ) )