Cómo descifrar el código fuente de la función personalizada de Excel

Cree un nuevo libro de Excel, Alt F11 para abrir el editor VBA, cree un nuevo módulo y copie el código a continuación. Tenga en cuenta que si la variable de solicitud no está definida, simplemente elimine la línea Option Explicit, que ya pasa la prueba.

Eliminar la protección de codificación VBA.

Protección de submovimiento()

Anota el nombre del archivo como una cadena

filename = application. getopen filename("Excel file(*.xls amp;* .xla), *.

Nombre del archivo de contraseña VBA, Falso

Terminará si...

Finalizar conector

Establecer VBA protección de codificación

Protección de subconjunto()

Anotar el nombre de archivo como cadena

nombre de archivo = application.getopen filename("Archivo Excel(*.xls & *.xla) ,*. xls*.xla", "VBA crack")

Si FileName = CStr(False), entonces

Conector de exportación

Otros

Nombre del archivo VBAPassword, Verdadero

Terminará si...

Finalizar conector

Función privada VBAPassword (el nombre del archivo es una cadena, protección opcional es booleano = falso)

Si directorio (nombre de archivo) = ", entonces

Salir de la función

Otro

Nombre del archivo de copia de archivo , nombre de archivo y ".bak "

Terminará si...

Dim GetData As String * 5

Abra el nombre del archivo binario como #. 1

Atenuar DPBo mientras

Atenuar DPBo mientras

Para i = 1 a LOF(1)

Obtenga #1, Yo, GetData

Si GetData = "CMG=" "" entonces CMGs = i

Si GetData = "[Host " entonces DPBo = i - 2: Salir para

Entonces

Si CMGs = 0, entonces

MsgBox "Establezca primero una contraseña de protección para la codificación VBA...", 32, "Preguntar"

Salir de la función

Terminará si...

Si Protect = False, entonces

Dim St As String * 2

Mostrar s20 como una cadena * 1

Obtener la cadena hexadecimal 0D0A.

Obtenga #1, CMG - 2, St

Obtenga una cadena hexadecimal de 20.

Obtenga #1, DPBo 16, s20

Reemplace la parte de cifrado de la clave

Para i = CMG a DPBo paso 2

Ponga #1, I, St

Luego

Agregue símbolos no emparejados

si (DPBo-CMGs) Mod 2 lt gt entonces 0

Ponga #1, DPBo 1, s20

Terminará si...

MsgBox "Archivo descifrado exitosamente...", 32, "Preguntar"

Otro

Mostrar MMS como cadena * 5

MMs = "DPB= " "

Pon #1, SMS, MMS

MsgBox "Cifrado especial de archivo exitoso...", 32, "Preguntar"

Finalizará si...

Cierre #1

Función final