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