Text encryption and decryption

Dim iResult As Integer
Dim sEncrypted As String
Dim sDecrypted As String

' Fill sNew to force the string variable to a sufficient size for the returned string (Max 1000)
sEncrypted = Space(1000)

' Encrypt the text
iResult = sEncryptText("Test to encrypt", sEncrypted, "password", 1234567890, True)
If iResult = 0 Then
    MsgBox("Text has been encrypted to '" & sEncrypted & "'")
Else
    MsgBox("Unable to encrypt text")
End If

' Decrypt the text
sDecrypted = Space(1000)
i Result = sDecryptText(sEncrypted, sDecrypted, "password", 1234567890, True)
If iResult = 0 Then
    MsgBox("Text has been decrypted to '" & sDecrypted & "'")
Else
    MsgBox("Unable to decrypt text")
End If

File encryption and decryption

Dim iResult As Integer

' Encrypt a file
iResult = sEncryptFile("\My Documents\plain.txt", "\My Documents\cipher.txt", "password", 1234567890, True)
If iResult = 0 Then
    MsgBox("The file has been encrypted")
Else
    MsgBox("Unable to encrypt file")
End If

' Decrypt a file
iResult = sDecryptFile("\My Documents\cipher.txt", "\My Documents\decrypted.txt", "password", 1234567890, True)
If iResult = 0 Then
    MsgBox("The file has been decrypted")
Else
    MsgBox("Unable to decrypt file")
End If