How to implement RC2 algorithm in VB.NET?

Please find the attached sample, which implemented in windows application.

If you commented out the Response.Write, then you can use the same for windows application.

For more example,  please refer the link
http://www.java2s.com/Code/VB/File-Directory/UseDESRC2RijndaelTripleDEStodecryptandEncryptfiles.htm

Private Function rc2Encryption()

Dim plainText As String = "This is a secret for RC2"

Response.Write("plainText: " + plainText + "
")

Dim buffer() As Byte = ASCIIEncoding.ASCII.GetBytes(plainText)

Dim rc2 As New RC2CryptoServiceProvider

rc2.GenerateKey()

rc2.GenerateIV()

Dim encryptedString As String = _

Convert.ToBase64String( _

rc2.CreateEncryptor().TransformFinalBlock( _

buffer, 0, buffer.Length))

Response.Write("encryptedString: " + encryptedString + "
")

buffer = Convert.FromBase64String(encryptedString)

Dim decryptedString As String = _

ASCIIEncoding.ASCII.GetString( _

rc2.CreateDecryptor().TransformFinalBlock( _

buffer, 0, buffer.Length))

Response.Write("Decrypted string: " + decryptedString + "
")

End Function

Hope this helps you.