Ir al contenido principal

Entradas

Extraer contraseña por Fuerza Bruta de un Excel

Código para ejecutar en un módulo de Visual Basic para Aplicaciones. Funciona tanto en Excel como en Word o en PowerPoint. Sub Quitar_contraseña() 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 "¡Enorabuena!" & vbCr & "Se ha quitado la contraseña:" & vbCr &...

Código VBA para Resumir una AppVBA Excel

Instalar Referencias -> Microsoft Visual Basic for Application Extensibility 5.3 Sub Extraditar() Dim comp As VBIDE.VBComponent archivo = ActiveWorkbook.Name n = 0 For Each comp In ActiveWorkbook.VBProject.VBComponents If comp.Name "ImprimirTodo" And comp.Name "ThisWorkbook" Then 'Debug.Print comp.Type comp.Export "f:\archivo" & n Open "f:\archivo" & n For Append As #1 Print #1, "----[/" & comp.Name & "]" Close #1 Debug.Print comp.Name n = n + 1 If comp.Type = 100 Then Debug.Print comp.Name Set rango = ActiveWorkbook.Sheets(comp.Name).UsedRange Open "f:\archivo" & n For Output As #1 For Each r In rango If r.Formula "" And r.Value "" Then Pri...

ImageMagick y la posibilidad de convertir de PSD a PNG

Según este sitio se instala en GNU/Linux ImageMagick (apt-get install imagemagick) de 14 Mb y hay que modificar el archivo /etc/ImageMagick-6/policy.xml con el siguiente comando: nano /etc/ImageMagick-6/policy.xml Y cambiamos el atributo rights que dice NONE para ciertos elementos por READ|WRITE . Y luego tranquilamente podremos ejecutar... > sudo convert 'archivo.psd' imagen-%d.png Entonces extrae las capas o páginas de un archivo PSD en varias imágenes PNG.

Cambiar la opción de arranque del GRUB si tenemos Linux y Windows a la vez

La idea es, desde GNU/Linux, ubicar las opciones de menú (menuentry) del sistema GRUB y luego cambiar el orden de arranque para finalizar actualizando el GRUB. nano /boot/grub/grub.cfg sudo nano /etc/default/grub sudo update-grub Notas En grub.cfg, el primer menuentry es el 0 (cero) GRUB_DEFAULT=2 GRUB_TIMEOUT=30