| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2032 人关注过本帖
标题:asp.net字符串的加密解密
只看楼主 加入收藏
闫温学
Rank: 1
等 级:新手上路
帖 子:189
专家分:1
注 册:2008-3-30
结帖率:100%
收藏
 问题点数:0 回复次数:5 
asp.net字符串的加密解密
framework是否提供了字符串加密解密的类,好像是有,我曾经看到过,但由于没有使用也就没有太注意。用的时候又找不到了,请知道的朋友帮助一下
搜索更多相关主题的帖子: 字符 asp 解密 
2008-05-30 19:08
闫温学
Rank: 1
等 级:新手上路
帖 子:189
专家分:1
注 册:2008-3-30
收藏
得分:0 
没有办法,自己编写吧

16446604 VB2010(Win7)技术交流群
2008-05-31 18:04
闫温学
Rank: 1
等 级:新手上路
帖 子:189
专家分:1
注 册:2008-3-30
收藏
得分:0 
简单的加密方法
将字符串转换为机器内码,再将内码还原为字符串,实现加密解密,没有密匙
'功能将一个字符转换为16进制内码表示
  '入口:strChar:一个Char类型的字符
  '出口:返回给定字符的Ascii码,用字符串表示,占用四个字符的位置
  Public Shared Function CharTo16Asc(ByVal strChar As Char) As String
    If strChar = Nothing Then Return "" '如果为空直接退出

    Dim str16Mid As String = Hex(Asc(strChar)).ToString  '将一个字符转换为ascii码
    '判断转换后是否占用了四个字符的位置
    If str16Mid.Length >= 4 Then '转换的是汉字,转换后由于占用了4个字节,需要将高两个字节截取掉
      Return str16Mid.Substring(str16Mid.Length - 4)
    Else '转换后小于2个字节的,需要在前面添加FFFF等
      Dim intCharAscLen As String = str16Mid.Length '长度
      Dim i As Integer
      Dim strF As String = ""
      For i = 0 To 4 - intCharAscLen - 1
        strF &= "0"
      Next
      Return strF & str16Mid
    End If
  End Function

  '功能将16进制内码表示的字符转换为字符
  '入口:str16Asc:一个使用十六进制表示的一个字符的内码,如:FEA3
  '出口:返回字符
  Public Shared Function Asc16ToChar(ByVal str16Asc As String) As Char
    If str16Asc = "" Then Return Nothing
    Return Chr("&H" & str16Asc) '将一个字符转换为ascii码
  End Function

  '功能将一个字符串转换为16进制内码表示
  '入口:strString:一个字符串
  '出口:返回给定字符的Ascii码串,用字符串表示,每个字符占用四个字符的位置
  Public Shared Function StringTo16Asc(ByVal strString As String) As String
    If strString = "" Then Return ""

    Dim charMid() As Char = strString.ToCharArray '将字符串以char形式保存到数组中

    Dim charOnlyMid As Char
    Dim strAscMid As String = ""
    For Each charOnlyMid In charMid
      strAscMid &= CharTo16Asc(charOnlyMid)
    Next
    Return strAscMid
  End Function

  '功能将一个16进制内码表示的字符串转换为字符串
  '入口:str16AscString:一个使用十六进制表示的字符串的内码,如:FEA3ADED
  '出口:返回字符串
  Public Shared Function Asc16ToString(ByVal str16AscString As String) As String
    If str16AscString = "" Then Return ""

    Dim i As Integer
    Dim strMid As String = ""
    For i = 0 To str16AscString.Length \ 4 - 1 '一次提取4个字符
      Dim strOnlyMid As String = str16AscString.Substring(i * 4, 4)
      strMid &= Asc16ToChar(strOnlyMid)
    Next
    Return strMid
  End Function
End Class

16446604 VB2010(Win7)技术交流群
2008-05-31 18:08
闫温学
Rank: 1
等 级:新手上路
帖 子:189
专家分:1
注 册:2008-3-30
收藏
得分:0 
需要的朋友可以看看

编写

16446604 VB2010(Win7)技术交流群
2008-05-31 18:08
yms123
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
好像有的阿?个人知道MD5算法在.NET中有系统定义的类能够实现。
2008-05-31 23:39
闫温学
Rank: 1
等 级:新手上路
帖 子:189
专家分:1
注 册:2008-3-30
收藏
得分:0 
这个方法是单向的,只能加密,不能解密

16446604 VB2010(Win7)技术交流群
2008-06-01 07:35
快速回复:asp.net字符串的加密解密
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.023621 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved