通过Sapphire Encrypt utility，您可以在您的移动通讯设备上加密和解密纯文本内容。您可以用密码密钥进行加密，并在设备驱动器或者服务器上解密，反之亦然。

特征综述 About Feature

通过以下功能，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

Sapphire