Mensajes

Hola a todos..
Hace un tiempo dedicaba bastante tiempo a esto de la ingeniería inversa, y la verdad que es un mundo muy interesante porque aprendes cómo trabaja o qué hace un programa..
Un día pensé hacer un crackme, por supuesto que no fuera muy sencillo, y sin protección(asprotect a mí me volvió loco), y aquí estoy para enseñaroslo.

Os comento el programa:
Es un programa en VB. Se introduce la contraseña y se pulsa en OK. He puesto hasta una interfaz agradable :-).
Tiene más de una solución. Yo pienso que descubrir el serial es bastante complicado..Me gustaría que lo probárais a ver si alguien consigue la contraseña. Como hacéis con todos los crackmes mandarme un privado con la solución...

El código del programa ocupa muy poco y he pensado en ir al grano, es decir, no he hecho código enredado sino todo lo contrario. Pienso también que tal vez sea muy fácil crackearlo eliminando la primera ventana, pero de eso no se trata...

Si tenéis alguna duda...

CRACKME:
http://rapidshare.de/files/16335688/CrK1.exe.html

A mi me "huele" a virus..
Puedes poner qué software de grabación utilizas, si tienes conflictos con el hardware (grab.).
Porque, un CD vacío te lo reconoce no?
Qué antivirus utilizas?

Código [Seleccionar] Expandir

Dim I as integer, suma as integer
  I=1
  Do While I <= 99 'bucle mientras I<=99
    suma = suma+I
    I=I+2
  Loop
  Print suma

El código es muy sencillo. Lo que hace es simplemente sumar los números impares entre 1 y 99, y lo imprime en el formulario.
Do While I<=99 significa que el bucle se realizará mientras (While) I sea menor o igual que 99.
Es decir I=1 suma=1, después I=3, suma=4 etc... hasta I=99 suma =2500. Si te fijas el último I=99 será I=101 por I= I +2 pero la suma es entre 1 y 99 a.i.

Espero te sirva

SENTENCIA Do...Loop
Un Loop (bucle) repite la ejecución de un conjunto de sentencias mientras una condición dada sea cierta, o hasta que una condición dada sea cierta.

Yo la utilizo por ejemplo para pasar registro por registro toda una base de datos.
Ej.

Código [Seleccionar] Expandir

Do Until Data1.Recordset.EOF
    ...   
Loop
Lo que acabo de poner es un bucle (igual q con for.. next).
El bucle va desde Do (imagina el for) hasta Loop (imagina el next). Y el bucle se va a repetir hasta(Until) que llegue al final de la base de datos (Data1.Recordset.EOF)

Otro ej. sencillo:

Código [Seleccionar] Expandir

  Dim I as integer, suma as integer
  I=1
  Do While I <= 99 'bucle mientras I<=99
    suma = suma+I
    I=I+2
  Loop
  Print suma

Para saber si el error lo tienes en tu grabadora o en la conversión del Nero, haz lo que te comento.
No has comentado si el audio que pones en tu compilación lo haces desde un CD o lo haces desde archivos de audio de tu disco duro....

-Abre una compilación nueva de audio. Ve a la pestaña opciones de CDA y elige un valor de lectura (si lees desde CD) bajo.
Elige el archivo de audio y pásalo a tu compilación.

Ahora vas a buscar en los archivos temporales el archivo .wav que se habrá creado. Para ello deja que se vean todos los archivos ocultos y ve a Mi PC -> C:\ -> documents and settings -> 'eliges ahora tu carpeta' -> configuración local -> temp
En esta última carpeta tiene que aparecer un archivo de audio .wav que normalmente suele comenzar por NER... Escúchalo a ver...

Hola a todos..
En una web, me pasaron (un tal José Miguel Sánchez) un código para modificar el border style de un formulario en tiempo de ejecución. La verdad que me ha resultado muy interesante y lo dejo aquí para el que quiera que lo pueda utilizar.

Código [Seleccionar] Expandir

Option Explicit

'Bits o parametros de estilo de la ventana:
Const WS_MAXIMIZEBOX = &H10000
Const WS_MINIMIZEBOX = &H20000
Const WS_THICKFRAME = &H40000
Const WS_SYSMENU = &H80000
Const WS_CAPTION = &HC00000
Const GWL_STYLE = (-16)

'Funciones para modificar el estilo de la ventana:
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Dim WndStyle As Long

Private Sub Command1_Click()
Dim lStyle As Long

'Guardamos los parametros actuales del estilo de la ventana para luego poder restaurarla:
WndStyle = GetWindowLong(Me.hwnd, GWL_STYLE)

'Quitamos cualquier estilo a la ventana para conseguir una ventana rectangular:
lStyle = WndStyle And Not WS_MAXIMIZEBOX And Not WS_MINIMIZEBOX And Not WS_THICKFRAME And Not WS_CAPTION
Call SetWindowLong(Me.hwnd, GWL_STYLE, lStyle)

End Sub

Private Sub Command2_Click()
'Devolvemos cualquier estilo a la ventana:
Call SetWindowLong(Me.hwnd, GWL_STYLE, WndStyle)

'Oculta y muestra al instante la ventana para que se muestren los cambios.
Me.Hide
Me.Show

End Sub

Te dejo el enlace que tienes en un post-it, en este foro, que viene bien explicado:
http://foro.elhacker.net/index.php/topic,16868.0.html

Hola vilkorf.

Para intentar llegar a ver cual es el problema, tienes que intentar dar más datos:
-¿En administrador de dispositivos tu grabadora presenta algún conflicto?
-¿Has grabado alguna vez bien?
-¿Puedes leer CD's que ya tengas grabados?..
-¿Has desinstalado hace poco algún otro software de grabación o similar?

Pon el modelo de tu grabadora y qué software estás utilizando

Hola..
Mira, tal vez puede ser porque has instalado el InCD5 sin haber desinstalado el 4 correctamente. Puede ocurrir al no reiniciar tras desinstalar, que se queden activados los controladores p. ej. al tener un disco con InCD formateado.
Yo probaría a desinstalar todo el Nero e instalarlo y desinstalar el InCD4.

Te dejo el manual de InCD5 que vienen cosas muy interesantes:
ftp://ftp6.nero.com/user_guides/nero7/incd/InCD_ug_esp.pdf

acosta.sergi muy bueno el Animation Gif ActiveX 2.41.
Hay que decir que es shareware también, pero he encontrado una página muy interesante para el que le interese:
http://planet.nana.co.il/meteorsite/serials.htm