- 博客(1)
- 收藏
- 关注
原创 随机加解密
Private Function encode(ByVal s As String) As String 加密 If Len(s) = 0 Then Exit Function Dim buff() As Byte buff = StrConv(s, vbFromUnicode) vbFromUnicode 将字符串由 Unicode 转成系统的缺省码页。 Dim
2007-04-16 11:27:00 412
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人