|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
使用cdonts,可以发送、查看邮件,实现webmail的功能。结合wsh,可以实现对nt主机的管理,如nt用户管理、iis虚拟主机设置、exchange邮箱设置等等,就像管理本地机一样方便。剧本|考证码ADODE.Stream完成!49行代码,三个文件,有点象本站的CGIimg.exe的效果
Asp文件:Code.Asp
数据文件:body.Fix,Head.Fix
演示:
http://www.lfgbox.com/paintblue/code/code.asp
:D我已放我论坛往啦~~
下载:
http://www.lfgbox.com/download/code.rar
用法:<imgsrc="code.asp">
在查验页:判别Cint(request("GetCode"))=Session("GetCode")
:rolleyes::rolleyes::rolleyes:
别怪我做过剩休息~~折腾代码!写个全新的的东东是满意的~~
请注重下载完全的数字数据文件~~
代码思绪就是使用ADODB.Stream二进制工具举行二进制流的处置!
将随机天生的数字转换为挪用图象数据中响应的数据块,图象数据是GBRGBR..排部的数据,头是BMP的头~~然后用ADODB.Stream将天生的随机数字图象数据再组合为新的一个bmp图象块~~用Response.BinaryWrite将其间接发送扫瞄器
Body.Fix数字0~910X100竖排的RGB阵列数据3200byte
Head.Fix是54byte的BMP头
假如要改动字体和色彩~~能够将bmp10x100图象的前54字节往失落!
交换body.Fix文件
以下内容为程序代码
<%
Optionexplicit
Response.buffer=true
NumCode
FunctionNumCode()
Response.Expires=-1
Response.AddHeader"Pragma","no-cache"
Response.AddHeader"cache-ctrol","no-cache"
dimzNum,i,j
dimAdos,Ados1
Randomizetimer
zNum=cint(8999*Rnd+1000)
Session("GetCode")=zNum
dimzimg(4),NStr
NStr=cstr(zNum)
Fori=0to3
zimg(i)=cint(mid(NStr,i+1,1))
Next
dimPos
setAdos=Server.CreateObject("Adodb.Stream")
Ados.Mode=3
Ados.Type=1
Ados.Open
setAdos1=Server.CreateObject("Adodb.Stream")
Ados1.Mode=3
Ados1.Type=1
Ados1.Open
Ados.LoadFromFile(Server.mappath("body.Fix"))
Ados1.writeAdos.read(1280)
fori=0to3
Ados.Position=(9-zimg(i))*320
Ados1.Position=i*320
Ados1.writeados.read(320)
next
Ados.LoadFromFile(Server.mappath("head.fix"))
Pos=lenb(Ados.read())
Ados.Position=Pos
fori=0to9step1
forj=0to3
Ados1.Position=i*32+j*320
Ados.Position=Pos+30*j+i*120
Ados.writeados1.read(30)
next
next
Response.ContentType="image/BMP"
Ados.Position=0
Response.BinaryWriteAdos.read()
Ados.Close:setAdos=nothing
Ados1.Close:setAdos1=nothing
EndFunction
AspcodeCreatedbyBlueIdea.COMWebTeamV372003-7-25
%>
</p>帮助用户快速实现各种应用服务,ASP商有整合各方面资源的能力,可在短期内为用户提供所需的解决方案。例如,典型的ERP安装,如果要在客户端安装的话需要半年到二年的时间,但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。 |
|