Encriptacion

Aqui tienes una funcion para encriptar un string:

Public Shared Function Encrypt(ByVal text As String, ByVal password
As String) As String

' Create the 3DES provider object
Dim tdes As New TripleDESCryptoServiceProvider

' Convert the string to a byte array
Dim data() As Byte = UTF8.GetBytes(text)

' Derive the key from the password
Dim iv() As Byte = {0, 0, 0, 0, 0, 0, 0, 0}
Dim keyb() As Byte = (New PasswordDeriveBytes(password,
iv).CryptDeriveKey("TripleDES", "MD5", tdes.KeySize, iv))

' Create an encryptor object
Dim transform As ICryptoTransform = tdes.CreateEncryptor(keyb, iv)

' Encrypt the string, convert the result to Base64 and UrlEncode
it
Return
System.Convert.ToBase64String(transform.TransformFinalBlock(data, 0,
data.Length))

End Function

La funcion para desencriptar te queda de tarea, que como puedes ver no es
tan complicado y nunca esta demas aprender. :)

Eduardo A. Morcillo [MS MVP VB]

Comprate un libro.


Miao...

Mostrar la cita

Alguien tiene o me puede decir alguna clase ya echa que
solo ponga un pass y Encripte y desencripte con todo lo
de la seguridad de framework.

Osea lo que quiero es solo poner pass sin tener que
aprender todo ese rollo de Encriptacion .

.

Gran ayuda no? Le ensenas como cerrar el candado pero no
la llave para abrirlo.




Miao..
Comprate un libro.

Mostrar la cita

Aqui tienes una funcion para encriptar un string:

Public Shared Function Encrypt(ByVal text As

String, ByVal password
Mostrar la cita

As String) As String

' Create the 3DES provider object
Dim tdes As New

TripleDESCryptoServiceProvider
Mostrar la cita

' Convert the string to a byte array
Dim data() As Byte = UTF8.GetBytes(text)

' Derive the key from the password
Dim iv() As Byte = {0, 0, 0, 0, 0, 0, 0, 0}
Dim keyb() As Byte = (New PasswordDeriveBytes

(password,
Mostrar la cita

iv).CryptDeriveKey("TripleDES", "MD5", tdes.KeySize, iv))

' Create an encryptor object
Dim transform As ICryptoTransform =

tdes.CreateEncryptor(keyb, iv)
Mostrar la cita

' Encrypt the string, convert the result to

Base64 and UrlEncode
Mostrar la cita

it
Return
System.Convert.ToBase64String

(transform.TransformFinalBlock(data, 0,
Mostrar la cita

data.Length))

End Function

La funcion para desencriptar te queda de tarea, que como

puedes ver no es
Mostrar la cita

tan complicado y nunca esta demas aprender. :)

Eduardo A. Morcillo [MS MVP VB]
.

Gracias Eduardo . Lo que pasa que soy nuevo en esto.Y veo
que la seguridad es algo que necesita uno dedicarle
tiempo para entenderlo bien y pues tiempo es lo menos que
tengo.

Si pudieras decirle como a hora decencriptar.
Gracias..

Mostrar la cita

Aqui tienes una funcion para encriptar un string:

Public Shared Function Encrypt(ByVal text As

String, ByVal password
Mostrar la cita

As String) As String

' Create the 3DES provider object
Dim tdes As New

TripleDESCryptoServiceProvider
Mostrar la cita

' Convert the string to a byte array
Dim data() As Byte = UTF8.GetBytes(text)

' Derive the key from the password
Dim iv() As Byte = {0, 0, 0, 0, 0, 0, 0, 0}
Dim keyb() As Byte = (New PasswordDeriveBytes

(password,
Mostrar la cita

iv).CryptDeriveKey("TripleDES", "MD5", tdes.KeySize, iv))

' Create an encryptor object
Dim transform As ICryptoTransform =

tdes.CreateEncryptor(keyb, iv)
Mostrar la cita

' Encrypt the string, convert the result to

Base64 and UrlEncode
Mostrar la cita

it
Return
System.Convert.ToBase64String

(transform.TransformFinalBlock(data, 0,
Mostrar la cita

data.Length))

End Function

La funcion para desencriptar te queda de tarea, que como

puedes ver no es
Mostrar la cita

tan complicado y nunca esta demas aprender. :)

Eduardo A. Morcillo [MS MVP VB]
.

Encripción Y Cifrado con Visual Basic .Net en WindowsForms
http://www.willydev.net/Descargas/c...e/crip.zip

Criptografía, Claves y certificados con .Net FrameWork
http://www.willydev.net/descargas/C...tifica.pdf

"Lian" wrote in message
news:7a8b01c4d03f$8c03e8c0$
Mostrar la cita

Gracias Eduardo . Lo que pasa que soy nuevo en esto.Y veo
que la seguridad es algo que necesita uno dedicarle
tiempo para entenderlo bien y pues tiempo es lo menos que
tengo.

Si pudieras decirle como a hora decencriptar.
Gracias..

Mostrar la cita

Aqui tienes una funcion para encriptar un string:

Public Shared Function Encrypt(ByVal text As

String, ByVal password
Mostrar la cita

As String) As String

' Create the 3DES provider object
Dim tdes As New

TripleDESCryptoServiceProvider
Mostrar la cita

' Convert the string to a byte array
Dim data() As Byte = UTF8.GetBytes(text)

' Derive the key from the password
Dim iv() As Byte = {0, 0, 0, 0, 0, 0, 0, 0}
Dim keyb() As Byte = (New PasswordDeriveBytes

(password,
Mostrar la cita

iv).CryptDeriveKey("TripleDES", "MD5", tdes.KeySize, iv))

' Create an encryptor object
Dim transform As ICryptoTransform > tdes.CreateEncryptor(keyb, iv)

' Encrypt the string, convert the result to

Base64 and UrlEncode
Mostrar la cita

it
Return
System.Convert.ToBase64String

(transform.TransformFinalBlock(data, 0,
Mostrar la cita

data.Length))

End Function

La funcion para desencriptar te queda de tarea, que como

puedes ver no es
Mostrar la cita

tan complicado y nunca esta demas aprender. :)

Eduardo A. Morcillo [MS MVP VB]
.