¿Cómo abrir un documento cifrado? Al abrirlo, indica que el archivo es de solo lectura o que está cifrado.

1. Utilice un método simple:

Primero cree un documento de Word, use protección de tabla para proteger el documento, herramienta-gt; ediciones en el documento" -gt; seleccione "Rellenar el formulario", aparecerá un cuadro de contraseña, ingrese la contraseña dos veces (aquí elijo 123 como contraseña del archivo de Word), para que el documento esté protegido.

Entonces vamos a descifrarlo, abramos el documento de Word que acabamos de crear, archivo - gt; guárdelo como - gt; seleccione el formato HTML, guárdelo como documento HTML, abra el archivo HTML con el Bloc de notas, busque "lt; w: UnprotectPassword >", verá las palabras 5BCECF7A (si su contraseña es 123).

Luego usamos UltraEdit u otra herramienta similar para abrir el documento de Word originalmente protegido, buscamos 7ACFCE5B, lo reemplazamos con los 8 ceros y guardamos el disco.

En este momento, la contraseña del documento de Word se borrará. Puede cancelar la protección del documento usted mismo. No es necesario ingresar la contraseña.

2. Utilice el método de programación:

Echemos un vistazo al proceso de preparación específico del programa. El programa se implementa mediante programación VB y es necesario instalar aplicaciones VB y componentes de Microsoft Office en la máquina. Abra VB, cree un nuevo proyecto de VB, asígnele el nombre Proc_Word, nombre el formulario iniciado FrmMain, seleccione "Referencia" en el menú "Proyecto" y seleccione "Microsoft Word" en el cuadro de diálogo "Referencia". Seleccione "Biblioteca de objetos de Microsoft Word8.0" en el cuadro de diálogo "Referencia" (este paso es muy importante, debe seleccionar este componente ActiveX; de lo contrario, el código no se ejecutará correctamente. Por cierto, si Office2000 está instalado, debe seleccionar "Biblioteca de objetos de Microsoft Word9 .0"). Al mismo tiempo, en el cuadro de diálogo "Componentes" en el menú "Proyecto", seleccione agregar "Controles comunes de Microsoft Windows -2.5 (sp2)", en el cuadro de diálogo "Componentes" en el menú "Proyecto", para que puede agregar "Controles comunes de Microsoft Windows -2.5 (sp2)" en el diseño del formulario Usar controles giratorios.

Bien, ahora estás listo para usar el programa. Agregue un control de marco a la izquierda del formulario FrmMain que acaba de crear y agregue un cuadro de lista de unidades, un cuadro de lista de directorios y un control de cuadro de lista de archivos al control. Agregue dos botones de comando en la parte inferior derecha del formulario FrmMain y agregue tres controles de etiqueta, dos controles de cuadro de texto y un control de recorte en la parte superior derecha (consulte la imagen adjunta para ver el diseño). Luego, establezca la propiedad de título del marco en "Seleccione el documento de Word para descifrar"; los nombres predeterminados del cuadro de lista de directorio, el cuadro de lista de unidades, el cuadro de lista de archivos, el cuadro de texto y el control giratorio permanecen sin cambios; El cuadro de lista de archivos está configurado en "*.DOC", el propósito es mostrar solo los archivos de Word en el directorio; establezca la propiedad Título del primer control de etiqueta en "El programa descifra la siguiente contraseña de combinación numérica pura de 8 dígitos; Documento de Word" y establezca la propiedad Título de la segunda etiqueta en "*.DOC". Establezca la propiedad en "Progreso de descifrado", establezca la propiedad Título de la tercera etiqueta en "Seleccione el número de dígitos para descifrar la contraseña". ; establezca la propiedad Texto del segundo cuadro de texto en "4", que es el número predeterminado de dígitos para la contraseña.

Este es el número predeterminado de dígitos; establezca la propiedad BuddyControl del botón giratorio en Texto2 para asociarla con el segundo cuadro de texto, cambie BuddyProperty a Texto y establezca las propiedades Max y Min en "8" y "1" respectivamente para obtener el número máximo de dígitos. dígitos. ", que indica los dígitos de contraseña más largos y más cortos, establezca la propiedad Ajustar en Verdadero y establezca la propiedad Incremento en "1" para que cada clic aumente o disminuya en 1; cambie los nombres de los dos botones de comando a "cmdopendoc " y " cmdquit", la propiedad Título se establece en "Abrir archivo" y "Salir del sistema". Una vez configuradas las propiedades de los controles anteriores, no es difícil escribir código.

El siguiente es el programa fuente completo. Los comentarios apropiados pueden ayudarlo a comprender el programa. También puede establecer puntos de interrupción para realizar un seguimiento de la parte de generación de contraseñas y ver los principios de programación.

Private Sub cmdopendoc_Click()

Atenuar wd como nueva palabra.Aplicación

Atenuar strpath como cadena

Atenuar pasar como cadena

Atenuar paso como cadena

p>

p>

Dim J, K,.

Min_num = 10 ^ (Val(Text2.Text) - 1)

Bandera = 0

Para K = 0 Para Pass_long - 1

Max_num = 10 ^ (Pass_long - K)

Min_num = 10 ^ (Pass_long - (K 1))

Para J = 0 a Pass_long - 1

cmdopendoc.MousePointer = 11

Para I = IIf(Pass_long - K = 1, 0, Min_num) J a Max_num Paso Pass_long

Text1.Text = pasar

Text1.Refresh

pasar = String(K, "0") amp I

Flag = wd.Documents .Open(FileName:=strpath, contraseñadocument:=pass)

'Si el descifrado se realiza correctamente, abra el documento, muestre la contraseña y salga del proceso

If Flag lt; gt; 0 Entonces

Label1.Caption = "Contraseña del documento"

Label1.Refresh

Text1.Text = pasar

wd. Visible = Verdadero

p>