Encriptar

Cryptography application block
[...] This is reusable and extensible source code-based guidance that simplifies development of common cryptographic functionality in .NET-based applications
http://msdn.microsoft.com/library/e...rypto1.asp

Un saludo!

Rubén Vigón
Microsoft MVP Visual Basic
http://vigon.mvps.org

Hola Max y grupo

Mira estas páginas.

http://www.elguille.info/colabora/N...Parte1.htm
http://www.mundoprogramacion.com/co...grafia.htm
http://www.freevbcode.com/ShowCode.Asp?IDE20
http://www.planet-source-code.com/v...?txtCodeId01&lngWId

Un saludo.
David Sans

"MAX" escribió en el mensaje news:

Hola a todos, nuevamente les molesto, ahora entiendo el porque es de vital
importancia encriptar la cadena de conexión, ojalá alguien pueda iniciarme en
el mundo de la encriptación desde el principio para poder generar una cadena
de conexión seguro.
Gracias,
Att MAx

Hola Max,

yo no me liaría demasiado y usaría MD5 o TripleDES para encriptar datos o
cadenas.

Puede utilizar un algoritmo de una dirección que permita únicamente
encriptar los datos, o si el caso obliga como una cadena de conexión a base
de datos, desencriptar, crear o usar un algoritmo de encriptación y
desencriptación.

La idea en el caso de una sólo dirección sería que tú encriptas una cadena y
después de encriptarla, la comparas con la existente.
La de usar dos direcciones es que puedes encriptar y desencriptar.

Como siempre, está el problema del hacking, cracking y demás gaitas.

Te indico dos enlaces que podrían ayudarte:
http://www.obviex.com/samples/hash.aspx
http://www.a1vbcode.com/vbtip-149.asp

http://www.codeproject.com/vb/net/e...yption.asp
http://www.codeproject.com/dotnet/e...yption.asp
http://www.developer.com/net/vb/art...hp/3292781
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/


"MAX" wrote:

Hola a todos, nuevamente les molesto, ahora entiendo el porque es de vital
importancia encriptar la cadena de conexión, ojalá alguien pueda iniciarme en
el mundo de la encriptación desde el principio para poder generar una cadena
de conexión seguro.
Gracias,
Att MAx

Public Function Encriptar(ByVal strCadena As String) As String
Dim DES As New System.Security.Cryptography.TripleDESCryptoServiceProvider
Dim hashMD5 As New System.Security.Cryptography.MD5CryptoServiceProvider
DES.Key = hashMD5.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes("secretillo"))
DES.Mode = System.Security.Cryptography.CipherMode.ECB
Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(strCadena)
Return Convert.ToBase64String(DES.CreateEncryptor.TransformFinalBlock(Buffer, 0, Buffer.Length))
End Function

Public Function Desencriptar(ByVal strCadena As String) As String
Dim DES As New System.Security.Cryptography.TripleDESCryptoServiceProvider
Dim hashMD5 As New System.Security.Cryptography.MD5CryptoServiceProvider
DES.Key = hashMD5.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes("secretillo"))
DES.Mode = System.Security.Cryptography.CipherMode.ECB
Dim Buffer As Byte() = Convert.FromBase64String(strCadena)
Return System.Text.ASCIIEncoding.ASCII.GetString(DES.CreateDecryptor.TransformFinalBlock(Buffer, 0, Buffer.Length))
End Function

Un saludo!

Rubén Vigón
Microsoft MVP Visual Basic
http://vigon.mvps.org

Ruben, me sale este error...
Longitud no válida para una matriz de caracteres Base-64.

"Rubén Vigón" escribió en el mensaje
news:
Public Function Encriptar(ByVal strCadena As String) As String
Dim DES As New System.Security.Cryptography.TripleDESCryptoServiceProvider
Dim hashMD5 As New System.Security.Cryptography.MD5CryptoServiceProvider
DES.Key =
hashMD5.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes("secretillo"))
DES.Mode = System.Security.Cryptography.CipherMode.ECB
Dim Buffer As Byte() =
System.Text.ASCIIEncoding.ASCII.GetBytes(strCadena)
Return
Convert.ToBase64String(DES.CreateEncryptor.TransformFinalBlock(Buffer, 0,
Buffer.Length))
End Function

Public Function Desencriptar(ByVal strCadena As String) As String
Dim DES As New System.Security.Cryptography.TripleDESCryptoServiceProvider
Dim hashMD5 As New System.Security.Cryptography.MD5CryptoServiceProvider
DES.Key =
hashMD5.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes("secretillo"))
DES.Mode = System.Security.Cryptography.CipherMode.ECB
Dim Buffer As Byte() = Convert.FromBase64String(strCadena)
Return
System.Text.ASCIIEncoding.ASCII.GetString(DES.CreateDecryptor.TransformFinalBlock(Buffer,
0, Buffer.Length))
End Function

Un saludo!

Rubén Vigón
Microsoft MVP Visual Basic
http://vigon.mvps.org