Option Explicit
'/******************************************************************************
' * Copyright (C) 2000 by Robert Hubley. *
' * All rights reserved. *
' * *
' * This software is provided ``AS IS'' and any express or implied *
' * warranties, including, but not limited to, the implied warranties of *
' * merchantability and fitness for a particular purpose, are disclaimed. *
' * In no event shall the authors be liable for any direct, indirect, *
' * incidental, special, exemplary, or consequential damages (including, but *
' * not limited to, procurement of substitute goods or services; loss of use, *
' * data, or profits; or business interruption) however caused and on any *
' * theory of liability, whether in contract, strict liability, or tort *
' * (including negligence or otherwise) arising in any way out of the use of *
' * this software, even if advised of the possibility of such damage. *
' * *
' ******************************************************************************
'
' Form: TestSuite
'
' DESCRIPTION:
' A short demonstration form which calls the MD5.DLL library using a
' standard test suite of values. The results are displayed next to the
' expected return set for comparison.
'
' AUTHOR:
' Robert M. Hubley 12/1999
'
'
' NOTES:
'
'
' CHANGE HISTORY:
'
' 1.0.0 RMH 2000/1/5 Original version
'
'
'= Global Variables
Dim md5Test As MD5
Private Sub btnRunTest_Click()
lblResults(0).Caption = LCase(md5Test.DigestStrToHexStr(""))
lblResults(1).Caption = LCase(md5Test.DigestStrToHexStr("a"))
lblResults(2).Caption = LCase(md5Test.DigestStrToHexStr("abc"))
lblResults(3).Caption = LCase(md5Test.DigestStrToHexStr("message digest"))
lblResults(4).Caption = LCase(md5Test.DigestStrToHexStr("abcdefghijklmnopqrstuvwxyz"))
lblResults(5).Caption = LCase(md5Test.DigestStrToHexStr("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"))
lblResults(6).Caption = LCase(md5Test.DigestStrToHexStr("12345678901234567890123456789012345678901234567890123456789012345678901234567890"))
End Sub
Private Sub Form_Load()
' Instantiate our class
Set md5Test = New MD5
End Sub
|