Sapphire Encrypt Utility

• 使用的密碼密鑰對文本字符進行加密
• 使用的密碼密鑰對文本字符進行解密
• 使用的密碼密鑰對文件進行加密
• 使用的密碼密鑰對文件進行解密

• 加密文本
  Dim sEncrypted As Integer
  
  Dim sNew As String
  
  ' Fill sNew to force the string variable to a sufficient size for the returned string
  
  sNew = Space(1000)
  
  sEncrypted = sEncryptText(txtOriginal.Text, sNew, txtPassword.Text, _
  1234567890, True)
  
  txtEncrypted.Text = StripString(sNew)
  
  If sEncrypted = 0 Then
  
  MsgBox("Encrypted")
  
  Else
  
  MsgBox("Problem")
  
  End If
• 解密文本
  Dim sDecrypted As Integer
  
  Dim sNew As String
  
  
  ' Fill sNew to force the string variable to a sufficient size for the returned string
  
  sNew = Space(1000)
  
  sDecrypted = sDecryptText(txtEncrypted.Text, sNew, txtPassword.Text, _
  
  1234567890, True)
  
  txtDecrypted.Text = StripString(sNew)
  
  If sDecrypted = 0 Then
  
  MsgBox("Decrypted")
  
  Else
  
  MsgBox("Problem")
  
  End If

The Sapphire Encrypt Utility makes data encryption easy by providing the following functionality:

• Encrypt a plain text string using a specified key
• Decrypt a plain text string specifying the key
• Encrypt a file using a specified key
• Decrypt a file using a specified key

Sample Code
　　Implementation couldn’t be easier, simply declare the DLL function as a function within your application and call it as though you wrote it yourself. Here’s a sample demo on how to encrypt and decrypt a simple text string within VB.NET.

• Encrypting Text
  Dim sEncrypted As Integer
  
  Dim sNew As String
  
  ' Fill sNew to force the string variable to a sufficient size for the returned string
  
  sNew = Space(1000)
  
  sEncrypted = sEncryptText(txtOriginal.Text, sNew, txtPassword.Text, _
  1234567890, True)
  
  txtEncrypted.Text = StripString(sNew)
  
  If sEncrypted = 0 Then
  
  MsgBox("Encrypted")
  
  Else
  
  MsgBox("Problem")
  
  End If
• Decrypting Text
  Dim sDecrypted As Integer
  
  Dim sNew As String
  
  
  ' Fill sNew to force the string variable to a sufficient size for the returned string
  
  sNew = Space(1000)
  
  sDecrypted = sDecryptText(txtEncrypted.Text, sNew, txtPassword.Text, _
  
  1234567890, True)
  
  txtDecrypted.Text = StripString(sNew)
  
  If sDecrypted = 0 Then
  
  MsgBox("Decrypted")
  
  Else
  
  MsgBox("Problem")
  
  End If