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


Tema destacado: Como proteger una cartera - billetera de Bitcoin


  Mostrar Temas
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 [14] 15 16 17
131  Programación / Ingeniería Inversa / KeygenME en ASM por Flamer en: 18 Diciembre 2012, 02:37 am
hola pido perdon dije que hiba a tomar unas largas vacaciones por que ya no tenia tiempo por mi trabajo, pero tengo un ratito libre y les dejo este reto esta medio complicadito para mi ya que no he logrado el keygen al 100%  pero en fin aqui el link

http://ultrashare.net/hosting/fl/5d53b15cfe

el keygenme lo programe yo en masm y radasm, diganme si tiene errores para corregirlos.
reglas:
pues vale parchar pero es fasil pero si quieren aprender programen el keygen
saludos flamer y perdon.

A y con los retos si tengo tiempo para enero y si estoy libre los pongo

NOTA IMPORTANTE: el link fue cambiado por que el programa tenia un error el cual yo ya corregi
132  Programación / Ingeniería Inversa / Reto Noviembre 2012 de reversing en: 1 Noviembre 2012, 02:59 am
Hola amigos aqui estan los retos de este mes

1-VaZoNeZ`s KeygenMe #1 by VaZoNeZ
----------------------------------------------------------------
    Published: 22. Jul, 2008
    Difficulty: 1 - Very easy, for newbies
    Platform: Windows
    Language: Assembler

2-serialme by toshimi
----------------------------------------------------------------
    Published: 22. Feb, 2006
    Difficulty: 1 - Very easy, for newbies
    Platform: Windows
    Language: Assembler

3-My Simple KeyGenMe#1 by Kostya
----------------------------------------------------------------
    Published: 10. Jul, 2006
    Difficulty: 1 - Very easy, for newbies
    Platform: Windows
    Language: Assembler

4-EASY keygenme by [][][][][]
-------------------------------------------------------------
    Published: 20. Mar, 2011
    Difficulty: 1 - Very easy, for newbies
    Platform: Windows
    Language: Borland Delphi

5-Xeprotect by ecokey
-------------------------------------------------
    Published: 06. Oct, 2009
    Difficulty: 2 - Needs a little brain (or luck)
    Platform: Windows
    Language: Borland Delphi

6-WTF Serial protected - Round #1 by skjobax
-------------------------------------------------------------------
    Published: 14. Jan, 2011
    Difficulty: 2 - Needs a little brain (or luck)
    Platform: Windows
    Language: .NET

Código:
http://www.mediafire.com/?fmp33ji4cc88nja

Reglas para el reto

T=Tutorial
Kc=Keygen Compilado
Ksc=Keygen Sin Compilar
S=Serial

-------------------------------------------------
|     Usuario       |     Reto    |     Logro     |
-------------------------------------------------
  jEUDi17                  3                 S      
-------------------------------------------------
  negux                     1               Ksc    
-------------------------------------------------
  Tinkipinki                1                 S        
-------------------------------------------------
  Tinkipinki                3                 S        
-------------------------------------------------
  Tinkipinki                4                 S        
-------------------------------------------------
  negux                     4                Kc        
-------------------------------------------------
  negux                     6                S        
-------------------------------------------------
  negux                     2                S       
-------------------------------------------------

saludos Flamer y que se diviertan
133  Programación / Ingeniería Inversa / Reto Octubre 2012 de reversing en: 1 Octubre 2012, 00:37 am
Hola amigos pues aqui estan los retos para este mes:

1-Evil2006's Evil 1.1 Unpackme
-----------------------------------------------
   autor: by Evil2006
   Difficulty: 1 - Very easy, for newbies
   Language: (Visual) Basic
   Platform: Windows
2-UnpackMe#1_by_KLiZMA
-----------------------------------------------
   autor:  by KLiZMA
   Difficulty: 2 - Needs a little brain (or luck)
   Language: Borland Delphi
   Platform: Windows
3-KeyGenMe_#4 by Serialcracker
-----------------------------------------------
    autor: by Serialcracker
    Difficulty: 1 - Very easy, for newbies
    Language: (Visual) Basic
    Platform: Windows
4- KeygenMe_By_Fisser
-----------------------------------------------
    autor: By Fisser
    Published: 25. Jun, 2008
    Difficulty: 1 - Very easy, for newbies
    Language: (Visual) Basic
    Platform: Windows
5-Simple KeygenMe#2 by Zyel
-----------------------------------------------
    autor: by Zyel
    Published: 24. Jan, 2011
    Difficulty: 1 - Very easy, for newbies
    Language: C/C++
    Platform: Windows
6-KeygenMe by versus
-----------------------------------------------
    autor: by versus
    Published: 07. Oct, 2010
    Difficulty: 1 - Very easy, for newbies
    Language: Borland Delphi
    Platform: Windows
-----------------------------------------------



Link de descarga:http://www.mediafire.com/?8q3082k1w2ps61j

Reglas para el reto




Lista De Logros
-------------------------------------------------------------------------------
|   Usuario            |                     Reto                    |    Logro        |
-------------------------------------------------------------------------------
| MSCK Argentina |  Evil2006's Evil 1.1 Unpackme    |  Explicacion  |
-------------------------------------------------------------------------------
| MSCK Argentina |  UnpackMe#1_by_KLiZMA          |  Explicacion  |
-------------------------------------------------------------------------------
|    jEUDi17           |  KeygenMe #4 SerialCracker    |      Serial      |
-------------------------------------------------------------------------------
|    jEUDi17           |  Simple KeygenMe #2 Zyrel      |      Serial      |
-------------------------------------------------------------------------------
|    jEUDi17           |  KegenMe by Fisser                  |     Serial       |
-------------------------------------------------------------------------------
|    Dethwell         |  KeygenMe #4  SerialCracker    |     Serial       |
-------------------------------------------------------------------------------
|   apuromafo       |  KegenMe by Fisser                  |    Tutorial      |
-------------------------------------------------------------------------------
|   FaQuiVer          |  Simple KeygenMe#2 by Zyel   |     Keygen     |
-------------------------------------------------------------------------------
|   FaQuiVer          |  KeygenMe #4  SerialCracker   |    Keygen      |
-------------------------------------------------------------------------------
|      Flamer          |  KeygenMe #4  SerialCracker   |     Keygen     |
-------------------------------------------------------------------------------
|   FaQuiVer          |  KegenMe by Fisser                  |    Keygen      |
-------------------------------------------------------------------------------
|   Tinkipinki         |  Simple KeygenMe#2 by Zyel   |      Serial       |
-------------------------------------------------------------------------------
|   Tinkipinki         |  KeygenMe #4  SerialCracker   |      Serial      |
------------------------------------------------------------------------------
|   Tinkipinki         |  KegenMe by Fisser                  |      Serial      |
------------------------------------------------------------------------------
|   FaQuiVer          |  KeygenMe by versus               |      Serial      |
------------------------------------------------------------------------------
|   Nop+              |  KeygenMe by versus                |    Tutorial     |
------------------------------------------------------------------------------


Soluciones
-----------------------------------------------------------------------------------
Apuromafo
-----------------------------------------------------------------------------------

http://www.ricardonarvaja.info/WEB/CONCURSOS%20VIEJOS/CONCURSOS%202008/CONCURSO%203/keygenme%20Fisser%20Apuromafo.rar

-----------------------------------------------------------------------------------
FaQuiVer
-----------------------------------------------------------------------------------

https://www.dropbox.com/s/ijx9kg0tjm0y0re/KeyGen%20Zyrel.rar



https://www.dropbox.com/s/ee23uzq2z3omh42/KeyGen%20Fissell.rar



https://www.dropbox.com/s/i6mngmbh182r1uv/SKeyGen_SerialCracker%20%234.rar

--------------------------------------------------------------------------------------
Nop+
--------------------------------------------------------------------------------------

https://rapidshare.com/files/2919899036/Crackme_octubre2012.pdf

--------------------------------------------------------------------------------------
Flamer
--------------------------------------------------------------------------------------

http://ultrashare.net/hosting/fl/16957bdad4/Keygen_Flamer.zip

---------------------------------------------------------------------------------------


Saludos Flamer y Reto Finalisado gracias
134  Foros Generales / Foro Libre / El gobierno de Estados Unidos ofrece trabajo a élite de ‘hackers’ en: 28 Septiembre 2012, 18:19 pm
El director de la Agencia de Seguridad Nacional asistió a la cumbre de piratas informáticos DefCon, donde les ofreció empleo

LAS VEGAS (CNN) — Ataviado con camiseta y pantalones de mezclilla, el jefe del servicio secreto estadounidense apareció en escena este viernes en la convención más grande de hackers del país para ofrecerles un empleo.

“En esta sala, esta sala de aquí, se encuentra el talento que nuestra nación necesita para asegurar el ciberespacio”, dijo el director de la Agencia de Seguridad Nacional, general Keith Alexander, al público de pie en la DefCon, un encuentro en Las Vegas al cual se espera que asistan 16,000 asistentes, una cifra récord.

“Necesitamos gran talento. No pagamos tanto como los demás, pero somos atractivos”, añadió el también cabeza del Cibercomando de EU.

La presencia de Alexander es un hito para la DefCon, la Meca de los piratas informáticos, los cuales a menudo tienen una difícil relación con las autoridades federales. La DefCon es la hermana más grande, más salvaje y menos oficial de BlackHat, la conferencia de seguridad cibernética que terminó el jueves también en Las Vegas.

BlackHat atrae a trabajadores trajeados de seguridad informática. En la DefCon se visten con camisetas y pasan el fin de semana mezclándose con los criptógrafos, desarrolladores de programas, investigadores de seguridad y con un puñado de agentes militares y de la policía, con y sin uniformes.

DefCon tiene fama de escaparate para los hackers de élite. Los gafetes de inscripción por sí solos son una proeza técnica, con una placa de circuito personalizable. Un grupo de hackers llamado Ninja Networks pone en funcionamiento una red privada de celulares para conversar durante el evento, una maniobra que consiguió los elogios de Alexander durante su intervención.

Ese tipo de cosas son las que necesita el gobierno, dijo. Jugando con el público, Alexander recitó una larga lista de estrellas de la industria de la tecnología, como Vint Cerf y Aitel Dave, quienes han estado en la nómina federal.

“Somos los que construimos este internet”, dijo Alexander, haciendo referencia al papel clave que desempeñaron las agencias como la DARPA (Agencia de Investigación de Proyectos Avanzados de Defensa) en los primeros días de la red. “Ahora somos los que tenemos que mantenerla segura, y creo que ustedes nos pueden ayudar a eso”.

Para recalcar la propuesta, la Agencia Nacional de Seguridad puso en marcha un sitio especial de reclutamiento para el show:www.nsa.gov/careers. No es la típica página para profesionistas del gobierno. Este incluye la frase: “Si, por así decirlo, cuenta con algunas indiscreciones en su pasado, no se alarme”.

La Agencia está especialmente interesada en atraer a personas como las que se reunieron en una sala de conferencias a sólo 20 metros de distancia de la presentación de Alexander, encorvados sobre sus laptops y sus cajas de comida para llevar. Son competidores en la batalla de Capturar la bandera de Defcon, una especie de Juegos Olímpicos para geeks.

Por lo general hackear es un deporte sin glamur, sin embargo, en Defcon puede tener alguna relevancia Capturar la bandera, un certamen famoso entre el círculo de nerds. En una sala oscura en donde hay música rock y luces láser de colores, 20 equipos de competición luchan durante 48 horas por ingresar en los servidores del contrario y robarles información clave, llamada “banderas”, a la par de contener los atacantes rivales. El ganador será anunciado este domingo por la tarde noche durante las ceremonias de clausura de la DefCon.

Codificadores de todo el mundo luchan a través de una serie de rondas de clasificación para llegar a Captura la bandera. “Los hackers que están aquí son los mejores del mundo”, murmuró un observador en voz baja, mirando a los equipos febrilmente actuar sobre sus computadoras unas cuantas horas después de que inició la competición la mañana del viernes.

A la Agencia le encantaría aprender más acerca de las hazañas que utilizan los hackers en Capturar la bandera. Pero, ¿los hackers quieren jugar en conjunto?

La reacción del público a la charla de Alexander fue en general favorable. Los organizadores tuvieron que dejar fuera de la sala de conferencias a cientos de asistentes que querían entrar, y los que pudieron hacerlo escucharon con atención el discurso del general.

Uno de los asistentes, casi hasta adelante de la sala —un investigador de seguridad empresarial que está especializado en defensa en contra del espionaje digital—, dijo haber quedado impresionado. Y lo que es más importante, desde el punto de vista de la ANS, es que él dice que considerará  echarle un vistazo a las opciones de trabajo que brinda la agencia.

“Creo que sería emocionante”, dijo el investigador, quien pidió permanecer en el anonimato. “Quiero decir, ése es el propósito. Nosotros intentamos proteger nuestro IP de la empresa. Ellos intentan proteger al país y a la gente. Sería algo formidable, a pesar de que la paga es nada”.

Por supuesto, no todos fueron conquistados tan fácilmente. Unas cuantas filas más atrás, un grupo de cínicos arremetía contra la charla de Alexander.

“Chicos, a veces ustedes tienen una mala reputación”, dijo Alexander en cierta parte de la charla. “Desde mi perspectiva, lo que está haciendo para resolver las vulnerabilidades de nuestros sistemas es absolutamente necesario”.

“¡Entonces deja de arrestarnos!”, replicó una persona interrumpiendo al orador.

http://anonymousnews.blogs.ru/2012/07/29/el-gobierno-de-estados-unidos-ofrece-trabajo-a-elite-de-hackers/

Hackers, News, Politica
jul 29, 2012
AnonymousWWN

Saludos Flamer  la noticia es vieja pero seria bueno comentarla si hay un hacker de Elite aqui
135  Programación / Ingeniería Inversa / Retos Mensuales De Reversing en: 24 Septiembre 2012, 03:58 am
Reglas

1-No Comentar En Este Hilo Si No Es Un Reto Mensual.

2-De Los Retos Mensuales Mandar La Contraseña por Privado De Dicho Crackme o Tutotial al Creador Del Reto.

3-Los Tutorial y Keygenes Debera Tener Link Activo, El Cual Sera Revelado El Dia Ultimo Del Mes En El Hilo Mensual.

4-Las Contraseñas Enviadas Por Privado No Seran Reveladas Solo Serviran Para Crear Lista De Ganadores En Dicho Hilo.

5-Para Los Keygenme Deberan Buscar La Contraseara su nick o Para "elhacker.net" o "elhackernet" La Cual No Sera Revelada.

6-IMPORTANTE: No Vale Revelar Ninguna Clase de Respuestas Cuendo Este el Mes o el Reto En Proceso Estoba Para Cualquier Reto Unpacker, Crackme, Keygenme o X Proteccion

Bueno de momento yo are los retos mensuales cada primero de cada mes publicare crackmes para que todos aprendamos un poco.

si alguien desea ayudar con algun mes solo contactame ami o al moderador para ponernos deacuerdo del mes que ayudara

Enlaces a los retos mensuales:

Reto Septiembre 2012 de reversing
Reto Octubre 2012 de reversing
Reto Noviembre 2012 de reversing
Reto Enero 2013 de reversing
Reto de mayo de 2013
Reto de junio de 2013

saludos Flamer

...
136  Programación / Ingeniería Inversa / Reto Septiembre 2012 De Reversing en: 14 Septiembre 2012, 01:32 am
Retos Septiembre 2012 Mes De Crackers

Hola amigos asi como dise el hilo mes de reversear un poco, a un que yo queria empesarlo el dia primero de cada mes  pero mientras seme ocurria y le pedia permiso al moderador, haremos una excepción bueno.

Cada mes pondre crackmes asi que el que quiera participar que partisipe abra del nivel 1, 2 y 3 para empezar y si quieren aumentar la dificultad la aumentamos o pedirme packers

Reglas:

1-No es obligado hacer tutoriales pero si lo quieren hacer aganlos para que aprendan los nuevos

2-Describir brevemente como logro crackearlo y mostrar la clave si es crackme o la clave para su nick si es keygenme

Para el primer mes que es este hay crackmes del nivel 1 y 2

cyclone
http://www.mediafire.com/?6ucbk6rbz6aeep1

FuelVM-Keygenme
http://www.mediafire.com/?ozpbmlp8g3o2z1m

MusicalCrackme
http://www.mediafire.com/?pl9mngk2co5rr8v

SerialMe
http://www.mediafire.com/?1b778y7i81inp6b

Simple_KGM_2
http://www.mediafire.com/?7po55bp57zfltop

los resultados como claves y seriales que se muestren aqui en este hilo como tambien las dudas y preguntas.

Bueno hay estan y que se diviertan

Saludos Flamer



137  Programación / Ingeniería Inversa / Reto Crackme 7 De Flamer en: 8 Septiembre 2012, 01:51 am
Hola amigos este es mi septimo crackme por pedido de jeudi y esta hecho en vb6 y en si el reto esta fasil

www.mediafire.com/?ljm5q25repy06mh


Reglas:
1-no esta comprimido
2-solo parchar para el antidebugger y el boton, No para el serial
3-Creare lista y solo estaran los que meden un serial diferente o Creen un keygen o Creen el tutorial

********************
*  Lista De Ganadores  *
********************
*    1-Tinkipinki            *
*    2-Tincopasan         *
*    3-Jeudi                  *
*    4-Apuromafo         *
*    5-FaQuiVer            *
********************
         


saludos flamer y que se diviertan

...
138  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


....
139  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
140  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
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 [14] 15 16 17
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines