说明: VB2008工程代码-加密汉字 字符串 Public Function StringEnDeCodecn(ByVal strSource As String, ByVal MA As Long) As String 该函数只对中西文起到加密作用 参数为:源文件,密码 On Error GoTo ErrEnDeCode Dim X As Single Dim CHARNUM As Long, RANDOMINTEGER As Integer Dim SINGLECHAR As String
<weixin_42395602> 在 上传 | 大小:107520