All it does is searches all possible values for 2 possible strings, IE, Username and Password, but I've not tested the Username Part, as it just takes sooooo long...
It searches ALL Values, Including Characters which a standard keyboard doesn't have buttons for, as if i wanted an ultra secure password, I'd use at least one of them...
Global MaxLenth As Integer : MaxLenth = 255
Dim Username(MaxLenth) As Integer
Dim Password(MaxLenth) As Integer
Do : Inc n,1 : CLS : Text 10,10,"Username and Password Scanner"
If Password(1) = 254 and Password(MaxLenth) = 254 : NextChr(1,0) : u$ = GetString(1,0) : For t = 0 to MaxLenth : Password(t) = 0 : Next t : EndIf
If Username(1) = 254 and Username(MaxLenth) = 254 : Exit Prompt "Finished...","Finished..." : End : EndIf
NextChr(0,1) : p$ = GetString(0,1)
Text 10,50,Str$(n)+" - Username = '"+u$+"' Password = '"+p$+"'"
Sync : Loop
Function GetString(U,P)
If U = 1 : For n = 1 to MaxLenth : s$ = s$+Chr$(Username(n)) : Next n : ExitFunction s$ : EndIf
If P = 1 : For n = 1 to MaxLenth : s$ = s$+Chr$(Password(n)) : Next n : ExitFunction s$ : EndIf
EndFunction "INVALID PARAMITERS"
Function NextChr(U,P)
If U = 1 : For n = MaxLenth to 1 Step -1 : Username(n) = Username(n)+1 : If Username(n) < 255 : ExitFunction : EndIf : Username(n) = 0 : Next n : EndIf
If P = 1 : For n = MaxLenth to 1 Step -1 : Password(n) = Password(n)+1 : If Password(n) < 255 : ExitFunction : EndIf : Password(n) = 0 : Next n : EndIf
EndFunction
Its less than 20 Lines as I cut it out of another program I made
Edit: I need to add an "Estimated Time Left", But it would probably be in "Days", I've left it running for about an hour now, and its only reached 3 didgets for the password, to make it run faster, you have to link it to something like a bluegui window, and hide the DBP Window, But the basic version above is basically the core functions only, so no additional DLL's required.
s
