SERGE_BLIZNUK
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код:
procedure Perebor(S : string; var Res : string );
var
i : integer;
SResInner : string[10];
begin
if (Length(S)>0) and (Res<>'Error') Then begin
i:=0;
while i<=MaxComb do begin
if Pos(Shifr[i],S)=1 then begin
SResInner := Res;
Res := Res+chr(ord('0')+i);
Perebor(Copy(S,Length(Shifr[i])+1,255), Res );
if Res<>'Error' then Break
else Res := SResInner;
end;
inc(i);
end;
if i>MaxComb then Res := 'Error';
end;
end;
|
|
