如何在Flash中处理Cookies？

2006-04-23 07:58:14 167 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

flash.js 劫持怎么解决之前写的一个下载xlsx文件，最近换了网络环境，服务器环境下载总会触发两次请求，中间会有一个flash.js，下载两次之后出现白页面，度娘之后发现没有实质性的解决办法，于是打算发个帖子，给大家借鉴一下。下面是别人的一个图，我这边修复了，忘记截图了。度娘一搜一大堆解决方案，但是都是类似下面这种修改浏览器的操操作，虽然修改了可以用，但是不能每一个用的人都去修改吧，而且F12 一关，又会重复之前的两次下载，很明显不是最终解决办法，修改之后，不出现falsh.js或者不多... 阅读详情

今天搞了一个FLASH的留言本，但是不知道如何用它来处理ASP的COOKIES，请指教。

...全文

Cloudflare 5秒盾破解实战：Python补环境框架下的13次请求全解析本文深入解析Cloudflare 5秒盾（5-second challenge）的工作原理，并提供基于Python环境的自动化应对策略。通过13次请求流程分解、动态脚本处理技术和环境指纹模拟，帮助开发者有效绕过这一复杂的人机验证机制，提升自动化工作效率。阅读详情

see7di

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

see7di 2006-04-23

打赏
举报

谢谢

jamila8 2006-04-23

打赏
举报

顶一下.

youzi520 2006-04-23

打赏
举报

学习,MARK..

www_7di_net 2006-04-23

打赏
举报

以下是ASP访问FLASH的详解
<%

Class SWFDump

Private header
Private RECTdata
Private nBits
Private mversion
Private mfilelen
Private mxMin
Private mxMax
Private myMin
Private myMax
Private mheigt
Private mwidth
Private mframerate
Private mframecount

Private Sub Class_Initialize()

End Sub

Private Sub Class_Terminate()

End Sub

Private Function ReadHeader (filename)
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(filename, ForReading)
ReadHeader = f.Read(21)
End Function

Private Function ToBin(inNumber, OutLenStr )
Dim binary
binary = ""
do while inNumber >= 1
binary = binary & inNumber mod 2
inNumber = inNumber \ 2
loop
binary = binary & String(OutLenStr - len(binary), "0")
ToBin = StrReverse(binary)
End Function

Private Function Bin2Decimal(inBin)
Dim counter
Dim temp
Dim Value
inBin = StrReverse(inBin)
temp = 0
For counter = 1 to Len(inBin)
If counter = 1 then
Value = 1
Else
Value = Value * 2
End If
temp = temp + mid(inBin, counter ,1) * Value
Next
Bin2Decimal = temp
End Function

Public Function SWFDump(fileName)

header = ReadHeader (fileName)
mversion = asc(mid(header,4,1))
mfilelen = asc(mid(header,5,1))
mfilelen = mfilelen + asc(mid(header,6,1)) * 256
mfilelen = mfilelen + asc(mid(header,7,1)) * 256 * 256
mfilelen = mfilelen + asc(mid(header,8,1)) * 256 * 256 * 256

RECTdata = ToBin(asc(mid(header,9,1)),8)
RECTdata = RECTdata & ToBin(asc(mid(header,10,1)),8)
RECTdata = RECTdata & ToBin(asc(mid(header,11,1)),8)
RECTdata = RECTdata & ToBin(asc(mid(header,12,1)),8)
RECTdata = RECTdata & ToBin(asc(mid(header,13,1)),8)
RECTdata = RECTdata & ToBin(asc(mid(header,14,1)),8)
RECTdata = RECTdata & ToBin(asc(mid(header,15,1)),8)
RECTdata = RECTdata & ToBin(asc(mid(header,16,1)),8)
RECTdata = RECTdata & ToBin(asc(mid(header,17,1)),8)

nBits = Mid(RECTdata,1,5)
nBits = Bin2Decimal(nBits)

mxMin = Bin2Decimal(Mid(RECTdata,6,nBits))
mxMax = Bin2Decimal(Mid(RECTdata,6 + nBits * 1 ,nBits))
myMin = Bin2Decimal(Mid(RECTdata,6 + nBits * 2 ,nBits))
myMax = Bin2Decimal(Mid(RECTdata,6 + nBits * 3 ,nBits))

