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()
阅读更多
想对作者说点什么?

博主推荐

换一批

没有更多推荐了,返回首页