Алгоритм генерации словарей паролей заданной длины

[Nub]

Есть список наборов символов для генерации паролей. Допустим, в CheckListBox'e есть следующие варианты.

con1='qwertyuiopasdfghjklzxcvbnm';
con2='QWERTYUIOPASDFGHJKLZXCVBNM';
con3='qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM';
con4='!@#$%^&*()_+|\=-<>.,/?''; :"][}{';
con5='йцукенгшщзхъфывапролджэячсмитьбю';
con6='ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ';  con7='йцукенгшщзхъфывапролджэячсмитьбюЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ';

Нужно генерировать файлик со всеми возможными паролями заданной длины из отмеченных наборов.
В сети полно примеров на генерацию одного пароля случайным образом. А вот как получить все возможные варианты я не представляю. Подскажите алгоритм составления подобных словарей.

Ссылки по теме:
http://thenno.net.ru/generator-slovarya-paroley
http://thenno.net.ru/poisk-odinakovykh-strok
http://delphiworld.narod.ru/base/password_gen.html
http://www.delphisources.ru/pages/so.../pass-gen.html

[evg_m]

алгоритм гененрации ВСЕХ комбинаций длины 3 для заданного алфавита

const alf ='qwertyu';
var n1, n2,n3L integer;
  rs: string[3];
  list: TStringList;

list:=TstringList.Create;
for n1:=1 to length(alf)
begin
 rs[1]:=alf[n1];
 for n2:=1 to length(alf)
 begin 
  rs[2]:=alf[n2];
  for n3:=1 to length(alf)
  begin
    rs[3]:=alf[n3];
    list.add(rs);
  end;
end;
end;
list.savetofile(....);