Fiscus Facturas CBB esta hecho en visual basic
Me pueden ayudar a registrar este programa por favor
Estoy intentando sacar la clave para este programa con el VB Decompiler Pro 8.3 pero la verdad no se por donde empezar
ya abri el archivo exe y se muestra toda la codificacion

En la versión de evaluación los comprobantes generados presentan una leyenda que dice "Version Demo" en la impresión del código de barra. No son comprobantes fiscales válidos.

estos son los requisitos de la empresa para activacion

Debe registrar su clave de activación para poder emitir comprobantes CBB validos.

La clave de activación es un número largo de 128 caracteres que se genera a partir del RFC del emisor de comprobantes. Cada RFC tiene su propia clave de activación

esta es la pagina:

Facturas Bidimensionales, CFD Cancun, CFDI Cancun,punto de venta cancun
aqui mismo esta el enlace por un lado para bajar el programa

Espero ayudar con esto un poco, esto es el codigo del comando activar

Código:

Private Sub cmdActivar_Click() '572E40
  Dim var_38 As TextBox
  loc_00572E65: var_8 = &H403E98
  loc_00572EC3: Set var_38 = Me
  loc_00572ED2: var_30 = txtClaveDeActivacion.Text
  loc_00572EF6: var_40 = var_30
  loc_00572F08: var_58 = Trim(var_30)
  loc_00572F1D: var_28 = var_58
                If (var_28 = 4310192) = 0 Then GoTo loc_0057344C
  loc_00572F58: Proc_0051AD40((var_28 = 4310192), var_28, 8)
  loc_00572F62: var_2C = eax
                If (var_2C <> 4310192) <> 0 Then GoTo loc_00573034
  loc_00572F89: Set var_38 = (var_2C = 4310192)
  loc_00572F99: txtClaveDeActivacion.Text = 4310192
  loc_00572FD3: var_70 = 80020004h
  loc_00572FD6: var_78 = 10
  loc_00572FD9: var_60 = 80020004h
  loc_00572FDC: var_68 = 10
  loc_00572FDF: var_50 = 80020004h
  loc_00572FE2: var_58 = 10
  loc_00572FE5: var_80 = "Antes de activar el programa debe completar los requisitos pendientes"
  loc_00572FEC: var_88 = 8
  loc_00572FF6: var_48 = "Antes de activar el programa debe completar los requisitos pendientes"
  loc_0057300E: MsgBox var_48, 64
  loc_0057302F: GoTo loc_0057344A
  loc_00573034: 
  loc_00573038: Proc_00574910(var_28, var_48, var_58)
  loc_00573042: var_1C = Proc_00574910(var_28, var_48, var_58)
  loc_00573051: call 80020004h("ERROR", var_1C, var_28, var_38, var_38, 0041CF4Ch, 000000A4h, var_38, var_38)
                If 80020004h("ERROR", var_1C, var_28, var_38, var_38, 0041CF4Ch, 000000A4h, var_38, var_38) <> 0 Then GoTo loc_005730E7
  loc_00573066: var_78 = 10
  loc_00573069: var_68 = 10
  loc_0057307F: var_70 = 80020004h
  loc_00573082: var_60 = 80020004h
  loc_00573085: var_90 = "Alerta de Seguridad"
  loc_0057308F: var_98 = 8
  loc_005730A0: var_80 = "Clave de activación inválida."
  loc_005730A7: var_88 = 8
  loc_005730C1: MsgBox "Clave de activación inválida.", 16, "Alerta de Seguridad"
  loc_005730E2: GoTo loc_0057344A
  loc_005730E7: 
  loc_005730EF: call 80020004h(var_1C, var_2C)
  loc_005730FD: var_70 = 80020004h
  loc_00573100: var_78 = 10
  loc_00573103: var_60 = 80020004h
  loc_00573106: var_68 = 10
                If 80020004h(var_1C, var_2C) <> 0 Then GoTo loc_005733AC
  loc_0057311E: var_90 = "Reiniciar Ventas"
  loc_00573128: var_98 = 8
  loc_00573132: var_58 = "Reiniciar Ventas"
  loc_0057313D: var_80 = "¿Quiere eliminar las ventas realizadas en modo DEMO?"
  loc_00573144: var_88 = 8
  loc_00573162: MsgBox "¿Quiere eliminar las ventas realizadas en modo DEMO?", 36, var_58
  loc_0057318E: Me.var_78 = Forms
  loc_005731B4: call Me.LoadProp(58C0A0h, 0058C0A0h, 0041C57Ch, 00000028h)
  loc_00573205: var_34 = "UPDATE Config SET Valor = '" & var_28 & "' WHERE Clave = 'MODO'"
  loc_00573213: Me.5816480 = PropBag.ReadProperty(var_34, Me.LoadProp(58C0A0h, 0058C0A0h, 0041C57Ch, 00000028h))
                If var_34 >= 0 Then GoTo loc_00573235
                If var_20 <> 0 Then GoTo loc_0057327D
  loc_00573263: Me.4310396 = PropBag.ReadProperty("DELETE * FROM Ventas", 5816480)
  loc_00573287: call Me.SaveProp(FFFFFFFFh, 58C0A0h, 0058C0A0h, 0041C57Ch, 0000001Ch, 0000001Ch, 0041C57Ch, 00000030h)
  loc_005732A9: call Me.GetPropHsz(Me.SaveProp(FFFFFFFFh, 58C0A0h, 0058C0A0h, 0041C57Ch, 0000001Ch, 0000001Ch, 0041C57Ch, 00000030h), 0058C0A0h, 0041C57Ch, 00000034h)
  loc_005732D2: var_70 = 80020004h
  loc_005732D5: var_78 = 10
  loc_005732D8: var_60 = 80020004h
  loc_005732DB: var_68 = 10
  loc_005732DE: var_50 = 80020004h
  loc_005732E1: var_58 = 10
  loc_005732E4: var_80 = "La aplicación se ha activado exitosamente."
  loc_005732EB: var_88 = 8
  loc_00573309: MsgBox "La aplicación se ha activado exitosamente.", 64
  loc_00573327: var_78 = 10
  loc_0057332A: var_68 = 10
  loc_0057333E: var_70 = 80020004h
  loc_00573341: var_60 = 80020004h
  loc_00573344: var_90 = "Gracias por elegirnos!"
  loc_0057334E: var_98 = 8
  loc_0057335F: var_80 = "Debera reiniciar la aplicación para comenzar a facturar con FISCUS 1.0."
  loc_00573366: var_88 = 8
  loc_00573380: MsgBox "Debera reiniciar la aplicación para comenzar a facturar con FISCUS 1.0.", 64, "Gracias por elegirnos!"
  loc_005733A1: End
  loc_005733A7: GoTo loc_0057344A
  loc_005733AC: 
  loc_005733B5: var_50 = 80020004h
  loc_005733B8: var_58 = 8
  loc_005733BB: var_80 = "La clave de activación ingresada es incorrecta"
  loc_005733C2: var_88 = 8
  loc_005733E4: MsgBox "La clave de activación ingresada es incorrecta", 64, 80020004h
  loc_00573423: txtClaveDeActivacion.Text = 4310192
  loc_00573454: GoTo loc_0057348E
  loc_0057348D: Exit Sub
  loc_0057348E: 
End Sub