Registrarse Gratis

¡Únase para Aprender y Compartir!

[Solucionado] significado de una parte de una macro

20/2/2017 05:40PM
buenas tardes, necesito el significado a groso modo de la siguiente macro de excel en visual basic:

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 "¡JD TE DA TU CONTRASEÑA!" & vbCr & "La contraseña es:" & vbCr & Contraseña
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
Esta pregunta está cerrada. Si quieres puedes: Abrir otra Pregunta
20/2/2017 07:58PM
Es una "tontería" que se encuentra en Internet donde se asegura que es un método para averiguar la contraseña de un Libro de Excel.
En realidad, el método es válido, y se basa en probar todas las combinaciones posibles de 12 caracteres que pueden formar una "contraseña".
Problemas del método:
1. Como está instrumentado, sólo funciona si la contraseña es de 12 caracteres.
2. Sólo funciona si las primeras 11 letras son "A" ó "B".
3. Si modificamos para cada ciclo contemple los caracteres del 32 al 126 (como está hecho para el último carácter, el doceavo), estamos generando un total de combinaciones de:
95 elevado a la 12 = 540,360,000,000,000,000,000,000 combinaciones posibles.
Suponiendo 100 comprobaciones por segundo (con una computadora muuuuuuy potente), son unos 170,000,000,000,000 años.
Considerá que el Universo tiene "sólo" 13,700,000,000 años...

Por eso dije lo de "tontería", jejé... Very Happy
Tangos Site Admin Colaborador: En un momento que YoReparo lo necesitó este usuario hizo su colaboración para para el bien de todos 10.488K
SOLUCIÓN