Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
Scribd Logo
Cargar

¡Te damos la bienvenida a Scribd!

  • 474 vistas

    Codigo

    Cargado por

    Marcial Nuñez
    Este documento describe cómo eliminar la protección de una hoja de cálculo de Excel mediante la edición del archivo binario subyacente. Explica que los campos DPB, GC y CMG almacenan la contraseña y estado de protección. Al editar estos campos en el archivo binario, se puede abrir la hoja sin contraseña. Luego crea un módulo VBA que genera contraseñas aleatorias para descifrar la protección existente de una hoja.

    Copyright:

    © All Rights Reserved
    Descargue como TXT, PDF, TXT o lea en línea desde Scribd

    Codigo

    Cargado por

    Marcial Nuñez
    474 vistas2 páginas
    Este documento describe cómo eliminar la protección de una hoja de cálculo de Excel mediante la edición del archivo binario subyacente. Explica que los campos DPB, GC y CMG almacenan la contraseña y estado de protección. Al editar estos campos en el archivo binario, se puede abrir la hoja sin contraseña. Luego crea un módulo VBA que genera contraseñas aleatorias para descifrar la protección existente de una hoja.

    Título original

    codigo.txt

    Derechos de autor

    © © All Rights Reserved

    Formatos disponibles

    TXT, PDF, TXT o lea en línea desde Scribd

    ¿Le pareció útil este documento?

    ¿Este contenido es inapropiado?

    Este documento describe cómo eliminar la protección de una hoja de cálculo de Excel mediante la edición del archivo binario subyacente. Explica que los campos DPB, GC y CMG almacenan la contraseña y estado de protección. Al editar estos campos en el archivo binario, se puede abrir la hoja sin contraseña. Luego crea un módulo VBA que genera contraseñas aleatorias para descifrar la protección existente de una hoja.

    Copyright:

    © All Rights Reserved
    Descargue como TXT, PDF, TXT o lea en línea desde Scribd
    Descargar como txt, pdf o txt
    474 vistas2 páginas

    Codigo

    Cargado por

    Marcial Nuñez
    Este documento describe cómo eliminar la protección de una hoja de cálculo de Excel mediante la edición del archivo binario subyacente. Explica que los campos DPB, GC y CMG almacenan la contraseña y estado de protección. Al editar estos campos en el archivo binario, se puede abrir la hoja sin contraseña. Luego crea un módulo VBA que genera contraseñas aleatorias para descifrar la protección existente de una hoja.

    Copyright:

    © All Rights Reserved
    Descargue como TXT, PDF, TXT o lea en línea desde Scribd
    Descargar como txt, pdf o txt
    de 2

    Sin embargo esta *irrisoria* protecci�n es para el UI y b�sicamente a�ade unas

    pocas l�neas al form:

    CMG="0604AB00EA009E049E049A089A08"
    DPB="C6B41DD07A30374D374DC8B3384DDC63D35C51C89D809616E325E4129493EEFDBC48EE77D47B79
    "
    GC="6664CAA0CBE07BE17BE17B"

    Estos campos corresponden a ProjectProtectionState, ProjectPassword y


    ProjectVisibilityState respectivamente. Por lo que si borramos esos campos
    (reemplazando el texto con espacios en blanco) Excel no nos pedir� una contrase�a
    para ver el c�digo del proyecto...

    Para ello descomprimimos el fichero Libro2.xlsm como si de un zip se trataba,


    editamos el fichero xl\vbaProject.bin con notepad++ (u otro editor hexadecimal) y
    cambiamos DPB= por DBx=.

    Luego guardamos el archivo con la misma extensi�n .BIN y agregamos al zip


    sustituyendo el mismo archivo.

    Al abrir de nuevo el fichero Excel nos dir� que contiene una clave 'DPx' no v�lida:

    Simplemente continuamos cargando el proyecto, ignoramos el error, asignamos una


    nueva contrase�a en las propiedades de VBAProject y salvamos...

    Al volver a abrirlo tendremos acceso al c�digo de la macro:

    ABRIR EXEL EJM: Libro1


    PRECIONE ALT+F11 = TE ABRE LA VENTANA DE VISUAL
    CLICK EN INSERTAR+MODULO=SE CREARA UNA CARPETA QUE CONTIENE Modulo1
    SELECCIONA EL MODULO1
    LUEGO COPIA ESTE CODIGO QUE ESTA ABAJO

    Sub jd()
    Dim a As Integer, b As Integer, c As Integer
    Dim d As Integer, e As Integer, f As Integer
    Dim a1 As Integer, a2 As Integer, a3 As Integer
    Dim a4 As Integer, a5 As Integer, a6 As Integer
    On Error Resume Next
    For a = 65 To 66: For b = 65 To 66: For c = 65 To 66
    For d = 65 To 66: For e = 65 To 66: For a1 = 65 To 66
    For a2 = 65 To 66: For a3 = 65 To 66: For a4 = 65 To 66
    For a5 = 65 To 66: For a6 = 65 To 66: For f = 32 To 126
    Contrase�a = Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(a1) _
    & Chr(a2) & Chr(a3) & Chr(a4) & Chr(a5) & Chr(a6) & Chr(f)
    ActiveSheet.Unprotect Contrase�a
    If ActiveSheet.ProtectContents = False Then
    MsgBox "�JD TE DA TU CONTRASE�A!" & vbCr & "La contrase�a es:" & vbCr & Contrase�a
    Exit Sub
    End If
    Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next
    End Sub

    PEGAR EN EL MODULO1
    LUEGO VE EN ARCHIVO+IMPORTAR, PONERLE UN NOMBRE Y GUARDAR EJEMPLO EN ESCRITORIO....

    LO QUE ACABAMOS DE CREAR SE LLAMA MODULO


    LUEGO ABRI TU HOJA PROTEGIDA+ PRSS ALR+F11 +IMPORTAR+SELECCIONAR TU MODULO QUE
    CREASTE+CERRAR PARA QUEDAR CON LA OJA PROTEGINDA+PRESS AL+F8 SELECCIONAR jd
    +EJECUTAR Y LISTO!!

    JD TE DA TU CONTRASE�A!! JAJA

    ESPERO QUE SIRVA!!

    También podría gustarte