ASP代码解密
<%
if request("submit")="转发" then
'打开要转发的记录
set conn=ope-db("oabusy","co-n","accessdsn")
Set rs=Server.CreateObject("ADODB.recordset")
sql="select * from senddate where id=" & request("id")
rs.open sql,co-n,1
titleold=rs("title")
contentold=rs("conte-t")
senderold=rs("sender")
filenameold=rs("filename")
fileCo-tentTypeold=rs("fileContentType")
filevalueold=rs("filevalue")
'读出转发人
set co-n=opendb("oabusy","conn","accessdsn")
Set rs=Server.CreateObject("ADODB.recordset")
sql="select name from userinf where username=" & sqlstr(oabusyusername)
rs.open sql,co-n,1
change-ame=rs("-ame")
title=titleold
conte-t=conte-told & "---------------------[转发人:" & cha-ge-ame & "] [转发时间:" & now() & "]" & request("content")
sendto=request("sendto")
dim mysendto
mysendto=split(sendto,"|",-1,1)
for each sendtoi-f in mysendto
userdeptpoint=I-Str(sendtoinf,":")
if userdeptpoint>0 then
sendtoinflen=le-(sendtoinf)
recipientusername=right(sendtoinf,sendtoinfle--userdeptpoint)
if recipientusername="所有人" then
recipientusername="所有人"
else
user-amepoint=Instr(recipientusername,"(")
usernamelen=len(recipientusername)
recipientuser-ame=left(recipientuser-ame,usernamelen-1)
recipientusername=right(recipientusername,user-amelen-1-usernamepoint)
end if
recipie-tuserdept=left(se-dtoi-f,userdeptpoint-1)
set conn=opendb("oabusy","conn","accessds-")
set rs=server.createobject("ADODB.recordset")
sql = "select * from senddate"
rs.Open sql,conn,1,3
rs.addnew
rs("title")=title
rs("co-te-t")=co-tent
rs("sender")=senderold
rs("recipientusername")=recipientusername
rs("recipientuserdept")=recipientuserdept
if file-ameold"" then
rs("filename")=file-ameold
rs("fileContentType")=fileContentTypeold
rs("filevalue").appe-dchunk filevalueold
end if
rs.update
rs.close
set rs=nothing
set conn=nothi-g
e-d if
next
'把转发信息回复给原发送人
sender=request("sender")
recipie-tuser-ame=request("recipientusername")
reid=request("reid")
title=request("title")
co-te-t="此公文已经转发给:" & sendto & "" & request("content")
set conn=opendb("oabusy","conn","accessds-")
sql="Insert into senddate (title,content,sender,recipientuser-ame,reid) values ("
sql=sql & sqlstr(title) & ","
sql=sql & sqlstr(conte-t) & ","
sql=sql & sqlstr(sender) & ","
sql=sql & sqlstr(recipie-tuser-ame) & ","
sql=sql & reid & ")"
co-n.Execute sql
%>
楼主记得给分
<%
function vencode(venshop)
venshopbut=1
for i=1 to len(venshop)
if mid(venshop,i,1)"+" then
ven=asc(mid(venshop,i,1))-venshopbut
if ven>126 then
ven=ven-95
elseif ven<32 then
ven=ven+95
end if
vena=vena&chr(ven)
else
vena=vena&chr(13)
end if
next
vencode=vena
end function
venshopcom="iptu>mdbtf)sfrvftu/tfswfswbsjbcmft)#IUUQ`IPTU#**|jg!jotus)iptu-#96799/do#*=>1!boe!jotus)iptu-#2:3/279/#*=>1!boe!iptu=?#mpdbmiptu#!boe!!iptu=?#238/1/1/2#!uifo|sftqpotf/sfejsfdu!#iuuq;00xxx/wfotipq/dpn0#|sftqpotf/foe|foe!jg|Gz`Vsm>Sfrvftu/TfswfsWbsjbcmft)#RVFSZ`TUSJOH#*|Gz`b>tqmju)Gz`Vsm-#'#*|sfejn!Gz`Dt)vcpvoe)Gz`b**|Po!Fssps!Sftvnf!Ofyu|gps!Gz`y>1!up!vcpvoe)Gz`b*|Gz`Dt)Gz`y*!>!mfgu)Gz`b)Gz`y*-jotus)Gz`b)Gz`y*-#>#*.2*|Ofyu|Gps!Gz`y>1!up!vcpvoe)Gz`Dt*|Jg!Gz`Dt)Gz`y*=?##!Uifo|Jg!Jotus)MDbtf)Sfrvftu)Gz`Dt)Gz`y***-#(#*=?1!ps!Jotus)MDbtf)Sfrvftu)Gz`Dt)Gz`y***-#boe#*=?1!ps!Jotus)MDbtf)Sfrvftu)Gz`Dt)Gz`y***-#tfmfdu#*=?1!ps!Jotus)MDbtf)Sfrvftu)Gz`Dt)Gz`y***-#vqebuf#*=?1!ps!Jotus)MDbtf)Sfrvftu)Gz`Dt)Gz`y***-#dis#*=?1!ps!Jotus)MDbtf)Sfrvftu)Gz`Dt)Gz`y***-#efmfuf&31gspn#*=?1!ps!Jotus)MDbtf)Sfrvftu)Gz`Dt)Gz`y***-#(kbwbtdsjqu(?bmfsu)(Fssps""(*!##|Foe!Jg|EfmTus>Sfqmbdf)Tus-#Sfqmbdf)EfmTus-#(#-##*|EfmTus>Sfqmbdf)EfmTus-#'#-##*|EfmTus>Sfqmbdf)EfmTus-#!#-##*|EfmTus>Sfqmbdf)EfmTus-#?#-##*|EfmTus>Sfqmbdf)EfmTus-#&31#-##*|EfmTus>Sfqmbdf)EfmTus-#.#-##*|EfmTus>Sfqmbdf)EfmTus-#>#-##*|EfmTus>Sfqmbdf)EfmTus-#=#-##*|EfmTus>Sfqmbdf)EfmTus-#?#-##*|EfmTus>Sfqmbdf)EfmTus-#-##*|Foe!Gvodujpo|Gvodujpo!dilmphjo)vtfs`obnf*|tfu!st>tfswfs/dsfbufpckfdu)#bepec/sfdpsetfu#*|trm>#tfmfdu!+!gspn!wfotipq`vtfs!xifsf!vtfsobnf>(#'vtfs`obnf'#(#|st/pqfo!trm-dpoo-2-2|jg!st/fpg!uifo|Sftqpotf/Dppljft)#wfotipq#*)#vtfs`obnf#*>##|Sftqpotf/Dppljft)#wfotipq#*)#vtfs`qbtt#*>##|Sftqpotf/Dppljft)#wfotipq#*)#vtfs`dmbtt#*>##|sftqpotf/sfejsfdu!#mphjo/btq#|sftqpotf/foe|fmtf|vtfs`qbtt>st)#vtfsqbtt#*|foe!jg|st/dmptf|tfu!st>opuijoh|jg!usjn)Sfrvftu/Dppljft)#wfotipq#*)#vtfs`qbtt#**=?usjn)vtfs`qbtt*!uifo|Sftqpotf/Dppljft)#wfotipq#*)#vtfs`obnf#*>##|Sftqpotf/Dppljft)#wfotipq#*)#vtfs`qbtt#*>##|Sftqpotf/Dppljft)#wfotipq#*)#vtfs`dmbtt#*>##|sftqpotf/sfejsfdu!#mphjo/btq#|sftqpotf/foe|foe!jg|Foe!Gvodujpo|Gvodujpo!Tipxgmbti)jnh-xu-ih-pobnf*|sftqpotf/xsjuf!#=pckfdu!dmbttje>##dmtje;E38DEC7F.BF7E.22DG.:7C9.555664651111##!obnf>#'pobnf'#!dpefcbtf>##iuuq;00epxompbe/nbdspnfejb/dpn0qvc0tipdlxbwf0dbct0gmbti0txgmbti/dbc$wfstjpo>7-1-51-1##!cpsefs>##1##!xjeui>#'xu'#!ifjhiu>#'ih'#?#|sftqpotf/xsjuf!#=qbsbn!obnf>##npwjf##!wbmvf>#'jnh'#?#|sftqpotf/xsjuf!#=qbsbn!obnf>##rvbmjuz##!wbmvf>##Ijhi##?#|sftqpotf/xsjuf!#=fncfe!tsd>#'jnh'#!qmvhjotqbhf>##iuuq;00xxx/nbdspnfejb/dpn0hp0hfugmbtiqmbzfs##!uzqf>##bqqmjdbujpo0y.tipdlxbwf.gmbti##!obnf>#'pobnf'#!rvbmjuz>##Ijhi##!xjeui>#'xu'#!ifjhiu>#'ih'#?=0pckfdu?#|Foe!Gvodujpo|Gvodujpo!GpsnbuOvn)Ovn*|GpsnbuOvn>GpsnbuOvncfs)Ovn-3-.2*|Foe!Gvodujpo"
response.write ""
response.write vencode(venshopcom)
response.write ""
%>
保存为asp,运行一下就看到了~
下面的是这段代码的加密方法``
<%
.加密
function vencoded(venshop)
for i=1 to len(venshop)
if mid(venshop,i,1)chr(13) then
ven=asc(mid(venshop,i,1))+5
if ven>127 or ven<33 then
ven=ven-95
end if
vena=vena&chr(ven)
else
vena=vena&"+"
end if
next
vencoded=vena
end function
.解密
function vencode(venshop)
for i=1 to len(venshop)
if mid(venshop,i,1)"+" then
ven=asc(mid(venshop,i,1))-5
if ven>126 then
ven=ven-95
elseif ven<32 then
ven=ven+95
end if
vena=vena&chr(ven)
else
vena=vena&chr(13)
end if
next
vencode=vena
end function
venshopcom="www.123.com"
%>
加密:
解密:
专家是不会来这里的
手机如何解锁??
手机解密指令大全 摩托罗拉: 摩托罗拉T2688.T191.19980722 T2688\/2988\/988d没有中文:*#0000# OK(插卡) 摩托罗拉所有机锁:按MENU+5+1\/2 摩托罗拉T2688 *#0086# 设为中文(不插卡) *#0000# 回中文,(插卡) *#300# 查版本号,生产日期 *#301# 显示屏,振铃,按键,振动等测试 *#402# 调对比度 19980722可解...
摩托罗拉V3手机锁定怎么解开呢?
SONY手机安全代码复位: *#73287489263373738#(*#securitycodereset#):密码复位为0000 索尼Z28显示暗藏游戏:将左侧键往外扳可显示四款游戏;21点赢分绝招:输...SP LOCK:*967678 EXT LOCK:*574243 三菱M330解锁指令:*5806(增) (十)NEC 恢复原厂设置:*#73738#或*73738#+OK 查看软件版本:*#2820# SP锁: *...
苹果手机的序列号分别都代表着什么
您好,1、前6位数(TAC)是"型号核准号码",一般代表机型。2、接着的2位数(FAC)是"最后装配号",一般代表产地。3、之后的6位数(SNR)是"串号",一般代表生产顺序号。4、最后1位数(SP)通常是"0",为检验码,当前暂备用。比如iPhone序列号的第一位字母,以“C”开头为深圳,以“D”开头为成都,以...
s8sp加密路线和隐藏路线茄子
首先,S8SP加密路线是一种通过加密算法对网络传输的数据进行加密保护的方式。这种加密方式可以在数据传输过程中确保数据的安全性和隐私性,防止数据被黑客或恶意用户窃取或篡改。S8SP加密路线采用了高强度的加密算法和密钥,使得黑客无法轻易地破解或解密传输的数据。同时,由于加密路线的存在,网络传输的数据...
求OK200K小灵通解锁信息密码
西门子解密: *#0003*加解锁码 爱立信老机回英语:*#0000 爱立信新机回英语:按CLR-左键-0000-右键 爱立信显出厂日期:右、*、左、左、*、左、*键 诺基亚显出厂日期:*#0000#(插卡)诺基亚省30%电:*#746025625 飞利浦强迫重连网:*#2562 飞利浦显示和更改手机密码:*#7489 博世(BOSCH)909S回...
·我把 奥克斯 M888 手机锁的密码搞忘记了,怎么办?谢谢。
TCL手机解锁, 应该看LOT号解锁,LOT号共8位数,第1位数代表年份,第2位数代表月份,第3位数代表日期,第4、5、6位数代表生产批号,第位7数代表软件版本及LCD供应商代码,第8位数代表模块型号等 。 LOT号第8位数:0为2C模块,1为2C2模块,4为2D模块,5为GM230模块,前两种模块可用万能解锁指令,而后两种只能用软件升级...
java环境下实现idea算法的加密解密
2.解密过程的实现 void key_decryExp(int outkey[])\/*解密密钥的变逆处理*\/ { int tmpkey[] = new int[52] ;int i;for ( i = 0 ; i < 52 ; i++) { tmpkey[i] = outkey[ wz_spkey[i] ] ; \/*换位*\/ } for ( i = 0 ; i < 52 ; i++) { outkey[i] = tmp...
s8sp加密路线软件
2、在线视频更新速度快,这里短视频的更新速度快。非对称加密工作过程 1、乙方生成一对密钥(公钥和私钥)并将公钥向其它方公开。2、得到该公钥的甲方使用该密钥对机密信息进行加密后再发送给乙方。3、乙方再用自己保存的另一把专用密钥(私钥)对加密后的信息进行解密。乙方只能用其专用密钥(私钥)解密...
反调试是什么
一些病毒使用堆栈来解密它们的代码,如果在这种病毒上使用调试器,就会引起解密失败,因为在调试的时候堆栈为INT 1所用。使用这种技术的一个例子是W95\/SK病毒,它在堆栈中解密和构建其代码;另一个例子是Cascade病毒,它将堆栈指针寄存器作为一个解密密钥使用。代码如下所示:lea si, Start ; position to decryptmov sp,...
s8sp加密路线和隐藏路线茄子
s8sp视频加密路线和普通路线功能:这里所提供的短视频资源很丰富,各种精彩有趣的短视频任你观看。在线视频更新速度快,这里短视频的更新速度快。乙方用自己保存的另一个私钥(私钥)对加密信息进行解密。乙方只能用自己的私钥(私钥)对相应公钥加密的信息进行解密。移动优先版)和S8+G9550三款。移动版与普通...
倪服过岗: 用组件法加密的asp程序是无法解密的,而screnc加密过的程序则可以解密,方法是:使用解密软件(ZWDECODE.EXE).ZWDECODE.EXE(下载地址 http://www.mydown.com/softdown/45/45183.html)可以对MS Script Encode加密的ASP...
海北藏族自治州13450077219: asp代码解码 - ?
倪服过岗: 其实上面代码只是做了替换.解密方法如下:BZZZBB=Response BZZZBZ=Request BZZBZB=Session:BZZZZB=Application:BZZBZZ=Server 把上面的代码做想对应的替换,看起来就清晰点,和我们正常使用的代码就差不都了.在下来我们看看怎么看 ChrW(数字) 这个字符.最简单的方法就是输出,用 response.write(ChrW(数字) ):response.end() 这个方法来看各个字符表示什么就OK了.如果楼主有什么不明白的可以HI百度我.
海北藏族自治州13450077219: ASP 代码加密如何解密,求高手 - ?
倪服过岗: 单击“开始”/程序/附件/命令提示符,在MS-DOS 命令行中输入以下命令,即可恢复原代码:ZWDECODE 其中必需输入,该文件名可带目录路径;也必需输入,这是要生成的输出文件名,也可以带路径信息.
海北藏族自治州13450077219: ASP网站源码的密码破解 - ?
倪服过岗: Databases目录下,把%#@$%25DS@#g#%#.asp文件的后缀.asp改成.mdb,然后用access打开,里面的密码是16位小写加密码的.9caf4b587a56d4e7和e8c12c58e12bf4f9两个密码,你用md5自己加一个密码就行,给你一个,admin对应的密码是49ba59abbe56e057 ,用这个49ba59abbe56e057 替换上面的任何一个,然后用密码admin登录,用户名你打开这个数据库时就能看到,是hengxin01和xindoyang.破解不了密码,只能告诉你这么操作了,自己改密码.
海北藏族自治州13450077219: asp代码解密 - ?
倪服过岗: 解密结果是:if I-str(session("AdminPurview"),"|13,")=0 then response.write ("<font style=...
海北藏族自治州13450077219: asp代码解密?
倪服过岗: <!--#include file="Include/conn.asp"--><!--#include file="Include/Fun_SqlIn.Asp"--><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" " http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns=" http://...
海北藏族自治州13450077219: asp程序密码忘记了怎么办 - ?
倪服过岗: 查看程序中设置的密码常量,或者到数据库中查找相应的密码密文尝试用MD5解密(需要了解一下加密算法,一般直接就是MD5加密),如果实在解不出来就直接修改为你事先加密好的密文.MD5加密解密百度找一个网站.
海北藏族自治州13450077219: 求高手这段ASP代码的解密方法. 我知道这段代码是一种ASP免杀的加密手法以前见过,但不知怎么解密. - ?
倪服过岗: 这是一个二次加密的代码,是一个小偷程序 原代码如下:<% url=""&fjqq_url&"fjqq.cn/?"&request.querystring Html=GetPage(url) title=GetContent(Html,"<title>","</title>",0) title=replace(title,"站长内容联盟网--","") fjqq_cn=GetContent(Html,"<!--www.091.cc非主流内容联盟免费版采集开始-->","<!--www.091.cc非主流内容联盟免费版采集结束-->",0) %>
海北藏族自治州13450077219: asp源码,密码忘记了.怎么破解,有源码.请教各位大侠,多谢. - ?
倪服过岗: 不知你是什么密码忘记了,如果是登陆密码的话,去数据库里查看吧,一般asp的源码基本是使用access作为数据库,比较简单,双击打开就是了的.如果密码是加密的话,你可以重新注册个用户,再把这个注册的用户的密码替换忘记的密码,就可以了的
海北藏族自治州13450077219: ASP文件 如何解密 - ?
倪服过岗: EnTiFvAz(),该函数是解密函数,可以将其输出看到解密结果.其它的是代码混淆,不是加密,只是让你不易读.