Сейчас на форуме: _MBK_, asfa (+5 невидимых)

 eXeL@B —› Вопросы новичков —› Помогите найти алгоритм проверки рег данных
Посл.ответ Сообщение

Ранг: -0.4 (гость)
Активность: 0=0
Статус: Участник

 Создано: 15 июня 2009 21:02
· Личное сообщение · #1

Здарвствуйте Уважаемые...
ИМеется прграмма написанна на VB 6 .. не запакована не закриптована...
Имеется отдельная форма регистрации, в которой вводится имя, ключ и пароль..
на сколько я понял над строкаим делается какое математичесоке действие м сравнивается с какой-то константой... меня инетересует алгоритм который "пробегает" по введенным данным..
Для декомпиляции юзал vb decompiler 5 ..
Спапсибо

не пинайте сильно... еслит что не так оформил..


ceeb_15.06.2009_CRACKLAB.rU.tgz - SF.rar



Ранг: 441.3 (мудрец), 297thx
Активность: 0.41↘0.04
Статус: Участник

 Создано: 15 июня 2009 21:19
· Личное сообщение · #2

что ли бы уже весь инсталл-пакет выложил



Ранг: -0.4 (гость)
Активность: 0=0
Статус: Участник

 Создано: 15 июня 2009 21:31
· Личное сообщение · #3

там ничего кроме картинок нету..я все проверил... библиотеки юзает чисто виндовые....
все что нужно в этом файле...начинается с адреса 00474676
декомпильните и вы меня поймете....
ну и раз для новичков раздел то спрошу
var_8 = &H402550 это переменная что означает это ведь не число ???

вот код кнопки ok прокаментируйьте пожалуйста на сколько возможно

