Visual Basic

Dim MyEncryption as Encryption
Dim EStr as String = "Fish can't think but fish knows everything"

Messagebox.show("Encrypted Format:" +  MyEncryption.toBase64(Estr))
Messagebox.show("Decrypted Format:" +  MyEncryprion.toBase32(Estr))

Imports System.Text
Imports System.Security.Cryptography

Public Class Encryption
#Region "Public Routines"
    const ENCRYPT_KEY AS STRING = "TEST"
    const ENCRYPT_VECTOR AS STRING = "CODEPRJT"

    Public Shared Function ToBase64(ByVal sDataToEncrypt As String) As String
        Dim stream As System.IO.MemoryStream = New System.IO.MemoryStream
        Dim key As Byte() = Encoding.Default.GetBytes(ENCRYPT_KEY.PadRight(24, Chr(0)))
        Dim Vector As Byte() = Encoding.Default.GetBytes(ENCRYPT_VECTOR.PadRight(8, Chr(0)))

        Dim des As TripleDESCryptoServiceProvider = New TripleDESCryptoServiceProvider
        Dim cryptoStream As CryptoStream = New CryptoStream(stream, des.CreateEncryptor(key, Vector), CryptoStreamMode.Write)

        Dim Input() As Byte = Encoding.Default.GetBytes(sDataToEncrypt)

        cryptoStream.Write(Input, 0, Input.Length)
        cryptoStream.FlushFinalBlock()

        Return Convert.ToBase64String(stream.ToArray())
    End Function

    Public Shared Function ToBase32(ByVal sDataToDecrypt As String) As String
        Dim stream As System.IO.MemoryStream = New System.IO.MemoryStream
        Dim key As Byte() = Encoding.Default.GetBytes(ENCRYPT_KEY.PadRight(24, Chr(0)))
        Dim Vector As Byte() = Encoding.Default.GetBytes(ENCRYPT_VECTOR.PadRight(8, Chr(0)))

        Dim des As TripleDESCryptoServiceProvider = New TripleDESCryptoServiceProvider
        Dim cryptoStream As CryptoStream = New CryptoStream(stream, des.CreateDecryptor(key, Vector), CryptoStreamMode.Write)

        Dim Input() As Byte = Convert.FromBase64String(sDataToDecrypt)

        cryptoStream.Write(Input, 0, Input.Length)
        cryptoStream.FlushFinalBlock()

        Return Encoding.Default.GetString(stream.ToArray())
    End Function
#End Region
End Class

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
    Process1.StartInfo.FileName = "C:\Example.doc"<br />
    Process1.Start() '//starts example.doc<br />
End Sub

  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br />
        Process1.StartInfo.FileName = "C:\example.doc"<br />
        Process1.CloseMainWindow() '//Sends the example.doc a close message asking it to terminate<br />
        '//Or alternatively you can use process1.kill_<br />
        '// And this will force example.doc to close <br />
<br />
    End Sub