Jump to content

LoadBitmap


ruileal
 Share

Recommended Posts

O meu interesse é converter um ficheiro bmp num outro ficheiro criptado através de uma função de criptação (não importa qual), depois na minha aplicação ler o ficheiro criptado, decripta-lo (sem gravar no disco o resultado) e apresenta-lo num form ou numa picturebox.

Referi bitmaps mas se possivel a wav's também 😕

Link to comment
Share on other sites

Há solução para tudo.

Se não importa a maneira como tratas, podes dar uma espreitadela no blog do JPaulino, mais especificamente neste post, onde a linhas tantas ele fala na comparação de duas imagens através de uma representação base64.

Podes considerar essa representação como o teu "cripto"... basta aplicares uma leve codificação à representação.

Nem que seja meter todos os "a" em "_", já é suficiente para o bitmap deixar de o ser.

Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Link to comment
Share on other sites

Boas, obrigado pela resposta...

pegando no codigo do jp (espero que ele nao se importe)

 Public sub ImageToBase64String(ByVal image As Image, ByVal format As Imaging.ImageFormat) 
        Dim tabela() As Byte 
        Using memory As New IO.MemoryStream()
            image.Save(memory, format)
            tabela= memory.ToArray
        End Using

        dim xxx as image
        ' quero colocar na xxx o valor da tabela()
end sub

Como coloco o valor do array da tabela na variavel xxx? esse é o meu problema  :wallbash:

Explicando melhor, eu quero na minha aplicação utilizar imagens gravadas no disco mas não quero partilha-lhas com mais ninguem...se colocar os ficheiros codificados e qd os abrir os descodificar para uma variavel depois posso utiliza-los

Link to comment
Share on other sites

Agora estou curtinho de tempo 👍 , exprimenta dar uma vista de olhos por aqui:

http://www.codeproject.com/KB/vb/Base64decoder.aspx

Só precisas depois de passar uma codificação super leve por cima da string de representação para que não seja simplesmente reconverter.

Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Link to comment
Share on other sites

Problema resolvido...Agradeço ao moderador que feche o tópico...

 Dim myImage As Image = Image.FromFile("d:\lixo\1.jpeg")



        'Image to byte[]

        Dim imgMemoryStream As MemoryStream = New MemoryStream()

        Dim imgByteArray As Byte() = Nothing

        myImage.Save(imgMemoryStream, System.Drawing.Imaging.ImageFormat.Jpeg)

        imgByteArray = imgMemoryStream.GetBuffer()



        'Byte[] to image

        imgMemoryStream = New IO.MemoryStream(imgByteArray)

        myImage = Drawing.Image.FromStream(imgMemoryStream)



        'Show it and check if the image is accordant with E:\VBproject\1.jpg.

        PictureBox1.Image = myImage
Link to comment
Share on other sites

Se isso for para esconder as míudas dos olhos curiosos da namorada/mulher, e se os seus conhecimentos informáticos se baseiam em Solitaire, até podias trocar a extensão para EXE ou algo do género, que já complicava a coisa.

Se fores utilizador de Windows Vista +, podes até encriptar ficheiros e/ou pastas, nativamente.

Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.