| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1583 人关注过本帖
标题:[求助]如何对汉字字符进行加密?
只看楼主 加入收藏
海蓝啸
Rank: 5Rank: 5
来 自:安徽
等 级:贵宾
威 望:17
帖 子:1611
专家分:0
注 册:2006-4-3
结帖率:100%
收藏
 问题点数:0 回复次数:4 
[求助]如何对汉字字符进行加密?
对英文字符简单加密很容易,可以使用Ascii。。。有规律地改变Ascii值就可以实现简单加密。。。但是对汉字字符串进行加密呢?怎么做?给个思路。。。
搜索更多相关主题的帖子: 汉字字符 Ascii 思路 规律 
2006-12-22 16:47
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
汉字也有ascii的啊..只不过是负的.

我的msn: myfend@
2006-12-22 16:50
海蓝啸
Rank: 5Rank: 5
来 自:安徽
等 级:贵宾
威 望:17
帖 子:1611
专家分:0
注 册:2006-4-3
收藏
得分:0 
知道了,刚才试了下。。呵呵。。。谢谢
问的有点白痴

这个社会太复杂。。。
2006-12-22 17:07
redice
Rank: 3Rank: 3
等 级:新手上路
威 望:6
帖 子:902
专家分:0
注 册:2006-12-11
收藏
得分:0 

下面是我写的一文本文件加密器的代码,它可以加密任何字符
以下代码中的控件均采用系统默认名称。
这是加密部分:
Private Sub Command1_Click()
Dim fs As New FileSystemObject
Dim txtf As TextStream
Dim txtf2 As TextStream
Dim ans As Integer
Dim i As Integer
Dim s As String
Dim s2 As String
If Text1.Text = "" Then
ans = MsgBox("确定不设置密码吗?", vbOKCancel, "未设置密码!")
End If

If ans = vbCancel Then
Exit Sub
End If
If ans = vbOK Then
CommonDialog1.DialogTitle = "选择加密文件!"
CommonDialog1.Filter = "*.txt|*.txt|*.rtf|*.rtf|*.bak|*.bak|*.inf|*.inf|.ini|*.ini|*.sys|*.sys"
CommonDialog1.ShowOpen
If Err.Number = cdlCancel Then Exit Sub
If CommonDialog1.FileName = "" Then Exit Sub
Set txtf = fs.OpenTextFile(CommonDialog1.FileName, ForReading, False)
s = txtf.ReadAll
If s = "" Then
MsgBox "该文件没有内容!", vbOKOnly, "错误!"
Exit Sub
End If
txtf.Close
Set txtf2 = fs.CreateTextFile(CommonDialog1.FileName, True)
For i = 1 To Len(s)
s2 = StrConv(Mid(s, i), vbFromUnicode)
If AscB(StrConv(Mid(s, i), vbFromUnicode)) > 128 Then
If i <> Len(s) Then
txtf2.Write Str(AscB(MidB(s2, 1)) + 618) + "," + Str(AscB(MidB(s2, 2)) + 618) + ","
Else
txtf2.Write Str(AscB(MidB(s2, 1)) + 618) + "," + Str(AscB(MidB(s2, 2)) + 618)
End If
Else
If i <> Len(s) Then
txtf2.Write Str(AscB(s2) + 618) + ","
Else
txtf2.Write Str(AscB(s2) + 618)
End If
End If
DoEvents
Next
txtf2.Close
StatusBar1.Panels(1).Text = "文件加密完成!"
Text1.Text = ""
MsgBox "文本加密完成!", vbOKCancel, "加密完成"
Exit Sub
End If

