在线急等:关注加密!----解决晚上就结帐!

yb2008 2004-11-30 05:40:22
请大家帮我把下面这段代码加密,!当然,要可以执行!

请写出加密函数方法或步骤!

感谢!
<%

explan=request("explanation")

response.buffer=true

formsize=request.totalbytes

formdata=request.binaryread(formsize)

bncrlf=chrB(13) & chrB(10)

divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)

datastart=instrb(formdata,bncrlf & bncrlf)+4

dataend=instrb(datastart+1,formdata,divider)-datastart

mydata=midb(formdata,datastart,dataend)



set connGraph=server.CreateObject("ADODB.connection")

connstr="DBQ="+server.mappath("images.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

connGraph.open connstr


set rec=server.createobject("ADODB.recordset")

rec.Open "SELECT * FROM [images] where id is null",connGraph,1,3

rec.addnew

rec("说明")="没有说明!"
rec("img").appendchunk mydata

rec.update

rec.close

set rec=nothing

set connGraph=nothing

%>
...全文
97 点赞 收藏 8
写回复
8 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
http://www.ddvip.net/web/asp/safe/12.htm
md5加密
回复
hflsj 2004-11-30
去微软站点下个screnc.exe就解决问题了


但听说这个加密后能解密。 呵呵。
回复
chjpeng 2004-11-30
因为MDB?改成ASP就行了啊
回复
中年CodeBoy 2004-11-30
注意使用格式
screnc /l vbscript 源.asp 目标.asp
然后目标.asp就是你要的加密过后的文件了
回复
中年CodeBoy 2004-11-30
去微软站点下个screnc.exe就解决问题了
加密后木马都不能被杀毒软件查出来
回复
yb2008 2004-11-30
我看到很多密码之后都成了乱码,其实我要的也是这种效果!
回复
yb2008 2004-11-30
如果能把整个asp的文件加密更好!
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-11-30 05:40
社区公告
暂无公告