Foro de elhacker.net

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

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