Вычислить все комбинации

[northener]

Сообщение от Михаил Юрьевич

Огромное вам спасибо! Именно то что надо

Чисто из любопытства хотелось бы знать для чего надо было?

[Plague]

У меня такой код получился. Просто генерировал подмножества.

function f(x:integer;s:string):string;
var i:integer;
    st:string;
begin
  st:='';
  for i:=1 to length(s) do
    begin
      if x mod 2=1 then st:=st+s[i];
      x:=x div 2;
    end;
  f:=st;
end;

var i,j:integer;
    a,b:string;
begin
  a:='1234';
  b:='5678'; 
  for i:=1 to 1 shl length(a)-1 do
    for j:=1 to 1 shl length(b)-1 do
      writeln(f(i,a),' - ',f(j,b));
end.

[Serge_Bliznykov]

Сообщение от Plague

У меня такой код получился. Просто генерировал подмножества.

работает. только порядок выдачи чуть другой ( отличается от того, что генерит мой код из пост #10: у Вас после 2-5678 идёт 12-5, а у меня идёт 3-5 и т.д.).
Количество генераций, разумеется, совпадает.

Сообщение от northener

Чисто из любопытства хотелось бы знать для чего надо было?

вот. мне тоже это интересно.
Пока рискую предположить, что это исключительно учебная задача, без всякого смысла. Но, возможно, я и ошибаюсь.

Михаил Юрьевич, если не секрет, для чего это Вам?

[Михаил Юрьевич]

В сеге (старая приставка Sega) , в одной игре не могу пройти уровень, но есть окно для ввода комбинаций , два окна 1234 и 5678 , уравней в игре 35 , когда уровень проходишь , то высвечивается код от прошедшего уровня, это для того что бы вернуться на любой прошедший. Вот я и застрял на одном, хотел оценить переспективу взлома , спасибо большое за помощь, второй код пригодиться, еще раз спасибо.

[northener]

Ну примерно такое я себе и представлял. Попытка брутфорса новичком.
Остался только вопрос. Помогло взломать?

[Михаил Юрьевич]

Сообщение от northener

Помогло взломать?

Помогло пройти

[Heneken87]

Сообщение от Михаил Юрьевич

Помогло пройти

То есть пока писали код,поняли как пройти уровни? ))))))))))))))))

[Михаил Юрьевич]

Сообщение от Serge_Bliznykov

исходники: project_sources.rar

Компилю исходники в delphixe10 и вот такая ошибка при нажатии кнопки "поехали"

[Serge_Bliznykov]

Сообщение от Михаил Юрьевич

Компилю исходники в delphixe10 и вот такая ошибка при нажатии кнопки "поехали"

именно открываете мои исходники? Или скопировали исходный текст к себе в проект?

Но, в любом случае, у меня нет Delphi XE, поэтому проверить как компилируется и как работает не на чем.

[Михаил Юрьевич]

Сообщение от Serge_Bliznykov

именно открываете мои исходники? Или скопировали исходный текст к себе в проект?

Ваш скомпилированный работает, а когда компилю на xe10 , то компилится без ошибок и запускается, а при нажатии на кнопку, выдает эту ошибку