need keygen

gusmen · #1 04-16-2013, 21:53

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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode