elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Arreglado, de nuevo, el registro del warzone (wargame) de EHN


  Mostrar Temas
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 [14] 15 16
131  Programación / Ingeniería Inversa / Reto Crackme 6 De Flamer en: 3 Agosto 2012, 18:21 pm
Hola amigos pues aqui esta mi nuevo crackme el sexto ya

como los demas esta hecho en vb y no esta comprimido y trae dos retos uno fasil y otro difisil para que los nobatos y avanzados no queden afuera y partisipen

Link

http://www.mediafire.com/?z66utv48iv1xb5b


Reglas:
1-para nobatos vale parchar
2-para avanzados como Fly, Nox,apuromafo y otros que seme escapen por hay no vale parchar, solo encontrar contraseña y crear keygen para los dos retos

den gracias a tinkipinki por el pedido del crackme y a tincopasa por el codigo que me paso de la musica y como lograr un formulario asi


Lista De Logros
-----------------------------------------------------------------------------
|  Lugar|  Usuario        |                 Logro                                    |
-----------------------------------------------------------------------------
|  1       |   Thunder     | Keygen Reto1 y Serial Reto2 Mas bug      |
-----------------------------------------------------------------------------
|  2       |      Fly          |           Keygen Reto 2                             |
-----------------------------------------------------------------------------
|  3       |  apuromafo  |    Keygen   Reto1 y Reto2                       |
-----------------------------------------------------------------------------
|  4       |  yako-_-      |   Serial Reto1 y parche Reto2                  |
-----------------------------------------------------------------------------
|  5       |  jEUDi17      |   Serial Reto1 y parche Reto2                  |
-----------------------------------------------------------------------------
|  6       |   Tinkipinki   |      Parche  Reto1 y Reto2                       |
-----------------------------------------------------------------------------


saludos Flamer y gracias Por Su Partisipacion y Mis Respetos Crackers


....
132  Programación / Ingeniería Inversa / Ayuda con software en: 29 Julio 2012, 18:44 pm
Hola amigos pues como dise el tema estoy intentando crackear un programa pues alguien me comento una ves que si queria abansar en este mundo de la ingeneria inverza tenia que meterme a lo lleno a los softwares y estoy intentando reversear uno el cual no boy a subir ni mensionare el nombre por que no quiero que me lo crackeen por mi en fin.

el problema esta que este programa no me deja escribir en el cuadro de texto donde se pone el nombre y el serial.

primero tenian la propiedad False con la api EnableWindow pero eso ya lo resolvi.

queria saber si hay alguna api que no te deja escribir en los cuadros de textos o si tienen una idea de por que no me dejara escribir

saludos Flamer
133  Programación / Ingeniería Inversa / Tutorial Creasion de Crackme en VB6 en: 20 Julio 2012, 01:42 am
Tutorial Creación de Crackmes En VB6

Bueno ya que en el foro no e visto algún tutoríal de cómo hacer crackmes o si hay no lo he visto y es que son escasos aquí les enseñare mi nobles y pocos conocimientos de cómo crear nuestros crackmes en visual Basic 6 para que a si a ver si se animan mas a crear crackmes para el foro.

Descripción de crackme = Es un simple programa que simula una protección que al romperla te mostrara el mensaje de felicitaciones o cualquier mensaje que allá puesto el creador.

Nota: ustedes pueden crear sus propios mensajes o felicitaciones

Definición de Keygenme= A diferencia del crackme que
solo pide una contraseña el keygenme pide una contraseña para cada usuario la cual es diferente para cada usuario, o sea cada usuario tiene su propia

contraseña ejemplo:

Usuario=flamer              contraseña=4579625
Usuario=$Edu$             contraseña=4789728   
Usuario=pitoloco           contraseña=4958369
Usuario=Under              contraseña=4658936
   

Nota: Empezaremos con los crackme primero (uno sencillo y luego uno mas
complicadito) y después los keygenme (uno sencillo y luego uno mas
complicadito)

Bueno ya basta de blablabla pasemos a crear nuestro crackme

Para ello necesitamos el visual Basic 6 y conocimientos de programación y
mucha imaginación.

Bueno en pesemos abrimos el vb6
Elegimos un nuevo proyecto EXE estándar y le damos clic en abrir

