VB怎么加密呢？

如题，谢谢了

---

"VB怎么加密呢?"  你指算法加密字符还是做好软件后的加密保护？

算法加密字符就看你怎么写， “ ABC -> 换算后得到  $2^ ”  （解密就反过来)

做好软件后的加密保护，找个加壳软件就最容易不过了。

---

同上，要说清楚是加密什么

---

你要加密什么，是你的VB程序，还是程序中的数据

---

是要加密程序吧，读取硬件信息做成序列号加密，不过还是用加密狗加密比较好

---

通常的加密方法就是异或累加和等方法很多。

---

你是要对什么进行加密呢？说的详细点吧，涉及到加密的算法，内容很多。说的详细点吧。

---

最简单的是用CHR和ASC进行ASCII码加密或反加密。
用XOR函数，加密或反加密不容易破解：
XOR加密代码如下：
'加密、反加密模块
Public Function StringEnDeCodecn(strSource As String, MA) As String
On Error GoTo ErrEnDeCode
  Dim X As Single, CHARNUM As Long, RANDOMINTEGER As Integer, SINGLECHAR As String * 1
  Dim strTmp As String
  If MA < 0 Then MA = MA * (-1)
  X = Rnd(-MA)
  For i = 1 To Len(strSource) Step 1                '取单字节内容
    SINGLECHAR = Mid(strSource, i, 1)
    CHARNUM = Asc(SINGLECHAR)
g:  RANDOMINTEGER = Int(127 * Rnd)
    If RANDOMINTEGER < 30 Or RANDOMINTEGER > 100 Then GoTo g
    CHARNUM = CHARNUM Xor RANDOMINTEGER
    strTmp =