Visual Basic 6.0 - ComputeHash无效过程调用或参数错误

Question

我在步骤computeHash()处收到错误“无效过程调用或参数”。

私人小组的Form_Load（）

Dim rngcsp As New RNGCryptoServiceProvider '= new RNGCryptoServiceProvider() 

Dim u8 As Encoding 

'u8 = Encoding.UTF8 

Dim minSaltSize As Integer 
Dim maxSaltSize As Integer 
Dim saltSize As Integer 

minSaltSize = 4 
maxSaltSize = 8 
Dim randm As Random 

Set randm = New Random 

Dim saltBytes() As Byte 
ReDim saltBytes(saltSize)  

Set rngcsp = New RNGCryptoServiceProvider 
rngcsp.GetNonZeroBytes (saltBytes) 

Dim plainTextBytes() As Byte 
plainTextBytes() = ConvertStringToUtf8Bytes("Mohan") 

Dim plainTextBytesLen As Long 
plainTextBytesLen = UBound(plainTextBytes) - LBound(plainTextBytes) + 1 

Dim saltBytesLen As Long 
saltBytesLen = UBound(saltBytes) - LBound(saltBytes) + 1 

Dim plainTextWithSaltBytes() As Byte 

ReDim plainTextWithSaltBytes(plainTextBytesLen + saltBytesLen) 

For i = 0 To plainTextBytesLen - 1 
    plainTextWithSaltBytes(i) = plainTextBytes(i) 
Next  

For i = 0 To saltBytesLen - 1 
    plainTextWithSaltBytes(i) = saltBytes(i) 
Next 

'Dim hash As HashAlgorithm = New MD5CryptoServiceProvider()  
Dim hash12 As New SHA256Managed 

'SHA256Managed 

Dim totLen As Integer 
totLen = plainTextBytesLen + saltBytesLen 

Dim str As String 
Dim hashBytes() As Byte 
'With 
hashBytes = hash12.computeHash(plainTextWithSaltBytes)  ', 0, totLen) 
'End With 

末次

Answer 1

我没仔细看这段代码，但它可能是关于数组边界简单的混乱。该行：

ReDim plainTextWithSaltBytes(plainTextBytesLen + saltBytesLen) 

...创建一个数组比您想象的要长一个字节。