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

 

 


Tema destacado: Introducción a Git (Primera Parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Ingeniería Inversa (Moderadores: karmany, .:UND3R:., MCKSys Argentina)
| | |-+  Crackear un programa
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Crackear un programa  (Leído 6,844 veces)
tarariro

Desconectado Desconectado

Mensajes: 7


Ver Perfil
Crackear un programa
« en: 15 Noviembre 2008, 19:30 pm »

Hola a todos:
Estoy intentando crackear un programa que ha creado "un amigo" y resulta que no tengo ni idea de programación, pero soy bastante cabezota y realmente lo necesito.

Básicamente, el programa es una serie de macros de excel. Se instala y aparece en pantalla bloqueado por una ventana emergente en la que hay que meter un serial de 14 números y una letra. Por otra versión anterior, que también creó "mi amigo", sé que, una vez metido el serial y comprobado que es correcto, te remite al creador para obtener una segunda clave, de unos 10 dígitos. Introduces la clave y ya está registrado.

Bien, pues si metes mal la primera o la segunda clave, lógicamente te da un mensaje de error distinto. He utilizado el PEID para determinar el lenguaje y W32DASM para buscar las cadenas de texto de los errores, pero no me aparece ninguna.

Para empezar, los únicos ejecutables son el uninstall.exe (Borland Delphi 2.0 overlay) y una dll (Visual C++ DLL Method 2). Aunque no parece lógico que la clave estuviese en el archivo de desinstalación, también lo he revisado con el W32DASM (String Data References y Find Text) y en ninguno de los dos aparece el texto a buscar.

El resto de los archivos son xls (uno de los cuales es el que abre el programa y da paso a la ventana emergente), xla y dat. Para todos ellos, el W32DASM no me da la opción de String Data References, pero con Find Text tampoco encuentro la cadena de texto.

¿Dónde y cómo tendría que buscar?

Gracias
En línea

_error_

Desconectado Desconectado

Mensajes: 36



Ver Perfil
Re: Crackear un programa
« Respuesta #1 en: 16 Noviembre 2008, 08:34 am »

como se llama el programa...!
En línea

tarariro

Desconectado Desconectado

Mensajes: 7


Ver Perfil
Re: Crackear un programa
« Respuesta #2 en: 16 Noviembre 2008, 11:30 am »

Hola _error_:

Gracias por contestar. Tienes un privado.
En línea

LSL

Desconectado Desconectado

Mensajes: 239

Cls


Ver Perfil
Re: Crackear un programa
« Respuesta #3 en: 16 Noviembre 2008, 23:39 pm »

si estas tratando con tablas de excel protegidas con claves, utiliza el Passware Kit recovers
En línea

Saludos.

LSL.
Shaddy


Desconectado Desconectado

Mensajes: 722


one_bit_manipulator()


Ver Perfil WWW
Re: Crackear un programa
« Respuesta #4 en: 17 Noviembre 2008, 05:51 am »

yo lo mejor que podrías hacer es pedírselo a ese amigo tuyo ¬¬...
En línea

"Si buscas resultados diferentes, no hagas siempre lo mismo" (Albert Einstein)

http://abssha.reversingcode.com
http://www.reversingcode.com
tarariro

Desconectado Desconectado

Mensajes: 7


Ver Perfil
Re: Crackear un programa
« Respuesta #5 en: 18 Noviembre 2008, 11:20 am »

si estas tratando con tablas de excel protegidas con claves, utiliza el Passware Kit recovers

No es una simple contraseña de excel, si no ya estaría crackeada. Es un programa realizado con las macros y parece que es más complicado de crackear que la mayoría de los programas comerciales.
En línea

tarariro

Desconectado Desconectado

Mensajes: 7


Ver Perfil
Re: Crackear un programa
« Respuesta #6 en: 18 Noviembre 2008, 11:21 am »

yo lo mejor que podrías hacer es pedírselo a ese amigo tuyo ¬¬...

Mi amigo vive muy lejos... :rolleyes: Y sólo habla inglés  :laugh:
En línea

Shaddy


Desconectado Desconectado

Mensajes: 722


one_bit_manipulator()


Ver Perfil WWW
Re: Crackear un programa
« Respuesta #7 en: 18 Noviembre 2008, 19:01 pm »

xDDDDDDDDDDD bueeeeeeeeeeeeno..
En línea

"Si buscas resultados diferentes, no hagas siempre lo mismo" (Albert Einstein)

http://abssha.reversingcode.com
http://www.reversingcode.com
apuromafo CLS


Desconectado Desconectado

Mensajes: 1.441



Ver Perfil WWW
Re: Crackear un programa
« Respuesta #8 en: 4 Abril 2011, 19:30 pm »

despues de revisar tus primeros comentarios me asombra el hecho de haber visto que lograste analizar un poco mas con el tiempo y le pediste la clave a tu amigo,
no se que posibilidades existe de fusionar con el mismo titulo del otro, pues es de lo mismo
http://foro.elhacker.net/ingenieria_inversa/crackear_programa-t323562.0.html

pero que fue una odisea lo fue, comentando a modo global, desbloquear la pass de macro, luego revisar
Citar
ThisWorkbook.Sheets("HOJA").Protect Password:="PASSWORD", DrawingObjects:=True, _
                Contents:=True, Scenarios:=True

y evitamos todo lo relacionado a los algoritmos, si alquien quiere analizar los algoritmos aqui hay 3

AHORA BIEN con respecto a la primera parte
Citar
       RegNum = reg1 & "-" & reg2 & "-" & reg3
            reg1 = 10232
            validThru = ThisWorkbook.Sheets("Ctrl SS").Range("ValidThru").Value
             reg2 = reg2 + validThru
            reg3_1 = Val(Left(reg3, 3))
            reg3_2 = Left(Right(reg3, 2), 1)
            mc1 = reg1 / reg2 * 3.14159 ^ 2
            mc2 = Int((mc1 - Int(mc1)) * 1000)
           
            cond1 = reg1 Mod 1279 = 0
            cond2 = reg2 Mod 1277 = 0
            cond3 = Abs(reg3_1 - mc2) = 0
            cond4 = Asc(reg3_2) - 65 = reg3_1 Mod 26

tambien hay codigos como
Citar
reg3_1 = Val(Left(reg3, 3))
        reg3_2 = Left(Right(reg3, 2), 1)
        mc1 = reg1 / reg2 * 3.14159 ^ 2
        mc2 = Int((mc1 - Int(mc1)) * 1000)
   
        cond1 = reg1 Mod 1189 = 0
        cond2 = reg2 Mod 1181 = 0
        cond3 = Abs(reg3_1 - mc2) = 0
        cond4 = Asc(reg3_2) - 65 = reg3_1 Mod 26

tambien cosas ineresantes como

Citar
Function SecurityKey(AccessCode As Long) As String
Dim Calc1 As Double, Calc2 As Integer, Calc3 As Integer, _
    Calc4 As Integer, NumString As String
   
    Calc1 = Sin(AccessCode) ^ 2 + Sin(Sin(AccessCode)) ^ 2
    Calc2 = Int(1000 * (Calc1 - Int(Calc1)))
    NumString = Calc2
    If Len(NumString) = 1 Then
        NumString = "00" & NumString
    ElseIf Len(NumString) = 2 Then
        NumString = "0" & NumString
    End If
    Calc3 = Int(26 * (Calc1 - Int(Calc1))) + 97
    If Calc3 = 108 Then Calc3 = 109
    Calc4 = Int(26 * (100 * Calc1 - Int(100 * Calc1))) + 97
    If Calc4 = 108 Then Calc4 = 109
    SecurityKey = Left(NumString, 1) & Chr$(Calc3) & _
        Right(NumString, 2) & Chr$(Calc4)
End Function


En línea

Apuromafo
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Crackear programa
Ingeniería Inversa
tarariro 6 5,394 Último mensaje 22 Abril 2011, 00:44 am
por apuromafo CLS
Crackear programa
Ingeniería Inversa
sonystation 9 8,792 Último mensaje 14 Julio 2011, 05:44 am
por mikepue
Crackear un programa en Java
Ingeniería Inversa
Mr.Byte 3 4,119 Último mensaje 21 Septiembre 2012, 22:32 pm
por _Enko
CRACKEAR UN PROGRAMA.EXE
Dudas Generales
THESER98 1 2,529 Último mensaje 12 Agosto 2020, 10:49 am
por @XSStringManolo
Crackear un programa
Ingeniería Inversa
Mpek17 8 12,530 Último mensaje 15 Abril 2021, 15:34 pm
por Danielㅤ
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines