много прог ломал писаных на ВБ, с этой запара просто не знаю что делать. Дебагер Wktvbde не помагает, EXDEC тоже все бесполезно. Вот урл на прогу, кто может помочь буду признателен.
hxxp://www.bousoft.com/catcd.htm 1,5 Mb

| Сообщение посчитали полезным:

Судя по приложенной на странице закачек ссылке на .NET прога написана на VB.NET. Попробуй кинуть прогу в OllyDbg - если загрузится влет не остановившись на EP значит точно VB.NET.

| Сообщение посчитали полезным:

Gloomy
Нет это не VB.NET, просто обычный ВБ

| Сообщение посчитали полезным:

Ну типа посчитал я один ключик. В catcd.ini в раздел [main] напиши строчку
kop=Z5C0-81W2-7
Но почему этот ключик не принимается если его ввести в окошко, я не понимаю - мобыть фэйковое?

| Сообщение посчитали полезным:

DrGolova пишет:
Но почему этот ключик не принимается если его ввести в окошко, я не понимаю
ну дык там обработка по таймеру или как-то еще.

А можно мини тутор, как достал этот ключ? Интересно все таки.

| Сообщение посчитали полезным:

Ну какой тут тутор? Все в уме даже без бумажки считается. Чтобы небыло нага прога хочет чтобы EMux было равно "x" и функций вернула 5 (это вытащено по кросрефам). Собсно функция вот она, только не спрашивайте как я получил этот листинг

[code]
;; Извеняйте, листинг декомпилера я потер чтобы не вводить
;; никого в соблазн
[/code]

Тоесть на нормальном языке это можно написать так:
[code]
int is_valid_serial(char* serial)
{
int sum = 0;
if ( strlen(serial) != 11 ) return(0);
if ( serial[0] == 'Z' ) sum++;
if ( serial[1] == '5' || serial[1] == '9' ) sum++;
// if ( serial[2] == 'C' ) sum++;
if ( serial[3] == '0' || serial[3] == '6' ) sum++;
if ( serial[4] != '-' ) return(0);
if ( serial[5] == '8' || serial[5] == '9' ) sum++;
if ( serial[6] == '1' || serial[6] == '7' ) sum++;
if ( serial[7] == 'W' ) sum++;
if ( serial[8] == '2' || serial[8] == '9' ) sum++;
if ( serial[9] != '-' ) return(0);
if ( serial[10] == '7' || serial[11] == 'X' ) sum++;
return (sum == 8);
}
[/code]

Ну шо, кейген будет? А то я уже старенький для этого =)

| Сообщение посчитали полезным:

Ы-ы-ы, злой DrGolova юзает декомпилятор... Ну ничего, свой напишем - еще круче

| Сообщение посчитали полезным:

if ( serial[10] == '7' || serial[11] == 'X' ) sum++;
return (sum == 8);

Какая-то концовка подозрительная..

| Сообщение посчитали полезным:

Asterix пишет:
Какая-то концовка подозрительная..
ничего подозрительного: sum == 8 return true иначе retyrn false.

| Сообщение посчитали полезным:

Кстати насчет декомпиляторов, кто-нибудь встречал VB Right Back?

| Сообщение посчитали полезным:

ssx

serial[11] это уже 12-й элемент, хотя мы ожидаем 11-ть

> ничего подозрительного: sum == 8 return true иначе retyrn false.

тогда как минимум sum = 8

| Сообщение посчитали полезным:

> serial[11] это уже 12-й элемент, хотя мы ожидаем 11-ть

Ну типа опечатка, должно быть естесно
if ( serial[10] == '7' || serial[10] == 'X' ) sum++;

> тогда как минимум sum = 8

Для непонятливых, return (sum == 8) равносильно:
if ( sum == 8 )
return(1)
else
return(0);

| Сообщение посчитали полезным:

DrGolova
> Для непонятливых, return (sum == 8)

Ох уж эти С-шные извраты, вот так
if ( sum == 8 )
return(1)
else
return(0);
стало гораздо понятнее %)

| Сообщение посчитали полезным:

DrGolova
намыль меня, пару вопросов есть.
v0ldemar@mail.ru

