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 |
