подбор пароля

[XATAB]

задача такова:
дана строка символов, из которых может состоять пароль. нужно перебрать все возможные комбинации по порядку. для примера есть строка alph:='0123456789', сказанно что максимальная длина пароля 3.
0
1
2
.
9
00
01
..
99
000
111
...
999
Как организовать такое? заранее спасибо.

[evg_m]

const alph:='0123456789',
var res: string[2];
for j1:=1 to length(alph) do
begin
res[1]:=alph[j1];
for j2:=1 to length(alph) do
res[2]:=alph[j2];
end;

[Ntlegend]

создаем список символов:

var i:integer;
begin
for i:=0 to 255 do
 ch[i]:=chr(i);

создаем сисок всех возможных паролей методом перебора значений:

function MakePass(s: string; CurLen, MaxLen: integer): string;
var i:integer;
begin
for i:=32 to 255 do
 begin
  s[CurLen]:=ch[i];
  if CurLen<MaxLen
   then MakePass(s, CurLen+1, MaxLen)
   else Form1.Memo1.Lines.Add(s);
  Sleep(1);
  if Stop then break;
 end;
Result:=s;
end;

для генерацыи пароля длинною 3 символа вызыват так:

s:='123';
MakePass(s, 1, length(s));

Memo1 - любой приёмник строк..

[XATAB]

спасибо всем, буду пробовать

 if Stop then break;

ругается на слове стоп, и еще ch - это тип string?

[Alter]

Stop :Boolean; //чтобы прерывать цыкл, присвавай True, чтобы остановить
ch :String; // или "ch :Array[0..255] of char;"