示例示例VB加密解密程序代碼可以使用VB自帶的API函數 和 來實現。用于加密， 用于解密，它們都需要一個 參數，這是一個指向加密服務提供程序的句柄。

VB加密解密程序代碼可以使用VB自帶的API函數 CryptEncrypt 和 CryptDecrypt 來實現。

CryptEncrypt 用于加密，CryptDecrypt 用于解密，它們都需要一個 HCRYPTPROV 參數，這是一個指向加密服務提供程序的句柄。

以下是一個示例代碼：

' 聲明 API 函數

Private Declare Function CryptAcquireContext Lib "advapi32.dll" Alias "CryptAcquireContextA" (ByRef phProv As Long, ByVal pszContainer As String, ByVal pszProvider As String, ByVal dwProvType As Long, ByVal dwFlags As Long) As Long

Private Declare Function CryptReleaseContext Lib "advapi32.dll" (ByVal hProv As Long, ByVal dwFlags As Long) As Long

Private Declare Function CryptGenKey Lib "advapi32.dll" (ByVal hProv As Long, ByVal Algid As Long, ByVal dwFlags As Long, ByRef phKey As Long) As Long

Private Declare Function CryptDestroyKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Private Declare Function CryptEncrypt Lib "advapi32.dll" (ByVal hKey As Long, ByVal hHash As Long, ByVal Final As Long, ByVal dwFlags As Long, ByVal pbData As Any, ByRef pdwDataLen As Long, ByVal dwBufLen As Long) As Long

Private Declare Function CryptDecrypt Lib "advapi32.dll" (ByVal hKey As Long, ByVal hHash As Long, ByVal Final As Long, ByVal dwFlags As Long, ByVal pbData As Any, ByRef pdwDataLen As Long) As Long

' 加密函數

Public Function Encrypt(ByVal sSource As String, ByVal sPassword As String) As String

Dim lhProv As Long

Dim lhKey As Long

Dim lResult As Long

Dim lDataLen As Long

Dim sData() As Byte

Dim sEncrypted() As Byte

' 獲取加密上下文

lResult = CryptAcquireContext(lhProv, vbNullString, vbNullString, 1, &H80000001)

If lResult <> 1 Then

Encrypt = ""

Exit Function

End If

' 生成一個密鑰

lResult = CryptGenKey(lhProv, 1, &H80000002, lhKey)

If lResult <> 1 Then

CryptReleaseContext lhProv, 0

Encrypt = ""

Exit Function

End If

' 將字符串轉換為字節數組

sData = StrConv(sSource, vbFromUnicode)

lDataLen = UBound(sData) + 1

' 加密

ReDim sEncrypted(lDataLen - 1)

lResult = CryptEncrypt(lhKey, 0, 1, 0, sData(0), lDataLen, lDataLen)

If lResult <> 1 Then

CryptDestroyKey lhKey

CryptReleaseContext lhProv, 0

Encrypt = ""

Exit Function

End If

' 將加密后的字節數組轉換為十六進制字符串

Encrypt = HexStringFromByteArray(sEncrypted)

' 釋放資源

CryptDestroyKey lhKey

CryptReleaseContext lhProv