UC知道高分求ASP获取别站验证码的问题，请帮帮忙~！
来源：百度知道 编辑：UC知道 时间：2024/06/17 16:35:37
我想在自己的站点加一个登陆到其他站点的登陆接口,用户可以通过我的页面登陆到其他站点，但是有些站点有验证码，我调用了他那个生成验证码的php文件，可以正常显示在我的网页上，以下是代码，但是提交后却不成功~
<%
function getHTTPPages(url)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPages=BytesToBstrs(Http.responseBody,"UTF-8")
set http=nothing
if err.number<>0 then err.Clear
end function
Function BytesToBstrs(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstrs = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
Function Newstring(Wstr,Strng)
Newstring=Ins
<%
function getHTTPPages(url)
dim Http
set Http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPages=BytesToBstrs(Http.responseBody,"UTF-8")
set http=nothing
if err.number<>0 then err.Clear
end function
Function BytesToBstrs(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstrs = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
Function Newstring(Wstr,Strng)
Newstring=Ins
当会话session，从一个页面跳到另一个页面是很容易丢失的，跨域的更是如此，放弃吧，实现不了，除非目标能给你做对接
我不是专业认识。。。帮你顶下。 。。
如果是图片验证，直接提取图片地址添加。
如果是其他的，请去搜索小偷传递cookies之类的。将传递验证和cookies弄成一样。
这个不行，我给你一个。
第一个文件：xxx.asp
<%
'------------------
'图片验证码
'netdust
'05-8-29 发布
'以前的图片验证码很容易被破解，所以在其基础上进行改进，即使知道源代码
'也很难破解。
'干扰次数每加一 -> 穷举法的代价提高约100*100倍
'适当设定杂点几率可以有效降低软件识别正确率
'05-12-20 修正了一个错误
'------------------
Option Explicit
Call Com_CreatValidCode("GetCode")
Rem 生成验证码图片
Sub Com_CreatValidCode(pSN)
Const codeLen = 4 '验证码位数
Const cOdds = 3 '杂点出现的机率
Const dbtTimes = 3 '干扰次数（安全考虑，最好不要小于3）
Const cAmount = 10 '字库数量
Const cCode = "0123456789" '字库对应的字符
Const UnitWidth = 16 '字宽(要为4的倍数)
Const UnitHeight = 13 '字高
Const DotsLimit = 5 '每次删除有效点的上限(避免无法人为识别)
Const