Huawei Unlock Code Calculator New Algo And 201 Algo

[Slym]

вот у меня как-то совпадает...

Сообщение от Человек_Борща

все склонен дyмать что там своя магия. мд5 используется явно от ssl.

Да хоть md5 от Васи Пупкина... суть алгоритма не меняет... MD5 и так признан "слабым", а всякие левые шаманства устойчивости не добавляют...

[WinCoder]

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

вот у меня как-то совпадает...

Ну вот смотрите скриншот. Имей и в Вашей программе, и в оригинальной один и тот же. Зелёной линией я отметил то, что совпало, красной то, что не совпало. Или у Вас как-то иначе?

[Slym]

вот что на рисунке не понятно?
а считается столько сколько указано...
там в одном алгоритме есть важное ветвление коренным образом меняющея расчет
для проверки обоих ветвлений 2 разных имея проверяются... а также для статистической достоверности



ПС!!!
там разные IMEI!!!!!!!!!!
там разные IMEI!!!!!!!!!!
там разные IMEI!!!!!!!!!!
там разные IMEI!!!!!!!!!!
там разные IMEI!!!!!!!!!!

[WinCoder]

Всё, увидел. Ошибки нет. Разные IMEY. Расшифровка всех веток верна. Можно продолжать перевод.

Заметил, что у меня не верно считается encrupt_4. Видимо из за того, что md5 написан под Ansi, а я работаю из под XE7 юникод.

[Slym]

unit encrypt_3;

//
//  Калькулятор nlock-кодов для модемов Huawei с новым алгоритмом v201
//  Автор - forth32
//  2014 год
//  Портировал Delphi - Slym
//  Ветка для вычисления кодов с индексом 2
//

interface

function Encrypt(const imei:string;version:integer):string;

implementation
uses SysUtils, HashMD5;

function XProc(const x:byte):byte;
var cx:Int64;
  r2,r3:integer;
begin
  cx:=Int64($cccccccd)*Int64(x);
  r2:=(cx shr 32);
  r2:=r2 shr 3;
  r3:=r2 shl 3;
  r2:=r2 shl 1;
  result:=x-(r2+r3);
end;

function Encrypt(const imei:string;version:integer):string;
var
  MD5:T4LongWordRecord;
  buf:PByteArray;
  i,r1:integer;
begin
  result:=StringOfChar('0',8);
  MD5:=HashValueStr(imei);
  buf:=PByteArray(@MD5);
  if version=201 then
    buf:=PByteArray(integer(buf)+5);

  r1:=XProc(buf[0]);
  if r1<>0 then
    buf[0]:=r1
  else
  begin
    for i:=8 to 13 do
    begin
      r1:=XProc(buf[i]);
      if r1<>0 then break;
    end;
    if (r1=0) then
      buf[0]:=5
    else
      buf[0]:=r1;
  end;

  for i:=0 to 7 do
  begin
    r1:=(buf[i]-$30) and $ff;
    if (r1>9) then
    begin
      r1:=XProc(buf[i]);
      result[i+1]:=Chr(r1+$30);
    end else
      result[i+1]:=Chr(buf[i]);
  end;
end;

end.

[WinCoder]

Переведено верно. Остались encrypt_6, и encrypt_7

IMEI 352239005314800 calc201 ветка 0 encrypt_1 29081473
IMEI 355239005314800 calc2 ветка 0 encrypt_1 48821554

IMEI 354239005314800 calc201 ветка 1 encrypt_2 95001296
IMEI 353239005314800 calc2 ветка 1 encrypt_2 92430611

IMEI 352239005314816 calc201 ветка 2 encrypt_3 92159468
IMEI 352239005314804 calc2 ветка 2 encrypt_3 42808710

IMEI 357239005314800 calc201 ветка 3 encrypt_4 41028861
IMEI 356239005314800 calc2 ветка 3 encrypt_4 57050088

IMEI 351239005314800 calc201 ветка 4 encrypt_6 - N/A -
IMEI 354239005314800 calc2 ветка 4 encrypt_5_v2 66469054

IMEI 356239005314800 calc201 ветка 5 encrypt_6 - N/A -
IMEI 352239005314800 calc2 ветка 5 encrypt_6 - N/A -

IMEI 352239005314806 calc201 ветка 6 encrypt_7 - N/A -
IMEI 350239005314800 calc2 ветка 6 encrypt_7 - N/A -

[Slym]

unit encrypt_6;

//
//  Калькулятор nlock-кодов для модемов Huawei с новым алгоритмом v201
//  Автор - forth32
//  2014 год
//  Портировал Delphi - Slym
//  Ветка для вычисления кодов с индексом 5 и 6 - они одинаковые и отличаются только номерами выбираемых числе из хеша
//

interface

function Encrypt(const imei:string;version:integer):string;

implementation
uses SysUtils, IcsSHA1;

//Используется алгоритм SHA1, но не дайджест, а промежуточный результат Intermediate_Hash

function Encrypt(const imei:string;version:integer):string;
var
  context: SHA1Context;
  digest : SHA1Digest;
  c1,c2:cardinal;
begin
  SHA1Reset ( context);
  SHA1Input ( context, PChar( @imei[1] ), length(imei));
  SHA1Result( context, digest );

  case version of
    2: c1:=context.Intermediate_Hash[0];
    5: c1:=context.Intermediate_Hash[1];
    6: c1:=context.Intermediate_Hash[2];
  end;

  case version of
    2: c2:=context.Intermediate_Hash[1];
    5: c2:=context.Intermediate_Hash[4];
    6: c2:=context.Intermediate_Hash[3];
  end;

  result:=IntToStr(c1)+IntToStr(c2);
  SetLength(result,8);
end;

end.

[WinCoder]

Slym какие значения выдаёт по IMEI 352239005314800? У меня что-то в минус ушло

[Slym]

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

Slym какие значения выдаёт по IMEI 352239005314800? У меня что-то в минус ушло

как обычно приведение типов,
нужен беззнаковый cardinal
исправил...

[WinCoder]

В юните encrypt_2 заметил, что массив из алго вычисления crc32. Можно упростить?