G
Guest
Is there a quick and easy way to encrypt and decrypt a string in vb.net
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
K
Ken Tucker [MVP]
C
Cor Ligthert
Hi Tony,
A lot methods, have a look at MSDN and search for Rijndael (one
methode)however the easiest to get the right encryption method and not the
encryption of ascii and images and stuff like that.
I hope this helps?
Cor
A lot methods, have a look at MSDN and search for Rijndael (one
methode)however the easiest to get the right encryption method and not the
encryption of ascii and images and stuff like that.
I hope this helps?
Cor
C
Cantelmo Software
hi,
this is my simple? (expandible) poly-engine crypter for string
http://www.codeproject.com/dotnet/StackCrypt.asp
good job
Marcello
"Cantelmo Software" del Geom. Marcello Cantelmo
Sito Web: www.cantelmosoftware.com (in continuous modernization)
E-Mail: (e-mail address removed)
this is my simple? (expandible) poly-engine crypter for string
http://www.codeproject.com/dotnet/StackCrypt.asp
good job
Marcello
"Cantelmo Software" del Geom. Marcello Cantelmo
Sito Web: www.cantelmosoftware.com (in continuous modernization)
E-Mail: (e-mail address removed)
H
Herfried K. Wagner [MVP]
* "=?Utf-8?B?VG9ueQ==?= said:Is there a quick and easy way to encrypt and decrypt a string in vb.net
Did you take a look in the archives?
<URL:http://groups.google.de/groups?q=dotnet+encrypt+decrypt+string>
S
Samuel L Matzen
Tony,
There are many options here, but a simple solution is:
<code (VB.NET) >
Public Class Crypto
' TAKEN FROM MS KB Q317535
Public Shared Function EncryptTripleDES(ByVal sIn As String, ByVal sKey As
String) As String
Dim DES As New
System.Security.Cryptography.TripleDESCryptoServiceProvider
Dim hashMD5 As New System.Security.Cryptography.MD5CryptoServiceProvider
' scramble the key
sKey = ScrambleKey(sKey)
' Compute the MD5 hash.
DES.Key =
hashMD5.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(sKey))
' Set the cipher mode.
DES.Mode = System.Security.Cryptography.CipherMode.ECB
' Create the encryptor.
Dim DESEncrypt As System.Security.Cryptography.ICryptoTransform =
DES.CreateEncryptor()
' Get a byte array of the string.
Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(sIn)
' Transform and return the string.
Return Convert.ToBase64String(DESEncrypt.TransformFinalBlock(Buffer, 0,
Buffer.Length))
End Function
Public Shared Function DecryptTripleDES(ByVal sOut As String, ByVal sKey
As String) As String
Dim DES As New
System.Security.Cryptography.TripleDESCryptoServiceProvider
Dim hashMD5 As New System.Security.Cryptography.MD5CryptoServiceProvider
' scramble the key
sKey = ScrambleKey(sKey)
' Compute the MD5 hash.
DES.Key =
hashMD5.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(sKey))
' Set the cipher mode.
DES.Mode = System.Security.Cryptography.CipherMode.ECB
' Create the decryptor.
Dim DESDecrypt As System.Security.Cryptography.ICryptoTransform =
DES.CreateDecryptor()
Dim Buffer As Byte() = Convert.FromBase64String(sOut)
' Transform and return the string.
Return
System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypt.TransformFinalBlock(Buf
fer, 0, Buffer.Length))
End Function
Private Shared Function ScrambleKey(ByVal v_strKey As String) As String
Dim sbKey As New System.Text.StringBuilder
Dim intPtr As Integer
For intPtr = 1 To v_strKey.Length
Dim intIn As Integer = v_strKey.Length - intPtr + 1
sbKey.Append(Mid(v_strKey, intIn, 1))
Next
Dim strKey As String = sbKey.ToString
Return sbKey.ToString
End Function
End Class
</code>
-Sam Matzen
There are many options here, but a simple solution is:
<code (VB.NET) >
Public Class Crypto
' TAKEN FROM MS KB Q317535
Public Shared Function EncryptTripleDES(ByVal sIn As String, ByVal sKey As
String) As String
Dim DES As New
System.Security.Cryptography.TripleDESCryptoServiceProvider
Dim hashMD5 As New System.Security.Cryptography.MD5CryptoServiceProvider
' scramble the key
sKey = ScrambleKey(sKey)
' Compute the MD5 hash.
DES.Key =
hashMD5.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(sKey))
' Set the cipher mode.
DES.Mode = System.Security.Cryptography.CipherMode.ECB
' Create the encryptor.
Dim DESEncrypt As System.Security.Cryptography.ICryptoTransform =
DES.CreateEncryptor()
' Get a byte array of the string.
Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(sIn)
' Transform and return the string.
Return Convert.ToBase64String(DESEncrypt.TransformFinalBlock(Buffer, 0,
Buffer.Length))
End Function
Public Shared Function DecryptTripleDES(ByVal sOut As String, ByVal sKey
As String) As String
Dim DES As New
System.Security.Cryptography.TripleDESCryptoServiceProvider
Dim hashMD5 As New System.Security.Cryptography.MD5CryptoServiceProvider
' scramble the key
sKey = ScrambleKey(sKey)
' Compute the MD5 hash.
DES.Key =
hashMD5.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(sKey))
' Set the cipher mode.
DES.Mode = System.Security.Cryptography.CipherMode.ECB
' Create the decryptor.
Dim DESDecrypt As System.Security.Cryptography.ICryptoTransform =
DES.CreateDecryptor()
Dim Buffer As Byte() = Convert.FromBase64String(sOut)
' Transform and return the string.
Return
System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypt.TransformFinalBlock(Buf
fer, 0, Buffer.Length))
End Function
Private Shared Function ScrambleKey(ByVal v_strKey As String) As String
Dim sbKey As New System.Text.StringBuilder
Dim intPtr As Integer
For intPtr = 1 To v_strKey.Length
Dim intIn As Integer = v_strKey.Length - intPtr + 1
sbKey.Append(Mid(v_strKey, intIn, 1))
Next
Dim strKey As String = sbKey.ToString
Return sbKey.ToString
End Function
End Class
</code>
-Sam Matzen