SQL2005支持在SQL SERVER裡部署.net應用程序了，那麼以前一直寫在.net裡的一些運算如加密等已經完全可以移到sql裡來進行了，而不需要再從程序中運算了，使數據庫可以和程序相對獨立開來，方便了不少。
前陣子，需要給數據加密，所以寫了個3DES加密函數部署到SQL2005中，當然,現在秘鑰也作為一個表存在在數據庫中,至於這個密鑰,以後可以考慮用usb-key使用rsa加密或者別的方式進行加密,以保證數據安全。現在先說怎麼實現部署到sqlserver中的加密函數吧。
新建一個項目。VB中的database-->SQL Server Project，我新建了以後叫做DESCryptoService的項目，之後，會讓你添加數據庫引用，選擇你要部署到的數據庫。
寫入如下代碼，就OK了
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports Microsoft.SqlServer.Server
Imports System.IO
Imports System.Xml
Imports System.Text
Imports System.Security.Cryptography
Partial Public Class EncryptToBase64DecryptFromBase64Class EncryptToBase64DecryptFromBase64
<Microsoft.SqlServer.Server.SqlFunction()> _
Public Shared Function EncryptToBase64String()Function EncryptToBase64String(ByVal stringToEncryptsql As SqlString, ByVal SEncryptionKeysql As SqlString) As SqlString
Dim stringToEncrypt As String = CType(stringToEncryptsql, String)
Dim SEncryptionKey As String = CType(SEncryptionKeysql, String)
Dim IV() As Byte = {&H12, &H34, &H56, &H78, &H90, &HAB, &HCD, &HEF}
Dim key() As Byte = {}
Try
key = System.Text.Encoding.UTF8.GetBytes(Left(SEncryptionKey, 8))
Dim des As New DESCryptoServiceProvider()
Dim inputByteArray() As Byte = Encoding.UTF8.GetBytes(stringToEncrypt)
Dim ms As New MemoryStream()
Dim cs As New CryptoStream(ms, des.CreateEncryptor(key, IV), CryptoStreamMode.Write)
cs.Write(inputByteArray, 0, inputByteArray.Length)
cs.FlushFinalBlock()
