1,488
社区成员
发帖
与我相关
我的任务
分享VB中的中文加密问题
请问,如何给一个中文的文字进行加密?
比如说,有这样的一个程序:
n=Asc("我")
m=oct(n)
请问,接下来应该如何将这个变量M转换成String?
请大家帮个忙,困了好久了,谢谢!
比如说,有这样的一个程序:
n=Asc("我")
m=oct(n)
请问,接下来应该如何将这个变量M转换成String?
请大家帮个忙,困了好久了,谢谢!
...全文
请发表友善的回复…
发表回复
嗷嗷叫的老马 2007-04-19
- 打赏
- 举报
我晕倒
你加密后就不用再解密了吗????
人家给的是加密与解密的代码啊
你自己把功能模块拆分开来不就行了???
你加密后就不用再解密了吗????
人家给的是加密与解密的代码啊
你自己把功能模块拆分开来不就行了???
luoxinxin1988 2007-04-19
- 打赏
- 举报
这并不是一个很难的问题吧....
我的意思是把那个"我"转换成一个不是"我"的string,照以上朋友的办法,那不是又把他转换回来了?这....
我的意思是把那个"我"转换成一个不是"我"的string,照以上朋友的办法,那不是又把他转换回来了?这....
luoxinxin1988 2007-04-19
- 打赏
- 举报
各位朋友可能并没有理解我的意思,我的意思是把上面的中文"我"加密成一个不是我的字符,用上面几个朋友的方法,并不能把"我"加密啊,sss2002(人不猥琐枉少年) 的方法又把"我"变回"我"了,这样有什么加密的效果啊,一点效果都没有
我的意思是把"我"变成另外一个字符,这个很难吗?具个例子出来就可以了啊......
请大家再想想办法,谢谢了!办法成功一定给分
我的意思是把"我"变成另外一个字符,这个很难吗?具个例子出来就可以了啊......
请大家再想想办法,谢谢了!办法成功一定给分
rainstormmaster 2007-04-18
- 打赏
- 举报
用google搜一下,加密算法有一大堆
zyg0 2007-04-17
- 打赏
- 举报
或者des
zyg0 2007-04-17
- 打赏
- 举报
aes加密
sss2002 2007-04-17
- 打赏
- 举报
n = Asc("我")
m = Oct(n)
Me.Caption = Chr("&O" & m)
m = Oct(n)
Me.Caption = Chr("&O" & m)
sss2002 2007-04-17
- 打赏
- 举报
Private Sub Form_Load()
Dim n As Integer
Dim l As Long
Dim m As Long
n = Asc("我")
m = Oct(n)
l = "&O" & m
Me.Caption = Chr(l)
End Sub
Dim n As Integer
Dim l As Long
Dim m As Long
n = Asc("我")
m = Oct(n)
l = "&O" & m
Me.Caption = Chr(l)
End Sub
sss2002 2007-04-17
- 打赏
- 举报
将 M 转换成 10 进制，用 chr 显示即可
