USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  RECUPERAR SENHA DE EXCELL
Gelson Porto
Pontos: 2843 Pontos: 2843 Pontos: 2843
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 29/12/2006 09:51 hs            
Prezados, bom dia..
 
         Tenho um planilha em que o usuário registro incorretamente a senha e não consegue abrir.
         Alguem pode ajudar ?
   
>>|Bedin|<<
SANTO ANDRE
SP - BRASIL
ENUNCIADA !
Postada em 30/12/2006 12:54 hs            
opa!

isso deve ajudar...

http://superdownloads.uol.com.br/download/30/advanced-excel-repair/

"Advanced Excel Repair 1.4"

t+

.:Rodrigo Bedin:.
   
rdeletric
SÃO JOSÉ DO RIO PRETO
SP - BRASIL
ENUNCIADA !
Postada em 31/12/2006 02:26 hs            
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
Sub Cracker()
On Error Resume Next

'######################################################'
'#              XPASS v1.0 beta                       #'
'#     Almost Guaranteed Excel Password Cracker       #'
'#              by Citizen B Oso                      #'
'#                Spain 2002                          #'
'######################################################'

MsgBox "Let's Go!", 14
Open "log.txt" For Output As #1
Print #1, "Cracking started at " & Time
' assign top character
''''''''''''''''''''''''''''''''''''''''''''''''''''''
tc = 251              'set for spanish               '
sc = 48               '  keyboard                    '
''''''''''''''''''''''''''''''''''''''''''''''''''''''
'try all characters a-z A-Z 0-9 and spanish vowels
''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
a = 0
b = 0
c = 0
d = 0
e = 0
f = 0                       'CHECK THESE VALUES
g = 0
h = 0
i = 0
j = 0
k = 0
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''
Keyrun = 0
Do While k <> tc
Workbooks.Open Filename:="zero.xls", Password:=Chr(a) & Chr(b) &
Chr(c) & Chr(d) & Chr(e) & Chr(f) & Chr(g) & Chr(h) & Chr(i) & Chr(j)
& Chr(k)
If ActiveWorkbook.HasPassword = True Then GoTo Gotit
a = a + 1

If a = tc Then
a = sc
b = b + 1
GoTo again
End If
If b = tc Then
a = sc
b = sc
c = c + 1
GoTo again
End If
 
If c = tc Then
a = sc
b = sc
c = sc
d = d + 1
GoTo again
End If

If d = tc Then
a = sc
b = sc
c = sc
d = sc
e = e + 1
GoTo again
End If
If e = tc Then
a = sc
b = sc
c = sc
d = sc
e = sc
f = f + 1
GoTo again
End If
If f = tc Then
a = sc
b = sc
c = sc
d = sc
e = sc
f = sc
g = g + 1
GoTo again
End If

If g = tc Then
a = sc
b = sc
c = sc
d = sc
e = sc
f = sc
g = sc
h = h + 1
GoTo again
End If
 
If h = tc Then
a = sc
b = sc
c = sc
d = sc
e = sc
f = sc
g = sc
h = sc
i = i + 1
GoTo again
End If

If j = tc Then
a = sc
b = sc
c = sc
d = sc
e = sc
f = sc
g = sc
h = sc
i = sc
j = sc
k = k + 1
GoTo again
End If
If k = tc Then
a = sc
b = sc
c = sc
d = sc
e = sc
f = sc
g = sc
h = sc
i = sc
j = sc
GoTo again
End If
again:
If a = 1 Then
   a = sc
End If
 
If b = 1 Then
   b = sc
End If
 
If c = 1 Then
   c = sc
End If
  
If d = 1 Then
   d = sc
End If
  
If e = 1 Then
   e = sc
End If
  
If f = 1 Then
   f = sc
End If
 
If g = 1 Then
   g = sc
End If
 
If h = 1 Then
   h = sc
End If
  
If i = 1 Then
   i = sc
End If
  
If j = 1 Then
   j = sc
End If
  
If k = 1 Then
   k = sc
End If
If a = 58 Then
a = 65
End If
 
If b = 58 Then
   b = 65
End If
 
If c = 58 Then
   c = 65
