请问,如何给一个中文的文字进行加密?
比如说,有这样的一个程序:
   n=Asc("我")
   m=oct(n)
   请问,接下来应该如何将这个变量M转换成String?
请大家帮个忙,困了好久了,谢谢!

解决方案 »

  1.   

    将 M 转换成 10 进制,用 chr 显示即可
      

  2.   

    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
      

  3.   

    n = Asc("我")    m = Oct(n)    Me.Caption = Chr("&O" & m)
      

  4.   

    用google搜一下,加密算法有一大堆
      

  5.   

    各位朋友可能并没有理解我的意思,我的意思是把上面的中文"我"加密成一个不是我的字符,用上面几个朋友的方法,并不能把"我"加密啊,sss2002(人不猥琐枉少年) 的方法又把"我"变回"我"了,这样有什么加密的效果啊,一点效果都没有
    我的意思是把"我"变成另外一个字符,这个很难吗?具个例子出来就可以了啊......
    请大家再想想办法,谢谢了!办法成功一定给分
      

  6.   

    这并不是一个很难的问题吧....
    我的意思是把那个"我"转换成一个不是"我"的string,照以上朋友的办法,那不是又把他转换回来了?这....