encriptar imagenes

30/06/2004 - 05:01 por tOny | Informe spam
hola
necesito hacer una aplicacion donde pueda encriptar-
desencriptar imagenes *.jpg, *.gif, *.bmp mediante un
algoritmo. Alguien hizo algo hizo algo parecido?? Por
favor cualquier ayuda sera bien recibida y agradecida

saludos.

tOny
 

Leer las respuestas

#1 A.Poblacion
30/06/2004 - 08:29 | Informe spam
¿Qué te impide encriptar las imágenes de la misma manera que encriptarías
cualquier otro tipo de archivo, usando las clases de
System.Security.Cryptography?

A continuación te pongo un ejemplo simplificado que cifra y descifra un
string, pero nada te impide cifrar de la misma forma el contenido de un
archivo .jpg. Lo siento, está en VB en lugar de C#, pero vale para ver
cuáles son las funciones que se usan. Digo que es simplificado porque no
tiene en cuenta ciertas cosas tales como que el vector de inicialización se
debería generar aleatoriamente y transmitirse con los datos encriptados,
pero no quería complicar más el código con esos detalles.

Cifrar
Imports System
Imports System.IO
Imports System.Security.Cryptography

Module Module1
Sub Main()
Dim Flujo as New FileStream("Cifrado.bin", FileMode.Create)

Dim RMCrypto As New RijndaelManaged()

Dim Key as Byte() = {1, 2, 3, 4, 5, 6, 7, 8, 9, 16, 17, 18, 19, 20,
21, 22}
Dim IV As Byte() = {1, 2, 3, 4, 5, 6, 7, 8, 9, 16, 17, 18, 19, 20, 21,
22}

Dim CryptStream As New CryptoStream(Flujo ,
RMCrypto.CreateEncryptor(Key, IV), CryptoStreamMode.Write)

Dim SWriter As New StreamWriter(CryptStream)

SWriter.WriteLine("Esto es un mensaje de prueba.")

Console.WriteLine("Mensaje cifrado y grabado.")

SWriter.Close()
CryptStream.Close()
Flujo.Close()
End Sub
End Module

Descifrar
Imports System
Imports System.IO
Imports System.Security.Cryptography

Module Module1
Sub Main()
Dim Key as Byte() = {1, 2, 3, 4, 5, 6, 7, 8, 9, 16, 17, 18, 19, 20,
21, 22}
Dim IV As Byte() = {1, 2, 3, 4, 5, 6, 7, 8, 9, 16, 17, 18, 19, 20,
21, 22}

Dim Flujo as New FileStream("Cifrado.bin", FileMode.Open)

Dim RMCrypto As New RijndaelManaged()

Dim CryptStream As New CryptoStream(Flujo,
RMCrypto.CreateDecryptor(Key, IV), CryptoStreamMode.Read)

Dim SReader As New StreamReader(CryptStream)

Console.WriteLine("Mensaje descifrado: {0}", SReader.ReadToEnd())

SReader.Close()
Flujo.Close()
End Sub
End Module


"tOny" wrote in message
news:2323801c45e4e$90eb3450$
hola
necesito hacer una aplicacion donde pueda encriptar-
desencriptar imagenes *.jpg, *.gif, *.bmp mediante un
algoritmo. Alguien hizo algo hizo algo parecido?? Por
favor cualquier ayuda sera bien recibida y agradecida

saludos.

tOny

Preguntas similares