Evos lotusScript Lib V0.1 2005-12-23发布

Evos lotusScript Lib
欢迎您使用Evos lotusScript Lib
Evos lotusScript Lib V0.1 2005-12-23

lotusClass包含：
1 EvosMD5库 包含类
*EvosMD5 Class
MD5加密的lotusscript实现，
样例代码：
Dim md As EvosMD5
Set md =New EvosMD5()
Print md.md5("1")

2 CSHA256库包含类
*CSHA256 Class

Public Function SHA256(sMessage As String) As String
样例代码：
Dim md As CSHA256
Set md =New CSHA256()

Print md.SHA256("1")

3 stringbuffer库包含类
*stringbuffer class
方法：
Public Function toString () As String
作用：输出字符
Public Sub append (v As Variant)
作用：附加v
Public Sub erase ()
作用：清除StringBuffer为空
样例代码：
Dim strBuffer As New StringBuffer(16)
strBuffer .append("dd")
print strBuffer .toString()
4 Vector库包含类
*Vector Class
方法：
样例代码：
Dim v As New Vector()
Call v.addElement("Domino")
Call v.addElement("Notes")
Call v.addElement("R5")
Print "Elements are: " & v.toString()


5 Base64Class0.1库包含类
*Base64Class0.1 Class
方法：
Public Function encode(s As String) As String
Public Function decode(Byval s As String) As String


样例代码：
Dim abase64 As New Base64()

msgbox abase64.encode()
msgbox abase64.decode()