ФорумПрограммированиеБольше языковC/C++ и C# → Обойти лицензию

Обойти лицензию

  • EIV

    Сообщения: 8 Репутация: N Группа: Кто попало

    Spritz Янв. 3, 2011, 2:14 д.п.

    Установил программку, запустил ее и она мне выдала код из цифр, цифры эти надо отсылать разработчикам и заплатить деньги после чего они высылают регистрационный номер.
    Я решил обойти эту лицензию, распаковал dll файлы и наткнулся на код

    [с#]HKCR
    {
    Keycode.KeyDecoder.2 = s 'KeyDecoder Class'
    {
    CLSID = s '{f3b647c1-572c-4cc7-afc9-a5e92837d05b}'
    }
    NoRemove CLSID
    {
    ForceRemove {f3b647c1-572c-4cc7-afc9-a5e92837d05b} = s 'KeyDecoder Class'
    {
    ProgID = s 'Keycode.KeyDecoder.2'
    ForceRemove 'Programmable'
    InprocServer32 = s '%MODULE%'
    {
    val ThreadingModel = s 'Apartment'
    }
    'TypeLib' = s '{82d2817f-26c1-41eb-b231-914a397ff59a}'
    }
    }
    }[/с#]
    Как я понимаю этим кодом мы формируем реестр. Но там не мог не могу понять как генерируется регистрационный ключ с помощью этого реестра.
    Если я правильно понимаю.
  • ivanscm

    Сообщения: 1251 Репутация: N Группа: Джедаи

    Spritz Янв. 3, 2011, 6:41 д.п., спустя 4 часа 27 минут 56 секунд

    go to crack lab
    С возвращением, Пiха! hyperoff.ru - качественный хостинг php
  • Frozzeg

    Сообщения: 5641 Репутация: N Группа: Джедаи

    Spritz Янв. 3, 2011, 11:23 д.п., спустя 4 часа 41 минуту 37 секунд

    не проще ли найти тот участок кода, где уже проверяется введенный ключ, и поменять условие == на !=, чем делать кейген?
    You can be anything you want to be. Just turn yourself into anything you think that you could ever be.
  • Sinkler

    Сообщения: 7958 Репутация: N Группа: в ухо

    Spritz Янв. 3, 2011, 2:24 п.п., спустя 3 часа 37 секунд

    ща прибежит к-нибудь министр, скажет, что мы все тут крякоделы и закроет пыху =(
  • EIV

    Сообщения: 8 Репутация: N Группа: Кто попало

    Spritz Янв. 6, 2011, 3:36 п.п., спустя 3 дня 1 час 12 минут


    не проще ли найти тот участок кода, где уже проверяется введенный ключ, и поменять условие == на !=, чем делать кейген?

    Спасибо , только я разкрыл exe а там только файлы формата Delphi Form а pas формата нет т.e код не посмотреть , че делать тогда
  • Frozzeg

    Сообщения: 5641 Репутация: N Группа: Джедаи

    Spritz Янв. 6, 2011, 3:42 п.п., спустя 6 минут 17 секунд

    формата Delphi Form

    ну а внутри этих файлов кода нет?
    You can be anything you want to be. Just turn yourself into anything you think that you could ever be.
  • EIV

    Сообщения: 8 Репутация: N Группа: Кто попало

    Spritz Янв. 6, 2011, 3:46 п.п., спустя 3 минуты 27 секунд

    только форма сама
    Спустя 49 сек.
    например

    object AbonentInfo: TAbonentInfo
    Left = 0
    Top = 0
    Width = 555
    Height = 118
    TabOrder = 0
    object Bevel1: TBevel
    Left = 8
    Top = 7
    Width = 385
    Height = 97
    Shape = bsFrame
    end
    object Label17: TLabel
    Left = 16
    Top = 1
    Width = 158
    Height = 13
    Caption = #1048#1085#1092#1086#1088#1084#1072#1094#1080#1103' '#1086#1073' '#1072#1073#1086#1085#1077#1085#1090#1077':'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    end
    object Label3: TLabel
    Left = 16
    Top = 18
    Width = 72
    Height = 13
    Caption = #1051#1080#1094#1077#1074#1086#1081' '#1089#1095#1077#1090':'
    end
  • Frozzeg

    Сообщения: 5641 Репутация: N Группа: Джедаи

    Spritz Янв. 6, 2011, 3:49 п.п., спустя 3 минуты 35 секунд

    ну значит такой крутой дизассемблер, раз видит только формы
    You can be anything you want to be. Just turn yourself into anything you think that you could ever be.
  • EIV

    Сообщения: 8 Репутация: N Группа: Кто попало

    Spritz Янв. 6, 2011, 3:51 п.п., спустя 1 минуту 39 секунд

    значит нет вариантов
  • Абырвалг

    Сообщения: 6480 Репутация: N Группа: Джедаи

    Spritz Янв. 6, 2011, 3:51 п.п., спустя 38 секунд

    object Label17: TLabel

    охуенно наверно саппотить такой код)
  • Frozzeg

    Сообщения: 5641 Репутация: N Группа: Джедаи

    Spritz Янв. 6, 2011, 3:55 п.п., спустя 3 минуты 37 секунд


    значит нет вариантов
    попробовать другой дизассемблер?
    Спустя 88 сек.
    да delphi мрак)
    You can be anything you want to be. Just turn yourself into anything you think that you could ever be.
  • EIV

    Сообщения: 8 Репутация: N Группа: Кто попало

    Spritz Янв. 6, 2011, 3:58 п.п., спустя 2 минуты 46 секунд

    спасибо попробуем
  • EIV

    Сообщения: 8 Репутация: N Группа: Кто попало

    Spritz Янв. 7, 2011, 10:28 п.п., спустя 1 день 6 часов 30 минут

    Я распаковал с помощью программы DeDe
    он мне дал файлы .pas но тут код


    var
    fmStationRegister: TfmStationRegister;

    {This file is generated by DeDe Ver 3.50.04 Copyright © 1999-2002 DaFixer}

    implementation

    {$R *.DFM}

    procedure TfmStationRegister.actGetKeyExecute(Sender : TObject);
    begin
    (*
    00566760 55 push ebp
    00566761 8BEC mov ebp, esp
    00566763 6A00 push $00
    00566765 53 push ebx
    00566766 8BD8 mov ebx, eax
    00566768 33C0 xor eax, eax
    0056676A 55 push ebp
    0056676B 68AF675600 push $005667AF

    ***** TRY
    |
    00566770 64FF30 push dword ptr fs:[eax]
    00566773 648920 mov fs:[eax], esp
    00566776 8D45FC lea eax, [ebp-$04]

    * Reference to: Unit_0055FE80.Proc_0055FFD4
    |
    00566779 E85698FFFF call 0055FFD4
    0056677E 8B55FC mov edx, [ebp-$04]

    * Reference to control TfmStationRegister.lbID : TEdit
    |
    00566781 8B8310030000 mov eax, [ebx+$0310]

    * Reference to: Controls.TControl.SetText(TControl;TCaption);
    |
    00566787 E8FC73EEFF call 0044DB88
    0056678C B201 mov dl, $01

    * Reference to control TfmStationRegister.lbID : TEdit
    |
    0056678E 8B8310030000 mov eax, [ebx+$0310]

    * Reference to: Controls.TControl.SetVisible(TControl;Boolean);
    |
    00566794 E8DF72EEFF call 0044DA78
    00566799 33C0 xor eax, eax
    0056679B 5A pop edx
    0056679C 59 pop ecx
    0056679D 59 pop ecx
    0056679E 648910 mov fs:[eax], edx

    ****** FINALLY
    |
    005667A1 68B6675600 push $005667B6
    005667A6 8D45FC lea eax, [ebp-$04]

    * Reference to: System.@LStrClr(void;void);
    |
    005667A9 E882E3E9FF call 00404B30
    005667AE C3 ret


    * Reference to: System.@HandleFinally;
    |
    005667AF E91CDCE9FF jmp 004043D0
    005667B4 EBF0 jmp 005667A6

    ****** END
    |
    005667B6 5B pop ebx
    005667B7 59 pop ecx
    005667B8 5D pop ebp
    005667B9 C3 ret

    *)
    end;


    это в нем надо разбираться где условия идет
  • krasun

    Сообщения: 1370 Репутация: N Группа: Джедаи

    Spritz Янв. 9, 2011, 12:59 д.п., спустя 1 день 2 часа 30 минут

    здесь нет сравнения, оно может быть "зарыто" в другой процедуре
  • EIV

    Сообщения: 8 Репутация: N Группа: Кто попало

    Spritz Янв. 14, 2011, 11:14 д.п., спустя 5 дней 10 часов 15 минут

    А в этом коде есть условия? Я просто не разбираюсь в дизассемблирование


    * Reference to: System.@HandleFinally;
    |
    005665D0 E9FBDDE9FF jmp 004043D0

    * Reference to : TfmStationRegister.Proc_00566595()
    |
    005665D5 EBBE jmp 00566595
    005665D7 8A45F7 mov al, byte ptr [ebp-$09]
    005665DA 5F pop edi
    005665DB 5E pop esi
    005665DC 5B pop ebx
    005665DD 8BE5 mov esp, ebp
    005665DF 5D pop ebp
    005665E0 C3 ret

Пожалуйста, авторизуйтесь, чтобы написать комментарий!