SapphireEncrypt

Data security is important when you are dealing with the Internet and mobile applications. Having confidential information stored on your Pocket PC means you need to ensure that it is kept save if the device gets stolen or if you are transferring it over the internet. Consider the situation if a company’s client list getting into the hands of a competitor! The Sapphire Encrypt utility allows you to encrypt and decrypt both plain text and files. You can simply encrypt the data by using a specified key and decrypt it on another device or server, or visa-versa.

Product Features

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

You can download the latest demo version to see a fully working demo which you can reuse within your application as you see fit. This can be found on the download pages. The demo versions are fully functional and simply contain a popup message from time to time. These are ideal if you are selling your application to the client where you can be confident the application will work in practice and not just theory.

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

Royalty Free Licence

When you purchase a developer’s licence, you are free to use the DLL in any number of your projects and deploy it to all the devices to your clients. There’s no need for royalties based on the scale of your project, just a one off fee. You will also get 12 months email support and discounted upgrades for future developments.