Descifrar contraseñas para vbaproject en EXCEL
Cierre su archivo, abra un nuevo Excel, presione Alt y F11 al mismo tiempo para ingresar a la interfaz VBA, haga clic derecho en Thisworkbook en la ventana superior izquierda, inserte el módulo y pegue el siguiente código en la ventana que sale a la derecha:
Sub MoveProtect()
Anota el nombre del archivo como una cadena
filename = getopen filename("Excel. file(*.xls amp;* .xla), *.
Nombre del archivo de contraseña VBA, Falso
Terminará si...
'End sub ' establece la protección de codificación VBA.
Protección de subconjunto()
Anota el nombre del archivo como una cadena
filename = application. getopen filename("Excel file(*.xls amp;* . xla), *.
Nombre del archivo VBAPassword, Verdadero
Terminará si...
Finaliza la función subprivada VBAPassword (el nombre del archivo es una cadena, la protección opcional es booleana = False)
Si directorio(nombre de archivo) = ", entonces
Salir de la función
Otro
Copia de archivo nombre de archivo, nombre de archivo y ".bak "
End If Dim GetData As String * 5
Abra el nombre del archivo binario como #1
Atenuar la imagen a largo
p>Atenuar DPBo mientras
Para i = 1 a LOF(1)
Obtenga #1, I, 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
Si... terminará
Si Protect = False, entonces
Atenuar St como cadena * 2
Mostrar s20 como cadena * 1
Obtener 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 "El cifrado especial del archivo fue exitoso...", 32, "Preguntar"
Finalizará si...
Cerrar #1
Finalizar función
Luego, en esta interfaz, mueva el cursor a la primera línea, presione F5, ejecute MoveProtect y seleccione el archivo que mencionó en la ventana abierta. Después de completar, la macro para. este archivo no existe.