RE:Encriptar datos
Publicado por
RJGV (1 intervención) el 08/01/2007 18:17:36
Private Function Encrypt(ByVal stringToEncrypt As String, ByVal SEncryptionKey As String) As String
Try
key = System.Text.Encoding.UTF8.GetBytes(Left(SEncryptionKey, 8))
Dim des As New DESCryptoServiceProvider
Dim inputByteArray() As Byte = Encoding.UTF8.GetBytes(stringToEncrypt)
Dim ms As New MemoryStream
Dim cs As New CryptoStream(ms, des.CreateEncryptor(key, IV), CryptoStreamMode.Write)
cs.Write(inputByteArray, 0, inputByteArray.Length)
cs.FlushFinalBlock()
Return Convert.ToBase64String(ms.ToArray())
Catch e As Exception
Throw New Exception(e.Message)
End Try
End Function
Public Shared Function encryptQueryString(ByVal strQueryString As String) As String
Dim oES As New Encryption64
Return oES.Encrypt(strQueryString, Tool.Configuracion.EncryptKey)
oES = Nothing
End Function
Amigo esto es eficaz para lo que es encriptacion esta probado por mi persona es mas actualmente esta en un sistema en produccion