Agregamos un Label, un TextBox y un CommandButton
En la barra de propiedades al Label1 en la propiedad caption le escribiremos
Contraseña:
En la barra de propiedades del form1 en la propiedad Caption le escribiremos
“Mi Primer Crackme”

En la de propiedades del CommandButton en la propiedad Caption le
escribiremos “Verificar”  y en la Propiedad nombre borramos command1 y le
ponemos cmd_Verificar
Y en el TextBox  en la propiedad text borramo lo que tenga y en la propiedad
nombre le ponemos txt_Serial
Ya que tenemos nuestro formulario hecho pasamos a crear nuestro primer
código que será simple:

Código:
Private Sub cmd_Verificar_Click()
If txt_Serial = "123456" Then   
   MsgBox "Felisidades lo has logrado", vbExclamation, "Correcto" 
Else
   MsgBox "Muy mal no lo lograstes", vbCritical, "Error" 
End If 
End Sub

¿Qué ase? cuando se presiona el botón verificar  preguntara si txt_serial que
es el cuadro de texto es igual a 123456 si es verdadero mostrara el cartelito
de correcto y si no marcara error

Bueno como dije es simple ahora pasaremos a uno mas complicado:

Nota1: solo cambiaremos el código, el formulario será el mismo
Nota2: lo codeare lo mas fácil posible para que sea entendible

Código:
Option Explicit
Dim contador, numer, x As Integer
Declaramos las variables contador, numer y x como enteros
Código:
Dim letra As String 
Declaramos letra como string
 
Código:
Private Sub cmd_Verificar_Click()
contador = 0
inicializa la variable contador en cero
Código:
If Len(txt_Serial) = 6 Then
Pregunta si el largo de la cadena es igual a 6 si es a si entra sino te muestra el mensaje de error
Código:
 
 For x = 1 To 6
 
Entra en un for donde x es inicializada en 1 y terminara cuando su valor sea 6
Código:
 
letra = Mid(txt_Serial, x, 1)
   
letra toma el primer carácter de txt_serial si x es igual a 1 si x igual a 2 toma el segundo y a si sucesivamente
Código:
 
numer = Asc(letra) – 3
 
numer sera igual al valor ASCII de letra menos 3
Código:
 
letra = Chr(numer) 

aqui numer es convertido a carácter
Código:
Select Case (letra) 
   Case "Q", "W", "E", "R", "T", "Y":
      contador = contador + 1
   Case Else
      Exit For
   End Select
Next x
Aqui preguntara si letra es igual a alguna de estas letras “Q”, “W”, “E”, “R”, “T”, “Y” si es a si a contador  se le ira sumando 1 si no sale del ciclo
Código:
If contador = 6 Then
   MsgBox "Felisidades lo has logrado", vbExclamation, "Correcto"
Else
   MsgBox "Muy mal no lo lograstes", vbCritical, "Error"
End If
Aquí pregunta si contador es igual a 6, si es verdadero te mostrara el cartelito de felicitaciones si no dara error
Código:
Else
      MsgBox "Muy mal no lo lograstes", vbCritical, "Error"
End If
End Sub

Bueno reverseando  el código la contraseña será “TZHUW\”

codigo completo:

Código:
Option Explicit
Dim contador, numer, x As Integer
Dim letra As String 
Private Sub cmd_Verificar_Click()
contador = 0
If Len(txt_Serial) = 6 Then
For x = 1 To 6
    letra = Mid(txt_Serial, x, 1)
    numer = Asc(letra) – 3
    letra = Chr(numer) 
      Select Case (letra) 
         Case "Q", "W", "E", "R", "T", "Y":
            contador = contador + 1
         Case Else
            Exit For
      End Select
   Next x
   If contador = 6 Then
      MsgBox "Felisidades lo has logrado", vbExclamation, "Correcto"
   Else
      MsgBox "Muy mal no lo lograstes", vbCritical, "Error"
   End If
Else
      MsgBox "Muy mal no lo lograstes", vbCritical, "Error"
End If
End Sub

Ahora pasemos a crear un keygenme al cuadro de texto le
pondremos txt_Nombre al segundo txt_Serial y al botón cmd_Verificar y al
form el nombre queda igual solo le cambiaremos el caption será “Mi Primer
KeygenMe” 

