VB/VBScript中 - 相比在WHERE語句（SQL Server）的二進制值

Question

我得到一個類型不匹配錯誤，當我嘗試運行SQL語句是這樣的：

Dim s 
s = "test" 
"SELECT id FROM mytable WHERE sha1bin = " & SHA1bin(s) 

這是我的SHA1bin功能：

Private Function SHA1Bin(s) 
    Dim asc, enc, bytes 
    Set asc = CreateObject("System.Text.UTF8Encoding") 
    Set enc = CreateObject("System.Security.Cryptography.SHA1CryptoServiceProvider") 
    bytes = asc.GetBytes_4(s) 
    SHA1Bin = enc.ComputeHash_2((bytes)) 
    Set asc = Nothing 
    Set enc = Nothing 
End Function 

據我所知，VBScript並沒有真正的二進制數據類型。我需要做什麼來進行比較，或者我應該將它存儲爲40個字符的十六進制值，以便我可以進行文本比較？

Answer 1

ComputeHash_2返回一個字節數組。

首先，你的字節數組轉換爲十六進制字符串：

Dim pos,hexs 
For pos = 1 To Lenb(bytes) ' bytes is your resulting byte array ' 
hexs = hexs & LCase(Right("0" & Hex(Ascb(Midb(bytes, pos, 1))), 2)) 
Next 

然後，用T-SQL的CONVERT比較：

Dim Query 
Query="SELECT id FROM mytable WHERE sha1bin = CONVERT(varbinary(max), 0x" & hexs & ")"