bastestdata.bas

a Tiger Hash algorithmn code

                                    Case 4: strOutput = "1153b7e09137ab893293a8509bf6fbee5208284b"
                                    Case 5: strOutput = "e6e9d3ed0ee513c9595c61a3b4481333b3ee80b7"
                                    Case 6: strOutput = "d2964d33e536c209b11cb8daed5b330157f0574c"
                                    Case 7: strOutput = "5b58e6d2c958124cc6a8e1f5d9dd1648bcacbc6e"
                             End Select
                        Case 2   ' Tiger-192
                             Select Case intExpectedResults
                                    Case 0: strOutput = "4cc072226746dc20cd638dcc669470a73908e352fb58cedb"
                                    Case 1: strOutput = "7c9606c04f348f3c8fcbe3a7cfc0a303fb629a396a6d9e70"
                                    Case 2: strOutput = "b4219bcbb1b4e116b164b68b1c567d9ff91d02e15f5313e9"
                                    Case 3: strOutput = "20eb97b958a7ea5e96a726104e2eb64d944a9e7b7df9df52"
                                    Case 4: strOutput = "1153b7e09137ab893293a8509bf6fbee5208284b03c32909"
                                    Case 5: strOutput = "e6e9d3ed0ee513c9595c61a3b4481333b3ee80b7ac83bb6b"
                                    Case 6: strOutput = "d2964d33e536c209b11cb8daed5b330157f0574c527feca1"
                                    Case 7: strOutput = "5b58e6d2c958124cc6a8e1f5d9dd1648bcacbc6ec5009740"
                             End Select
                        Case 3   ' Tiger-224
                             Select Case intExpectedResults
                                    Case 0: strOutput = "484cc0252434217932bc99dc00763912ab7a0d1c7eba6a74a7a2a539"
                                    Case 1: strOutput = "703514aafcaaeaebbabf59d34ff8479c1a4373540cd8a4cb82a153f4"
                                    Case 2: strOutput = "62969582291acde5c63312f4d9fcf8d53ab71f25dd5f252a5a5b2995"
                                    Case 3: strOutput = "acd3c71e148c2e18a21184ebbdc89ffa243031cb727b785190c5cf18"
                                    Case 4: strOutput = "42bdb6462a7d54cd4274552e2e226f71ad380ee4276d2fbecc427dca"
                                    Case 5: strOutput = "7664a0a3821617e9a1b00ac6f4ccbe56f7daa57e463ae18e0f2cb597"
                                    Case 6: strOutput = "2ad668782c26692b9b63f2c8d63947ff09680c0d3b2fe48930b569a1"
                                    Case 7: strOutput = "ece93b3f625b7613e6a9081e75908f84b0605b4cf1a76bc6619d01c0"
                             End Select
                        Case 4   ' Tiger-256
                             Select Case intExpectedResults
                                    Case 0: strOutput = "484cc0252434217932bc99dc00763912ab7a0d1c7eba6a74a7a2a539719a6263"
                                    Case 1: strOutput = "703514aafcaaeaebbabf59d34ff8479c1a4373540cd8a4cb82a153f4572ed69c"
                                    Case 2: strOutput = "62969582291acde5c63312f4d9fcf8d53ab71f25dd5f252a5a5b299558672401"
                                    Case 3: strOutput = "acd3c71e148c2e18a21184ebbdc89ffa243031cb727b785190c5cf18f4ed0664"
                                    Case 4: strOutput = "42bdb6462a7d54cd4274552e2e226f71ad380ee4276d2fbecc427dcaafd6d17e"
                                    Case 5: strOutput = "7664a0a3821617e9a1b00ac6f4ccbe56f7daa57e463ae18e0f2cb5979221bfc5"
                                    Case 6: strOutput = "2ad668782c26692b9b63f2c8d63947ff09680c0d3b2fe48930b569a1c86fe66e"
                                    Case 7: strOutput = "ece93b3f625b7613e6a9081e75908f84b0605b4cf1a76bc6619d01c063d1ebb7"
                             End Select
                        Case 5   ' Tiger-384
                             Select Case intExpectedResults
                                    Case 0: strOutput = "6017d8b5ece6c360df1fead615e1dc9a1a18537013ff5fed2614392576e783668aac060192c53c8d01b300fe50270d3a"
                                    Case 1: strOutput = "feee54a31c24c75a8c7484de3d72d5b0271fc7938626f535066476152c960cf0fbf832d14de96fd9ca016b75d98e5a73"
                                    Case 2: strOutput = "9101e5e8825f9b45d20516627185feaff44bd5350e27854875c70aea2728f480d5a896b9f586c6ecd4522f7f52668119"
                                    Case 3: strOutput = "588849434f15bc1dc7f0a0af5363785207b43237bf3c5467045f1df3b06ef4f6b828928969e87ae4b4dbd8871915d1a2"
                                    Case 4: strOutput = "ef849aeb51424d6fc3f6b0dcb9c109edd62805c1ef51d4f98540bce32b6b4eb1ec61ccd31fd4a40f7dad640bd26bc0a4"
                                    Case 5: strOutput = "434f68f5088eda6cc8f52f564e23cc69c48a1cf27a3637ae3911f898272a030f8d350d1c0b1496baf59ce36feb671a20"
                                    Case 6: strOutput = "21f27dbe88bbb8fb2f335360e64007e0a29213b6c6b6c18f6751ed34d3000173e51a83dcfce33c43bcf571131b708966"
                                    Case 7: strOutput = "a4c1ffc109c1b3c4d9f7b9ee75909a456be7330a83fc8c2bae0a21b8e0196fc3c9e242506623ef0dfcd0371821c55422"
                             End Select
                        Case 6   ' Tiger-512
                             Select Case intExpectedResults
                                    Case 0: strOutput = "6017d8b5ece6c360df1fead615e1dc9a1a18537013ff5fed2614392576e783668aac060192c53c8d01b300fe50270d3a531ff67e93fc8e951eb3bd696a8fe24d"
                                    Case 1: strOutput = "feee54a31c24c75a8c7484de3d72d5b0271fc7938626f535066476152c960cf0fbf832d14de96fd9ca016b75d98e5a737e7197b2cd76013a485b3d0b7394c40b"
                                    Case 2: strOutput = "9101e5e8825f9b45d20516627185feaff44bd5350e27854875c70aea2728f480d5a896b9f586c6ecd4522f7f52668119c1c066c14475fa1f5f92734b16ca8b4c"
                                    Case 3: strOutput = "588849434f15bc1dc7f0a0af5363785207b43237bf3c5467045f1df3b06ef4f6b828928969e87ae4b4dbd8871915d1a262abfbc1a5c33a02b84f1f7228cb72ae"
                                    Case 4: strOutput = "ef849aeb51424d6fc3f6b0dcb9c109edd62805c1ef51d4f98540bce32b6b4eb1ec61ccd31fd4a40f7dad640bd26bc0a4c3984527a3bb89ce32e131fb8900b14b"
                                    Case 5: strOutput = "434f68f5088eda6cc8f52f564e23cc69c48a1cf27a3637ae3911f898272a030f8d350d1c0b1496baf59ce36feb671a20c5cacd1032ff40fa12c647e6833aace2"
                                    Case 6: strOutput = "21f27dbe88bbb8fb2f335360e64007e0a29213b6c6b6c18f6751ed34d3000173e51a83dcfce33c43bcf571131b708966efefeba91dec731cb3bf71c9e7795e60"
                                    Case 7: strOutput = "a4c1ffc109c1b3c4d9f7b9ee75909a456be7330a83fc8c2bae0a21b8e0196fc3c9e242506623ef0dfcd0371821c55422c1b9613e09a4a0a24d2c3bb8c1bbfeb9"
                             End Select
                        Case Else
                             Err.Raise DUMMY_NUMBER, ROUTINE_NAME, _
                                       "Unknown hash algorithm selected."
                End Select
           
           Case 9   ' Iterations
                Select Case intAlgorithm
                        Case 0   ' Tiger-128
                             Select Case intExpectedResults
                                    Case 0: strOutput = "42349ce25794fca7e6f5840c197045cc"
                                    Case 1: strOutput = "8be303d0497c62dcc1a12f3829e41212"
                                    Case 2: strOutput = "08cd8a65cc9b881b450b895fa562a8ea"
                                    Case 3: strOutput = "80102e86a5c79ad52caed8e2c724d55e"
                                    Case 4: strOutput = "71d1ffcd5676baa9337f7770ae5d2b9d"
                                    Case 5: strOutput = "03d0f1a7dc49ecddd8bc0840b954d3ef"
                                    Case 6: strOutput = "3f7258c1f10e5c0e2a4584edb15ab919"
                                    Case 7: strOutput = "07a8d987250964b2b54a1a2fb7115889"
                             End Select
                        Case 1   ' Tiger-160
                             Select Case intExpectedResults
                                    Case 0: strOutput = "42349ce25794fca7e6f5840c197045cc63bdccf7"
                                    Case 1: strOutput = "8be303d0497c62dcc1a12f3829e41212b177a99f"
                                    Case 2: strOutput = "08cd8a65cc9b881b450b895fa562a8eaf486a743"
                                    Case 3: strOutput = "80102e86a5c79ad52caed8e2c724d55ec8b6cff2"
                                    Case 4: strOutput = "71d1ffcd5676baa9337f7770ae5d2b9d36fb4398"
                                    Case 5: strOutput = "03d0f1a7dc49ecddd8bc0840b954d3ef6b6f1752"
                                    Case 6: strOutput = "3f7258c1f10e5c0e2a4584edb15ab919a9ecb832"
                                    Case 7: strOutput = "07a8d987250964b2b54a1a2fb7115889cfc0b2b8"
                             End Select
                        Case 2   ' Tiger-192
                             Select Case intExpectedResults
                                    Case 0: strOutput = "42349ce25794fca7e6f5840c197045cc63bdccf7a354ad0b"
                                    Case 1: strOutput = "8be303d0497c62dcc1a12f3829e41212b177a99f990bc84c"
                                    Case 2: strOutput = "08cd8a65cc9b881b450b895fa562a8eaf486a7439f2576f1"
                                    Case 3: strOutput = "80102e86a5c79ad52caed8e2c724d55ec8b6cff269c0c2fa"
                                    Case 4: strOutput = "71d1ffcd5676baa9337f7770ae5d2b9d36fb439822a6f97a"
                                    Case 5: strOutput = "03d0f1a7dc49ecddd8bc0840b954d3ef6b6f17525bd0dfdf"
                                    Case 6: strOutput = "3f7258c1f10e5c0e2a4584edb15ab919a9ecb832787916fd"
                                    Case 7: strOutput = "07a8d987250964b2b54a1a2fb7115889cfc0b2b8647fe251"
                             End Select
                        Case 3   ' Tiger-224
                             Select Case intExpectedResults
                                    Case 0: strOutput = "3d4006258a318e3e167666084a07107d4241929c567d6235903eaeb6"
                                    Case 1: strOutput = "607a6744119b5e64ff4cd02122ba0c339eed5b4a9ef9c74a2257582d"
                                    Case 2: strOutput = "967c8d3a61d14430d168bcc5e78a52f60de44eeffd3c7598925784ba"
                                    Case 3: strOutput = "30e8e440a06ec3a2027cf5fd02a527554b8e658902e9b889722fc80b"
                                    Case 4: strOutput = "50d71b1a028db40961248e7c4097c42f0cd5f37fae4ad71dcd9bc69c"
                                    Case 5: strOutput = "be42b01927ce63cf8ed4b37b6fb51f05b7d1685d2349b24c921692c2"
                                    Case 6: strOutput = "a287ed7901d74b48691ea6a7a81a92b318261cd5273bea0900427d79"
                                    Case 7: strOutput = "3a70d3da8d7e388c19959673ee3763e8d6ce1b9e53439a6613f0b8ab"
                             End Select
                        Case 4   ' Tiger-256
                             Select Case intExpectedResults
                                    Case 0: strOutput = "3d4006258a318e3e167666084a07107d4241929c567d6235903eaeb60f958c39"
                                    Case 1: strOutput = "607a6744119b5e64ff4cd02122ba0c339eed5b4a9ef9c74a2257582db591e3cd"
                                    Case 2: strOutput = "967c8d3a61d14430d168bcc5e78a52f60de44eeffd3c7598925784bac61020a5"
                                    Case 3: strOutput = "30e8e440a06ec3a2027cf5fd02a527554b8e658902e9b889722fc80b94b76211"
                                    Case 4: strOutput = "50d71b1a028db40961248e7c4097c42f0cd5f37fae4ad71dcd9bc69cbe6a669a"
                                    Case 5: strOutput = "be42b01927ce63cf8ed4b37b6fb51f05b7d1685d2349b24c921692c2b349921f"
                                    Case 6: strOutput = "a287ed7901d74b48691ea6a7a81a92b318261cd5273bea0900427d79c6cbf21a"
                                    Case 7: strOutput = "3a70d3da8d7e388c19959673ee3763e8d6ce1b9e53439a6613f0b8ab6f378ced"
                             End Select
                        Case 5   ' Tiger-384
                             Select Case intExpectedResults
                                    Case 0: strOutput = "9f7012762f6a9fcbb5adb33741b05f08bd65d0c2ca7135f2a7821496169e16e311f32d87a9a9581b1713d35fac6b7880"
                                    Case 1: strOutput = "a3e12065795542aadffc2fa4489036f47d83fadbdb668cf07c5751c5a52f21bc77b448a0b20a9d59b8f93cf1434ce76a"
                                    Case 2: strOutput = "b17aaccce1e3e29560787552a6e37411529b9bd35a8147654d26882706e0175bb342b027ad5d59ea0957dba6ed953e81"
                                    Case 3: strOutput = "55eb6321821765a48052d033d5e20f451f62c1452a3d1f0a59bb3cf1b1ddbba25744c18c2385a8152caa46c98c9b465a"
                                    Case 4: strOutput = "cf42060858eb653f43ab1e8625822542aac42c5a0661d4b6140dd2fae17cc628623362501eaac4d32b0de589bab06d45"
                                    Case 5: strOutput = "4f7d70fe7a0075f0bea1471fc26696552715e9911f344a5c8ccdd829106357376fc9570f49bb0bf4d6957df6be9e6310"
                                    Case 6: strOutput = "bf31beed7a15f14ccec5e4db16873b3dc790f28a0dfc154e62fc41149525f9ebfcf2dcf2cdad17aecb1d7d24275bcfc0"
                                    Case 7: strOutput = "432fe38a9285486698f42d6b21fc7e405c1e3111015fcdc4eb085e2775ef748a0147fa032a4b9c87c3771d5a924ab934"
                             End Select
                        Case 6   ' Tiger-512
                             Select Case intExpectedResults
                                    Case 0: strOutput = "9f7012762f6a9fcbb5adb33741b05f08bd65d0c2ca7135f2a7821496169e16e311f32d87a9a9581b1713d35fac6b7880a021e7dc9859bde204b2ac3929a0f1fa"
                                    Case 1: strOutput = "a3e12065795542aadffc2fa4489036f47d83fadbdb668cf07c5751c5a52f21bc77b448a0b20a9d59b8f93cf1434ce76a33fd0da36d8c4dafa4a73f4bf41c01c0"
                                    Case 2: strOutput = "b17aaccce1e3e29560787552a6e37411529b9bd35a8147654d26882706e0175bb342b027ad5d59ea0957dba6ed953e8127bc6e1ffc304eb4b52a20066dcedd0a"
                                    Case 3: strOutput = "55eb6321821765a48052d033d5e20f451f62c1452a3d1f0a59bb3cf1b1ddbba25744c18c2385a8152caa46c98c9b465a6dd24d1aae867c92f68e0788584b1636"
                                    Case 4: strOutput = "cf42060858eb653f43ab1e8625822542aac42c5a0661d4b6140dd2fae17cc628623362501eaac4d32b0de589bab06d45bd0976fc8e5207294afb3c0c267d3dab"
                                    Case 5: strOutput = "4f7d70fe7a0075f0bea1471fc26696552715e9911f344a5c8ccdd829106357376fc9570f49bb0bf4d6957df6be9e63101982e1e79c04765fe0d8d088a2f0c50b"
                                    Case 6: strOutput = "bf31beed7a15f14ccec5e4db16873b3dc790f28a0dfc154e62fc41149525f9ebfcf2dcf2cdad17aecb1d7d24275bcfc0e814a060ea6c28f7c96347fc16587b98"
                                    Case 7: strOutput = "432fe38a9285486698f42d6b21fc7e405c1e3111015fcdc4eb085e2775ef748a0147fa032a4b9c87c3771d5a924ab934628255543c746b07cb4923e40aaae003"
                             End Select
                        Case Else
                             Err.Raise DUMMY_NUMBER, ROUTINE_NAME, _
                                       "Unknown hash algorithm selected."
                End Select
           
           Case 12   ' Iterations
                Select Case intAlgorithm
                        Case 0   ' Tiger-128
                             Select Case intExpectedResults
                                    Case 0: strOutput = "7ca12fa9f04a7cdfea0b4f85152ae89e"
                                    Case 1: strOutput = "21c1f664865f1b8309869df41d6c8959"
                                    Case 2: strOutput = "02265a1fb1cfc49f41873febcbb76c49"
                                    Case 3: strOutput = "18bc4e91bd251c61cab3c767d34994a7"
                                    Case 4: strOutput = "b4c753535d08a32a279870ff35ddc219"
                                    Case 5: strOutput = "5a681d020ac621c9845b7f3f01235458"
                                    Case 6: strOutput = "9c499a3ef369d73ba1f3c6a33410fe9e"
                                    Case 7: strOutput = "43d0458c52069e48fed5a78feda9f229"
                             End Select