CommonDialog1.DialogTitle = "选择加密文件!"
CommonDialog1.Filter = "*.txt|*.txt|*.rtf|*.rtf|*.bak|*.bak|*.inf|*.inf|.ini|*.ini|*.sys|*.sys"
CommonDialog1.ShowOpen
If Err.Number = cdlCancel Then Exit Sub
If CommonDialog1.FileName = "" Then Exit Sub
Set txtf = fs.OpenTextFile(CommonDialog1.FileName, ForReading, False)
s = txtf.ReadAll
If s = "" Then
MsgBox "该文件没有内容!", vbOKOnly, "错误!"
Exit Sub
End If
txtf.Close
Set txtf2 = fs.CreateTextFile(CommonDialog1.FileName, True)
For i = 1 To Len(s)
s2 = StrConv(Mid(s, i), vbFromUnicode)
If AscB(StrConv(Mid(s, i), vbFromUnicode)) > 128 Then
If i <> Len(s) Then
txtf2.Write Str(AscB(MidB(s2, 1)) + Val(Text1.Text)) + "," + Str(AscB(MidB(s2, 2)) + Val(Text1.Text)) + ","
Else
txtf2.Write Str(AscB(MidB(s2, 1)) + Val(Text1.Text)) + "," + Str(AscB(MidB(s2, 2)) + Val(Text1.Text))
End If
Else
If i <> Len(s) Then
txtf2.Write Str(AscB(s2) + Val(Text1.Text)) + ","
Else
txtf2.Write Str(AscB(s2) + Val(Text1.Text))
End If
End If
DoEvents
Next
txtf2.Close
Text1.Text = ""
StatusBar1.Panels(1).Text = "文件加密完成!"
MsgBox "文本加密完成!", vbOKCancel, "加密完成"
End Sub

下面是解密部分
Private Sub Command2_Click()
Dim fs As New FileSystemObject
Dim txtf As TextStream
Dim txtf2 As TextStream
Dim s As String
Dim i As Integer
Dim cells() As String
Dim barr(1) As Byte
If Text1.Text = "" Then
MsgBox "请输入解密密码!", vbOKOnly, "未输入密码!"
Exit Sub
End If
CommonDialog1.DialogTitle = "选择解密文件"
CommonDialog1.Filter = ""
CommonDialog1.ShowOpen
If Err.Number = cdlCancel Then Exit Sub
If CommonDialog1.FileName = "" Then Exit Sub
Set txtf = fs.OpenTextFile(CommonDialog1.FileName, ForReading, False)
On Error GoTo err1
s = txtf.ReadAll
txtf.Close
cells = Split(s, ",")
StatusBar1.Panels(1).Text = "正在对文件" + CommonDialog1.FileTitle + "进行解密..."
Set txtf2 = fs.CreateTextFile(CommonDialog1.FileName, True)
For i = 0 To UBound(cells)
If Val(cells(i)) = 0 Then GoTo errmsg
If (Val(cells(i)) - Val(Text1.Text)) <= 128 Then
txtf2.Write Chr(Val(cells(i)) - Val(Text1.Text))
Else
If Val(cells(i)) = 0 Then GoTo errmsg
barr(0) = Val(cells(i)) - Val(Text1.Text)
i = i + 1
barr(1) = Val(cells(i)) - Val(Text1.Text)
txtf2.Write StrConv(barr, vbUnicode)
End If
DoEvents
Next
txtf2.Close
StatusBar1.Panels(1).Text = "文件解密完成!"
Text1.Text = ""
MsgBox "文件解密完成!", vbOKOnly, "解密完成"
Exit Sub
errmsg:
txtf2.Write s
txtf2.Close
Text1.Text = ""
MsgBox "该加密文件遭到了破坏,无法进行解密操作!", vbOKOnly, "错误!"
Exit Sub
err1:
Text1.Text = ""
MsgBox "文件内容为空!", vbOKOnly, "错误"
End Sub

留下你的邮箱我可以把程序发给你


鲲鹏数据 - 专业Web数据采集服务提供者
http://www.
2006-12-23 15:40
海蓝啸
Rank: 5Rank: 5
来 自:安徽
等 级:贵宾
威 望:17
帖 子:1611
专家分:0
注 册:2006-4-3
收藏
得分:0 

yaya@mail.ahnu.edu.cn

thank you ...


这个社会太复杂。。。
2006-12-23 18:48
快速回复:[求助]如何对汉字字符进行加密?
数据加载中...
 
   



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

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