Criptografar arquivos

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