Visual Basic

Dim strinput As String<br />
Dim chararrinput() As Char = strinput.ToCharArray<br />
Dim arrbyteinput() As Byte = New Byte(((chararrinput.Length - 1)) - 1) {}

fahedakhter@hotmail.com wrote:

But I want that my application run through .Ini File.

fahedakhter@hotmail.com wrote:

my application run through .Ini File

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