Mensajes

infiniter

Como te han dicho, el codigo fuente no se puede obtener de un EXE, pero puedes usar herramientas que te dan una idea de como era.

Para Delphi, la mejor es IDR: http://kpnc.org/idr32/en/

Saludos!

Con "Passware Kit Enterprise 9.0" sale en 2 patadas.

Buscalo por inet.

Saludos!

su breve respuesta

Primero: Bienvenido!
Segundo: La mayoría de los EXEs no pueden decompilarse a código fuente (pero usando reversing puedes obtener un código "parecido"). Hay excepciones, como por ej. Python en un EXE.
Tercero: Como recién empiezas, te recomiendo leer el FAQ: http://foro.elhacker.net/ingenieria_inversa/faq_iquesteres_nuevo-t345798.0.html

Saludos!

La estructura PE es muy simple. En el caso de las secciones, tienes los valores Virtual y los Raw. Los Raw son offsets en el file. Los virtuales son despues de haber mapeado en memoria.

Como te dije antes, el formato PE explica todo...

Saludos!

Vas a tener que revisar el formate PE: http://mirror.sweon.net/madchat/vxdevl/papers/winsys/pefile/pefile.htm

Saludos!

a mi ortografia no puedo mejorar, boy a tener que buscar una pagina de autocorrecion

SIEMPRE se puede mejorar. Es cuestión de perseverar... 

Saludos!

Al parecer, ese valor es solo el nombre de la sección. No DEBERIA indicar nada, pero depende del EXE (si esta protegido, quizas se use ese valor para algo...)

Saludos!

Veamos:

1) No puedes hacer pedidos de este tipo. Lee las reglas.
2) El archivo de "licencia" no es otra cosa que un mdb renombrado (Base de datos Access). Para abrirlo y editarlo usa Access. La password para abrir el archivo esta repetida 1000 veces en el codigo del EXE (solo debes buscar un poco)...
3) Analizando la cosa por arriba, la proteccion es muy simple. Tiene una encriptacion débil. Creo que si le dedicas un poco de tiempo, la romperás muy rápido. Generar "licencias" válidas no debería ser complicado (por lo poco que vi, es muy sencillo).

Saludos!

Keygen (en VB6)

Suponiendo que en un form hay un boton (Command1) y un textbox (Text1):

Código [Seleccionar] Expandir


Function getForcedChar(testInt As Integer) As String
Dim hallado As Boolean
Dim car As Integer
Dim valor As Integer

hallado = False
Do While (Not hallado)
    car = Int((91 * Rnd) + 32)
    valor = ((((((car + &H6B - 4) * 5) / 2) * 3) Xor &H19C) And 1)
    hallado = (valor = testInt)
Loop
getForcedChar = Chr(car)
End Function


Private Sub Command1_Click()
Dim serial As String
Dim i As Integer

For i = 1 To 20
    serial = serial + getForcedChar(IIf((i = 3) Or (i = 5) Or (i = 13) Or (i = 17), 1, 0))
Next i
Text1.Text = serial
End Sub


Analisis:

len serial=20 chars
str((((((chr(serial) + 6Bh - 4) * 5) / 2) * 3) xor 19Ch) & 1) = "00101000000010001000"


Saludos!