Можно самому написать, Скачиваете программу Hugs 98
Вней в коммандной строке вводите текст ниже и запускаете по Enter:
Для длинны 3 будет:

[[p1]++[p2]++[p3]|p1<-ch,p2<-ch,p3<-ch] where ch=['a'..'z']++['0'..'9']

всего 46656 комбинаций

var i,j,k:integer;
var f:text;
var a:array[0..35] of string =('a', 'b', 'c', 'd', 'e', 'f', 'g',
                             'h', 'i', 'j', 'k', 'l', 'm', 'n',
            'o', 'p', 'q', 'r', 's',
            't', 'u','v', 'w', 'x', 'y', 'z', '0', '1', '2', '3', '4',
            '5', '6', '7', '8', '9');
begin
  assign (f, 'text.txt');
  rewrite(f);
  for i:=0 to 35 do
    for j:=0 to 35 do
       for k:=0 to 35 do
        writeln(f ,(a[i]+a[j]+a[k]));
  close(f);
  readln;
end.
Нужно создать text.txt в директории откуда будет запускаться программа.