End If
  
If d = 58 Then
   d = 65
End If
  
If e = 58 Then
   e = 65
End If
  
If f = 58 Then
   f = 65
End If
 
If g = 58 Then
   g = 65
End If
 
If h = 58 Then
   h = 65
End If
  
If i = 58 Then
   i = 65
End If
  
If j = 58 Then
   j = 65
End If
  
If k = 58 Then
   k = 65
End If
 
   
If a = 91 Then
   a = 97
End If
 
If b = 91 Then
   b = 97
End If
 
If c = 91 Then
   c = 97
End If
  
If d = 91 Then
   d = 97
End If
  
If e = 91 Then
   e = 97
End If
  
If f = 91 Then
   f = 97
End If
 
If g = 91 Then
   g = 97
End If
 
If h = 91 Then
   h = 97
End If
  
If i = 91 Then
   i = 97
End If
  
If j = 91 Then
   j = 97
End If
  
If k = 91 Then
   k = 97
End If
  
If a = 123 Then
   a = 193
End If
 
If b = 123 Then
   b = 193
End If
 
If c = 123 Then
   c = 193
End If
  
If d = 123 Then
   d = 193
End If
  
If e = 123 Then
   e = 193
End If
  
If f = 123 Then
   f = 193
End If
 
If g = 123 Then
   g = 193
End If
 
If h = 123 Then
   h = 193
End If
  
If i = 123 Then
   i = 193
End If
  
If j = 123 Then
   j = 193
End If
  
If k = 123 Then
   k = 193
End If
  
If a = 194 Then
   a = 201
End If
 
If b = 194 Then
   b = 201
End If
 
If c = 194 Then
   c = 201
End If
  
If d = 194 Then
   d = 201
End If
 
If e = 194 Then
   e = 201
End If
 
If f = 194 Then
   f = 201
End If
 
If g = 194 Then
   g = 201
End If
 
If h = 194 Then
   h = 201
End If
  
If i = 194 Then
   i = 201
End If
  
If j = 194 Then
   j = 201
End If
  
If k = 194 Then
   k = 201
End If
  
 
If a = 202 Then
   a = 205
End If
 
If b = 202 Then
   b = 205
End If
 
If c = 202 Then
   c = 205
End If
  
If d = 202 Then
   d = 205
End If
  
If e = 202 Then
   e = 205
End If
  
If f = 202 Then
   f = 205
End If
 
If g = 202 Then
   g = 205
End If
 
If h = 202 Then
   h = 205
End If
  
If i = 202 Then
   i = 205
End If
  
If j = 202 Then
   j = 205
End If
  
If k = 202 Then
   k = 205
End If
 
  
If a = 206 Then
   a = 209
End If
 
If b = 206 Then
   b = 209
End If
 
If c = 206 Then
   c = 209
End If
  
If d = 206 Then
   d = 209
End If
  
If e = 206 Then
   e = 209
End If
  
If f = 206 Then
   f = 209
End If
 
If g = 206 Then
   g = 209
End If
 
If h = 206 Then
   h = 209
End If
  
If i = 206 Then
   i = 209
End If
  
If j = 206 Then
   j = 209
End If
  
If k = 206 Then
   k = 209
End If
  
 
If a = 210 Then
   a = 211
End If
 
If b = 210 Then
   b = 211
End If
 
If c = 210 Then
   c = 211
End If
  
If d = 210 Then
   d = 211
End If
  
If e = 210 Then
   e = 211
End If
  
If f = 210 Then
   f = 211
End If
 
If g = 210 Then
   g = 211
End If
 
If h = 210 Then
   h = 211
End If
  
If i = 210 Then
   i = 211
End If
  
If j = 210 Then
   j = 211
End If
  
If k = 210 Then
   k = 211
End If
If a = 212 Then
   a = 218
End If
 
If b = 212 Then
   b = 218
End If
 
If c = 212 Then
   c = 218
End If
  
If d = 212 Then
   d = 218
End If
  
If e = 212 Then
   e = 218
End If
  
If f = 212 Then
   f = 218
End If
 
If g = 212 Then
   g = 218
End If
 
If h = 212 Then
   h = 218
 nd If
  
