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

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...

Cómo implementar el Perceptrón en JavaScript (inteligencia artificial)

El presente post es acerca de cómo implementar el algoritmo de Inteligencia Artificial llamado Perceptrón (red neuronal formada por una sola neurona) en JavaScript. Está portado del Python a través del ejemplo y explicación de I am Pablo - Programando una red neuronal simple . El código acá presente no está optimizado, pero está realizado de tal manera que cualquiera que deba intentar aprenderlo lo pueda realizar (notar los nombres de las variables, constantes y funciones utilizadas). // Constructor de la clase Perceptron() var Perceptron = function Clase ( cantDatos , capacidadAprendizaje = 0.1 ) { this.cantEntradas = cantDatos ; this.capacidadAprendizaje = capacidadAprendizaje ; this.pesos = [] ; for ( var cadaDato = 0 ; cadaDato < cantDatos ; cadaDato ++ ) this.pesos.push ( Math.random () ) ; // Inicializar pesos al azar (0..1) } // Habi...

CaFeDev

Buscar este blog