By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
459,287 Members | 1,668 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 459,287 IT Pros & Developers. It's quick & easy.

Tripple DES Encrypt/Decrypt string Function or Example

P: n/a
Has anyone made a simple tripple des encryption function?

I'm looking for a function to pass a string into with a password and
generate an encrypted output. That's it.

IE. Public Function EncryptMe (StringtoEncrypt, Password)as string
End Function

Public Function DecryptMe (StringtoDecrypt, Password)as string

End Function

or something to this nature? I know this is not reinventing the
wheel.

-Peter
Nov 20 '05 #1
Share this Question
Share on Google+
1 Reply


P: n/a
Here I found this on the net somewhere. It works as wel

Win

Public Class TripleDE
Private key() As Byte = {1, 2, 3, 4, 5, 6, 255, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24
Private iv() As Byte = {65, 110, 68, 26, 69, 178, 200, 219

Public Function Encrypt(ByVal plainText As String) As Byte(
' Declare a UTF8Encoding object so we may use the GetByte
' method to transform the plainText into a Byte array.
Dim utf8encoder As UTF8Encoding = New UTF8Encodin
Dim inputInBytes() As Byte = utf8encoder.GetBytes(plainText

' Create a new TripleDES service provider
Dim tdesProvider As TripleDESCryptoServiceProvider = New TripleDESCryptoServiceProvide

' The ICryptTransform interface uses the TripleDES
' crypt provider along with encryption key and init vector
' information
Dim cryptoTransform As ICryptoTransform = tdesProvider.CreateEncryptor(Me.key, Me.iv

' All cryptographic functions need a stream to output the
' encrypted information. Here we declare a memory stream
' for this purpose.
Dim encryptedStream As MemoryStream = New MemoryStrea
Dim cryptStream As CryptoStream = New CryptoStream(encryptedStream, cryptoTransform, CryptoStreamMode.Write

' Write the encrypted information to the stream. Flush the information
' when done to ensure everything is out of the buffer.
cryptStream.Write(inputInBytes, 0, inputInBytes.Length
cryptStream.FlushFinalBlock(
encryptedStream.Position =

' Read the stream back into a Byte array and return it to the calling
' method.
Dim result(encryptedStream.Length - 1) As Byt
encryptedStream.Read(result, 0, encryptedStream.Length
cryptStream.Close(
Return resul
End Functio

Public Function Decrypt(ByVal inputInBytes() As Byte) As Strin
' UTFEncoding is used to transform the decrypted Byte Array
' information back into a string.
Dim utf8encoder As UTF8Encoding = New UTF8Encodin
Dim tdesProvider As TripleDESCryptoServiceProvider = New TripleDESCryptoServiceProvide

' As before we must provide the encryption/decryption key along with
' the init vector.
Dim cryptoTransform As ICryptoTransform = tdesProvider.CreateDecryptor(Me.key, Me.iv

' Provide a memory stream to decrypt information into
Dim decryptedStream As MemoryStream = New MemoryStrea
Dim cryptStream As CryptoStream = New CryptoStream(decryptedStream, cryptoTransform, CryptoStreamMode.Write
cryptStream.Write(inputInBytes, 0, inputInBytes.Length
cryptStream.FlushFinalBlock(
decryptedStream.Position =

' Read the memory stream and convert it back into a string
Dim result(decryptedStream.Length - 1) As Byt
decryptedStream.Read(result, 0, decryptedStream.Length
cryptStream.Close(
Dim myutf As UTF8Encoding = New UTF8Encodin
Return myutf.GetString(result
End Functio
End Clas

----- Peter wrote: ----

Has anyone made a simple tripple des encryption function

I'm looking for a function to pass a string into with a password an
generate an encrypted output. That's it

IE. Public Function EncryptMe (StringtoEncrypt, Password)as strin
End Functio

Public Function DecryptMe (StringtoDecrypt, Password)as strin

End Functio

or something to this nature? I know this is not reinventing th
wheel

-Pete

Nov 20 '05 #2

This discussion thread is closed

Replies have been disabled for this discussion.