mheigt = (myMax - myMin) / 20
mwidth = (mxMax - mxMin) / 20

mframerate = asc(mid(header,18,1))

mframecount = asc(mid(header,19,1))
mframecount = mframecount + asc(mid(header,20,1)) * 256

End Function

Public Property Get Heigt()
Heigt = mheigt
End Property

Public Property Get Width()
Width = mwidth
End Property

Public Property Get Version()
Version = mversion
End Property

Public Property Get FileLen()
FileLen = mfilelen
End Property

Public Property Get xMin()
xMin = mxMin
End Property

Public Property Get xMax()
xMax = mxMax
End Property

Public Property Get yMin()
yMin = myMin
End Property

Public Property Get yMax()
yMax = myMax
End Property

Public Property Get Framerate()
Framerate = mframerate
End Property

Public Property Get Framecount()
Framecount = mframecount
End Property
End Class
%>

做成包含文件swfheaderdump.inc
调用：


<%
' Pass the SWF name in querystring this way
' swfdump.asp?swf=yourmovie.swf

set myObj = new swfdump
myObj.SWFDump (Server.MapPath(request("swf")))

Response.Write "Heigt (pixel) = " & myObj.Heigt & " "
Response.Write "Width (pixel) = " & myObj.Width & " "
Response.Write "Version = " & myObj.Version & " "
Response.Write "FileLen (bytes) = " & myObj.FileLen & " "
Response.Write "xMin (twips) = " & myObj.xMin & " "
Response.Write "xMax (twips) = " & myObj.xMax & " "
Response.Write "yMin (twips) = " & myObj.yMin & " "
Response.Write "yMax (twips) = " & myObj.yMax & " "
Response.Write "FrameRate = " & myObj.FrameRate & " "
Response.Write "FrameCount = " & myObj.FrameCount & " "
%>

www_7di_net 2006-04-23

打赏
举报

testcookies.asp
' 检查浏览器是否接受 cookies
<%
strTest = Request.QueryString("CookieTest")
If UCase(strTest) <> Ucase("true") Then
Session("__FlashCookieTest") = True
' 第一次呼叫.设置session变量
' 用QueryString重定向
strURL = Request.ServerVariables("SCRIPT_NAME")
strQueryString = "?CookieTest=true"
Response.Redirect(strURL & strQueryString)
Response.End
Else
If Session("__FlashCookieTest") = True Then
' 已完成重定向.检查session变量是否包含值
strOut = "Cookies=true"
' Session变量包含值,因此浏览器接受cookies

Else
strOut = "Cookies=false"
' Session变量为空,浏览器决绝cookies
End If
End If
Response.Write(strOut)
' 输出到Flash
%>

在ASP中，使用 Response.Cookies 集合能够很容易设定cookies。Flash程序呼叫setcookies.asp，传送在Querystring中cookies（names and values）变量到ASP程序；接着，ASP从Querystring 集合读取所有的值，再由Response.Cookies送出对应的 cookies到浏览器去。看看这个文件的代码：
setcookies.asp
<%
For each item in Request.QueryString
Response.Cookies(item) = Request.Querystring(item)
Next
%>

当Flash程序呼叫getcookies.asp文件，会以URL编码文字传回所有的cookies的名称和值。这样，当Flash呼叫getcookies.asp时，cookies的值就会写入Flash同样名称的变数中，代码如下：
getcookies.asp
' 读取 Cookies
<%
For each cookie in Request.Cookies
strOut = strOut & Server.URLEncode(cookie) & "="
strOut = strOut & Server.URLEncode(Request.Cookies(cookie))
strOut = strOut & "&"
Next
Response.Write strOut
%>

sxsgssgs 2006-04-23

打赏
举报

去flash版问问吧。

see7di 2006-04-23

打赏
举报

可否提供以下程序代码？

baicha123 2006-04-23

打赏
举报

用asp处理之后输出文本或者xml然后再通过flash读取

如何在Flash中处理Cookies？

相关推荐