2008-09-29 167 views
5

我在VB.net「加密」這個功能(見下文)如何將加密的字符串保存到數據庫?

Private key() As Byte = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24} 
Private iv() As Byte = {65, 110, 68, 26, 69, 178, 200, 219} 

Public Function Encrypt(ByVal plainText As String) As Byte() 
    ' Declare a UTF8Encoding object so we may use the GetByte 
    ' method to transform the plainText into a Byte array. 
    Dim utf8encoder As UTF8Encoding = New UTF8Encoding() 
    Dim inputInBytes() As Byte = utf8encoder.GetBytes(plainText) 

    ' Create a new TripleDES service provider 
    Dim tdesProvider As TripleDESCryptoServiceProvider = New TripleDESCryptoServiceProvider() 

    ' The ICryptTransform interface uses the TripleDES 
    ' crypt provider along with encryption key and init vector 
    ' information 
    Dim cryptoTransform As ICryptoTransform = tdesProvider.CreateEncryptor(Me.key, Me.iv) 

    ' All cryptographic functions need a stream to output the 
    ' encrypted information. Here we declare a memory stream 
    ' for this purpose. 
    Dim encryptedStream As MemoryStream = New MemoryStream() 
    Dim cryptStream As CryptoStream = New CryptoStream(encryptedStream, cryptoTransform, CryptoStreamMode.Write) 

    ' Write the encrypted information to the stream. Flush the information 
    ' when done to ensure everything is out of the buffer. 
    cryptStream.Write(inputInBytes, 0, inputInBytes.Length) 
    cryptStream.FlushFinalBlock() 
    encryptedStream.Position = 0 

    ' Read the stream back into a Byte array and return it to the calling method. 
    Dim result(encryptedStream.Length - 1) As Byte 
    encryptedStream.Read(result, 0, encryptedStream.Length) 
    cryptStream.Close() 
    Return result 
End Function 

我想保存在SQL數據庫加密的字符串。我該怎麼做?

+1

,我不知道爲什麼會得到downvoted,看起來像一個有效的問題我 – 2008-09-29 03:25:22

回答

0

將字節數組編碼爲一個字符串。 0x00可以是「00」,0xFF可以是「FF」。或者你可以看看Base64

+0

我怎麼編碼字節數組轉換爲字符串? – sef 2008-09-29 03:10:30

0

指定的字符串應該與任何二進制數據沒有區別。

如果您知道結果將會很小,您可以對其進行解碼並將其保存在文本字段中。

3

只需存儲在二進制列中。 (大多是從內存中完成,更正歡迎!)

CREATE TABLE [Test] 
(
    [Id] NOT NULL IDENTITY(1,1) PRIMARY KEY, 
    [Username] NOT NULL VARCHAR(500), 
    [Password] NOT NULL VARBINARY(500) 
) 

然後插入這樣的:

Dim conn As SqlConnection 

Try 
    conn = New SqlConnection("<connectionstring>") 
    Dim command As New SqlCommand("INSERT INTO [Test] ([Username], [Password]) VALUES (@Username, @Password)", conn) 

    Dim usernameParameter = New SqlParameter("@Username", SqlDbType.VarChar) 
    usernameParameter.Value = username 
    command.Parameters.Add(usernameParameter) 

    Dim passwordParameter = New SqlParameter("@Password", SqlDbType.VarBinary) 
    passwordParameter.Value = password 
    command.Parameters.Add(passwordParameter) 

    command.ExecuteNonQuery() 

Finally 
    If (Not (conn Is Nothing)) Then 
     conn.Close() 
    End If 
End Try 
相關問題