Archivos para octubre, 2008

Despues de casi 6 meses que habia dejado de escribir en mi blog, ahora vuelvo con un articulo que me parecio bastante interesante…
Lo que hace este pequeño codigo es encriptar el querystring de una URL,bueno espero que les sea util este articulo.

Imports System
Imports System.IO
Imports System.Xml
Imports System.Text
Imports System.Security.Cryptography

Public Class Encryption64
Private key() As Byte = {}
Private IV() As Byte = {&H12&H34&H56&H78&H90&HAB&HCD&HEF}

 Public Function Decrypt(ByVal stringToDecrypt As String_
      ByVal sEncryptionKey As StringAs String
      Dim inputByteArray(stringToDecrypt.LengthAs Byte
       Try
      key = System.Text.Encoding.UTF8.GetBytes(Left(sEncryptionKey8))
       Dim des As New DESCryptoServiceProvider()
       inputByteArray = Convert.FromBase64String(stringToDecrypt)
       Dim ms As New MemoryStream()
       Dim cs As New CryptoStream(msdes.CreateDecryptor(keyIV), _
         CryptoStreamMode.Write)
          cs.Write(inputByteArray0inputByteArray.Length)
          cs.FlushFinalBlock()
      Dim encoding As System.Text.Encoding = System.Text.Encoding.UTF8
          Return encoding.GetString(ms.ToArray())
      Catch e As Exception
          Return e.Message
      End Try
   End Function

   Public Function Encrypt(ByVal stringToEncrypt As String_
       ByVal SEncryptionKey As StringAs String
       Try
      key = System.Text.Encoding.UTF8.GetBytes(Left(SEncryptionKey8))
          Dim des As New DESCryptoServiceProvider()
          Dim inputByteArray() As Byte = Encoding.UTF8.GetBytes_
              stringToEncrypt)
          Dim ms As New MemoryStream()
        Dim cs As New CryptoStream(msdes.CreateEncryptor(keyIV), _
              CryptoStreamMode.Write)
          cs.Write(inputByteArray0inputByteArray.Length)
          cs.FlushFinalBlock()
          Return Convert.ToBase64String(ms.ToArray())
      Catch e As Exception
          Return e.Message
      End Try
   End Function

End Class

Anuncios