ASP - Encryption and Decryption of xml file
Asked By swati
17-Mar-10 03:11 AM
Hi.....
Is anyone having the code/algorithm for encrypting and decrypting xml file in ASP VB?
I am getting the algorithms for encryption but not for decryption....
Please suggest..
Sandra Jain replied to swati

Here you go. This will encrypt the DES3 key in a 128 bit MD5Hash and then use that hash to encrypt at the 3x64 (192bit) DES3.
Imports System.Web.Security
Imports System.Security.Cryptography
Imports System.Text
Imports Microsoft.Win32
Public Class Crypt
Dim myKey As String
Dim cryptDES3 As New TripleDESCryptoServiceProvider()
Dim cryptMD5Hash As New MD5CryptoServiceProvider()
Public Sub New()
myKey = "somekeyhere"
End Sub
Private Function Decrypt(ByVal myString As String) As String
cryptDES3.Key = cryptMD5Hash.ComputeHash(ASCIIEncoding.ASCII.GetBytes(myKey))
cryptDES3.Mode = CipherMode.ECB
Dim desdencrypt As ICryptoTransform = cryptDES3.CreateDecryptor()
Dim buff() As Byte = Convert.FromBase64String(myString)
Decrypt = ASCIIEncoding.ASCII.GetString(desdencrypt.TransformFinalBlock(buff, 0, buff.Length))
End Function
Private Function Encrypt(ByVal myString As String) As String
cryptDES3.Key = cryptMD5Hash.ComputeHash(ASCIIEncoding.ASCII.GetBytes(myKey))
cryptDES3.Mode = CipherMode.ECB
Dim desdencrypt As ICryptoTransform = cryptDES3.CreateEncryptor()
Dim MyASCIIEncoding = New ASCIIEncoding()
Dim buff() As Byte = ASCIIEncoding.ASCII.GetBytes(testo)
Encrypt = Convert.ToBase64String(desdencrypt.TransformFinalBlock(buff, 0, buff.Length))
End Function
End Class
Sandra Jain replied to swati
Also refer:
http://www.obviex.com/samples/dpapi.aspx
http://www.developerfusion.com/code/157/encryptdecrypt/
http://www.dotnetcurry.com/ShowArticle.aspx?ID=185&AspxAutoDetectCookieSupport=1
Super Man replied to swati
this article provides you the best example for encryption and dectyption
http://www.codeproject.com/KB/security/SecretEncryptionDemo.aspx
swati replied to Sandra Jain
Will this code work for an XML file..?
and I need this code for ASP pages not for ASP.net...
Please suggest
Thanks for ur support
Santhosh N replied to swati
You could actually encrypt and decrypt strings in vbscript and you could actually have xml as string and do encryption and decryption on the string (which is nothing but the xml)
check here for more info..
http://www.example-code.com/vbscript/rsa_encryptStrings.asp
swati replied to Sandra Jain
Hi sandra..
I tried to run the code given by you.but what is "testo" there..?
it's throwing an error.
thanks,

