Mensajes

modificar el programa claro que se puede, pero no desde lo que te muestra el dodi.como toda la vida con un editor hexadecimal sabiendo donde tienes que modificar. pero veo mas sencillo sacarle el codigo ya que la informacion que te da es mucha.

para saber lo que quiere decir esto: Mid$(l0028$, l002A%), por ejemplo, que tengo que buscar, informacion del dodi o de visual basic 3?

l0028$ = Trim$(UCase$(txtUserName))

For l002A% = 1 To Len(l0028$)

l0028$=Nombre de usuario

l002A%=Variable del for, que se incrementara en 1 hasta N caracteres (que tendra el nombre).

con toda la info que te da puedes hacerlo tu en tu codigo tranquilamente. solo tienes que fijarte en que es cada variable. deberias almenos entender el vb para lo que quieres hacer, si no es como si lees el periodico en chino.

o el poder ver los canalas a traves de caboTV

cabotv tiene n3, seria eso lo que escuchaste. sobre lo otro ya hay adelantos y hasta aqui puedo leer como decian en el 1 2 3.


saludos.

di tb si has modificado algo el cacharro para conectarlo ya que R tb se ve afectada por la sección del cable. y si la resistencia tiene coeficiente de temperatura positivo (aumentara la resistencia segun aumente la temperatura) o es todo lo contrario y entonces al calentarse aumentara la corriente electrica, esto va a hacer que se caliente aun mas y te fundira lo que pille.

se esta haciendo el cambio, en breve buenas noticias.

dodi's vb discompiler. mirandolo otra vez ese codigo te genera el codigo despues hay unas comprobaciones mas con otros valores que deberias buscar y tendrias lo que necesitas.

pues a sido  ciegas, he modificado un byte cerca del nombre de un componente y me a salido el error de las runtime de vb3.

te dejo la rutina que te interesa, la pego aqui y quien quiera que te ayude. puedes llegar a sacar el keygen.

Código [Seleccionar] Expandir

Sub sub6670()
Dim l0020 As Long
Dim l0028 As String
Dim l002A As Integer
Dim l002C As String
Dim l002E As Long
Dim l0030 As String
Dim l0032 As String
Dim l0034 As Long
Dim l0036 As Long
Dim l0038 As String
Dim l003A As String
Dim l003C As Long
' Const c004C = 1 ' &H1%
    Exit Sub
    l0020& = Val(txtSerialNumber)
    l0028$ = Trim$(UCase$(txtUserName))
    For l002A% = 1 To Len(l0028$)
        If Mid$(l0028$, l002A%) >= "A" And Mid$(l0028$, l002A%) <= "Z" Then
            l002C$ = l002C$ & Mid$(l0028$, l002A%, 1)
            l002E& = l002E& + (Asc(Mid$(l0028$, l002A%)) - 48) * Len(l002C$)
            l002E& = l002E& Xor l0020&
        End If
    Next l002A%
    l0030$ = Right$("151678" & Trim$(Str$(915141 - l002E&)), 6)
    l0032$ = "B"
    l0034& = 7
    l0036& = 2000
    l0036& = l0036& - 1900
    l0038$ = Trim$(Str$(l0034& + 10)) & Trim$(Str$(l0036&))
    l003A$ = l0030$ & l0032$ & l0038$
    l003C& = 0
    For l002A% = 1 To Len(l003A$)
        l003C& = l003C& + (Asc(Mid$(l003A$, l002A%)) + 7) * l002A%
        l003C& = l003C& Xor (Asc(Mid$(l003A$, l002A%)) - 9)
        l003C& = l003C& * 2
    Next l002A%
    txtPassword = l003A$ & "-" & Trim$(Str$(l003C&))
End Sub

el programa esta compilado en vb3.

¿Esto iria en Windows no? undecided

mas bien.

copiarse cade minuto....... un programa por ejemplo de 1 mb y un ordenador encendido  algun tiempo puede hacer sospechar a cualquiera que algo raro pasa.