encriptar un string con rijndael

Creas un objeto de la clase RijndaelManaged, le estableces las propiedades
Key, e IV, Obtienes un ICryptoTransform llamando al método CreateDecryptor o
CreateEncryptor según quieras encriptar o desencriptar y for fin llamas al
método TransformFinalBlock del ICryptoTransform para encriptar o
desencriptar.


"earantesp" escribió en el mensaje
news:

Hola, alguien me puede colaborar en indicarme como utilizar la clase
System.Security.Cryptography.Rijndael para encriptar y desencriptar una
cadena de caracteres

gracias


earantesp


Ver este tema: http://www.softwaremix.net/viewtopic-443783.html

Enviado desde http://www.softwaremix.net

No podrias poner un ejemplillo?

"Jesús López" escribió en el mensaje
news:

Creas un objeto de la clase RijndaelManaged, le estableces las propiedades
Key, e IV, Obtienes un ICryptoTransform llamando al método CreateDecryptor
o CreateEncryptor según quieras encriptar o desencriptar y for fin llamas
al método TransformFinalBlock del ICryptoTransform para encriptar o
desencriptar.


"earantesp" escribió en el
mensaje news:

Hola, alguien me puede colaborar en indicarme como utilizar la clase
System.Security.Cryptography.Rijndael para encriptar y desencriptar una
cadena de caracteres

gracias


earantesp


Ver este tema: http://www.softwaremix.net/viewtopic-443783.html

Enviado desde http://www.softwaremix.net

La clase Crypter tiene los métodos públicos Ecrypt y Decrypt que crifra y
descifra respectivamente una cadena de caracteres utilizando el algoritmo
simétrico de cifrado Rijndael..

Public Class Crypter

Private mSymetricKey As System.Security.Cryptography.SymmetricAlgorithm
Private ReadOnly Property SymetricKey() As
System.Security.Cryptography.SymmetricAlgorithm
Get
If mSymetricKey Is Nothing Then
mSymetricKey = New
System.Security.Cryptography.RijndaelManaged()
mSymetricKey.Key = New Byte() {3, 4, 2, 5, 7, 9, 120, 100,
34, 32, 21, 33, 98, 43, 67, 98}
mSymetricKey.IV = New Byte() {76, 82, 89, 10, 12, 43, 87,
134, 128, 90, 43, 67, 23, 32, 11, 8}
End If
Return mSymetricKey
End Get
End Property

Private mEncryptor As ICryptoTransform
Private ReadOnly Property Encryptor() As ICryptoTransform
Get
If mEncryptor Is Nothing Then
mEncryptor = Me.SymetricKey.CreateEncryptor
End If
Return mEncryptor
End Get
End Property

Private mDecryptor As ICryptoTransform
Private ReadOnly Property Decryptor() As ICryptoTransform
Get
If mDecryptor Is Nothing Then
mDecryptor = Me.SymetricKey.CreateDecryptor
End If
Return mDecryptor
End Get
End Property

Public Function Encrypt(ByVal str As String) As String
Dim BytesToEncrypt() As Byte =
System.Text.Encoding.Unicode.GetBytes(str)
Dim EncryptedBytes() As Byte =
Me.Encryptor.TransformFinalBlock(BytesToEncrypt, 0, BytesToEncrypt.Length)
Dim EncryptedStr As String =
System.Text.Encoding.Unicode.GetString(EncryptedBytes)
Return EncryptedStr
End Function

Public Function Decrypt(ByVal str As String) As String
Dim BytesToDecrypt() As Byte =
System.Text.Encoding.Unicode.GetBytes(str)
Dim DecryptedBytes() As Byte =
Me.Decryptor.TransformFinalBlock(BytesToDecrypt, 0, BytesToDecrypt.Length)
Dim DecryptedStr As String =
System.Text.Encoding.Unicode.GetString(DecryptedBytes)
Return DecryptedStr
End Function

End Class


En un formulario con una caja de texto y un botón podemos probar esta clase:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim c As New Crypter
Dim EncryptedStr As String = c.Encrypt(Me.TextBox1.Text)
MsgBox(EncryptedStr)
Dim DecryptedStr As String = c.Decrypt(EncryptedStr)
MsgBox(DecryptedStr)
End Sub



"Cid" escribió en el mensaje
news:

No podrias poner un ejemplillo?

"Jesús López" escribió en el mensaje
news:

Creas un objeto de la clase RijndaelManaged, le estableces las
propiedades Key, e IV, Obtienes un ICryptoTransform llamando al método
CreateDecryptor o CreateEncryptor según quieras encriptar o desencriptar
y for fin llamas al método TransformFinalBlock del ICryptoTransform para
encriptar o desencriptar.


"earantesp" escribió en el
mensaje news:

Hola, alguien me puede colaborar en indicarme como utilizar la clase
System.Security.Cryptography.Rijndael para encriptar y desencriptar una
cadena de caracteres

gracias


earantesp


Ver este tema: http://www.softwaremix.net/viewtopic-443783.html

Enviado desde http://www.softwaremix.net

Gracias Jesus.

"Jesús López" escribió en el mensaje
news:

La clase Crypter tiene los métodos públicos Ecrypt y Decrypt que crifra y
descifra respectivamente una cadena de caracteres utilizando el algoritmo
simétrico de cifrado Rijndael..

Public Class Crypter

Private mSymetricKey As System.Security.Cryptography.SymmetricAlgorithm
Private ReadOnly Property SymetricKey() As
System.Security.Cryptography.SymmetricAlgorithm
Get
If mSymetricKey Is Nothing Then
mSymetricKey = New
System.Security.Cryptography.RijndaelManaged()
mSymetricKey.Key = New Byte() {3, 4, 2, 5, 7, 9, 120, 100,
34, 32, 21, 33, 98, 43, 67, 98}
mSymetricKey.IV = New Byte() {76, 82, 89, 10, 12, 43, 87,
134, 128, 90, 43, 67, 23, 32, 11, 8}
End If
Return mSymetricKey
End Get
End Property

Private mEncryptor As ICryptoTransform
Private ReadOnly Property Encryptor() As ICryptoTransform
Get
If mEncryptor Is Nothing Then
mEncryptor = Me.SymetricKey.CreateEncryptor
End If
Return mEncryptor
End Get
End Property

Private mDecryptor As ICryptoTransform
Private ReadOnly Property Decryptor() As ICryptoTransform
Get
If mDecryptor Is Nothing Then
mDecryptor = Me.SymetricKey.CreateDecryptor
End If
Return mDecryptor
End Get
End Property

Public Function Encrypt(ByVal str As String) As String
Dim BytesToEncrypt() As Byte =
System.Text.Encoding.Unicode.GetBytes(str)
Dim EncryptedBytes() As Byte =
Me.Encryptor.TransformFinalBlock(BytesToEncrypt, 0, BytesToEncrypt.Length)
Dim EncryptedStr As String =
System.Text.Encoding.Unicode.GetString(EncryptedBytes)
Return EncryptedStr
End Function

Public Function Decrypt(ByVal str As String) As String
Dim BytesToDecrypt() As Byte =
System.Text.Encoding.Unicode.GetBytes(str)
Dim DecryptedBytes() As Byte =
Me.Decryptor.TransformFinalBlock(BytesToDecrypt, 0, BytesToDecrypt.Length)
Dim DecryptedStr As String =
System.Text.Encoding.Unicode.GetString(DecryptedBytes)
Return DecryptedStr
End Function

End Class


En un formulario con una caja de texto y un botón podemos probar esta
clase:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim c As New Crypter
Dim EncryptedStr As String = c.Encrypt(Me.TextBox1.Text)
MsgBox(EncryptedStr)
Dim DecryptedStr As String = c.Decrypt(EncryptedStr)
MsgBox(DecryptedStr)
End Sub



"Cid" escribió en el mensaje
news:

No podrias poner un ejemplillo?

"Jesús López" escribió en el mensaje
news:

Creas un objeto de la clase RijndaelManaged, le estableces las
propiedades Key, e IV, Obtienes un ICryptoTransform llamando al método
CreateDecryptor o CreateEncryptor según quieras encriptar o desencriptar
y for fin llamas al método TransformFinalBlock del ICryptoTransform para
encriptar o desencriptar.


"earantesp" escribió en el
mensaje news:

Hola, alguien me puede colaborar en indicarme como utilizar la clase
System.Security.Cryptography.Rijndael para encriptar y desencriptar una
cadena de caracteres

gracias


earantesp


Ver este tema: http://www.softwaremix.net/viewtopic-443783.html

Enviado desde http://www.softwaremix.net