bastestdata.bas

a Tiger Hash algorithmn code

Attribute VB_Name = "basTestData"
' ***************************************************************************
' 19-Dec-2006  Kenneth Ives  [e-mail]
' ***************************************************************************
Option Explicit

' ***************************************************************************
' Constants
' ***************************************************************************
  Public Const TEST_FILE1 As String = "Vector004.dat" ' Excert from A. Lincoln speech
  Public Const TEST_FILE2 As String = "Vector013.dat" ' Binary test file
  Public Const TEST_FILE3 As String = "Vector017.dat" ' test for off-by-one
  
' ***************************************************************************
' Determine the algorithm used and return the pertinent information
' ***************************************************************************
Public Sub SelectResults(ByVal intAlgorithm As Integer, _
                         ByVal intExpectedResults As Integer, _
                         ByRef strTestData As String, _
                         ByRef strDataLength As String, _
                         ByRef strOutput As String)
    
    Const ROUTINE_NAME As String = "basTestData"
        
    Select Case intExpectedResults
           Case 0
                strTestData = "abc"
                strDataLength = "3"
           Case 1
                strTestData = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
                strDataLength = "62"
           Case 2
                strTestData = "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq"
                strDataLength = "56"
           Case 3
                strTestData = "abcdefghbcdefghicdefghijdefghijkefghijklfghijklmghijklmnhijklmn" & _
                              "oijklmnopjklmnopqklmnopqrlmnopqrsmnopqrstnopqrstu"
                strDataLength = "112"
           Case 4
                strTestData = "Excert from President Abraham Lincoln in a file named " & TEST_FILE1
                strDataLength = "1515"
           Case 5
                strTestData = "A binary file that is one byte short of 17 times size " & _
                              "of the SHA-384 and SHA-512 block lengths named " & TEST_FILE2
                strDataLength = "2175"
           Case 6
                strTestData = "The length of this binary data set is designed to test for " & _
                              "off-by-one in a file named " & TEST_FILE3
                strDataLength = "12271"
           Case 7
                strTestData = "1,000,000 repetitions of the letter 'a'"
                strDataLength = "1000000"
           Case Else
                Err.Raise DUMMY_NUMBER, ROUTINE_NAME, _
                          "Cannot identify test case."
    End Select
            
    Select Case glngPasses
           
           Case 3   ' Iterations
                Select Case intAlgorithm
                        Case 0   ' Tiger-128
                             Select Case intExpectedResults
                                    Case 0: strOutput = "484a75f088d27893388a0c7642f1c059"
                                    Case 1: strOutput = "4316f43031c6f6acce68be5767f46bc5"
                                    Case 2: strOutput = "89963ae419d66c85f68b2afb4d5574fe"
                                    Case 3: strOutput = "fb988535f2e22df445b69dc81cf79145"
                                    Case 4: strOutput = "90da293bf69afbb302786e787af268b6"
                                    Case 5: strOutput = "86ee074850e4f1d04e299bafb0d19153"
                                    Case 6: strOutput = "80e7d54da8fa7b8008a5e537bd3dc54d"
                                    Case 7: strOutput = "0f7e29dc17c25ccb973745f97747db11"
                             End Select
                        Case 1   ' Tiger-160
                             Select Case intExpectedResults
                                    Case 0: strOutput = "484a75f088d27893388a0c7642f1c0598bdaa1a1"
                                    Case 1: strOutput = "4316f43031c6f6acce68be5767f46bc51b77e005"
                                    Case 2: strOutput = "89963ae419d66c85f68b2afb4d5574fea17322ea"
                                    Case 3: strOutput = "fb988535f2e22df445b69dc81cf7914510481cb5"
                                    Case 4: strOutput = "90da293bf69afbb302786e787af268b603a0b217"
                                    Case 5: strOutput = "86ee074850e4f1d04e299bafb0d1915383514f2a"
                                    Case 6: strOutput = "80e7d54da8fa7b8008a5e537bd3dc54d016bd5b3"
                                    Case 7: strOutput = "0f7e29dc17c25ccb973745f97747db1122f1bca0"
                             End Select
                        Case 2   ' Tiger-192
                             Select Case intExpectedResults
                                    Case 0: strOutput = "484a75f088d27893388a0c7642f1c0598bdaa1a1ae2e5d1f"
                                    Case 1: strOutput = "4316f43031c6f6acce68be5767f46bc51b77e0057b186f90"
                                    Case 2: strOutput = "89963ae419d66c85f68b2afb4d5574fea17322ead8ad492d"
                                    Case 3: strOutput = "fb988535f2e22df445b69dc81cf7914510481cb50909ce0c"
                                    Case 4: strOutput = "90da293bf69afbb302786e787af268b603a0b217d77dff02"
                                    Case 5: strOutput = "86ee074850e4f1d04e299bafb0d1915383514f2a93a858cc"
                                    Case 6: strOutput = "80e7d54da8fa7b8008a5e537bd3dc54d016bd5b39dcff267"
                                    Case 7: strOutput = "0f7e29dc17c25ccb973745f97747db1122f1bca0d8caa7c9"
                             End Select
                        Case 3   ' Tiger-224
                             Select Case intExpectedResults
                                    Case 0: strOutput = "4b1e868bca5d482c5fe4dce1dcb52d89545c811905f635a2150fde59"
                                    Case 1: strOutput = "3a0e6d01af82fb4eb7ef5c2a6a79c5790bd6e7f942d99d9b1b95bff2"
                                    Case 2: strOutput = "1a86c9312d7f50e0c2e52619e927760c8aa024b194955f034a7d9ebb"
                                    Case 3: strOutput = "2aa851e783f13311db3f20bb17ef27a511ace63d0270e323f4a2a371"
                                    Case 4: strOutput = "df4d7e02a5cc3949030c5249f8984e1e24745b61943fb088cdcc1c3c"
                                    Case 5: strOutput = "1b8d9e7aa80b15708b1dc71668479c71e2fc2c7d34304a4a8ad42187"
                                    Case 6: strOutput = "e6af4962b1b4c6a0c8e1b0232efefddcfd6b50928c9ea4af626eb3f0"
                                    Case 7: strOutput = "c35d08db87b4796b60abdc4a6a78617abb2cf024c24ed679c46ac48d"
                             End Select
                        Case 4   ' Tiger-256
                             Select Case intExpectedResults
                                    Case 0: strOutput = "4b1e868bca5d482c5fe4dce1dcb52d89545c811905f635a2150fde5916360fb8"
                                    Case 1: strOutput = "3a0e6d01af82fb4eb7ef5c2a6a79c5790bd6e7f942d99d9b1b95bff224057eea"
                                    Case 2: strOutput = "1a86c9312d7f50e0c2e52619e927760c8aa024b194955f034a7d9ebbf0b621b1"
                                    Case 3: strOutput = "2aa851e783f13311db3f20bb17ef27a511ace63d0270e323f4a2a371dfcf441a"
                                    Case 4: strOutput = "df4d7e02a5cc3949030c5249f8984e1e24745b61943fb088cdcc1c3cc22c1a8c"
                                    Case 5: strOutput = "1b8d9e7aa80b15708b1dc71668479c71e2fc2c7d34304a4a8ad42187a13019ab"
                                    Case 6: strOutput = "e6af4962b1b4c6a0c8e1b0232efefddcfd6b50928c9ea4af626eb3f0cfa5bac0"
                                    Case 7: strOutput = "c35d08db87b4796b60abdc4a6a78617abb2cf024c24ed679c46ac48d3d315575"
                             End Select
                        Case 5   ' Tiger-384
                             Select Case intExpectedResults
                                    Case 0: strOutput = "3e5f240446a31e806d9d94718b94c3cd4493cf785e43e96ce8f7f461b9959cc5ee12e27c72dfe99e6cedf98b38cdae55"
                                    Case 1: strOutput = "4a86e564fe3bcddc80b396378b48a6741a62de7444628345c3868c743e1b1700a462c98bf5d099cb4dd253eb38d25c27"
                                    Case 2: strOutput = "2260af8eda7f2f221e1c0480b0d1fff23fcd0ecf3c0ada5e69558455fcf5a914692528f6cc083ab48c8d2839b754f4ef"
                                    Case 3: strOutput = "9e77162c14a300117ead23e59b0162170e84698a15f309690c2c19ec46dfe74b6f82754b6a404674bc0bd429abcde72e"
                                    Case 4: strOutput = "63b69960b977b54199d3a105816cdf075e966e65138e8147debc1153e88f5a6da851da3e2124476de4bbb56063008a93"
                                    Case 5: strOutput = "b79a11c64cc7fd7d79b22fe94f70dc5756696a4e068313a33228b329570c96ed0313207cdf78940d4f0caf37a7cc3c43"
                                    Case 6: strOutput = "03c6dc262e37e4e98f9699514c2837ce8b74248cb638033f0f0f18fc1e889e2da3deabcf2b9495e6a244b897834c6ea3"
                                    Case 7: strOutput = "c6f39a13ca84d79aebb1a123354dcd4df52a799669d3d76cac06fdea25c7c625c1405aa5becdd9e2b1b75c9d6f2be636"
                             End Select
                        Case 6   ' Tiger-512
                             Select Case intExpectedResults
                                    Case 0: strOutput = "3e5f240446a31e806d9d94718b94c3cd4493cf785e43e96ce8f7f461b9959cc5ee12e27c72dfe99e6cedf98b38cdae550f0f571eba0eb7d366969d2a49dcb9da"
                                    Case 1: strOutput = "4a86e564fe3bcddc80b396378b48a6741a62de7444628345c3868c743e1b1700a462c98bf5d099cb4dd253eb38d25c274fee078dc8e2453997eabebec569c55d"
                                    Case 2: strOutput = "2260af8eda7f2f221e1c0480b0d1fff23fcd0ecf3c0ada5e69558455fcf5a914692528f6cc083ab48c8d2839b754f4efefdcf2e4870c83767ad49aaf11972e3b"
                                    Case 3: strOutput = "9e77162c14a300117ead23e59b0162170e84698a15f309690c2c19ec46dfe74b6f82754b6a404674bc0bd429abcde72ec48e51fbf6590ccee904dbf2564ad6c7"
                                    Case 4: strOutput = "63b69960b977b54199d3a105816cdf075e966e65138e8147debc1153e88f5a6da851da3e2124476de4bbb56063008a937965c3a5c31ce79d9260cbb36d7ab3a7"
                                    Case 5: strOutput = "b79a11c64cc7fd7d79b22fe94f70dc5756696a4e068313a33228b329570c96ed0313207cdf78940d4f0caf37a7cc3c43d7c95596649ff15969d0cda73eea84b7"
                                    Case 6: strOutput = "03c6dc262e37e4e98f9699514c2837ce8b74248cb638033f0f0f18fc1e889e2da3deabcf2b9495e6a244b897834c6ea325a9704a9852e8c957c8e53e462754cd"
                                    Case 7: strOutput = "c6f39a13ca84d79aebb1a123354dcd4df52a799669d3d76cac06fdea25c7c625c1405aa5becdd9e2b1b75c9d6f2be6365240233705c3a5b979bc324a8bd8d971"
                             End Select
                        Case Else
                             Err.Raise DUMMY_NUMBER, ROUTINE_NAME, _
                                       "Unknown hash algorithm selected."
                End Select
           
           Case 6   ' Iterations
                Select Case intAlgorithm
                        Case 0   ' Tiger-128
                             Select Case intExpectedResults
                                    Case 0: strOutput = "4cc072226746dc20cd638dcc669470a7"
                                    Case 1: strOutput = "7c9606c04f348f3c8fcbe3a7cfc0a303"
                                    Case 2: strOutput = "b4219bcbb1b4e116b164b68b1c567d9f"
                                    Case 3: strOutput = "20eb97b958a7ea5e96a726104e2eb64d"
                                    Case 4: strOutput = "1153b7e09137ab893293a8509bf6fbee"
                                    Case 5: strOutput = "e6e9d3ed0ee513c9595c61a3b4481333"
                                    Case 6: strOutput = "d2964d33e536c209b11cb8daed5b3301"
                                    Case 7: strOutput = "5b58e6d2c958124cc6a8e1f5d9dd1648"
                             End Select
                        Case 1   ' Tiger-160
                             Select Case intExpectedResults
                                    Case 0: strOutput = "4cc072226746dc20cd638dcc669470a73908e352"
                                    Case 1: strOutput = "7c9606c04f348f3c8fcbe3a7cfc0a303fb629a39"
                                    Case 2: strOutput = "b4219bcbb1b4e116b164b68b1c567d9ff91d02e1"
                                    Case 3: strOutput = "20eb97b958a7ea5e96a726104e2eb64d944a9e7b"