|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同,ASP拥有应用系统所有权,用户拥有使用权,应用系统集中放在ASP的数据中心中,集中管理,分散使用,以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务,实现规模效益。加密|解密|中文Relaxlife.net可加密/解密中文/英文的Asp代码供人人下载,这但是秘密,可用在代码加密
可加密/解密中文/英文的Asp代码供人人下载,这但是秘密,可用在代码加密
Function.asp
<%
Rem=================================================================
Rem=函数文件:Function.asp
Rem=测试文件:TestEncrypt.asp,Encryptpass.asp
Rem=申明:Encrypt_PRO加密函数,Decrypt_PRO解密函数
Rem=Revision:1.01Beta
Rem=作者:熊氏好汉(cexo255),小奎
Rem=Date:2005/04/2003:41:10
Rem=QQ:30133499,38377160
Rem=MySite:Http://www.Relaxlife.net
Rem=QQ群:4341998
Rem=合用:对数据的加密,或对代码的加密,可加密中文/英文等。完整解密,不会呈现解密呈现乱码。
Rem=下版本估计改善:代码算法必要重写,大概晓得的人多了就不太平安了。
Rem=================================================================
PublicConstsDefaultWHEEL1="ABCDEFGHIJKLMNOPQRSTVUWXYZ_1234567890qwertyuiopasd!@#$%^&*(),.~`-=?/’""fghjklzxcvbnm;"
PublicConstsDefaultWHEEL2="IWEHJKTLZVOPFG_1234567890qwerBNMQRYUASDXCfghjklzxc~`-=?/’""!@#$%^&*(),.vbnm;tyuiopasd"
FunctionEncrypt_PRO(sINPUT,sPASSWORD)
DimsWHEEL1,sWHEEL2
Dimk,c,i
DimsRESULT
sWHEEL1=sDefaultWHEEL1:sWHEEL2=sDefaultWHEEL2
ScrambleWheelssWHEEL1,sWHEEL2,sPASSWORD
sRESULT=""
Fori=1ToLen(sINPUT)
c=Mid(sINPUT,i,1)
k=InStr(1,sWHEEL1,c)
Ifk>0Then
sRESULT=sRESULT&Mid(sWHEEL2,k,1)
Else
sRESULT=sRESULT&Addpass(c,sPASSWORD)
EndIf
sWHEEL1=LeftShift(sWHEEL1):sWHEEL2=RightShift(sWHEEL2)
Next
Encrypt_PRO=sRESULT
EndFunction
FunctionDecrypt_PRO(sINPUT,sPASSWORD)
DimsWHEEL1,sWHEEL2
Dimk,i,c
DimsRESULT
sWHEEL1=sDefaultWHEEL1:sWHEEL2=sDefaultWHEEL2
ScrambleWheelssWHEEL1,sWHEEL2,sPASSWORD
sRESULT=""
Fori=1ToLen(sINPUT)
c=Mid(sINPUT,i,1)
k=InStr(1,sWHEEL2,c,vbBinaryCompare)
Ifk>0Then
sRESULT=sRESULT&Mid(sWHEEL1,k,1)
Else
sRESULT=sRESULT&Addpass(c,sPASSWORD)
&nbs</p>国内有些大的CRM厂商的ASP就写得不错.无论是概念还是它里面用JAVASCRIPT的能力.并不是说现在的程序员用了ASP.NET来写程序就可以说自己高档了 |
|