ASP网页编程之如何给文件加密最平安(一种办法)？
由于ASP还是一种Script语言所没除了大量使用组件外，没有办法提高其工作效率。它必须面对即时编绎的时间考验，同时我们还不知其背后的组件会是一个什么样的状况；平安|加密这里供应了文件加密的一段小程序,以供人人参考.<%@Language=VBScript%>
<%
Response.Expires=0
p="abcdefg"
SetTestPWD=NewCPassWord
TestPWD.EnPWDp
TestPWD.UnPWDTestPWD.ShowPWD(True)
k=TestPWD.ShowPWD(True)
l=TestPWD.ShowPWD(False)
SetTestPWD=Nothing
WithResponse
.Write"原文:"&p&"<br>"
.Write"加密后:"&k&"<br>"
.Write"解密后:"&L&"<br>"
EndWith
ClassCPassWord
PrivateCEnPWD,CUnPWD
PrivateFunctionMy_Hex(My_Hex_Source)
My_Hex=Hex(My_Hex_Source)
IfLen(My_Hex)=1Then
My_Hex="0"&My_Hex
EndIf
EndFunction
PrivateFunctionMy_UnHex(My_UnHex_Source)
IfLen(My_UnHex_Source)=2Then
Temp_Value=My_HexReplace(Left(My_UnHex_Source,1))
EndIf
My_UnHex=Temp_Value*16+My_HexReplace(Right(My_UnHex_Source,1))
EndFunction
PrivateFunctionMy_HexReplace(My_HexReplace_Source)
IfAsc(My_HexReplace_Source)>64Then
My_HexReplace=Asc(UCase(My_HexReplace_Source))-55
Else
My_HexReplace=Asc(My_HexReplace_Source)-48
EndIf
EndFunction
PublicPropertyGetShowPWD(EnP)
输入
IfEnPThen
ShowPWD=CEnPWD
Else
ShowPWD=CUnPWD
EndIf
EndProperty
SubEnPWD(EnPWD_Source)
ifEnPWD_Source=""then
CEnPWD=0
ExitSub
else
Randomize
Key=Rnd*256
WhileKey=0
Key=Rnd*256
Wend
Fori=1ToLen(EnPWD_Source)
Temp_String=KeyXorAsc(Mid(EnPWD_Source,i,1))
Crc=Crc+Temp_String
CEnPWD=CEnPWD+My_Hex(Temp_String)
Next
CEnPWD=My_Hex(Key)+StrReverse(CEnPWD)+My_Hex(CrcMod256)
Endif
EndSub
SubUnPWD(UnPWD_Source)
IfLen(UnPWD_Source)<6OrLen(UnPWD_Source)Mod2=1then
CUnPWD=0
ExitSub
EndIf
Old_Key=My_UnHex(Left(UnPWD_Source,2))
Old_Crc=My_UnHex(Right(UnPWD_Source,2))
Old_String=StrReverse(Mid(UnPWD_Source,3,Len(UnPWD_Source)-4))
Fori=1ToLen(Old_String)-1Step2
Temp_Value=My_UnHex(Mid(Old_String,i,2))
Crc_Temp=Crc_Temp+Temp_Value
Temp_String=Temp_String+Chr(Temp_ValueXorOld_Key)
Next
IfOld_Crc(Crc_TempMod256)Then
CUnPWD=403
ExitSub
EndIf
CUnPWD=Temp_String
EndSub
EndClass
%>
</p>ASP在国内异常流行，因为国内大多使用的是盗版的Windows和盗版的SQLServer，而ASP＋COM＋SQLServer实际上也是一种不错的搭配，其性能也不输于PHP+MYSQL，特别是Windows系统和SQLServer都有图形界面，比APACHE和MYSQL易于维护，因此对于不重视知识产权的国家来说也是一种不错的选择。 兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的 Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件 尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。 我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。 ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。 因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。 学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点: 虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。 哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的?
页:
[1]