If i = 212 Then
   i = 218
End If
  
If j = 212 Then
   j = 218
End If
  
If k = 212 Then
   k = 218
End If
  
  
If a = 219 Then
   a = 225
End If
 
If b = 219 Then
   b = 225
End If
 
If c = 219 Then
   c = 225
End If
  
If d = 219 Then
   d = 225
End If
  
If e = 219 Then
   e = 225
End If
  
If f = 219 Then
   f = 225
End If
 
If g = 219 Then
   g = 225
End If
 
If h = 219 Then
   h = 225
End If
  
If i = 219 Then
   i = 225
End If
  
If j = 219 Then
   j = 225
End If
  
If k = 219 Then
   k = 225
End If
  
  
If a = 226 Then
   a = 233
End If
 
If b = 226 Then
   b = 233
End If
 
If c = 226 Then
   c = 233
End If
  
If d = 226 Then
   d = 233
End If
  
If e = 226 Then
   e = 233
End If
  
If f = 226 Then
   f = 233
End If
 
If g = 226 Then
   g = 233
End If
 
If h = 226 Then
   h = 233
End If
  
If i = 226 Then
   i = 233
End If
  
If j = 226 Then
   j = 233
End If
  
If k = 226 Then
   k = 233
End If
  
  
  
If a = 234 Then
   a = 237
End If
 
If b = 234 Then
   b = 237
End If
 
If c = 234 Then
   c = 237
End If
  
If d = 234 Then
   d = 237
End If
  
If e = 234 Then
   e = 237
End If
  
If f = 234 Then
   f = 237
End If
 
If g = 234 Then
   g = 237
End If
 
If h = 234 Then
   h = 237
End If
  
If i = 234 Then
   i = 237
End If
  
If j = 234 Then
   j = 237
End If
  
If k = 234 Then
   k = 237
End If
  
  
If a = 238 Then
   a = 241
End If
 
If b = 238 Then
   b = 241
End If
 
If c = 238 Then
   c = 241
End If
  
If d = 238 Then
   d = 241
End If
  
If e = 238 Then
   e = 241
End If
  
If f = 238 Then
   f = 241
End If
 
If g = 238 Then
   g = 241
End If
 
If h = 238 Then
   h = 241
End If
  
If i = 238 Then
   i = 241
End If
  
If j = 238 Then
   j = 241
End If
  
If k = 238 Then
   k = 241
End If
  
  
If a = 242 Then
   a = 243
End If
 
If b = 242 Then
   b = 243
End If
 
If c = 242 Then
   c = 243
End If
  
If d = 242 Then
   d = 243
End If
  
If e = 242 Then
   e = 243
End If
  
If f = 242 Then
   f = 243
End If
 
If g = 242 Then
   g = 243
End If
 
If h = 242 Then
   h = 243
End If
  
If i = 242 Then
   i = 243
End If
  
If j = 242 Then
   j = 243
End If
  
If k = 242 Then
   k = 243
End If
 
  
If a = 244 Then
   a = 250
End If
 
If b = 244 Then
   b = 250
End If
 
If c = 244 Then
   c = 250
 End If
  
If d = 244 Then
   d = 250
End If
  
If e = 244 Then
   e = 250
End If
  
If f = 244 Then
   f = 250
End If
 
If g = 244 Then
   g = 250
End If
 
If h = 244 Then
   h = 250
End If
  
If i = 244 Then
   i = 250
End If
  
If j = 244 Then
   j = 250
End If
  
If k = 244 Then
   k = 250
End If
  
   Keyrun = Keyrun + 1
   If Keyrun = 300 Then
   Print #1,
   Print #1, "Set of 50 completed until:" & Time
   Print #1, Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(f) &
Chr(g) & Chr(g) & Chr(h) & Chr(h) & Chr(i) & Chr(j) & Chr(k)
   Keyrun = 0
   End If
   Loop
Gotit:
  Close #1
Open "password.txt" For Output As #2
Print #2, Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(f) &
Chr(g) & Chr(g) & Chr(h) & Chr(h) & Chr(i) & Chr(j) & Chr(k)
Close #2
End Sub
 
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página