#1
|
|||
|
|||
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 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 |
#2
|
|||
|
|||
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 |
The Following User Gave Reputation+1 to wilson bibe For This Useful Post: | ||
gusmen (04-18-2013) |
#3
|
|||
|
|||
http://www.putlocker.com/file/E4E99D21BD566324
soft VB6 ,if serial is ok, the soft create file systemh.txt in system folder . |
#4
|
|||
|
|||
Hi Gusmen
Can you upload the installer to rghost?, Link:http://rghost.net/ Regards |
The Following User Gave Reputation+1 to wilson bibe For This Useful Post: | ||
gusmen (04-20-2013) |
#5
|
|||
|
|||
Wilson bibe, here for you a mirror on rghost....
Code:
http://rghost.net/45402615 |
The Following 2 Users Gave Reputation+1 to nikkapedd For This Useful Post: | ||
gusmen (04-20-2013), wilson bibe (04-20-2013) |
#6
|
|||
|
|||
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 |
Thread Tools | |
Display Modes | |
|
|