а и еще почему базу немогу создать?
пишет ртипа несовместимій формат или используется в монопольном режиме.

| Сообщение посчитали полезным:

Еще есть подозрение что при выполнении всех условий sum никак не станет ==8, может я считать разучился..

Добавлено:
Мля, не заметил я закомментаренную строку

| Сообщение посчитали полезным:

))) спецово развел ;)

| Сообщение посчитали полезным:

> Ну шо, кейген будет? А то я уже старенький для этого =)

Ну вот вам кейген, не без недостатков конечно, но ведь и толку от него мало, т.к. "Но почему этот ключик не принимается если его ввести в окошко, я не понимаю - мобыть фэйковое?"

;  KeyGen example



format PE GUI 4.0

entry start



include '%fasminc%\win32a.inc'

include 'macros.inc'



IDC_BUTTON_1  =  102

IDC_EDIT_1    =  103



section '.code' code readable executable





ALIGN 4

start:

  invoke GetModuleHandle, NULL

;  mov [hInstance], eax

  invoke DialogBoxParam, eax, 200, 0, DlgProc, 0

  invoke ExitProcess, eax



ALIGN 4

proc DlgProc, hWnd, uMsg, wParam, lParam

  push ebx esi edi

  mov eax, [uMsg]

   WM_CASE eax, INITDIALOG, COMMAND, CLOSE

.r0:

   xor eax, eax

   jmp .return

.INITDIALOG:

;

   jmp .r1

.COMMAND:

   mov eax, [wParam]

   cmp ax, IDC_BUTTON_1

   jne .r0

   mov esi, Buff

   mov edi, random

   mov BYTE [esi], 'Z'

   mov bx, '59'

   call edi

   mov BYTE [esi+1], bl

   mov BYTE [esi+2], 'C'

   mov bx, '06'

   call edi

   mov BYTE [esi+3], bl

   mov BYTE [esi+4], '-'

   mov bx, '89'

   call edi

   mov BYTE [esi+5], bl

   mov bx, '17'

   call edi

   mov BYTE [esi+6], bl

   mov BYTE [esi+7], 'W'

   mov bx, '29'

   call edi

   mov BYTE [esi+8], bl

   mov BYTE [esi+9], '-'

   mov bx, '7X'

   call edi

   mov BYTE [esi+10], bl

   mov BYTE [esi+11], 0

   invoke SetDlgItemText, [hWnd], IDC_EDIT_1, esi

   jmp .r1

.CLOSE:

   invoke EndDialog, [hWnd], 0

.r1:

   xor eax, eax

   inc eax

.return:

   pop edi esi ebx

   return

endp



ALIGN 4

random:

  rdtsc

  lea ecx, [eax*8]

  ror bx, cl

  retn







section '.data' data readable writeable



;hInstance       dd  ?

Buff            rb  32





section '.idata' import data readable



library kernel32, 'KERNEL32.DLL',\

          user32, 'USER32.DLL'



include '%fasminc%\APIA\KERNEL32.INC'

include '%fasminc%\APIA\USER32.INC'





section '.rsrc' data readable resource from 'KeyGen.res'

_203253736__KeyGen.exe

| Сообщение посчитали полезным:

Asterix пишет:

include 'macros.inc'

section '.rsrc' data readable resource from 'KeyGen.res'

Если не трудно, можно поподробнее?

| Сообщение посчитали полезным:

RideX пишет:
Если не трудно, можно поподробнее?
а че тут непонятного? засовывай в фасм и компиляй на здоровье

| Сообщение посчитали полезным:

NG
Интересно, что такое macros.inc, и, я не знал что в фасм можно ресурсы использовать без ухищрений, потому что этого в его примерах нет, вот и хотел поподробнее об этом
P.S. Мож у меня фасм старый...

| Сообщение посчитали полезным:

RideX
Вот, можешь посмотреть ;)
Правда рандомизатор у меня получился хреновый, ну дык это просто пример %)


1941166798__KeyGen.rar

| Сообщение посчитали полезным:

Asterix
Спасибо!

| Сообщение посчитали полезным: