摘要： 原来这个是delphi的、我翻译了一下、我感觉还是不错的、唯一的问题是不支持中文、不过没关系、反正我从来我对中文字符串加密的、加密函数Private Function EncrypStr(ByVal Src As String, _ Optional ByVal Key As String = "ForDream") As String '//对字符串加密(Src:源 Key:密匙) Dim KeyLen As Long Dim KeyPos As Long Dim offset As Long Dim dest As String Dim SrcPos As Long Dim SrcAsc 阅读全文