电影防盗链及下载

最新推荐文章于 2024-05-14 09:31:57 发布

jiangxinyu

最新推荐文章于 2024-05-14 09:31:57 发布

阅读量1.5k

点赞数

分类专栏： windows 文章标签： function session javascript stream 加密解密

windows 专栏收录该内容

259 篇文章

订阅专栏

电影防盗链及下载

发布时间：2005-12-23 9:59:06 浏览次数：1574

打印关闭

实现电影防盗链功能

注意:以下仅实现功能，并未整合到网站中

一、加密解密及相关函数(FilmFun.asp)

' ================= 函数部分 ===================

Function GetFileName(longname)'/folder1/folder2/file.asp=>file.asp

while instr(longname,"/")

longname = right(longname,len(longname)-1)

wend

GetFileName = longname

End Function

' ================= 文件名加密 ===================

Function Encrypt(Ecode)

Dim texts

Dim i

For i=1 To Len(Ecode)

texts = texts & Chr(Asc(Mid(Ecode,i,2))+i)

Encrypt = texts

End Function

' ================= 文件名解密 ===================

Function UnEncrypt(Dcode)

Dim texts

Dim i

For i=1 To Len(Dcode)

texts = texts & Chr(Asc(Mid(Dcode,i,2))-i)

UnEncrypt = texts

End Function

二、入口文件(Play.asp)

' ###################################

IF Session("Film_Flag") = 5 Then%>

function go()

{

window.open('OpenWinPlay.asp?id=film','newwindow','height=405,width=450,top=120,left=200,toolbar=no,menubar=no,scrollbars=no,resizable=no,location=no,status=no');

CloseWin();

}

</script>

<br><div align=center><a href="#" onclick="go();">·播放电影防盗链测试</a></div>

Else

' ###################################

Session("Film_Flag") = Session("Film_Flag") + 1

Response.Write "<br><div align=center>·播放电影防盗链测试 [请刷新5次，您已经刷新</font>" & Session("Film_Flag")-1 & "次</font>]</div>"

End IF

三、播放页面(OpenWinPlay.asp)

Dim FilmName

IF Session("Film_Flag") = "" Then

' ###################################

Response.Write "<script>CloseWin();</script>"

Else

' 注意，这个算法对中文支持不好，用英文

FilmName = Encrypt("test.rmvb") '加密文件名

<tr>

<p><b><font face="宋体" color="#FFFFFF">﹢南京租房网电影院(NJZUFANG.COM)</font></b></td>

</tr>

</object><br>

</object>

</td>

</tr>

<tr>

观看者:小三来源IP: 127.0.0.1 <input type=button value=" 关闭 " onclick="CloseWin()"></td>

</tr>

</table>

</td>

</tr>

</table>

</div>

<%End IF%>

四、实现防盗页面(Film.asp)

' ########## 电影文件目录 ###############

Const FileDriver = "/#@$%^FGFSD646464_RMVB@#$%^&$%@$@$@DFgsdfsdf56gr/"

IF Session("Film_Flag") <> "" Then

Dim Stream,Contents,FileName,TrueFileName,FileExt

Const adTypeBinary = 1

FileName = UnEncrypt(Request.QueryString("id"))

IF FileName = "" Then

Response.Write "无效文件名！"

Response.End

End IF

FileExt = Mid(FileName, InStrRev(FileName, ".") + 1)

Select Case UCase(FileExt)

Case "ASP", "ASA", "ASPX", "ASAX", "MDB"

Response.Write "非法操作！"

Response.End

End Select

Response.Clear

Response.ContentType = "audio/x-pn-realaudio"

Response.AddHeader "Content-Disposition", "attachment; Filename=" & FileName

Set Stream = server.CreateObject("ADODB.Stream")

Stream.Type = adTypeBinary

Stream.Open

IF Lcase(Right(FileName,4)) = "rmvb" Then TrueFileName = FileDriver & FileName '设置文件类型文件目录

Stream.LoadFromFile Server.MapPath(TrueFileName)

While Not Stream.EOS

Response.BinaryWrite Stream.Read(1024 * 64)

Response.Flush '根据上面速率循环下载

Wend

Stream.Close

Set Stream = Nothing

Response.End

Else

'Response.Write "禁止盗链！"

Response.Write "<script>CloseWin();</script>"

End IF

五、关闭窗口Js文件(CloseWin.js)

function CloseWin()

{

//用Javascript实现完美关闭窗口

var ua=navigator.userAgent

var ie=navigator.appName=="Microsoft Internet Explorer"?true:false

if(ie){

var IEversion=parseFloat(ua.substring(ua.indexOf("MSIE ")+5,ua.indexOf(";",ua.indexOf("MSIE "))))

if(IEversion< 5.5){

var str = '<object id=noTipClose classid="clsid:ADB880A6-D8FF-11CF-9377-00AA003B7A11">'

str += '<param name="Command" value="Close"></object>';

document.body.insertAdjacentHTML("beforeEnd", str);

document.all.noTipClose.Click();

}

else{

window.opener=null;

window.close();

}

else{

window.close()

}