Encriptación

Hola Alicia,

a ver si te vale esto, son de la pagina del guille pero pasadas a VB:

Public asEnc As SymmetricAlgorithm

Public Function Encriptar(ByVal TextoOriginal As String) As String

Dim algoritmo As String

algoritmo = "3DES"

Dim dataorg As Byte() = Encoding.Default.GetBytes(TextoOriginal)

asEnc = SymmetricAlgorithm.Create(algoritmo)

Dim ct As ICryptoTransform = asEnc.CreateEncryptor()

MsgBox("Key: " & Encoding.Default.GetString(asEnc.Key))

MsgBox("IV: " & Encoding.Default.GetString(asEnc.IV))

Dim ms As MemoryStream = New MemoryStream()

Dim cs As CryptoStream = New CryptoStream(ms, ct, CryptoStreamMode.Write)

cs.Write(dataorg, 0, dataorg.Length)

cs.FlushFinalBlock()

Encriptar = Encoding.Default.GetString(ms.ToArray())

End Function

Public Function Desencriptar(ByVal TextoEncriptado As String) As String

Dim algoritmo As String

algoritmo = "3DES"

Dim saDEnc As SymmetricAlgorithm = SymmetricAlgorithm.Create(algoritmo)

Dim te1 As Byte() = Encoding.Default.GetBytes(textoencriptado)

Dim ms As MemoryStream = New MemoryStream(te1)

Dim cto As ICryptoTransform = saDEnc.CreateDecryptor(asEnc.Key, asEnc.IV)

Dim mso As MemoryStream = New MemoryStream()

Dim cso As CryptoStream = New CryptoStream(mso, cto, CryptoStreamMode.Write)

cso.Write(ms.ToArray(), 0, ms.ToArray().Length)

cso.FlushFinalBlock()

Desencriptar = Encoding.Default.GetString(mso.ToArray())

End Function





Un saludo,

Carlos.


"Alicia" escribió en el mensaje
news:

Hola, necesito saber donde puedo encontrar un ejemplo para encriptar la
clave
ingresada por un usuario.
Gracias y hasta pronto.

Hola Alicia,

en el siguiente enlace encontrarás información que resuelve tu duda:
http://www.vb-helper.com/howto_net_des_file.html

Un saludo.

Jorge Serrano Pérez
Microsoft MVP VB.NET
PortalVB.com
http://www.portalvb.com/
Weblog de Jorge Serrano
http://weblogs.golemproject.com/jorge/


"Alicia" wrote:

Hola, necesito saber donde puedo encontrar un ejemplo para encriptar la clave
ingresada por un usuario.
Gracias y hasta pronto.

Si quieres mas info sobre lo que es el cifrado puedes ver la mission #5 del
programa de Net Protector de MSDN.

url: http://www.microsoft.com/spanish/ms...am/netpro/



Hector Minaya, MVP Visual Basic

blog: http://www.VBdevelopers.Net

"Alicia" wrote in message
news:

Hola, necesito saber donde puedo encontrar un ejemplo para encriptar la
clave
ingresada por un usuario.
Gracias y hasta pronto.