Criptografia - algoritmo DES en VB

Hola a tod@s

Me estoy volviendo loca para encontrar una implementación del algoritmo DES en Visual Basic, he encontrado varias en C, C++, C#, y de momento, no veo otra solución que 'traducir' de C a Visual Basic, con lo que me estoy estresando con tanto puntero y tanto bit.. ¿me podeis ayudar?

gracias de antemano

Un saludo. Inma

Inma, que tal estoy en la misma situación quisiera saber si has hallado algo acerca del tema, hoy comence la busqueda.
De encontrar algo te lo paso.

No se si esto les sirva, pero encontre algo en este link

http://support.microsoft.com/default.aspx?scid=kb;es;301070&sd=msdn

Hola Necesito Urgentemente el codigo del algoritmo DES en VB. Si me podrian ayudar por favor. Se los agradecere.

Hace varios días de busqueda exaustiva del algoritmo DES, pero algo ya compilado, por suerte existe este foro, que cuando entre en criptografía, y vi DES, me dije, ACA ESTÁ! pero resulta que encuentro más dudas que respuestas, espero me ayuden...

Si les sirve de algo (a mi no, o soy muy ignorante), les dejo este applet, desencripta con claves de 8 bits en hexadecimal y el resultado tambien lo devuelve en hexa, asique consigánse un editor HEX.
http://www.riscure.com/CryptoTools/DES.html
Dije no me sirve o soy muy ignorante, porque yo tengo una clave de 5 bits y no sé como hacerla de 8, si agregárles ceros, en diferentes partes de la clave o como, si alguien me puede ayudar, agradecería

Esto me parece demaciado complicado, soy principiente y el profesor me pidio que buscara en internet como hacer criptografia.
Agradesco mucho a quienes lee. Gracias

esta es una funcion que les puede servir... funciona bien. devuleve la contraseña encriptada

Private Function Encriptar(ByVal password As String) As String
Dim arrDESKey As Byte()
Dim arrDESIV As Byte()
Dim arrInput As Byte()
Dim ms As New MemoryStream
Dim objDES As DESCryptoServiceProvider
Dim objEncryptor As ICryptoTransform
Dim objCryptoStream As CryptoStream

arrDESKey = System.Text.Encoding.Default.GetBytes(DESKey)
arrDESIV = System.Text.Encoding.Default.GetBytes(DESIV)
arrInput = System.Text.Encoding.Default.GetBytes(password)

objDES = New DESCryptoServiceProvider
objEncryptor = objDES.CreateEncryptor(arrDESKey, arrDESIV)

objCryptoStream = New CryptoStream(ms, objEncryptor, CryptoStreamMode.Write)
objCryptoStream.Write(arrInput, 0, arrInput.Length)
objCryptoStream.FlushFinalBlock()
objCryptoStream.Close()

Return System.Text.Encoding.Default.GetString(ms.ToArray())

End Function

Les dejo un enlace para utilizar funciones de cifrado del .NET en VB6.0 http://msdn.microsoft.com/es-es/library/aa719107(en-us).aspx

nota de los alumnos

Yo necesito el algoritmo DES en C y en C++ me podrias ayudar con eso porfavor