Кому интересно покаопатся в allsubmitter?

Тема в разделе "Мегафлуд", создана пользователем Any_Key, 21 авг 2011.

  1. Any_Key

    Any_Key aka mad red cat

    Регистр.:
    30 мар 2006
    Сообщения:
    388
    Симпатии:
    344
    Случилось горе сломался 4.7 аллсаб в связи с чем решил поколупать 6.6
    Скачал последнюю версию ну и поправил чуток.
    Снята armadillo, поправлены точки входа, декомплилирован.
    Вообщем прикрепляю дамп (dfm,pas (dede) файлы) allsubmitter.exe
    Если вы знаете delphi и asm и Вам интересно пишите )
    Одному копаться просто лень )

    PS не думал даже что столь "крутая программа" сдастся за 15 минут и выдаст все кишки )))
    http://depositfiles.com/files/q25wykczt

    Добавлено через 40 минут
    Пишу сам себе
    По статусу:
    1) получена лицензия но авторега не работает кидает на форму покупки ))
    2) в архиве ищем FrmProject.pas
    procedure TFormProject.DBTableViewCellDblClick(Sender : TObject);
    и
    procedure TFormProject.bokClick(Sender : TObject);
    там два куска кода копипаста )))
    С точками думаю если поправить jamp'ы то увидим заветную форму автореги )

    Добавлено через 49 минут
    Ну вот теперь измвестны адреса куда пинать

    Код:
    procedure TMainForm._PROC_00C258F5(Sender : TObject);
    begin
    (*
    00C258F5   8BEC                   mov     ebp, esp
    00C258F7   53                     push    ebx
    00C258F8   56                     push    esi
    00C258F9   33C9                   xor     ecx, ecx
    00C258FB   B201                   mov     dl, $01
    
    * Reference to class TRegistryIniFile
    |
    00C258FD   A1BC5D4300             mov     eax, dword ptr [$00435DBC]
    
    |
    00C25902   E8E51D81FF             call    004376EC
    00C25907   8BD8                   mov     ebx, eax
    00C25909   BA01000080             mov     edx, $80000001
    
    * Reference to field TRegistryIniFile.OFFS_0008
    |
    00C2590E   8B4308                 mov     eax, [ebx+$08]
    
    |
    00C25911   E8DA0681FF             call    00435FF0
    00C25916   B101                   mov     cl, $01
    
    * Possible String Reference to: 'Software\AllSubmitter\Ver6.6'
    |
    00C25918   BA9059C200             mov     edx, $00C25990
    
    * Reference to field TRegistryIniFile.OFFS_0008
    |
    00C2591D   8B4308                 mov     eax, [ebx+$08]
    
    |
    00C25920   E80F0881FF             call    00436134
    00C25925   6A00                   push    $00
    
    * Possible String Reference to: 'serial'
    |
    00C25927   B9B859C200             mov     ecx, $00C259B8
    
    * Possible String Reference to: 'Setup'
    |
    00C2592C   BAC859C200             mov     edx, $00C259C8
    00C25931   8BC3                   mov     eax, ebx
    00C25933   8B30                   mov     esi, [eax]
    
    * Possible reference to virtual method TRegistryIniFile.OFFS_04
    |
    00C25935   FF5604                 call    dword ptr [esi+$04]
    00C25938   6A01                   push    $01
    
    * Possible String Reference to: 'mode'
    |
    00C2593A   B9D859C200             mov     ecx, $00C259D8
    
    * Possible String Reference to: 'Setup'
    |
    00C2593F   BAC859C200             mov     edx, $00C259C8
    00C25944   8BC3                   mov     eax, ebx
    00C25946   8B30                   mov     esi, [eax]
    
    * Possible reference to virtual method TRegistryIniFile.OFFS_14
    |
    00C25948   FF5614                 call    dword ptr [esi+$14]
    00C2594B   8BC3                   mov     eax, ebx
    
    |
    00C2594D   E8C2F37DFF             call    00404D14
    00C25952   33C9                   xor     ecx, ecx
    00C25954   B201                   mov     dl, $01
    
    * Reference to class TRegistryIniFile
    |
    00C25956   A1BC5D4300             mov     eax, dword ptr [$00435DBC]
    
    |
    00C2595B   E88C1D81FF             call    004376EC
    00C25960   8BD8                   mov     ebx, eax
    00C25962   BA01000080             mov     edx, $80000001
    
    * Reference to field TRegistryIniFile.OFFS_0008
    |
    00C25967   8B4308                 mov     eax, [ebx+$08]
    
    |
    00C2596A   E8810681FF             call    00435FF0
    
    * Possible String Reference to: 'Software\AllSubmitter'
    |
    00C2596F   BAE859C200             mov     edx, $00C259E8
    
    * Reference to field TRegistryIniFile.OFFS_0008
    |
    00C25974   8B4308                 mov     eax, [ebx+$08]
    
    |
    00C25977   E8CC1C81FF             call    00437648
    00C2597C   8BC3                   mov     eax, ebx
    
    |
    00C2597E   E891F37DFF             call    00404D14
    00C25983   5E                     pop     esi
    00C25984   5B                     pop     ebx
    00C25985   5D                     pop     ebp
    00C25986   C3                     ret
    
    *)
    end;
    
    Господа включаемся в процесс.
    А то сам сломаю и никому не дам :D