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

    技术2022-05-11  155

    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()

    最新回复(0)