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 & Contraseña 
       Exit Sub 
      End If 
  Next: Next: Next: Next: Next: Next 
  Next: Next: Next: Next: Next: Next 
End Sub

Comentarios

Entradas populares de este blog

Simetría viva en Inkscape

Simetría por espejo en InkScape Ver video tutorial

Probando ChatGPT - Mapa conceptual con Mermaid

Había conversado con ChatGPT acerca de cuidado de las plantas e hidroponía. Luego de unos días me di cuenta que quizás también podría saber acerca de crear Mapas conceptuales. Salió lo siguiente; le falta un concepto para crear correctamente mapas conceptuales (la relación entre los conceptos), pero podría ser algo para ayudarnos a corregir mejor. El texto original era el que cito a continuación, pero le agregué explícitamente que me armara un "mapa conceptual" utilizando el lenguaje Mermaid, un lenguaje descriptivo que permite construir gráficos diversos, entre ellos Mapas conceptuales, generando un archivo SVG. ``` Hacé un mapa conceptual en lenguaje Mermaid con el siguiente texto, redactado anteriormente: "La hidroponía es un método de cultivo que se utiliza para cultivar plantas sin suelo utilizando una solución nutriente y agua. Algunas plantas pueden cultivarse con éxito mediante hidroponía, mientras que otras necesitan el suelo para crecer y prosperar. De las pl...

Conectar a Servidor Node.JS desde VB6 o VBA

El presente código sirve tanto para Visual Basic 6.0 (sí, todavía sirve, todavía sirve!) como para Visual Basic para Aplicaciones (Excel o VBA). ' Si estamos en Visual Basic para Aplicaciones agregar la referencia ' WinHTTP, en el menú Herramientas, Referencias, Microsoft WinHTTP Services Function Solicitar( _ ByVal URLBase As String _ , Optional ByVal Puerto As Integer = 80 _ , Optional ByVal Seccion As String = "" _ , Optional ByVal Metodo As String = "GET" _ ) As String On Error GoTo solucion #If VBA6 Then Dim objXML As New WinHttpRequest #ElseIf Win32 Then Dim objXML As Object Set objXML = CreateObject("MSXML2.ServerXMLHTTP") #End If objXML.Open Metodo, URLBase & ":" & Puerto & "/" & Seccion, False objXML.send If (objXML.Status = 404) Then Solicitar = "404 Error" Else Solicitar = objXML.responseText End If Se...

CaFeDev

Buscar este blog