Proteger Imagens

[Lucas Phillip]

Olá (mais uma vez hauhau)

bom.. dessa vez o problema é bem simples, pelo menos eu acho q é.. mas eu não tenho nem ideia de como fazer..

bom, to fazendo um programa ai, q ele tem umas imagens q ficam armazenadas dentro duma pasta imagens... só q todas as imagens são .jpg, então qualquer pessoa pode editá-las e avacalhar com o programa... como eu faço pra proteger essas imagens? algo como encripta-las para q só o meu programa possa reconhece-las e reproduzi-las...

vlw

[ramon]

Bom uma coisa bem simples que eu faço é renomear elas para uma outra extensão

Exemplo lucas.jpg

coloque lucas.fex

Pronto

[Graymalkin]

Dê uma olhada neste post: http://scriptbrasil.com.br/forum/index.php?showtopic=31417

Lá tem um código para criptografar e descriptografar (basta adaptar para a leitura e escrita em arquivos).

Abraços,

Graymalkin

[Lucas Phillip]

bom eu pensei em fazer assim então: eu ia abrir o codigo da imagem num textbox, ai ia cryptografar, depois ia salvar cryptografado

mas eu to com um problema em abrir o código da figura... eu fiz assim:

    Dim Texto As String
    Open "c:\Lucas\vb\madeira.rdc" For Input As #1
    Do
        Line Input #1, Texto
        Text1.Text = Text1.Text + Texto + vbCrLf
    Loop While Not EOF(1)
    Close #1

assim funciona direitim para arquivos de texto, mas quando eu tento abrir uma figura com isso, aparece apenas a 1 linha e um pedaço da segunda...

socorro... hehe

vlw

[Graymalkin]

Use o modo Binary para abrir um arquivo binário (como uma figura). Exemplo:

   Dim Texto As String
   Dim n as integer
   n = freefile()
   Open "c:\Lucas\vb\madeira.rdc" For binary As #n
   texto = input(lof(n), n)
   Close #n
   debug.print texto

Por serem dados binários, talvez você não irá conseguir vê-los em uma textbox, por isso coloquei para aparecer na janela Imediata.

Abraços,

Graymalkin

[Lucas Phillip]

hmm.. e pra salvar então eu tenho q salvar em binario tb? ou normal mesmo da? porque não sei salvar em binario

[Graymalkin]

hmm.. e pra salvar então eu tenho q salvar em binario tb? ou normal mesmo da? porque não sei salvar em binario

Para salvar você pode fazer tanto em binário quanto o normal (com o Output). Eu prefiro fazer com o Output:

  Dim n as integer
  n = freefile()
  Open "c:\Lucas\vb\madeira_outro.rdc" For output As #n
  ? #n, texto
  Close #n

Ok?

Graymalkin

[Lucas Phillip]

aff.. isso deu um no na minha cabeça...

eu peguei a imagem e encryptei ela.. beleza.. mas como eu faço pra fazer a imagem encriptada aparecer?

[Graymalkin]

Desencripte ela gravando em um outro arquivo e exiba esse arquivo.

Abraços,

Graymalkin

[Lucas Phillip]

é.. eu tinha pensado nisso.. só q eu achei q tivesse um jeito de exibir direto a imagem sem ter q criar outro arquivo..

mas vo faze assim mesmo.. vlw!