semplicemente password dimenticata

[BigSagittarius]

Qualcuno sa dirmi un modo per recuperare il file di un documento di testo se si dimentica la password?
Ringrazio in anticipo e saluto

[charlie]

Ciao, ho atteso invano che qualcun altro rispondesse con una risposta positiva ma, come vedi, nessuno ha la soluzione .

[BigSagittarius]

mi sembrava per voi del forum cotanto facile evidentemente no

[unlucky83]

La soluzione c'è...una macro che prova le varie password...mandandola in esecuzione forse in una settimana trovi la combinazione giusta.Di quanti caratteri è? è solo alfanumerica?

[BigSagittarius]

chi si ricorda

[Oni1985]

- Apri VBA con ALT+F11;
- Inserisci Modulo;
- Copia e incolla:

Codice: Seleziona tutto

Option Explicit
 
Dim arr As Variant
Dim arr2(30) As Long
 
Sub IniziaArr2()
Dim i As Integer
 
arr = Array(1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024 _
, 2048, 4096, 8192, 16384, 32768, 65536, 131072, 262144, _
524288, 1048576, 2097152, 4194304, 8388608, 16777216, _
33554432, 67108864, 134217728, 268435456, 536870912, _
1073741824)
'valori da 2^0 a 2^30
For i = 0 To 30
    arr2(i) = arr(i)
Next i
End Sub
 
Function decbin(dec As Long) As String
Dim i As Integer, a As Integer, bin As String
 
bin = "0" 'nel caso dec sia = 0
For i = 30 To 0 Step -1
    If dec And arr2(i) Then
    bin = ""
        For a = i To 0 Step -1
            Select Case dec And arr2(a)
                Case 0
                    bin = bin & "0"
                Case Else
                    bin = bin & "1"
            End Select
        Next a
        Exit For
    End If
Next i
decbin = bin
End Function
 
Sub psw2()
Dim i As Long
Dim start As Single
Dim bin As String
 
Call IniziaArr2
 
start = Timer
On Error Resume Next
i = 0
Do
    i = i + 1
    bin = decbin(i)
    ActiveSheet.Unprotect Password:=bin
Loop While ActiveSheet.ProtectContents = True
 
MsgBox "La password è stata rimossa con " & _
        bin & " che è il binario di " & i & _
        Chr(10) & "il programma ha impiegato " & _
        Timer - start & " secondi"
 
Debug.Print bin & " " & i
End Sub

- Esegui (freccetta verde in alto)

[unlucky83]

Grazie Oni per aver dato una mano in questa discussione che ti ha segnalato charlie.
Guardando il codice mi sembra che rimuove la protezione del contenuto e non é in grado di aprire un file protetto in apertura, o sbaglio?

[Oni1985]

Esatto elimina la protezione dai singoli fogli, per togliere la protezione in apertura credo che sia necessario ricorrere obbligatoriamente ai brute force

[charlie]

Allora la tua macro non aiuta @BigSagittarius che ha un file di testo.

[Oni1985]

Veramente me l'avete messo voi il link a questa pagina...e nell'altra discussione stavamo parlando di macro su fogli di calcolo!! Comunque me ne sono accorto dopo che serviva per un file di testo

[charlie]

Non era un rimprovero ma una constatazione .

[BigSagittarius]

Quindi? Non esiste niente per scardinare la pw del mio file di testo protetto

[Oni1985]

Credo che l'unico modo sia usare un programma che sfrutta i Brute Force, guardando su internet mi pare di aver capito che è possibile sfruttare le Macro anche per i file di testo però non saprei aiutarti

[unlucky83]

La soluzione c'è...una macro che prova le varie password...mandandola in esecuzione forse in una settimana trovi la combinazione giusta.Di quanti caratteri è? è solo alfanumerica?

Dato che non ti ricordi ne quanto sia lunga ne se è composta da soli valori alfanumerici, ho dovuto modificare la macro che avevo scritto, per renderla più flessibile possibile.
In realtà sono numerose macro, perchè ho cercato di scorporare il codice in ogni sua parte significativa.
Nell'allegato, le suddette macro sono salvate in 3 moduli distinti:
Module1: contiene le macro da avviare con i pulsanti, e la macro che si avvia all'apertura del file
M1: contiene tutte le sub e le function che non è necessario modificare, a meno che non venga in mente un modo per ottimizzare i calcoli ovviamente (vedi sub "ricerca"), ma così come sono dovrebbero essere "robuste" (su linux mi funziona, su windows e mac dovrebbe essere lo stesso).
M2: contiene una sola macro, che però influisce pesantemente sulla ricerca della password. Per questo motivo riporto anche il codice:

Codice: Seleziona tutto

function fn_ArrayAscii()
rem prepara array con i soli codici ascii da testare
	dim myArray(0)
	myArray(0)=32
	for k=33 to 126
		nNext = uBound(myArray) + 1
		redim preserve myArray(nNext)
		myArray(nNext)=k
	next

	fn_ArrayAscii=myArray
	sizeArrayAscii=ubound(myArray)-lbound(myArray)+1
end function

E' una macro adibita a costruire un array contenente i soli codici ascii che si vuole testare. Se ci si ricordasse almeno di aver usato solo caratteri alfanumerici, si potrebbe ridurre drasticamente la dimensione di quest'array, in modo tale da ridurre esponenzialmente i tempi di ricerca.

Detto ciò, spero che ti sia utile (sempre se non ti annoi aspettando che trovi la password) e che non venga usata in maniera scorretta per scoprire password altrui...

Good Luck!

Unlucky83