El primer código será sencillo y el segundo un poco mas complicado y con
una protección antidebuger bueno seguimos:

Código:
Option Explicit
Dim num, x As Integer 
Dim Serial, letra As String
Declara  las variables num, x a enteros y serial y letra a string
Código:

Private Sub cmd_Verificar_Click()
Serial = ""   
Serial es inicializado en vasio
Código:
For x = 1 To Len(txt_Nombre)
Aquí entra en un for donde x inicia desde 1 y terminara hasta que su valor sea igual a el largo de la cadena
Código:
 
 letra = Mid(txt_Nombre, x, 1) 

   letra toma el primer carácter de txt_serial si x es igual a 1 si x igual a 2 toma el segundo y a si sucesivamente
Código:
 
num = Asc(letra) – 1
numer sera igual al valor ASCII de letra menos 1
Código:
 
letra = Chr(num)
aqui numer es convertido a carácter
Código:
 
Serial = Serial & letra
Concatena la variable serial con letra
Código:
Next x
If txt_Serial = Serial Then
   MsgBox "Felisidades lo has logrado", vbExclamation, "Correcto"
Else
   MsgBox "Muy mal no lo lograstes", vbCritical, "Error"
End If
End Sub

Pregunta si txt_serial es igual a la variable serial si es correcto te muestra el
mensaje de felicitaciones si no te marca error

codigo completo:

Código:
Option Explicit
Dim num, x As Integer 
Dim Serial, letra As String
Private Sub cmd_Verificar_Click()
Serial = ""   
For x = 1 To Len(txt_Nombre)
letra = Mid(txt_Nombre, x, 1) 
num = Asc(letra) – 1
letra = Chr(num)
Serial = Serial & letra
Next x
If txt_Serial = Serial Then
   MsgBox "Felisidades lo has logrado", vbExclamation, "Correcto"
Else
   MsgBox "Muy mal no lo lograstes", vbCritical, "Error"
End If
End Sub

Bueno ya casi llegamos al final en el siguiente ejemplo lo haremos mas
complicado será un keygenme con un solo cuadro de texto y una protección
antidebuger
El cuadro de texto se llamara txt_serial y el botón cmd_Verificar

A continuación el código:

Código:
Option Explicit
Private Declare Function IsDebuggerPresent Lib "kernel32" () As Long
Dim contador, par, x, salir As Integer
Dim letra1, letra2 As String
Declara la api IsDebuggerPresent y las variables contador, par, x, y salir como
enteros y letra1, letra2 como string
Código:
Private Sub Form_Load()
salir = 0

se inicializa la variable salir en cero
Código:
If IsDebuggerPresent Then 
   salir = 1
End If
End Sub
Pregunta si hay algun debugger si es a si entra y se leda el valor de 1 a salir
Código:
Private Sub cmd_Verificar_Click()
contador = 0
se inicializa la variable contador en cero
Código:
If salir = 1 Then   
   salir = 1E+100 
pregunta si salir es igual a 1 entra y séle da un valor grande para que marque error
Código:
Else
   par = Len(txt_Serial) Mod 2

es dividido el largo de txt_serial en 2 y par obtiene el residuo si es 1 o 0
Código:
 
 If par = 0 Then
Pregunta si par es igual acero
Código:
     
For x = 1 To Len(txt_Serial) / 2
   
x es inicializada en 1 y terminara cuando x sea igual a la mitad de lo largo de
txt_serial
Código:
 
letra1 = Mid(txt_Serial, x, 1)
     
letra1 toma el primer carácter de txt_serial si x es igual a 1 si x igual a 2 toma el segundo y a si sucesivamente
Código:
 
letra2 = Mid(txt_Serial, Len(txt_Serial) - x + 1, 1)
letra2 toma el ultimo valor de txt_serial si x es igual a 1, si es igual a 2 toma el penúltimo y a si sucesivamente
Código:

If letra1 = letra2 Then
   contador = contador + 2
End If

Pregunta si letra1 es igual a letra2 si es a si a contador sele suma 2
Código:
 
Next x
End If
End If

If contador = Len(txt_Serial) Then
   MsgBox "Felisidades lo has logrado", vbExclamation, "Correcto" 
