| f4tb0y |
2011-08-01 17:26 |
Base64加密解密工具 开源 求荣誉
[attachment=3]
类似的解码工具网上很多了
小葵的多功能编码工具的容错功能不好
今天用VB研究了下
找了1个模块和1个类模块 轻松编写完成
自己下载附件研究吧
窗口代码展示下。。。汗 相当少吧 核心是两个模块。
- Private Sub Command1_Click()
Dim dih As New Class1
Text2 = dih.Base64Encode(Text1)
End Sub
'解码
Private Sub Command2_Click()
Dim dih As New Class1
Text3 = dih.Base64Decode(Text2)
End Sub
求荣誉
[attachment=4]
|
|