各位高手给看看这个代码做什么用的?avast报告说有病毒。
来源:互联网 发布:天通银交易软件 编辑:程序博客网 时间:2024/04/18 20:36
<%
Option Explicit
Response.buffer=true
NumCode
Function NumCode()
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
On Error Resume Next
Dim zNum,i,j
Dim Ados,Ados1
Randomize timer
zNum = cint(8999*Rnd+1000)
Session("GetCode") = zNum
Dim zimg(4),NStr
NStr=cstr(zNum)
For i=0 To 3
zimg(i)=cint(mid(NStr,i+1,1))
Next
Dim Pos
Set Ados=Server.CreateObject("Adodb.Stream")
Ados.Mode=3
Ados.Type=1
Ados.Open
Set Ados1=Server.CreateObject("Adodb.Stream")
Ados1.Mode=3
Ados1.Type=1
Ados1.Open
Ados.LoadFromFile(Server.mappath("images/body.Fix"))
Ados1.write Ados.read(1280)
For i=0 To 3
Ados.Position=(9-zimg(i))*320
Ados1.Position=i*320
Ados1.write ados.read(320)
Next
Ados.LoadFromFile(Server.mappath("images/head.fix"))
Pos=lenb(Ados.read())
Ados.Position=Pos
For i=0 To 9 Step 1
For j=0 To 3
Ados1.Position=i*32+j*320
Ados.Position=Pos+30*j+i*120
Ados.write ados1.read(30)
Next
Next
Response.ContentType = "image/BMP"
Ados.Position=0
Response.BinaryWrite Ados.read()
Ados.Close:set Ados=nothing
Ados1.Close:set Ados1=nothing
If Err Then Session("GetCode") = 9999
End Function
'Asp code Created by BlueIdea.COM Web Team V37 2003-7-25
%>
Option Explicit
Response.buffer=true
NumCode
Function NumCode()
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
On Error Resume Next
Dim zNum,i,j
Dim Ados,Ados1
Randomize timer
zNum = cint(8999*Rnd+1000)
Session("GetCode") = zNum
Dim zimg(4),NStr
NStr=cstr(zNum)
For i=0 To 3
zimg(i)=cint(mid(NStr,i+1,1))
Next
Dim Pos
Set Ados=Server.CreateObject("Adodb.Stream")
Ados.Mode=3
Ados.Type=1
Ados.Open
Set Ados1=Server.CreateObject("Adodb.Stream")
Ados1.Mode=3
Ados1.Type=1
Ados1.Open
Ados.LoadFromFile(Server.mappath("images/body.Fix"))
Ados1.write Ados.read(1280)
For i=0 To 3
Ados.Position=(9-zimg(i))*320
Ados1.Position=i*320
Ados1.write ados.read(320)
Next
Ados.LoadFromFile(Server.mappath("images/head.fix"))
Pos=lenb(Ados.read())
Ados.Position=Pos
For i=0 To 9 Step 1
For j=0 To 3
Ados1.Position=i*32+j*320
Ados.Position=Pos+30*j+i*120
Ados.write ados1.read(30)
Next
Next
Response.ContentType = "image/BMP"
Ados.Position=0
Response.BinaryWrite Ados.read()
Ados.Close:set Ados=nothing
Ados1.Close:set Ados1=nothing
If Err Then Session("GetCode") = 9999
End Function
'Asp code Created by BlueIdea.COM Web Team V37 2003-7-25
%>
0 0
- 各位高手给看看这个代码做什么用的?avast报告说有病毒。
- 各位高手帮我看看这个清屏程序
- 杀毒软件莫名报告你的软件有病毒,严重影响正常程序的推广怎么办?
- 请各位看看这个是什么编码,用什么工具解读,急ing
- 各位帮我看看这个怎么做啊??急
- 各位高手请帮小弟看看这个程序改怎么编啊?
- CSDN首页有病毒
- linux下有病毒?
- 高手说下。 在C#中要用什么代码才能获的屏幕的分辨率
- 看看西藏的蓝天美景,给各位程序员解解乏。。。
- 请教高手看看这个问起!
- 各位高手,给个建议
- 给大家看看什么叫高手---97年的Mekka ’97 4K Intro世界编程大赛冠军作品
- 90%的 CTO 都做不好绩效管理?看看这个十年 IT 老兵都有什么绝活?
- 看看国外的本科生能做什么
- 看看国外的本科生能做什么?
- 看看国外的本科生能做什么?
- Faint, CSDN居然有病毒?
- 请问关于从网络数据库获取数据 并显示的问题
- 计算机基础:硬件编码 (二进制正反补码、大小端编码)
- 安卓真机调试,程序没有进入到Java_org_cocos2dx_lib_Cocos2dxRenderer_nativeInit入口函数里?
- 由“虎扑体育app”的这个效果,来谈谈UITableView编辑模式
- 常用工具镜像网站又更新了#1
- 各位高手给看看这个代码做什么用的?avast报告说有病毒。
- 基础知识
- Android源码编译
- 责任链模式
- ubuntu平台下MySQL的环境搭建
- Java虚拟机垃圾回收(二) 垃圾回收算法:标记-清除算法 复制算法 标记-整理算法 分代收集算法 火车算法
- 单个服务器和客户端的通信
- sublime 中使用vim模式
- 基于Docker快速搭建Hadoop集群