invalid length while decrypting TripleDESCryptoServiceProvider public static string DESDecrypt( string sToDecrypt) { if (0 = = sToDecrypt.Length) return "" ; byte [] Code = Convert .FromBase64String(sToDecrypt); string decrypted = ASCIIEncoding .ASCII.GetString(des.CreateDecryptor().TransformFinalBlock(Code, 0, Code.Length)); return decrypted; } What is "des" and toEncrypt, string key, bool useHashing) { byte[] keyArray; byte[] toEncryptArray = UTF8Encoding.UTF8.GetBytes(toEncrypt); if(useHashing) { MD5CryptoServiceProvider hashmd5 = new MD5CryptoServiceProvider(); keyArray = hashmd5.ComputeHash(UTF8Encoding.UTF8.GetBytes(key)); } else keyArray = UTF8Encoding.UTF8.GetBytes(key); TripleDESCryptoServiceProvider tdes = new TripleDESCryptoServiceProvider(); tdes.Key = keyArray; tdes.Mode = CipherMode.ECB; tdes.Padding = PaddingMode.PKCS7; ICryptoTransform cTransform = tdes.CreateEncryptor string toDecrypt, string key, bool useHashing) { byte[] keyArray; byte[] toEncryptArray = Convert.FromBase64String(toDecrypt); if(useHashing) { MD5CryptoServiceProvider hashmd5 = new MD5CryptoServiceProvider(); keyArray = hashmd5.ComputeHash(UTF8Encoding.UTF8.GetBytes(key)); } else keyArray = UTF8Encoding.UTF8.GetBytes(key); TripleDESCryptoServiceProvider tdes
has a string and compare it to an already hashed string. Thanks, Miguel C# Discussions ASCIIEncoding.ASCII.GetBytes (1) TripleDESCryptoServiceProvider (1) Encoding.UTF8.GetBytes (1) ASCIIEncoding (1) MD5CryptoServiceProvider (1) TransformFinalBlock (1) ToBase64String (1) GetHashCode (1) string me = "Pete"; int hashCode = me.GetHashCode(); Am one-way hash for passwords try this. . . public static string EncodePassword(string userName, string password) { TripleDESCryptoServiceProvider des; MD5CryptoServiceProvider hashmd5; byte[] pwdhash, buff; hashmd5 = new MD5CryptoServiceProvider(); pwdhash = hashmd5.ComputeHash(ASCIIEncoding.ASCII.GetBytes(userName)); des = new TripleDESCryptoServiceProvider(); des.Key = pwdhash; des.Mode = CipherMode.ECB; / / CBC, CFB
Window.open in javascript. private string encrypt(string serializedQueryString) { byte[] buffer = Encoding.ASCII.GetBytes(serializedQueryString); TripleDESCryptoServiceProvider des = new TripleDESCryptoServiceProvider(); MD5CryptoServiceProvider MD5 = new MD5CryptoServiceProvider(); des.Key = MD5.ComputeHash(ASCIIEncoding.ASCII.GetBytes(cryptoKey)); des.IV = IV; return Convert.ToBase64String( des.CreateEncryptor().TransformFinalBlock( buffer, 0, buffer serialized query string / / / < / summary> private string decrypt(string encryptedQueryString) { try { byte[] buffer = Convert.FromBase64String(encryptedQueryString); TripleDESCryptoServiceProvider des = new TripleDESCryptoServiceProvider(); MD5CryptoServiceProvider MD5 = new MD5CryptoServiceProvider(); des.Key = MD5.ComputeHash(ASCIIEncoding.ASCII.GetBytes(cryptoKey)); des.IV = IV; return
can use below function private string encrypt(string serializedQueryString) { byte[] buffer = Encoding.ASCII.GetBytes(serializedQueryString); TripleDESCryptoServiceProvider des = new TripleDESCryptoServiceProvider(); MD5CryptoServiceProvider MD5 = new MD5CryptoServiceProvider(); des.Key = MD5.ComputeHash(ASCIIEncoding.ASCII.GetBytes(cryptoKey)); des.IV = IV; return Convert.ToBase64String( des.CreateEncryptor().TransformFinalBlock( buffer, 0, buffer serialized query string / / / < / summary > private string decrypt(string encryptedQueryString) { try { byte[] buffer = Convert.FromBase64String(encryptedQueryString); TripleDESCryptoServiceProvider des = new TripleDESCryptoServiceProvider(); MD5CryptoServiceProvider MD5 = new MD5CryptoServiceProvider(); des.Key = MD5.ComputeHash(ASCIIEncoding.ASCII.GetBytes(cryptoKey)); des.IV = IV; return
contact.Properties.Contains("new_ssn")) { string ssn = (string)contact.Properties["new_ssn"]; byte[] aInput = Convert.FromBase64String(ssn); TripleDESCryptoServiceProvider tripleDESCryptoServiceProvider = new TripleDESCryptoServiceProvider(); MD5CryptoServiceProvider MD5CryptoServiceProvider = new MD5CryptoServiceProvider(); tripleDESCryptoServiceProvider.Key = MD5CryptoServiceProvider.ComputeHash(ASCIIEncoding.ASCII. GetBytes("secretkey")); tripleDESCryptoServiceProvider.Mode = CipherMode.ECB; ICryptoTransform iCryptoTransform = tripleDESCryptoServiceProvider. CreateEncryptor(); target .Properties