Code:
  1. Private Sub cmdOK_Click() '474647
  2.   loc_00474676: var_8 = &H402550
  3.                 If 4D474Ch = esi Then
  4.   loc_004746CE:   call MSVBVM50.DLL.__vbaNew2(00408000h, 004D474Ch, edi, esi, ebx)
  5.                 End If
  6.   loc_004746E6: call MSVBVM50.DLL.__vbaObjSet("", 4D474Ch, 4D474Ch)
  7.   loc_004746F8: var_30 = Text2.Text
  8.                 If var_30 < esi Then
  9.   loc_00474715:   call MSVBVM50.DLL.__vbaHresultCheckObj(var_30, MSVBVM50.DLL.__vbaObjSet("", 4D474Ch, 4D474Ch), 0041124Ch, 000000A0h)
  10.   loc_0047471A:   GoTo loc_00474721
  11.                 End If
  12.   loc_00474721: 'Referenced from 0047471A
  13.   loc_0047472A: call MSVBVM50.DLL.__vbaStrMove
  14.   loc_00474732: call MSVBVM50.DLL.__vbaFreeObj
  15.                 If 4D474Ch = esi Then
  16.   loc_0047474A:   call MSVBVM50.DLL.__vbaNew2(00408000h, 004D474Ch)
  17.                 End If
  18.   loc_00474762: call MSVBVM50.DLL.__vbaObjSet("", 4D474Ch, 4D474Ch)
  19.   loc_00474774: var_30 = Text1.Text
  20.                 If var_30 < esi Then
  21.   loc_00474787:   call MSVBVM50.DLL.__vbaHresultCheckObj(var_30, MSVBVM50.DLL.__vbaObjSet("", 4D474Ch, 4D474Ch), 0041124Ch, 000000A0h)
  22.                 End If
  23.   loc_00474795: call MSVBVM50.DLL.__vbaStrMove
  24.   loc_0047479D: call MSVBVM50.DLL.__vbaFreeObj
  25.                 If 4D474Ch = esi Then
  26.   loc_004747B5:   call MSVBVM50.DLL.__vbaNew2(00408000h, 004D474Ch)
  27.                 End If
  28.   loc_004747CD: call MSVBVM50.DLL.__vbaObjSet("", 4D474Ch, 4D474Ch)
  29.   loc_004747DF: var_30 = Text3.Text
  30.                 If var_30 < esi Then
  31.   loc_004747F2:   call MSVBVM50.DLL.__vbaHresultCheckObj(var_30, MSVBVM50.DLL.__vbaObjSet("", 4D474Ch, 4D474Ch), 0041124Ch, 000000A0h)
  32.                 End If
  33.   loc_00474800: call MSVBVM50.DLL.__vbaStrMove
  34.   loc_00474808: call MSVBVM50.DLL.__vbaFreeObj
  35.   loc_0047481E: var_80 = &H413234
  36.   loc_00474821: var_88 = 8
  37.   loc_00474827: call MSVBVM50.DLL.__vbaVarDup
  38.   loc_00474831: var_70 = ""
  39.   loc_0047484A: var_58 = Format(&H4008, "")
  40.   loc_00474853: call MSVBVM50.DLL.__vbaStrVarMove(var_58, 00000001h, 00000001h)
  41.   loc_0047485D: call MSVBVM50.DLL.__vbaStrMove
  42.   loc_0047486C: call MSVBVM50.DLL.__vbaFreeVarList(00000002h, "", var_58)
  43.   loc_0047487D: var_80 = &H413234
  44.   loc_00474880: var_88 = 8
  45.   loc_00474886: call MSVBVM50.DLL.__vbaVarDup
  46.   loc_00474890: var_70 = ""
  47.   loc_004748A4: var_58 = Format(&H4008, "")
  48.   loc_004748AD: call MSVBVM50.DLL.__vbaStrVarMove(var_58, 00000001h, 00000001h)
  49.   loc_004748B7: call MSVBVM50.DLL.__vbaStrMove
  50.   loc_004748C8: call MSVBVM50.DLL.__vbaFreeVarList(00000002h, "", var_58)
  51.   loc_004748EC: var_28 = Stupen1(arg_8, "", "")
  52.                 If var_28 < esi Then
  53.   loc_00474906:   call MSVBVM50.DLL.__vbaHresultCheckObj(var_28, arg_8, 00412504h, 000006FCh, "")
  54.                 End If
  55.   loc_00474920: var_60 = 80020004h
  56.   loc_00474923: var_68 = 10
  57.   loc_00474926: var_58 = 10
  58.   loc_00474929: var_48 = 10
  59.   loc_0047493D: var_50 = 80020004h
  60.   loc_00474940: var_40 = 80020004h
  61.   loc_00474943: var_70 = &H4D43FC
  62.   loc_0047494D: MsgBox(&H4008, esi, var_48, var_58, var_68)
  63.   loc_00474960: call MSVBVM50.DLL.__vbaFreeVarList(00000003h, var_48, var_58, var_68)
  64.   loc_00474965: fld real4 ptr [004024C8h] ;
  65.   loc_00474975: fstp real4 ptr var_1C
  66.   loc_00474978: fld real4 ptr [004024CCh] ;
  67.   loc_0047497E: fstp real4 ptr ""0
  68.   loc_00474986: fstp real4 ptr var_BC
  69.   loc_0047498E: fstp real4 ptr var_20
  70.   loc_00474991: fld real4 ptr var_20
  71.   loc_00474994: fcomp real4 ptr ""0
  72.   loc_0047499A: fstsw ax
  73.                 If "" <= esi Then
  74.                   If 4D474Ch = 0 Then
  75.   loc_004749B6:     call MSVBVM50.DLL.__vbaNew2(00408000h, 004D474Ch)
  76.                   End If
  77.   loc_004749CE:   call MSVBVM50.DLL.__vbaObjSet("", 4D474Ch, 4D474Ch)
  78.   loc_004749DC:   var_30 = Text2.Text
  79.                   If var_30 < 0 Then
  80.   loc_004749F2:     call MSVBVM50.DLL.__vbaHresultCheckObj(var_30, MSVBVM50.DLL.__vbaObjSet("", 4D474Ch, 4D474Ch), 0041124Ch, 000000A0h)
  81.                   End If
  82.   loc_004749FF:   call MSVBVM50.DLL.__vbaStrCmp("koly022572", var_30)
  83.   loc_00474A07:   call MSVBVM50.DLL.__vbaFreeStr
  84.   loc_00474A0F:   call MSVBVM50.DLL.__vbaFreeObj
  85.   loc_00474A14:   fld real4 ptr var_1C
  86.   loc_00474A17:   fsub real4 ptr [004024D0h] ;
  87.   loc_00474A1D:   fstp real4 ptr var_1C
  88.   loc_00474A20:   fstsw ax
  89.                   If MSVBVM50.DLL.__vbaFreeObj = 0 Then
  90.   loc_00474A2A:     fld real4 ptr var_BC
  91.   loc_00474A30:     fadd real4 ptr var_20
  92.   loc_00474A33:     fstp real4 ptr var_20
  93.   loc_00474A36:     fstsw ax
  94.                     If MSVBVM50.DLL.__vbaFreeObj = 0 Then
  95.   loc_00474A40:       GoTo loc_00474991
  96.                       If 4D474Ch = MSVBVM50.DLL.__vbaObjSet("" Then
  97.   loc_00474A58:         call MSVBVM50.DLL.__vbaNew2(00408000h, 004D474Ch)
  98.                       End If
  99.   loc_00474A70:       call MSVBVM50.DLL.__vbaObjSet("", 4D474Ch, 4D474Ch)
  100.   loc_00474A7E:       var_30 = Text2.Text
  101.                       If var_30 < 0 Then
  102.   loc_00474A94:         call MSVBVM50.DLL.__vbaHresultCheckObj(var_30, MSVBVM50.DLL.__vbaObjSet("", 4D474Ch, 4D474Ch), 0041124Ch, 000000A0h)
  103.                       End If
  104.   loc_00474AA1:       call MSVBVM50.DLL.__vbaStrCmp("fhfr56hh", var_30)
  105.   loc_00474AA9:       call MSVBVM50.DLL.__vbaFreeStr
  106.   loc_00474AB1:       call MSVBVM50.DLL.__vbaFreeObj
  107.   loc_00474ABE:       call MSVBVM50.DLL.__vbaStrCopy
  108.   loc_00474ACD:       call MSVBVM50.DLL.__vbaStrCopy
  109.   loc_00474AE2:       Proc_0047AE1B(var_48, "SinForm", var_30)
  110.   loc_00474AF0:       call MSVBVM50.DLL.__vbaFreeStrList(00000002h, var_30, "", var_48, var_30, "", "")
  111.   loc_00474AFB:       call MSVBVM50.DLL.__vbaFreeVar
  112.   loc_00474B08:       call MSVBVM50.DLL.__vbaStrCopy
  113.   loc_00474B12:       call MSVBVM50.DLL.__vbaStrCopy
  114.   loc_00474B27:       Proc_0047AE1B(var_48, "SinForm", var_30)
  115.   loc_00474B35:       call MSVBVM50.DLL.__vbaFreeStrList(00000002h, var_30, "", var_48, var_30, "", "")
  116.   loc_00474B40:       call MSVBVM50.DLL.__vbaFreeVar
  117.   loc_00474B4D:       call MSVBVM50.DLL.__vbaStrCopy
  118.   loc_00474B57:       call MSVBVM50.DLL.__vbaStrCopy
  119.   loc_00474B6C:       Proc_0047AE1B(var_48, "SinForm", var_30)
  120.   loc_00474B7A:       call MSVBVM50.DLL.__vbaFreeStrList(00000002h, var_30, "", var_48, var_30, "", var_28)
  121.   loc_00474B85:       call MSVBVM50.DLL.__vbaFreeVar
  122.   loc_00474B8A:       004D408Eh = 004D408Eh Or FFFFh
  123.                     End If
  124.                     If var_4D408E = 65535 Then
  125.                       If var_4D5D74 = 0 Then
  126.   loc_00474BAF:         call MSVBVM50.DLL.__vbaNew2(00410A54h, 004D5D74h)
  127.                       End If
  128.   loc_00474BC3:       call MSVBVM50.DLL.__vbaObjSetAddref("", arg_8)
  129.   loc_00474BCA:       call frmRegistracij.GetTypeInfo(MSVBVM50.DLL.__vbaObjSetAddref("", arg_8))
  130.                       If frmRegistracij.GetTypeInfo(MSVBVM50.DLL.__vbaObjSetAddref("", arg_8)) < 0 Then
  131.   loc_00474BDA:         call MSVBVM50.DLL.__vbaHresultCheckObj(frmRegistracij.GetTypeInfo(MSVBVM50. DLL.__vbaObjSetAddref("", arg_8)), 004D5D74h, 00410B64h, 00000010h)
  132.                       End If
  133.   loc_00474BE2:       call MSVBVM50.DLL.__vbaFreeObj
  134.                     End If
  135.   loc_00474BF1:     GoTo loc_00474C24
  136.   loc_00474BFD:     call MSVBVM50.DLL.__vbaFreeStrList(00000002h, var_30, "", 00474C3Dh)
  137.   loc_00474C08:     call MSVBVM50.DLL.__vbaFreeObj
  138.   loc_00474C1B:     call MSVBVM50.DLL.__vbaFreeVarList(00000003h, var_4 And 00000000h8, var_58, var_68)
  139.   loc_00474C23:     Exit Sub
  140.   loc_00474C24:     'Referenced from 00474BF1
  141.   loc_00474C27:     call MSVBVM50.DLL.__vbaFreeStr
  142.   loc_00474C2F:     call MSVBVM50.DLL.__vbaFreeStr
  143.   loc_00474C37:     GoTo loc_MSVBVM50.DLL.__vbaFreeStr
  144.   loc_00474C3C:     Exit Sub
  145.   loc_00474C57:     Exit Sub
  146.                   End If
  147.                 End If
  148.   loc_00474C5A: GoTo loc_MSVBVM50.DLL.__vbaFPException
  149. End Sub
  150.  

Ранг: 441.3 (мудрец), 297thx
Активность: 0.41↘0.04
Статус: Участник

 Создано: 15 июня 2009 21:49
· Личное сообщение · #4

romoga
мне честно говоря насрать, есть ли там что-то или нет
Выкладывай полный пакет, ибо запустить нельзя тот огрызок который ты выложил



Ранг: -0.4 (гость)
Активность: 0=0
Статус: Участник

 Создано: 15 июня 2009 21:59
· Личное сообщение · #5

ладно ладно ..не зачем ругатся ..выкладываю..

slil.ru/27761313



Ранг: -0.4 (гость)
Активность: 0=0
Статус: Участник

 Создано: 16 июня 2009 21:03
· Личное сообщение · #6

Уважаему обясните пожалуйста хотябы что делает вот это ????
call MSVBVM50.DLL.__vbaStrVarVal("", var_5C, strCod, 00000002h, 00000001h)

Переводит строку в число.. не в одном српавочнике по vb функция не риспользуется с пятью параметрами



Ранг: 120.2 (ветеран), 8thx
Активность: 0.12↘0
Статус: Участник

 Создано: 16 июня 2009 22:22 · Поправил: cadet
· Личное сообщение · #7

ну если по быстрому то наверное так

4744f2 - проверка на длину вводимых данных имя - 8, код - 26, пароль -8, если верно то переход
474912 - основной переход зарегана или нет

452f26 - проверка при запуске прожки



Ранг: -0.4 (гость)
Активность: 0=0
Статус: Участник

 Создано: 16 июня 2009 23:47
· Личное сообщение · #8

Уважаемый кадет рег данные у меня есть... Сама прога мне не нужна... интересует алгоритм проверки ..
насколько японял имя, ключ и пароль взаимодействуют..но не магу понять как...подскажите пожалуйста



Ранг: 120.2 (ветеран), 8thx
Активность: 0.12↘0
Статус: Участник

 Создано: 16 июня 2009 23:53
· Личное сообщение · #9

начало и конец я указал, весь алгоритм разбирать.... нет пока желания.



Ранг: -0.4 (гость)
Активность: 0=0
Статус: Участник

 Создано: 17 июня 2009 00:00
· Личное сообщение · #10

Прокаментируйте ПЛИЗЗ этот участок кодадальше попробую разобортся...

Code:
  1. loc_0047370C: call MSVBVM50.DLL.__vbaStrVarVal(var_30, var_5C, strCod, 00000002h, 00000001h)
  2.   loc_00473712: Asc(MSVBVM50.DLL.__vbaStrVarVal(var_30, var_5C, strCod, 00000002h, 00000001h))
  3.   loc_00473717: ebx = ""
  4.   loc_00473727: setnl bl
  5.   loc_0047372B: neg ebx
  6.   loc_0047372D: call MSVBVM50.DLL.__vbaStrVarVal(var_3C, var_BC)
  7.   loc_00473733: Asc(MSVBVM50.DLL.__vbaStrVarVal(var_3C, var_BC))
  8.   loc_00473738: ecx = ""
  9.   loc_00473741: setle cl
  10.   loc_00473748: neg ecx
  11.   loc_0047374B: ebx = ebx And ecx


насколько я понял берется символ переводится в цифру дальше оперция ebx = ebx And ecx
но что значит ecx = ""
и пачему vbaStrVarVal имеет столько параметров..??




Ранг: 756.3 (! !), 113thx
Активность: 0.61↘0.05
Статус: Участник
Student

 Создано: 18 июня 2009 19:05
· Личное сообщение · #11

тебе cadet уже разжувал где и что проверяется и где лежит, что ещё то нужно?
кейген написать?

-----
z+Dw7uLu5+jqLCDq7vLu8PvpIPHs7uMh

Ранг: -0.4 (гость)
Активность: 0=0
Статус: Участник

 Создано: 18 июня 2009 19:41
· Личное сообщение · #12

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




Ранг: 756.3 (! !), 113thx
Активность: 0.61↘0.05
Статус: Участник
Student

 Создано: 18 июня 2009 21:42
· Личное сообщение · #13

Просто из твоего описания видно только, что ты смог запустить vb decompiler
никакой информации с твоей стороны... т.е. ты больше так ничего и не сделал и нигде не лазил
правила почитай, а не обижайся, что все злые
Если вам всё-таки требуется помощь, постарайтесь максимально грамотно и понятно изложить свой вопрос, способы и методы, которые были вами предприняты для решения имеющейся проблемы.

тут или задавай конкретный вопрос или хотябы пиши где лазиешь люди будут направлять то ли это что тебе надо или ты на ложном пути
или в запросы на взлом (хотя, как я понял, ломать тебе её не надо)

-----
z+Dw7uLu5+jqLCDq7vLu8PvpIPHs7uMh
 eXeL@B —› Вопросы новичков —› Помогите найти алгоритм проверки рег данных
:: Ваш ответ
Жирный  Курсив  Подчеркнутый  Перечеркнутый  {mpf5}  Код  Вставить ссылку 
:s1: :s2: :s3: :s4: :s5: :s6: :s7: :s8: :s9: :s10: :s11: :s12: :s13: :s14: :s15: :s16:


Максимальный размер аттача: 500KB.
Ваш логин: german1505 » Выход » ЛС
   Для печати Для печати