الفريق العربي للهندسة العكسية

{IDM_6.x_Keygen_SRC(2018-11-21)....By Radixx11}

function IDM_GenerateSerial: String;
const
  Charset = '2YOPB3AQCVUXMNRS97WE0IZD4KLFGHJ8165T';
var
  S: String;
  I, J, K, L, Value: Integer;
begin
  Result := '';
  L := 0;

  SetLength(S, 5);

  while True do
  begin
    K := 0;

    for I := 1 to 5 do
    begin
      J := Random(Length(Charset)) + 1;
      S[I] := Charset[J];

      Inc(K, (J - 1) + 36 * K);
    end;

    case L of
      1: Value := 23;
      2: Value := 17;
      3: Value := 53;
    else
      Value := 43;
    end;

    if (K mod Value) = 0 then
    begin
      Inc(L);

      Result := Result + S;

      if L < 4 then
        Result := Result + '-'
      else
        Break;
    end;
  end;
end;