Подбор разблокировачного когда к телефону

[romoga1]

Всем привет...Увидел систему защиты (блокировка) телефона LG и очень захотелось попробовать подобрать к нему код.Суть защиты заключается в следующем - имеется поле на котором изображены 9 кружков и надо провести безотрывно линию между ними в определенном направлении и не пересекая предыдущие линии (экран сенсорный)

одна и та же непрерывная линия может начинаться с разных концов поля и это надо учитывать, максимальное количество захваченных кружков = 9 минимальное 2..Надо вывести графически все возможные варианты ключей к разблокировке...Кодить буду на Delphi, подскажите куда копать...Прям въелась мне эта задача ..Спасибо.

[NewLamer&Programer]

ага только после 5 неправильных попыток блокировка на 30 сек. во всяком случае на моем МТС так было... долго будешь подберать
и сильно сомневаюсь что на делфи это можно провернуть... копай в сторону ADB (если конечно андроид)

[romoga1]

да я не собираюсь подключаться к телефону ..вы не внимательно читали задание (((
мне просто надо вывести графически все эти отрезки чтоб потом по ним подбирать...
вариантов там не так уж много...
+баг если выкл вкл телефон ну в режиме ожидания..то попытка не защитывается....

[romoga1]

Куда копать то хоть?

[BDA]

вариантов там не так уж много...

Если не ошибся с расчетами, то:

Длина) Количество
2) 24
3) 44
4) 80
5) 104
6) 128
7) 112
8) 112
9) 40
= 644 варианта

Вот Вам заготовка:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

type
  field = array [1 .. 3, 1 .. 3] of byte;
  stat = array [1 .. 9] of int64;

implementation

{$R *.dfm}

procedure start(var b: field; var a: stat; k, i, j: integer);
begin
  if b[i, j] = 1 then
    exit;
  visual(b);
  inc(a[k]);
  b[i, j] := k;
  if i + 1 <= 3 then
    start(b, a, k + 1, i + 1, j);
  if j + 1 <= 3 then
    start(b, a, k + 1, i, j + 1);
  if i - 1 >= 1 then
    start(b, a, k + 1, i - 1, j);
  if j - 1 >= 1 then
    start(b, a, k + 1, i, j - 1);
  b[i, j] := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  a: stat;
  b: field;
begin
  for i := 1 to 9 do
  begin
    a[i] := 0;
    b[(i - 1) div 3 + 1, (i - 1) mod 3 + 1] := 0;
  end;
  for i := 0 to 8 do
    start(b, a, 1, i div 3 + 1, i mod 3 + 1);
  Memo1.Lines.Clear;
  for i := 1 to 9 do
    Memo1.Lines.Append(inttostr(i) + ') ' + inttostr(a[i]));
end;

end.

Вам осталось написать процедуру visual(b), которая по массиву b рисует картинку (в массиве b стоят циферки: 1 - начало, 0 - не тронутая клетка).