Else
   MsgBox "Muy mal no lo lograstes", vbCritical, "Error"
End If
End Sub

Pregunta si contador es igual ala longitud de txt_serial si es a si te muestra el cartelito de felicidades si no te marca error

codigo completo:

Código:
Option Explicit
Private Declare Function IsDebuggerPresent Lib "kernel32" () As Long
Dim contador, par, x, salir As Integer
Dim letra1, letra2 As String
Private Sub Form_Load()
salir = 0
If IsDebuggerPresent Then 
   salir = 1
End If
End Sub
Private Sub cmd_Verificar_Click()
contador = 0
If salir = 1 Then   
   salir = 1E+100 
Else
   par = Len(txt_Serial) Mod 2
If par = 0 Then
For x = 1 To Len(txt_Serial) / 2
       letra1 = Mid(txt_Serial, x, 1)
       letra2 = Mid(txt_Serial, Len(txt_Serial) - x + 1, 1)
        If letra1 = letra2 Then
            contador = contador + 2
         End If
    Next x
  End If
End If

If contador = Len(txt_Serial) Then
   MsgBox "Felisidades lo has logrado", vbExclamation, "Correcto" 
Else
   MsgBox "Muy mal no lo lograstes", vbCritical, "Error"
End If
End Sub


Bueno terminamos eso es todo por hoy 

Solo les es puse  4 codigos para que seden una idea de cómo se hacen los
crackmes y se animen

Nota: los códigos expuestos son fáciles de revertir, hacer el keygen no es  tan complicado conociendo el código y los hice lo mas entendible posible y
declarando muchas variables para que los entendieran ya que se puede usar con menos variables

Nota: si quieren hacer mas difícil el crackme o keygenme solo necesitan un

poco de imaginación asiendo mas operaciones, para hacer mas largo el código
y podrían agregarle un xor a sus operaciones

Bueno aquí los dejo denle gracias a Tinkipinki y tincopasan que fueron los que pidieron el tutorial yo no tenia pensado postearlo por que se me asía que anadien le iba a gustar ya que le quite las imágenes pero si a alguien le sirve que bueno

Saludos Flamer
134  Media / Juegos y Consolas / Ayuda con juego plantas vs zombies en: 13 Julio 2012, 19:05 pm
Hola me acabo de bajar el juego plantas vs zombies haber si mi maquina lo podía, ya que el juego necesita 512 de ram para poderlo jugar y yo solo tengo 256 ram
pero al abrirlo se queda trabada cargando el juego(donde se desenrolla la bolita) y la reinicio luego del reinicio me sale un mensaje el sistema se a recuperado de un error grave le doy aceptar y abro el juego y funciona bien.

quería saber si ustedes saben si es posible jugarlo con 256 de ram y sin que sufra daño la pc y sin que setrabe cargando el juego

Nota: le acabo de dar mas memoria virtual a la ram con el disco duro y párese que es la misma

es xp profesional SP2 y 2.00 GHz celerum

Saludos Flamer
135  Programación / Scripting / Leerse solo un archivo batch en: 21 Junio 2012, 19:39 pm
hola a todos como estaba aburrido pensé haber si no séme quema mucho la cabeza si se podría leer solo un batch con la finalidad de que el bat estuviera cifrado y al leerse solo se ejecutara línea por línea y así irse ejecutando no tendríamos que crear otro archivo solo que leyera una  línea y la desencripte y la ejecute así sucesiva mente con el fin de que algún antivirus no lo detecte.
La única líneas que tendría que estar bien seria esta:

Código:
for /F "tokens=*" %%a in (%0) do echo %%a

Pero aun no consigo leerme solo y tampoco encriptarlo
1-lo que necesito saber como leerme solo con %0 sin poner el nombre del archivo ya que este pudiera ser cambiado
2- remplazar caracteres de una línea  por otro carácter

Yace que batch llano es tan fuerte como antes con los nuevos SO de Windows pero serviría como un pasatiempo y haber si aprendemos algo

Y si vemos mas afondo podríamos crear un batch mutante que modifique su código

