bastestdata.bas

a Tiger Hash algorithmn code

                        Case 1   ' Tiger-160
                             Select Case intExpectedResults
                                    Case 0: strOutput = "7ca12fa9f04a7cdfea0b4f85152ae89ec6c6b4ff"
                                    Case 1: strOutput = "21c1f664865f1b8309869df41d6c89599a6c27eb"
                                    Case 2: strOutput = "02265a1fb1cfc49f41873febcbb76c49166ba2ea"
                                    Case 3: strOutput = "18bc4e91bd251c61cab3c767d34994a729c0dcfb"
                                    Case 4: strOutput = "b4c753535d08a32a279870ff35ddc21990d104cd"
                                    Case 5: strOutput = "5a681d020ac621c9845b7f3f01235458474dce94"
                                    Case 6: strOutput = "9c499a3ef369d73ba1f3c6a33410fe9edba48367"
                                    Case 7: strOutput = "43d0458c52069e48fed5a78feda9f229ae55b0a2"
                             End Select
                        Case 2   ' Tiger-192
                             Select Case intExpectedResults
                                    Case 0: strOutput = "7ca12fa9f04a7cdfea0b4f85152ae89ec6c6b4ffde2b743e"
                                    Case 1: strOutput = "21c1f664865f1b8309869df41d6c89599a6c27eb6b6ef1d5"
                                    Case 2: strOutput = "02265a1fb1cfc49f41873febcbb76c49166ba2ea09d9936d"
                                    Case 3: strOutput = "18bc4e91bd251c61cab3c767d34994a729c0dcfb9a413980"
                                    Case 4: strOutput = "b4c753535d08a32a279870ff35ddc21990d104cd6ee308fb"
                                    Case 5: strOutput = "5a681d020ac621c9845b7f3f01235458474dce94e56b2481"
                                    Case 6: strOutput = "9c499a3ef369d73ba1f3c6a33410fe9edba48367f8e2a562"
                                    Case 7: strOutput = "43d0458c52069e48fed5a78feda9f229ae55b0a24dd19822"
                             End Select
                        Case 3   ' Tiger-224
                             Select Case intExpectedResults
                                    Case 0: strOutput = "0f70bb34c22e934fe7f61614faa1e0382f01995f94aac57347e73389"
                                    Case 1: strOutput = "dc9e66f434611b98e38c4da21f4d68a84dac9afc68857d1f4aea04d5"
                                    Case 2: strOutput = "d88880e5d7371a0bb88163c3e82db7d5c3e63ed96c7c4e60ee99c0dc"
                                    Case 3: strOutput = "230d22e258943740a89e4bd7760d13f1001cf6c0eba272a0eb894f13"
                                    Case 4: strOutput = "26bb2e9b4802b98ad75a5ccb5eb888c54e01b15b757e54bd243d661a"
                                    Case 5: strOutput = "337cf19dd8418d8b144054f94502c5fe680814ff10f615744b0905e8"
                                    Case 6: strOutput = "0b3e37e4b86b328869f87d3056687e9749faeb0c968be109610c42b9"
                                    Case 7: strOutput = "01582349796675ea3582896ac6b1470e2ec2b88637fd414bfd99b76e"
                             End Select
                        Case 4   ' Tiger-256
                             Select Case intExpectedResults
                                    Case 0: strOutput = "0f70bb34c22e934fe7f61614faa1e0382f01995f94aac57347e73389791d6506"
                                    Case 1: strOutput = "dc9e66f434611b98e38c4da21f4d68a84dac9afc68857d1f4aea04d5ee99a838"
                                    Case 2: strOutput = "d88880e5d7371a0bb88163c3e82db7d5c3e63ed96c7c4e60ee99c0dca3b83dc9"
                                    Case 3: strOutput = "230d22e258943740a89e4bd7760d13f1001cf6c0eba272a0eb894f135e1e9121"
                                    Case 4: strOutput = "26bb2e9b4802b98ad75a5ccb5eb888c54e01b15b757e54bd243d661adaaf4de3"
                                    Case 5: strOutput = "337cf19dd8418d8b144054f94502c5fe680814ff10f615744b0905e8d79d42c0"
                                    Case 6: strOutput = "0b3e37e4b86b328869f87d3056687e9749faeb0c968be109610c42b9da082acd"
                                    Case 7: strOutput = "01582349796675ea3582896ac6b1470e2ec2b88637fd414bfd99b76ec9ca031e"
                             End Select
                        Case 5   ' Tiger-384
                             Select Case intExpectedResults
                                    Case 0: strOutput = "70e69e12d986ee9ecfbf6c0eb942b8a15f2383ad5d9bdc6074c4d58f59ed259273ecbf9c897b05930530e73678a10e44"
                                    Case 1: strOutput = "91f9994b22604fc94e331f7b07516cf4208a4044692aeaea87ab310c987d4bd51a3626aa526049fc0a4098ed52e00f88"
                                    Case 2: strOutput = "ee484ca9348c7647c3dc42c865c48c2e9a5cffbe2fa38c4f338acb444fe5fbae99b177417fca9a176d9323295fa1f55f"
                                    Case 3: strOutput = "59c6859dbfc8e239f1523925fb4dbe2c8554711bc1ddf970b30db35e8ab913d4cd9df0a7b2e53373d1cb8d99cb0486bc"
                                    Case 4: strOutput = "ad5b9c818dc8717f7db145070432267f651267e511f69c62bea20368640c204e849ed8658fc0794c4e98642a4cfea005"
                                    Case 5: strOutput = "c180ae9dd5397b7e59c8b5233b328dd6886965c73dc8bf01fa5a4c1d429868ce069d8210cc5ad636135fa277b8d97f58"
                                    Case 6: strOutput = "ab01fb8df546e3f0d430612ded022d22702d01f0925208e0603fe97b4a976e99570d0106713b4093236aedddcd351985"
                                    Case 7: strOutput = "5ad9cebd7168af7bce867a82299f324438dd2be0d8b5bb6976fc0a88a0239a6e1e381356f614c277a524cb2ea3968c66"
                             End Select
                        Case 6   ' Tiger-512
                             Select Case intExpectedResults
                                    Case 0: strOutput = "70e69e12d986ee9ecfbf6c0eb942b8a15f2383ad5d9bdc6074c4d58f59ed259273ecbf9c897b05930530e73678a10e44aa710068b6d49844a73b6fe771ab09b1"
                                    Case 1: strOutput = "91f9994b22604fc94e331f7b07516cf4208a4044692aeaea87ab310c987d4bd51a3626aa526049fc0a4098ed52e00f884c5466edfaffe1963491e80230f801ac"
                                    Case 2: strOutput = "ee484ca9348c7647c3dc42c865c48c2e9a5cffbe2fa38c4f338acb444fe5fbae99b177417fca9a176d9323295fa1f55f83a3e778c576879ca0801d5fd20af5e8"
                                    Case 3: strOutput = "59c6859dbfc8e239f1523925fb4dbe2c8554711bc1ddf970b30db35e8ab913d4cd9df0a7b2e53373d1cb8d99cb0486bc7fe9bb0c6b0dcd7decca7c6ff6b04876"
                                    Case 4: strOutput = "ad5b9c818dc8717f7db145070432267f651267e511f69c62bea20368640c204e849ed8658fc0794c4e98642a4cfea0057a20ba850e57a9d126b87b4a1a018b59"
                                    Case 5: strOutput = "c180ae9dd5397b7e59c8b5233b328dd6886965c73dc8bf01fa5a4c1d429868ce069d8210cc5ad636135fa277b8d97f58ce92af44011ad1819c1b33b4f1d2dee8"
                                    Case 6: strOutput = "ab01fb8df546e3f0d430612ded022d22702d01f0925208e0603fe97b4a976e99570d0106713b4093236aedddcd3519852c35b9fd54cff3d1ba0a52fbcf67f203"
                                    Case 7: strOutput = "5ad9cebd7168af7bce867a82299f324438dd2be0d8b5bb6976fc0a88a0239a6e1e381356f614c277a524cb2ea3968c6673a027d3c708324d0bb37a60a397661b"
                             End Select
                        Case Else
                             Err.Raise DUMMY_NUMBER, ROUTINE_NAME, _
                                       "Unknown hash algorithm selected."
                End Select
           
           Case 15   ' Iterations
                Select Case intAlgorithm
                        Case 0   ' Tiger-128
                             Select Case intExpectedResults
                                    Case 0: strOutput = "9e1dbb5f550ce12587eff6010e57d0fd"
                                    Case 1: strOutput = "06c9d093ee31ebc8f4ffaf8882739899"
                                    Case 2: strOutput = "2573d0847f64f8392a15cad7c837eb40"
                                    Case 3: strOutput = "e553f96ead43468e0fab68ad023f4fe1"
                                    Case 4: strOutput = "eff50871fb565a326b92992cfdaac4c3"
                                    Case 5: strOutput = "ed4af719f7638806ea00f34a4e629d5e"
                                    Case 6: strOutput = "c14aaab8ae522d199f4790bdf0391722"
                                    Case 7: strOutput = "0825d1a59d517fb04d0c4d7795d6771a"
                             End Select
                        Case 1   ' Tiger-160
                             Select Case intExpectedResults
                                    Case 0: strOutput = "9e1dbb5f550ce12587eff6010e57d0fdd86a0a25"
                                    Case 1: strOutput = "06c9d093ee31ebc8f4ffaf888273989923fe994e"
                                    Case 2: strOutput = "2573d0847f64f8392a15cad7c837eb40cfb48651"
                                    Case 3: strOutput = "e553f96ead43468e0fab68ad023f4fe158cb4915"
                                    Case 4: strOutput = "eff50871fb565a326b92992cfdaac4c3aca06bd8"
                                    Case 5: strOutput = "ed4af719f7638806ea00f34a4e629d5e6f4b1e06"
                                    Case 6: strOutput = "c14aaab8ae522d199f4790bdf0391722730a5ccf"
                                    Case 7: strOutput = "0825d1a59d517fb04d0c4d7795d6771a848d1b29"
                             End Select
                        Case 2   ' Tiger-192
                             Select Case intExpectedResults
                                    Case 0: strOutput = "9e1dbb5f550ce12587eff6010e57d0fdd86a0a2571f74985"
                                    Case 1: strOutput = "06c9d093ee31ebc8f4ffaf888273989923fe994e49b0f808"
                                    Case 2: strOutput = "2573d0847f64f8392a15cad7c837eb40cfb48651509e2029"
                                    Case 3: strOutput = "e553f96ead43468e0fab68ad023f4fe158cb4915558ed411"
                                    Case 4: strOutput = "eff50871fb565a326b92992cfdaac4c3aca06bd8fa797ed4"
                                    Case 5: strOutput = "ed4af719f7638806ea00f34a4e629d5e6f4b1e064336c4ac"
                                    Case 6: strOutput = "c14aaab8ae522d199f4790bdf0391722730a5ccfeef2023f"
                                    Case 7: strOutput = "0825d1a59d517fb04d0c4d7795d6771a848d1b290e2bb2cb"
                             End Select
                        Case 3   ' Tiger-224
                             Select Case intExpectedResults
                                    Case 0: strOutput = "b95941f9681fbb2a1650a6ab3b09bb3709313d96ae754f39a866bfb2"
                                    Case 1: strOutput = "89968cfc4d2b376f031bec06969eaec601ac7ac8c4495b95ef85340f"
                                    Case 2: strOutput = "7e5dda67e810aa77a43a6a0c7986ebdff3e239d700ade28401d32337"
                                    Case 3: strOutput = "72f2f086cd635a048d65f2cc1c27ac4fbbba060f53fce3e1a2017648"
                                    Case 4: strOutput = "c1c9b6babf763d347c2fe66acf13ccbdf20552d3b204f8604606ff30"
                                    Case 5: strOutput = "956baaca5d1a2f7e18a410819d5636d57aff1c09a5f505b7de0fa87f"
                                    Case 6: strOutput = "0a6ffe134e613c478b01a9b7ba56c9f4cdeb81c618292d759e361047"
                                    Case 7: strOutput = "34d578f69f67b9015ef8456354ea814d04e514f60c9122728135efb2"
                             End Select
                        Case 4   ' Tiger-256
                             Select Case intExpectedResults
                                    Case 0: strOutput = "b95941f9681fbb2a1650a6ab3b09bb3709313d96ae754f39a866bfb20f335c28"
                                    Case 1: strOutput = "89968cfc4d2b376f031bec06969eaec601ac7ac8c4495b95ef85340f85fffb46"
                                    Case 2: strOutput = "7e5dda67e810aa77a43a6a0c7986ebdff3e239d700ade28401d32337697423d7"
                                    Case 3: strOutput = "72f2f086cd635a048d65f2cc1c27ac4fbbba060f53fce3e1a20176482014aaf9"
                                    Case 4: strOutput = "c1c9b6babf763d347c2fe66acf13ccbdf20552d3b204f8604606ff30877f03b5"
                                    Case 5: strOutput = "956baaca5d1a2f7e18a410819d5636d57aff1c09a5f505b7de0fa87f48b648e3"
                                    Case 6: strOutput = "0a6ffe134e613c478b01a9b7ba56c9f4cdeb81c618292d759e36104791544e3b"
                                    Case 7: strOutput = "34d578f69f67b9015ef8456354ea814d04e514f60c9122728135efb27cfd1b6c"
                             End Select
                        Case 5   ' Tiger-384
                             Select Case intExpectedResults
                                    Case 0: strOutput = "8ca36654c777c990fc169a8b846cedf7999165fe8454cca9e85995b83a0d6a7fbabffae2e5151c02b23c2ec3757a7675"
                                    Case 1: strOutput = "bd1da51bc626f82006f1d20989e38fd328f712da0f2ec02c2e91203d67d5d998b77eb9c86cf32e973ee1569b83e02d2a"
                                    Case 2: strOutput = "4b90b55c2e60dbcac7868ec7cd65bdd92ee69936796d249bff6adcd4bfedaac777677f50f92bd046d3d4cde24ab01091"
                                    Case 3: strOutput = "9db150187c234f1bf52def42541f5074e6209fb12f52c05428379bc7f84e56ed048315d132d3d27191d0f94b9d00986c"
                                    Case 4: strOutput = "4de89b38a18d46a7da85c6593cb52a2792d4bddd2aa77cde54583e71f87a70e5efa2903c32cc4343b18c35731c7142ea"
                                    Case 5: strOutput = "b1be8459988a1cbf9104c59071cc9f1f00802b63d0f6edf38527316bfdc09f32c85a987903bcfc67080bd191b9b56fb3"
                                    Case 6: strOutput = "e4de41cab20891c0d79daa2573594793f61283a82f1cc2dbf9cb16775c204ac4ccff34ed7422f92aa670e546b639672e"
                                    Case 7: strOutput = "887145cd4404688b307a71a5b30d787cd0bd61084c03c3e795f72a43867b380e629bf68e244cfee3da08a27d0915800b"
                             End Select
                        Case 6   ' Tiger-512
                             Select Case intExpectedResults
                                    Case 0: strOutput = "8ca36654c777c990fc169a8b846cedf7999165fe8454cca9e85995b83a0d6a7fbabffae2e5151c02b23c2ec3757a767526d30a5d0deffa02dd69dd7dd0a2da22"
                                    Case 1: strOutput = "bd1da51bc626f82006f1d20989e38fd328f712da0f2ec02c2e91203d67d5d998b77eb9c86cf32e973ee1569b83e02d2a06db081eb285d5a0c068bffdfdcee852"
                                    Case 2: strOutput = "4b90b55c2e60dbcac7868ec7cd65bdd92ee69936796d249bff6adcd4bfedaac777677f50f92bd046d3d4cde24ab010914866897409dd9f0b80597b4a70d13bed"
                                    Case 3: strOutput = "9db150187c234f1bf52def42541f5074e6209fb12f52c05428379bc7f84e56ed048315d132d3d27191d0f94b9d00986c2d0546361cb0c69cbb3d6e836e5c3c42"
                                    Case 4: strOutput = "4de89b38a18d46a7da85c6593cb52a2792d4bddd2aa77cde54583e71f87a70e5efa2903c32cc4343b18c35731c7142ea414b94ef6845f3df487b7f3db01178db"
                                    Case 5: strOutput = "b1be8459988a1cbf9104c59071cc9f1f00802b63d0f6edf38527316bfdc09f32c85a987903bcfc67080bd191b9b56fb338a60e4e47720309ea90581a962ae637"
                                    Case 6: strOutput = "e4de41cab20891c0d79daa2573594793f61283a82f1cc2dbf9cb16775c204ac4ccff34ed7422f92aa670e546b639672ee784e62620dd1b2825af6433c5eb364e"
                                    Case 7: strOutput = "887145cd4404688b307a71a5b30d787cd0bd61084c03c3e795f72a43867b380e629bf68e244cfee3da08a27d0915800b249d6a22fd7daf3e8d46b34205317b61"
                             End Select
                        Case Else
                             Err.Raise DUMMY_NUMBER, ROUTINE_NAME, _
                                       "Unknown hash algorithm selected."
                End Select
           Case Else
                Err.Raise DUMMY_NUMBER, ROUTINE_NAME, _
                          "Unknown number of iterations (passes) requested."
    End Select

End Sub