Criptografar arquivos

[Célio de Souza 0]

Pessoal estou com uma duvida... ou melhor preciso de ajuda... estou no ramo do jogos online... e eu tenho um sistema quase pronto e preciso criptografar os arquivos d client-Side para evitar roubos e hackers... entao fiz o seguinte mas isso so muda a extençao queria algo para criptografar o arquivo....

 

 

Sub LoadMaps()
    Dim FileName As String
    Dim i As Integer
    Dim f As Integer

    Call CheckMaps

    For i = 1 To MAX_MAPS
        temp = i / MAX_MAPS * 100
        Call SetStatus("Loading maps... " & temp & "%")
        FileName = App.Path & "\maps\map" & i & ".bo"

        f = FreeFile
        Open FileName For Binary As #f
        Get #f, , Map(I)
        Close #f

    Next i

End Sub

[scorpio 7]

Vixi, complicado hein cara?!

 

O que é o arquivo que quer criptografar ? O que ele contém? Texto, imagen, binarios?

[Claudio Neto 3]

você quer criptografar o próprio arquivo em si ou o conteúdo dele?

 

Se for o conteúdo, se só contiver texto, veja se isso te ajuda:

http://forum.imasters.com.br/index.php?/topic/128534-dicas-e-tutoriais-vb5060/page__view__findpost__p__343608