Web password recovery

Recover a forgotten password to access your URL

option explicit
Dim PWDVal, oHTTP,c,R

' **** Modify these two lines ****
Const URL="http://myhost/mypage.html"
const UIDVal="MYLOGIN"

'*** and this line if you want to speed up
Const Alphabet="ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789/*-+&#$_"

'Restart in console mode to display logs
If Right(ucase(wscript.FullName),11)="WSCRIPT.EXE" then
    WScript.CreateObject("WScript.Shell").Run "cscript.exe " & wscript.ScriptFullName,1
    wscript.quit
End If

Set oHTTP=Wscript.CreateObject("Microsoft.XMLHTTP")

PWDVal = Left(Alphabet,1)
Dim x
x=0
Do while OpenURL=401	'Permission denied
	x=(x+1) Mod 80
	'Avoid displaying all : for speed
	If x=0 Then wscript.echo Now & " " & PWDVal

	c=Right(Alphabet,1)
	R=""
	Do While (Right(PWDVal,1)=c) And (PWDVal<>"")
		If PWDVal=c Then
			PWDVal=""
			R=R & Left(Alphabet,1)
		Else
			PWDVal=Left(PWDVal,Len(PWDVAL)-1)
		End If
		R=R & Left(Alphabet,1)
	Loop
	If PWDVal<>"" then
		PWDVal=Left(PWDVal,Len(PWDVAL)-1) & Mid(Alphabet,Instr(Alphabet,Right(PWDVal,1))+1,1)
	End If
	PWDVal=PWDVal & R
Loop
wscript.Echo oHTTP.getAllResponseHeaders
WScript.Echo "status : " & OpenURL & " - pwd=" & PWDVal

Function OpenURL()
	oHTTP.Open "GET",URL,False,UIDVal,PWDVal
	oHTTP.Send
	OpenURL=oHTTP.status
End Function