hola amigos como interpreto este codigo del decompilador para crear mi keygen en visual basic o c++ y como seria el codigo del keygen en visual basic o c++?
aqui el codigo:
Public Function Check(name) '405410
Dim var_30 As ProgressBar
loc_00405496: var_AC = Len(name)
loc_004054D0: Set var_30 = Me
loc_004054D7: var_30 = var_30.ControlDefault
loc_004054E0: var_eax = %fobj
loc_004054ED: var_2C = var_30.OLEDropMode
loc_0040550C: var_30.OLEDropMode = var_2C
loc_0040553E: var_A0 = Len(name)
loc_00405550: If 00000001h > 0 Then GoTo loc_0040571C
loc_00405599: Set var_30 = var_74
loc_004055A0: var_30 = var_30.ControlDefault
loc_004055A9: var_eax = %fobj
loc_004055D0: var_78 = name
loc_004055E8: var_2C = CStr(Mid(name, vbNull, 1))
loc_004055F5: Asc(var_2C) = Asc(var_2C) + 000Bh
loc_00405605: var_20 = Asc(var_2C)
loc_0040562F: Len(name) = Len(name) + 00000013h
loc_0040563A: Len(name) = Len(name) * var_20
loc_00405643: Len(name) = Len(name) + var_20
loc_00405655: Len(name) = Len(name) + Len(name)
loc_0040565E: var_20 = Len(name)
loc_00405664: var_88 = var_1C
loc_0040567F: var_78 = var_20
loc_00405697: var_2C = CStr(Str(var_20))
loc_004056A4: var_48 = StrReverse(var_2C)
loc_004056DD: var_1C = var_1C & Trim(StrReverse(var_2C))
loc_0040570C: 00000001h = 00000001h + di
loc_00405717: GoTo loc_00405549
loc_0040571C: 'Referenced from: 00405550
loc_00405728: var_24 = var_1C
loc_00405737: If Len(var_24) < 12 Then GoTo loc_00405761
loc_0040574E: Mid(var_24, 6, 2) = var_00402754
loc_0040575F: Mid(var_24, 12, 2) = var_00402754
loc_00405761: 'Referenced from: 00405737
loc_0040576E: var_78 = var_24
loc_004057A2: var_28 = Left(var_24, 17)
loc_004057AA: GoTo loc_004057E9
loc_004057B0: If var_4 = 0 Then GoTo loc_004057BB
loc_004057BB: 'Referenced from: 004057B0
loc_004057C7: var_eax = %fobj
loc_004057E8: Exit Sub
loc_004057E9: 'Referenced from: 004057AA
End Function
muchas gracias de antemano.
¿qué llevas hecho hasta ahora?
¿qué parte del código no entiendes?
el código no es dificil de traducir
Cita de: PalitroqueZ en 27 Abril 2017, 14:30 PM
¿qué llevas hecho hasta ahora?
¿qué parte del código no entiendes?
el código no es dificil de traducir
llevo esto, no se que mas hacer y como hacerlo funcionar
Private Sub Command1_Click()
Dim Name, Serial As String
Name = Text1.Text
Serial = Serial & Hex(Asc(Mid(Name, 1)))
VBDecompiler no es bueno para codigo nativo.
Mejor abre el programa con Olly y tracea para ver qué es lo que hace.
Saludos!
necesito mas ayuda es mi primer keygen