Mensajes

Yo creo que el problema lo tienes al hacer el:
Adodc1.Recordsource = ""

Yo veo que cada vez que pulsas un btn, la búsqueda que realizas es nula. Podrías hacer algo como:

Private Sub Command1_Click()
   Adodc1.RecordSource = "Select * from Tabla1"
   Adodc1.Refresh
End Sub
y lo mismo con el otro..

Está muy bien, la verdad que has dejado el código muy ordenado y legible. Para la gente que quiera aprender sobre esto, éste es el mejor ejemplo..yo lo acabo de probar con otro ordenador y va bien.

Faltarían algunos pequeños detalles de configuraciones y otras cosas, pero seguro que esa no es tu intención.

Sólo hay una cosa que no me ha gustado nada: las faltas de ortografía!! A mí por lo menos me choca muchísimo ver eso en un programa.. lo siento pero no puedo ver ha recivido, y se a desconectado...

Mira, para que vayas aprendiendo un poco te dejo un código que tengo guardado que lo que hace es abrir un nuevo documento de word y escribe "Título" y "el texto que quieras".
Intenta por tu cuenta analizarlo y entenderlo que no es nada complicado. Yo con este ejemplo es con el que aprendí:

Código [Seleccionar] Expandir

Private Sub Form_Load()
    Dim ObjWord As Object
    Dim DocdeWord As Object
    Dim ruta As String
    On Error Resume Next
    Set ObjWord = GetObject(, "word.Application")
        If Err.Number = 429 Then
            Err.Clear
            Set ObjWord = CreateObject("word.Application")
        End If
   ruta = App.Path & "\test1.doc"
   Set DocdeWord = ObjWord.Documents.Open(ruta, ReadOnly = True)
   ObjWord.Visible = True
   ObjWord.CommandBars.DisplayTooltips = False
   ObjWord.Selection.paragraghformat.Alignment = wdAlignParagraphCenter
   ObjWord.Selection.Font.Size = 20
   ObjWord.Selection.TypeText "Título"
   ObjWord.Selection.TypeParagraph
   ObjWord.Selection.TypeParagraph
   ObjWord.Selection.Font.Size = 12
   ObjWord.Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify
   ObjWord.Selection.TypeText "El texto que quieras, josemer"
   ObjWord = Nothing
   DocdeWord = Nothing
End Sub


Tenéis toda la razón.. El código es feísimo.. La ayuda q dí es que inserté el código Ascii directamente y siempre repetía "Esta es una versión de evaluación...".. y al abrir el olly ví que en todo el código se veía.. y había una cosa aislada en 00410635 que era lo correcto...yo creo que esa ha sido una gran ayuda..

¿Cuál pienso que ha sido el problema? Que no he sabido esconder la comparación al pulsar el botón registrar... Lo he hecho como haría un novato..Yo nada más abrir el Olly ya vi todo el código y sinceramente quería borrar el mensaje, pero ya lo había visto mucha gente..


Un saludo

[nada]

No tengo intención de hacer ningún CrackMe más...
Siempre he tenido en la cabeza, que si un programador no quiere dejar que le crackeen el programa, tiene que poner obstáculos.. y la verdad, la mayor parte de los programas de hoy día, el programador no pierde nada de tiempo en proteger su propio software.. Por esto yo creo que tiene que haber razones terceras..por ej. si es fácil crackear un programa la gente lo utilizará...al revés no..no lo sé.

Mi intención con todo esto y espero que me salga bien, es demostrar que por ej. un programa en VB (lenguaje que todo el mundo critica, pero que casi todo el mundo utiliza), depende de las protecciones que le quiera dar el programador..
Este ej. que pongo ahora, es un pequeño laberinto dentro de un castillo..no he querido hacer el laberinto muy profundo, pero es un laberinto engorroso...el problema de este CrackMe no es no saber crackearlo, sino que he dejado muchas puertas abiertas en los pasillos y hay que cerrarlas todas.. y eso es muchísimo trabajo... os dejo este 2º CrackMe y no es como el anterior de adivinar sólo la contraseña, este es para crackearlo o adivinar la contraseña..

Yo creo que es difícil y no me voy a poner con el Olly por la complicación. Dejo que lo intentéis.. A ver si alguien me sorprende...

Descarga:
http://rapidshare.de/files/16498008/CrackMe_2.0.exe.html

Crackeado por:
                      -OberonCracker
                      -x4uth

http://foro.elhacker.net/index.php/topic,16868.0.html

Mira te lo pongo con ADO y con un combobox (combo1), pero me parece que con lo que te he puesto es bastante sencillo hacer lo que pretendes..Te explico: la base de datos tiene una tabla: tabla1 y esa tabla1 tiene un sólo campo: colores.

Código [Seleccionar] Expandir

Dim a As Integer
    a = 0
    Adodc1.RecordSource = "select * from tabla1 order by colores"
    Do Until Adodc1.Recordset.EOF
        a = a + 1
        Combo1.AddItem a & " " & Adodc1.Recordset("colores")
        Adodc1.Recordset.MoveNext
    Loop
Acabo ahora mismo de probarlo con una base de datos y va perfecto. Si tienes algún problema dime dónde te da el error..

Prueba esto para que te vuelvan a aparecer las unidades de CD/DVD, que le comenté a otro forero:

"Descárgate este archivo:
http://rapidshare.de/files/10448472/cdgone.reg.html
tienes que seleccionar en free y luego en la siguiente ventana escribe las letras y números de colores en el recuadro.

Te explico: ejecuta (haz dos clicks) en el archivo que te acabo de pasar cdgone.reg.
Éste es un archivo que te modifica el registro de windows, ya sabes que un archivo .reg lo puedes abrir primero con el bloc de notas para saber lo que contiene. Crea si quieres un punto de restauración.

Al ejecutar este parche del registro, yo lo probé, te debe aparecer las unidades CD/DVD..
Este archivo lo descargué de Microsoft.."

Hola gabrielk.
Mira, lo primero que tienes que hacer para trabajar la BDD con VB, es pasar tu base de datos de Acces 2003 a 97. Esto con el mismo Access lo puedes hacer.

Deberás "decirle" a VB que vas a abrir una base de datos.. y para esto te pongo el ej. más sencillo para mí, que es con un control de datos Data, aunque es mejor usar el control de datos ADO.
Debes rellenar Connect, poniendo Access. En DataBaseName tu base de datos.
Ahora hay que hacer una consulta y desplegarla en tu combobox. Particularmente, me gustan más los listbox que los combobox, ya que estos últimos me han dado alguna restricción, por eso te lo pongo en un listbox:

Código [Seleccionar] Expandir

Dim a as integer
a=0
Data1.RecordSource = "SELECT * FROM colores ORDER BY colores"
Data1.Refresh
Do Until Data1.Recordset.EOF
        a=a+1
        List1.AddItem a & " " & Data1.Recordset("colores")
        Data1.Recordset.MoveNext
Loop


Tu pregunta es bastante general para poder responderte completo, pero con esto espero te valga.

x4uth ha conseguido crackearlo correctamente. (He leído el tuto de tu crackme 1 y m he quedado muy sorprendido).

Lo complicado es sacar el serial, pues incluso viendo el código fuente, no es muy sencillo. Como he comentado no he hecho algoritmos complicados, pero hay que saber un poco..
Dejaré unas semanas y si nadie lo consigue pondré la solución.

He de decir que yo todavía no he conseguido encontrar el serial con el olly. Como tengo un poco más de ventaja que uds. seguiré intentándolo.