VB中的中文加密问题 请问,如何给一个中文的文字进行加密?比如说,有这样的一个程序: n=Asc("我") m=oct(n) 请问,接下来应该如何将这个变量M转换成String?请大家帮个忙,困了好久了,谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 将 M 转换成 10 进制,用 chr 显示即可 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 n = Asc("我") m = Oct(n) Me.Caption = Chr("&O" & m) 用google搜一下,加密算法有一大堆 各位朋友可能并没有理解我的意思,我的意思是把上面的中文"我"加密成一个不是我的字符,用上面几个朋友的方法,并不能把"我"加密啊,sss2002(人不猥琐枉少年) 的方法又把"我"变回"我"了,这样有什么加密的效果啊,一点效果都没有我的意思是把"我"变成另外一个字符,这个很难吗?具个例子出来就可以了啊......请大家再想想办法,谢谢了!办法成功一定给分 这并不是一个很难的问题吧....我的意思是把那个"我"转换成一个不是"我"的string,照以上朋友的办法,那不是又把他转换回来了?这.... 没有悬念的押宝游戏,直接上2000分! 有关collection集合的问题?在线.............. 关于自定义控件问题 如何得到CPU的温度跟CPU风扇的转速。 请问怎么用VB编程来实现数据的采集和控制啊? 怎么才能修改IE中安全选项中Internet项中的关于ActiveX下载项的值,我翻遍了API也没解决问题 各位大虾求教一个问题,关于MSHFlexGrid www.google.com怎么了? Insert into 错在什么地方 在VB中如何检测右键的按下??在线等 ACCESS表导入远程SQL时如何覆盖重复记录? 大家麻烦看看我的错误[Run-time error 48]
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
我的意思是把"我"变成另外一个字符,这个很难吗?具个例子出来就可以了啊......
请大家再想想办法,谢谢了!办法成功一定给分
我的意思是把那个"我"转换成一个不是"我"的string,照以上朋友的办法,那不是又把他转换回来了?这....