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