请高手指点vb编写加密程序

想用vb实现简单加密算法的程序，有高手指点下不 --------------------编程问答-------------------- 百度里搜"加密算法 vb",有好多 --------------------编程问答-------------------- 那是的，百度一下VB加密太多了！其实也可以自己做下简单的加密，如进行ASC码转换，按位进行计算，或是移位，也可以联合起来，进行比较复杂的加密！看自己觉得那种比较好，关键在于思想！ --------------------编程问答-------------------- 又进来了，呵呵
帮你列举一个很简单的例子，虽然说是转换，但你也可以看做是数据加密：
Private Sub Command1_Click()
Dim i As Integer, j As String, ss As String
str1 = Me.Text1.Text
ss = ""
For i = 1 To Len(str1) Step 1
 j = Mid(str1, i, 1)
 ss = ss + Trim(Str(Asc(j)+5))
 Next
 Me.Text2.Text = Trim(ss)
End Sub
--------------------编程问答-------------------- hoho --------------------编程问答-------------------- 加密算法，没有什么理由不用想的，选用一种工业标准的算法即可，比如AES。

补充：VB ,  基础类