Kod:
'************************************************* ********************************************* Hash: SHA1 Sub *****er() On Error Resume Next MsgBox "Let's Go!", 14 Open "log.txt" For Output As #1 Print #1, "*****ing started at " & Time tc = 251 sc = 48 ' a = 0 b = 0 c = 0 d = 0 e = 0 f = 0 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

__________________