在线用户    站点地图 技术论坛 文档中心 站点导航 资源下载 语言参考 教程专题 站点统计 业务项目 使用帮助
您的位置
MSDN参考新加了CSS2参考,全中文,制作精良。245k下载。           新加了sxf_sxf推荐的"动态网页专家指导" 下载!          新加了lsg2002lsg推荐的"ASP.NET高级编程(PDF)" 下载!          新加了DHTML代码预览!!,功能强大哦!欢迎试用          新加了网友lincong为大家提供的SQL Server 2000 程序员指南,有点大,但同时也就说明内容全咯!           新加了网友ibra为大家提供的北大的JAVA课件,很适合初学者入门           新加了一个java的连接缓冲池代码示例           新加了人月神话电子版下载!软件工程巨著哦~~           更新了评分标准,引入了“专家分”概念,相信可以更好的激励大家的学习!详情请看“使用帮助”           新加了由网友GGG提供的“IIS超级管理手册”,值得一看哦!(虽然我没看过 :P )           新加了“英雄榜”,欢迎测试!           “无组件上传·从原理剖析到实践”已经全部完成,源码全部开放,有兴趣的朋友请到文档中心一探究竟。  您的位置  首页>文档中心>ASP>文档A0000587 在同一窗口中打开页面中的链接 在新窗口中打开页面中的链接 将ASPCHINA设为首页 将ASPCHINA加入书签    
 LOGIN HERE
用户:
密码: 忘记密码
记住密码 用户注册 游客进入
相关文章

asp解密

Serv-U软件密码加密函数

加密算法之RSA算法

加密你的ASP页面—Script Encoder初探
发表文章
怎样给文件加密最安全(一种方法)?

原作者:不详     提交人:omgod     发布时间:04-01-17     文章类型:转贴     浏览量:1989
参考链结:http://    
关键字:加密
[本文档没有附件]
字体:    视力保护色: 杏仁黄  秋叶褐  胭脂红  芥末绿  天蓝  雪青  灰  银河白(默认色) [A0000587]

这里提供了文件加密的一段小程序,以供大家参考.
<%@ Language = VBScript%>
<%
Response.Expires = 0

p = "abcdefg"
Set TestPWD = New CPassWord
TestPWD.EnPWD p
TestPWD.UnPWD TestPWD.ShowPWD(True)

k = TestPWD.ShowPWD(True)
l = TestPWD.ShowPWD(False)
Set TestPWD = Nothing

With Response
.Write "原文:" & p & "<br>"
.Write "加密后:" & k & "<br>"
.Write "解密后:" & L & "<br>"
End With


Class CPassWord
Private CEnPWD,CUnPWD

Private Function My_Hex(My_Hex_Source)
  My_Hex = Hex(My_Hex_Source)
  If Len(My_Hex) = 1 Then
  My_Hex = "0" & My_Hex
  End If
End Function

Private Function My_UnHex(My_UnHex_Source)
  If Len(My_UnHex_Source) = 2 Then
  Temp_Value = My_HexReplace(Left(My_UnHex_Source,1))
  End If
  My_UnHex = Temp_Value * 16 + My_HexReplace(Right(My_UnHex_Source,1))
End Function

Private Function My_HexReplace(My_HexReplace_Source)
  If Asc(My_HexReplace_Source) > 64 Then
  My_HexReplace = Asc(UCase(My_HexReplace_Source)) - 55
  Else
  My_HexReplace = Asc(My_HexReplace_Source) - 48
  End If
End Function

Public Property Get ShowPWD(EnP)
' 输出
  If EnP Then
  ShowPWD = CEnPWD
  Else
  ShowPWD = CUnPWD
  End If
End Property

Sub EnPWD(EnPWD_Source)
  if EnPWD_Source = "" then
  CEnPWD = 0
  Exit Sub
  else
  Randomize
  Key = Rnd * 256
  While Key = 0
    Key = Rnd * 256
  Wend
  For i=1 To Len(EnPWD_Source)
    Temp_String = Key Xor Asc(Mid(EnPWD_Source,i,1))
    Crc = Crc + Temp_String
    CEnPWD = CEnPWD + My_Hex(Temp_String)
  Next
  CEnPWD = My_Hex(Key) + StrReverse(CEnPWD) + My_Hex(Crc Mod 256)
  End if
End Sub

Sub UnPWD(UnPWD_Source)
  If Len(UnPWD_Source) < 6 Or Len(UnPWD_Source) Mod 2 = 1 then
  CUnPWD = 0
  Exit Sub
  End If
  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))
  For i=1 To Len(Old_String) - 1 Step 2
  Temp_Value = My_UnHex(Mid(Old_String,i,2))
  Crc_Temp = Crc_Temp + Temp_Value
  Temp_String = Temp_String + Chr(Temp_Value Xor Old_Key)
  Next
  If Old_Crc <> (Crc_Temp Mod 256) Then
  CUnPWD = 403
  Exit Sub
  End If
  CUnPWD = Temp_String
End Sub
End Class
%>

关于这篇文章的评论 [注意:这里仅仅是给大家提供了一个发表对文章本身看法的地方,如果有疑问,请到论坛提出] 我要提问!
miles        2004/9/21 14:21:00
???
Class CPassWord
Private CEnPWD,CUnPWD

这两行之前就是例子阿!
nmgymlsw        2004/1/31 22:54:00
怎样使用呀?最好有个使用的列子!
标题
内容
发言
*您尚未以注册用户身份登录,不能发表评论。这里登录
您的位置
  (c)2000-2018 Yup Studio, all rights reserved.  
152.3438