Huawei Unlock Code Calculator New Algo And 201 Algo

[WinCoder]

Приветствую. Бродил ночью по интернету и набрёл на интересную вещь. Один добрый человек вывалил в интернет алгоритмы подсчёта кодов разлочки новых модемов Huawei. Вещь лично для меня крайне нужная, и полезная, ибо до недавнего времени приходилось искать онлайн сервисы, некоторые из которых ещё и просили денег за код разлочки. Проблема в том, что исходники на СИ, в котором я не больно силён. Вопрос. Есть ли желающие взяться перевести код на делфи? Естественно на добровольных началах. Думаю данный код будет полезен не только мне.
P.S. МД, будьте любезны исправьте опечатку в топике. Unlock.

[Человек_Борща]

Вопрос. Есть ли желающие взяться перевести код на делфи?

Если кода много, то не больно то и много этих желающих будет. Скучного времени не много.

Прилепи сорцы к посту, посмотрим

Так-то я могу переводить, не за спасибо естественно.

[WinCoder]

Так-то я могу переводить, не за спасибо естественно.

Речь как раз и шла о максимум спасибо. Расчёт на то, что возьмётся тот, кому это тоже нужно.

[Человек_Борща]

Архив в архиве внутри архива это круто...

Проект на QT...ни разу не C, то C++. Откройте qtcalc.pro и соберите проект. Если вам бинарник нужен.

Опишите как работает, дайте IMEI и что должно получится на выходе.

[WinCoder]

Архив в архиве внутри архива это круто...

Ну я же не виноват, что на форум нельзя заливать Linux архивы. А перепаковывать было лень. Запихал, как было

Если вам бинарник нужен

Бинарник и так имеется. Нужен перевод на паскаль. Отвечаю на возможный вопрос, а нафига, если есть бинар? Хочу сделать из калькулятора непосредственно анлокер.

Опишите как работает, дайте IMEI и что должно получится на выходе.

Лучше я дам бинар. Запустите, введёте любой 15 значный, увидете результат.
http://rghost.ru/59891461
P.S. Автор кода сказал, что это тупо реверс в ассемблер, и перевод на СИ. Большая часть кода, это скорее всего подсчёт MD5. Подсчёт Old Algo (encrypt_v1 в коде) известен, поэтому его код прост. Гораздо более интересен New Algo (calc2) и Algo 201 (Calc201)

[Slym]

чет у меня даже proc_index в диапазон не входит...
calc201('352239005314800', res);

function proc_index(const imei:string;version:integer):integer;
var
  i,csum,c1,ch,index:integer;
  cx:Int64;
begin
  csum:=0; // хеш IMEI
  for i:=1 to length(imei) do
  begin
    ch:=Ord(imei[i]);
    if version=201 then
      csum:=csum+((ch+i)*ch)*(ch+$139)
    else
      csum:=csum+((ch+i)*i);
  end;

  cx:=(-Int64($6db6db6d)*Int64(csum)) shr 32;
  c1:=((integer(cx)+csum)shr 2)-(csum shr 31);
  index:=csum-((c1 shl 3)-c1);
  result:=index;
end;

Все нашел... ох уж эти приведения типов...

[WinCoder]

Slym Благодарю. Остальной код поможете перевести? Хотя бы один Encrupt_4

[Slym]

unit encrypt_1;

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

interface

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

implementation

function Encrypt(const imei:string;version:integer):string;
type
  PBuf=^TBuf;
  TBuf=array[0..15] of cardinal;
const
  srcbuf_201:TBuf = (
    $06E9C2A,$3CA2B3C,$01080DC,$30855EE,$3D3283A,$2F4F85A,$1F8808E,$3147D10,
    $34BBBB5,$29EEADD,$2318616,$50F3ADC,$0D11F38,$2123BD2,$4276C86,$355CAAD);
  srcbuf_2:TBuf = (
    $01966A9,$021058F,$02AEDA9,$037CE91,$0488C9F,$05E507D,$07A9BE5,$09F644B,
    $0CF35A1,$10D5F55,$15E2F25,$1C73D6B,$24FCFDD,$3015B47,$3E829E9,$5143685);
var
  srcbuf:PBuf;
  i:integer;
  sum,r1,r2,r3:Cardinal;
  cx:Int64;
  zvar:array[0..7] of integer;
begin
  if version = 201 then
    srcbuf:=@srcbuf_201
  else
    srcbuf:=@srcbuf_2;

  sum:=0;
  for i:=1 to Length(imei) do
    sum:=sum+ord(imei[i])*srcbuf^[i-1];

  for i:=low(zvar) to high(zvar) do
  begin
    r3:=(sum shr (i*4)) and $0f;
    cx:=int64($CCCCCCCD)*int64(r3);
    r2:=(cx shr 32);
    r2:=r2 shr 3;
    r1:=r2 shl 3;
    r2:=r2 shl 1;
    r2:=r2+r1;
    r3:=r3-r2;
    zvar[i]:=r3;
  end;
  if zvar[0] = 0 then
    inc(zvar[0]);

  SetLength(result,Length(zvar));
  for i:=low(zvar) to high(zvar) do
    result[i+1]:=chr(zvar[i]+$30);
end;

end.

[WinCoder]

Да ладно? Перевели всё-таки? Вот это я понимаю, помогли. Не ожидал. Спасибо. Ушёл переводить оставшийся код.

[Slym]

Encrupt_4 - в процессе