saludos Flamer
136  Programación / ASM / error al imprimir en: 28 Abril 2012, 01:40 am
Hola amigos tengo una falla en mi codigo en masm quiero imprimir un numero digitado por el usuario este es el codigo

Citar
.code
start:
   call main
   exit
main proc
   local num1:dword
   mov num1,input("dame un numero : ")
   mov eax,num1
   print str$(eax)

pero tiene un error me imprime la direccion de memoria de el valor no me imprime el valor digitado ejemplo
numero digitado 5 y me imprime 4206640
cual es mi error
a otra cosa que libro de masm me recomiendan y donde lo bajo (en español)
saludos flamer
137  Programación / Ingeniería Inversa / Crackme 5 De Flamer en: 12 Abril 2012, 23:28 pm
Hola a todos aqui les traigo mi nuevo crackme que ya es el quinto
lo llamo Crackme Matrix Vol. 5.0
en este caso el objetivo no sera hacer keygen por que, orita se los digo
solo encontrar un serial para pastilla roja o para pastilla azul

por que no keygen por que el que me envie por privado un serial
de la pastilla roja le enviare el codigo fuente del crackme para que lo
analise si quiere obserbar mi code

por que de la pastilla roja por que es mas difisil en contrar un serial para ella
en cambio la azul es mas fasil

puse pastilla azul para que los mas novatos (como yo) no queden fuera
y roja para los avanzados

dos retos en un solo crackme pastilla roja y azul

Lenguaje=Visual Basic 6

Reglas
1-Para los novatos si no pueden parchen para la azul y para la roja
2-el que parche y no optenga el serial no hay code
3-si un forero quiere hacer tutorial que publique el codigo tambien(que se lo pasare yo si me envia el serial) y de paso si quiere el keygen


si tiene errores me cuentan ya que lo hice en dos dias(a ratitos)

se suponia que tenia cancion buubuub errores :huh:

pero nomas en mi maquina sonaba ni modo

saludos y que se diviertan Flamer
138  Media / Juegos y Consolas / juegos para pc celerun 2.0 GHz y 256 ram en: 1 Marzo 2012, 21:02 pm
hola amigos quisiera saber que juegos me recomiendan para mi maquina.
es una celerun 2.0 GHz 256 ram con windows xp profesional y sin tarjeta de video asi que el equipo le quita ram y le quedan 192 de ram
me gustaria una nueva pero mi economia es baja (lo aclaro para que no medigan que me compre otra)
estaba pensando en el juego halo pero medisen que uno solo no puede jugar solo se juega en red y el gta vice city se me traba
el age empires 1 y el expancion ya me aburrieron
bueno gracias
saludos flamer
139  Seguridad Informática / Análisis y Diseño de Malware / duda sobre rootking en windows 7 y vista en: 5 Febrero 2012, 04:56 am
hola amigos tengo una pregunta es esta funcionan los rootking en windows 7 y vista por que me entro la carcomita aver si podia programar uno en vb pero que funsionara en windows 7
aclaro nunca e programado uno solo  baje un tutorial pero esta en c++ no loe leido todavía pero pienso que para estas alturas ya son muy detectados o no
bueno saludos flamer
140  Programación / Ingeniería Inversa / Analizando el crackme de Cronux en: 6 Diciembre 2011, 18:49 pm
Código:
http://www.mediafire.com/?buc62t39s99ihpt
hola a todos tengo una duda con este crackme que estoy intentando resolver es simple para  algunos pero para mi no ya que estoy atorado en una instrucion bueno esplico:
para que quede registrado tiene que cumplirse lo que hay en la linea 00401457 que compara AL con 0 tiene que ser diferente de 0 y no salte en la siguiente linea que es un 00401459 JE
bueno para eso entramos en el call de la linea 00401452 y este analiza el nombre y el serial que ingresamos si no son caracteres estraños y es donde podemos hacer el keygen pero despues
bueno alo que boy nos bamos hasta elultimo en la linea 00401571 que es casi el final del call es un xor EAX EAX y se activa el flash Z a 1 que es el que se ocupa para a 0 para que no salte en je saliendo del call y otra nos deja EAX en ceros la cual debe ser diferente de cero para que no salte
mi pregunta es como para que eax no sea cero
nose si me entendieron
saludos flamer
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 [14] 15 16
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines