Exetools  

Go Back   Exetools > General > General Discussion

Notices

Reply
 
Thread Tools Display Modes
  #1  
Old 04-16-2013, 21:53
gusmen gusmen is offline
Friend
 
Join Date: Jul 2010
Posts: 36
Rept. Given: 13
Rept. Rcvd 4 Times in 4 Posts
Thanks Given: 9
Thanks Rcvd at 2 Times in 2 Posts
gusmen Reputation: 4
need keygen

hi need code for create keygen , or keygen

many thanks

soft VB 6 compiled , i decompiled and show this code :

get serial hard disk nad use random number for show principal code

Form decompiled :

Form load :
Code:
Private Sub Form_Load() '10BC000
  Dim var_2C As Me
  Dim var_18 As Me
  Dim var_5C As Me
  Dim var_4C As Me
  loc_010BC025: var_8 = &H42AED8
  loc_010BC09E: var_2C = Global.App
  loc_010BC0C2: var_18 = Me.Caption
  loc_010BC0DF: var_34 = var_18
  loc_010BC0ED: var_3C = 8
  loc_010BC0F4: var_4C = Left(var_18, 3)
  loc_010BC102: var_5C = Ucase(var_4C)
  loc_010BC10F: var_5C = var_4C
  loc_010BC11A: var_1C = var_5C
  loc_010BC12A: ecx = var_1C
  loc_010BC162: Var_Ret_1 = Me.GetPalette
  loc_010BC182: Var_Ret_2 = Me.SaveProp
  loc_010BC190: Var_Ret_3 = %x1 = Me.hWnd
  loc_010BC197: GetVolumeInformation(Var_Ret_3, Var_Ret_2, 256, Set %x2 = Me(%x1), var_5C, var_2C, 5572540, 80)
  loc_010BC19C: GetLastError
  loc_010BC1AD: Var_Ret_4 = var_18
  loc_010BC1B7: Var_Ret_5 = var_1C
  loc_010BC1C0: call __vbaLsetFixstr(00000000h, Me.SaveProp, Var_Ret_5, 00000050h, 00000050h, 00000050h, 00000050h, 00000050h, 00000050h)
  loc_010BC1CE: Var_Ret_6 = var_24
  loc_010BC1D7: call __vbaLsetFixstr(00000000h, Me.GetPalette, Var_Ret_6)
  loc_010BC1FF: call __vbaI4Abs
  loc_010BC206: call __vbaStrI4(__vbaI4Abs)
  loc_010BC214: var_34 = __vbaStrI4(__vbaI4Abs)
  loc_010BC217: var_3C = 8
  loc_010BC240: ecx = Trim(__vbaStrI4(__vbaI4Abs))
  loc_010BC261: var_34 = 80020004h
  loc_010BC268: var_3C = 10
  loc_010BC270: Randomize()
  loc_010BC289: ecx = 0054D93Ch
  loc_010BC297: Var_Ret_7 = Len(esi+44h)
  loc_010BC29D: var_E8 = Var_Ret_7
  loc_010BC2A9: 
  loc_010BC2B4: If  Then GoTo loc_010BC3EB
  loc_010BC2BD: var_64 = 80020004h
  loc_010BC2C5: var_6C = 10
  loc_010BC2D7: var_D0 = Rnd()
  loc_010BC2DD: var_94 = esi+44h
  loc_010BC2EA: var_B4 = %x1 = Me.Caption
  loc_010BC2FD: var_BC = 8
  loc_010BC307: var_34 = 1
  loc_010BC30E: var_3C = 2
  loc_010BC315: var_9C = &H4008
  loc_010BC33B: call __vbaFPInt(Mid$(esi+44h, word ptr [esi+54h], 1))
  loc_010BC355: call __vbaStrR4(F800000), ((var_D0, var_9C)
  loc_010BC35B: var_74 = __vbaStrR4(F800000), ((var_D0, var_9C)
  loc_010BC36D: var_7C = 8
  loc_010BC374: var_5C = %x1 = Me.Caption & __vbaStrR4(F800000), ((var_D0, var_9C)
  loc_010BC386: var_8C = var_5C & __vbaStrR4(F800000), ((var_D0, var_9C)
  loc_010BC3A2: ecx = var_5C
  loc_010BC3D8: 00000001h = 00000001h + esi+54h
  loc_010BC3E6: GoTo loc_010BC2A9
  loc_010BC3EB: 
  loc_010BC3F9: Set var_2C = 1
  loc_010BC407: Unknown_VTable_Call[ecx+54h]
  loc_010BC435: GoTo loc_010BC486
  loc_010BC485: Exit Sub
  loc_010BC486: Exit Sub
End Sub
this code is decompiled from button "check code"
Code:
Private Sub CommandButton3_UnknownEvent_B '10BB950
  Dim var_2C As Variant
  loc_010BB979: var_14 = &H42AE70
  loc_010BB992: var_C = 0
  loc_010BB9A5: var_4 = 1
  loc_010BB9AC: var_4 = 2
  loc_010BB9B5: On Error Resume Next
  loc_010BB9BB: var_4 = 3
  loc_010BB9DC: var_D4 = var_2C
  loc_010BB9F5: var_24 = Text1.Text
  loc_010BB9FD: var_D8 = var_24
  loc_010BBA0A: If var_24 >= 0 Then GoTo loc_010BBA32
  loc_010BBA2A: var_104 = var_24
  loc_010BBA30: GoTo loc_010BBA3C
  loc_010BBA32: var_104 = 0
  loc_010BBA3C: 
  loc_010BBA4F: eax = (var_24 = 5560636) + 1
  loc_010BBA52: var_DC = (var_24 = 5560636) + 1
  loc_010BBA74: If (var_24 = 5560636) + 1 = 0 Then GoTo loc_010BBB0B
  loc_010BBA7A: var_4 = 4
  loc_010BBA81: var_68 = 80020004h
  loc_010BBA88: var_70 = 10
  loc_010BBA8F: var_58 = 80020004h
  loc_010BBA96: var_60 = 10
  loc_010BBA9D: var_48 = 80020004h
  loc_010BBAA4: var_50 = 10
  loc_010BBAAB: var_98 = "Debe introducir una clave de instalación válida."
  loc_010BBAB5: var_A0 = 8
  loc_010BBAE0: MsgBox 8, 64, 10, 10, 10
  loc_010BBB26: Set var_2C = Me
  loc_010BBB2C: var_D4 = var_2C
  loc_010BBB45: var_24 = Text1.Text
  loc_010BBB4D: var_D8 = var_24
  loc_010BBB5A: If var_24 >= 0 Then GoTo loc_010BBB82
  loc_010BBB7A: var_108 = var_2C
  loc_010BBB80: GoTo loc_010BBB8C
  loc_010BBB82: var_108 = 0
  loc_010BBB8C: 
  loc_010BBBA6: var_DC = var_30
  loc_010BBBBF: var_28 = Text1.Text
  loc_010BBBC7: var_E0 = var_28
  loc_010BBBD4: If var_28 >= 0 Then GoTo loc_010BBBFC
  loc_010BBBF4: var_10C = var_28
  loc_010BBBFA: GoTo loc_010BBC06
  loc_010BBBFC: var_10C = 0
  loc_010BBC06: 
  loc_010BBC09: var_FC = var_24
  loc_010BBC0F: var_24 = 0
  loc_010BBC1F: var_40 = 8
  loc_010BBC30: Len(var_28) = Len(var_28) - 00000003h
  loc_010BBC42: 10 = Right(8, Len(var_28))
  loc_010BBC4F: call __vbaCyStr(Me = %x1, 0054C9A4h, 000000A0h, Me, var_2C, 0054C9A4h, 0054C9A4h, 0054C9A4h, 0054C9A4h)
  loc_010BBC57: Proc_0079B360(__vbaCyStr(Me = %x1, 0054C9A4h, 000000A0h, Me, var_2C, 0054C9A4h, 0054C9A4h, 0054C9A4h, 0054C9A4h), Me, 10)
  loc_010BBC62: var_60 = 6
  loc_010BBC71: 10 = Trim(10)
  loc_010BBC7B: Var_Ret_1 = CStr(10)
  loc_010BBC81: var_78 = Var_Ret_1
  loc_010BBC84: var_80 = &H8008
  loc_010BBC93: Var_Ret_2 = (10 = &H8008)
  loc_010BBC99: var_E4 = Var_Ret_2
  loc_010BBCE8: If Var_Ret_2 = 0 Then GoTo loc_010BBEE8
  loc_010BBCEE: var_4 = 8
  loc_010BBD00: Open "C:\WINDOWS\systemh.tmp" For Random As #1
  loc_010BBD06: var_4 = 9
  loc_010BBD1A: Proc_0079B6B0(14528C4h, Me = %x1, Me)
  loc_010BBD2D: var_100 = eax
  loc_010BBD33: var_28 = 0
  loc_010BBD43: ecx = 0
  loc_010BBD51: Print #1, 0
  loc_010BBD6D: var_4 = 10
  loc_010BBD76: Close #1
  loc_010BBD83: var_68 = 80020004h
  loc_010BBD8A: var_70 = 10
  loc_010BBD91: var_58 = 80020004h
  loc_010BBD98: var_60 = 10
  loc_010BBD9F: var_48 = 80020004h
  loc_010BBDA6: var_50 = 10
  loc_010BBDAD: var_98 = "Código de instalación correcto."
  loc_010BBDB7: var_A0 = 8
  loc_010BBDCA: ecx = 8
  loc_010BBDE2: MsgBox 8, 64, 10, 10, 10
  loc_010BBE03: var_4 = 12
  loc_010BBE23: var_110 = &H145A8AC
  loc_010BBE2D: GoTo loc_010BBE39
  loc_010BBE2F: var_110 = &H145A8AC
  loc_010BBE39: 
  loc_010BBE41: var_D4 = &H145A8AC
  loc_010BBE60: var_114 = &H1452F90
  loc_010BBE6A: GoTo loc_010BBE76
  loc_010BBE6C: var_114 = &H1452F90
  loc_010BBE76: 
  loc_010BBE83: Set var_2C = &H1452F90
  loc_010BBE99: call FClaveHDD.GetTypeInfo(var_2C, 10, Me = %x1, &H8008, __vbaCyStr(Me = %x1, 0054C9A4h, 000000A0h, Me, var_2C, 0054C9A4h, 0054C9A4h, 0054C9A4h, 0054C9A4h), Me, Me = %x1, &H8008)
  loc_010BBE9E: var_D8 = FClaveHDD.GetTypeInfo(var_2C, 10, Me = %x1, &H8008, __vbaCyStr(Me = %x1, 0054C9A4h, 000000A0h, Me, var_2C, 0054C9A4h, 0054C9A4h, 0054C9A4h, 0054C9A4h), Me, Me = %x1, &H8008)
  loc_010BBEAB: If 0 >= 0 Then GoTo loc_010BBED0
  loc_010BBEC8: var_118 = FClaveHDD.GetTypeInfo(var_2C, 10, Me = %x1, &H8008, __vbaCyStr(Me = %x1, 0054C9A4h, 000000A0h, Me, var_2C, 0054C9A4h, 0054C9A4h, 0054C9A4h, 0054C9A4h), Me, Me = %x1, &H8008)
  loc_010BBECE: GoTo loc_010BBEDA
  loc_010BBED0: var_118 = 0
  loc_010BBEDA: 
  loc_010BBEE3: GoTo loc_010BBF7C
  loc_010BBEEF: var_68 = 80020004h
  loc_010BBEF6: var_70 = 10
  loc_010BBEFD: var_58 = 80020004h
  loc_010BBF04: var_60 = 10
  loc_010BBF0B: var_48 = 80020004h
  loc_010BBF12: var_50 = 10
  loc_010BBF19: var_98 = "El código de validación no es válido. La aplicación finalizará."
  loc_010BBF23: var_A0 = 8
  loc_010BBF36: ecx = 8
  loc_010BBF4E: MsgBox 8, 16, 10, 10, 10
  loc_010BBF6F: var_4 = 15
  loc_010BBF76: End
  loc_010BBF7C: var_10 = 0
  loc_010BBF88: GoTo loc_010BBFD7
  loc_010BBFD6: Exit Sub
  loc_010BBFD7: Exit Sub
End Sub
many thanks and sorry for me english
Reply With Quote
  #2  
Old 04-18-2013, 03:04
wilson bibe wilson bibe is offline
VIP
 
Join Date: Nov 2012
Posts: 492
Rept. Given: 489
Rept. Rcvd 439 Times in 180 Posts
Thanks Given: 853
Thanks Rcvd at 176 Times in 112 Posts
wilson bibe Reputation: 400-499 wilson bibe Reputation: 400-499 wilson bibe Reputation: 400-499 wilson bibe Reputation: 400-499 wilson bibe Reputation: 400-499
You need find the NAG messages to register this APP debugging it, and use the Radasm or Winasm to create your keygen, only with the decompiler results "forms", "bas" and "cls" files it's very difficult create what you want.
Regards
Reply With Quote
The Following User Gave Reputation+1 to wilson bibe For This Useful Post:
gusmen (04-18-2013)
  #3  
Old 04-18-2013, 19:46
gusmen gusmen is offline
Friend
 
Join Date: Jul 2010
Posts: 36
Rept. Given: 13
Rept. Rcvd 4 Times in 4 Posts
Thanks Given: 9
Thanks Rcvd at 2 Times in 2 Posts
gusmen Reputation: 4
http://www.putlocker.com/file/E4E99D21BD566324
soft VB6 ,if serial is ok, the soft create file systemh.txt in system folder .
Reply With Quote
  #4  
Old 04-19-2013, 13:40
wilson bibe wilson bibe is offline
VIP
 
Join Date: Nov 2012
Posts: 492
Rept. Given: 489
Rept. Rcvd 439 Times in 180 Posts
Thanks Given: 853
Thanks Rcvd at 176 Times in 112 Posts
wilson bibe Reputation: 400-499 wilson bibe Reputation: 400-499 wilson bibe Reputation: 400-499 wilson bibe Reputation: 400-499 wilson bibe Reputation: 400-499
Hi Gusmen
Can you upload the installer to rghost?, Link:http://rghost.net/
Regards
Reply With Quote
The Following User Gave Reputation+1 to wilson bibe For This Useful Post:
gusmen (04-20-2013)
  #5  
Old 04-19-2013, 22:36
nikkapedd nikkapedd is offline
VIP
 
Join Date: Mar 2011
Location: ::Bratva::
Posts: 275
Rept. Given: 275
Rept. Rcvd 151 Times in 65 Posts
Thanks Given: 202
Thanks Rcvd at 275 Times in 112 Posts
nikkapedd Reputation: 100-199 nikkapedd Reputation: 100-199
Wilson bibe, here for you a mirror on rghost....
Code:
http://rghost.net/45402615
Reply With Quote
The Following 2 Users Gave Reputation+1 to nikkapedd For This Useful Post:
gusmen (04-20-2013), wilson bibe (04-20-2013)
  #6  
Old 04-20-2013, 06:35
gusmen gusmen is offline
Friend
 
Join Date: Jul 2010
Posts: 36
Rept. Given: 13
Rept. Rcvd 4 Times in 4 Posts
Thanks Given: 9
Thanks Rcvd at 2 Times in 2 Posts
gusmen Reputation: 4
Thanks, I searched the code or formula to make a keygen power, but I could not,
I just need the math operation or commands to generate a correct number, I can do a soft keygen, need not do so, but if they find the math operation or orders.
thanks
Reply With Quote
Reply

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off



All times are GMT +8. The time now is 18:19.


Always Your Best Friend: Aaron, JMI, ahmadmansoor, ZeNiX, chessgod101
( 1998 - 2024 )