AJUDA ARQUIVO .TXT EDITADO

   
Dim i() As String = System.IO.File.ReadAllLines([Ô]c:    este.abc[Ô])

        For Each linha As String In i
            [ô] a cada ok que der no msgbox, uma nova linha é lida até que chege no final do arquivo
            MsgBox(linha)
        Next

        

   

        [ô]criando arquivo
        Dim DadosParaCriar() As String = New String() {[Ô]Player;Level;Pontuacao;SalvoEm[Ô], [Ô]Player1;5;66566;1/1/2011[Ô], [Ô]Player1;6;999566;2/1/2011[Ô]}

        [ô]Abrindo/criando arquivo para inclusao de dados
        Dim file As New IO.StreamWriter([Ô]c:    este.abc[Ô])
        For Each item As String In DadosParaCriar
            [ô]percorrendo linha por linha da variavel DadosParaCriar e adicionando no arquivo
            file.WriteLine(item)
        Next
        [ô]Fechando Arquivo
        file.Close()


        [ô]abrindo arquivo para leitura
        Dim DadosLidos() As String = System.IO.File.ReadAllLines([Ô]c:    este.abc[Ô])

        For Each linha As String In DadosLidos
            [ô] a cada ok que der no msgbox, uma nova linha é lida até que chege no final do arquivo
            MsgBox(linha)
        Next


        [ô]Alterando os dados na linha 2, lembrando que 0 é linha 1, um é linha 2 , e '2 é linha 3 e assim por adiante
        DadosLidos(1) = [Ô]Player2;9;999566;6/1/2011[Ô]

        [ô]salvando dados no arquivo
        Dim fileASalvar As New IO.StreamWriter([Ô]c:    este.abc[Ô])
        For Each item As String In DadosLidos
            [ô]percorrendo linha por linha da variavel DadosLidos e adicionando no arquivo
            file.WriteLine(item)
        Next
        [ô]Fechando Arquivo
        file.Close()

        [ô]abrindo arquivo para leitura dos novos dados
        Dim DadosRelidos() As String = System.IO.File.ReadAllLines([Ô]c:    este.abc[Ô])

        For Each linha As String In DadosRelidos
            [ô] a cada ok que der no msgbox, uma nova linha é lida até que chege no final do arquivo
            MsgBox(linha)
        Next

Citação:

:
Explica direitinho o que tu quer fazer....
Ou posta um esquema de idéias ou o código do projeto.
Criptografia basicamente é feita por algoritmos prontos... é MUITO dificil criar um.

Citação:

:
Vlw cara brigadaum
deu certinho ake


so nao intendi esses negocio de encripitar na quele link que me mandou Oo

muito complicado os codigos

edit: no caso ele salva e carrega no meu caso seria
encripita o documento | salva em algum lugar | carrega na tela de inicio do [Ô]jogo[Ô]

   

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

Public Class Game
    Private myRijndael As New RijndaelManaged()
    Sub CarregaGame()

        Dim bytes() As Byte = IO.File.ReadAllBytes([Ô]c:\save.abc[Ô])
        Dim texto As String = Decodifica(bytes)



    End Sub


    Sub SalvaGame()

        Dim texto As String = [Ô]conteudo para salvar[Ô]
        Dim bytes() As Byte = Codifica(texto)

        Dim arquivo As New FileStream([Ô]c:\save.abc[Ô], FileMode.OpenOrCreate)
        Dim str As New IO.BinaryWriter(arquivo)


        arquivo.Flush()
        arquivo.Close()


    End Sub

    Public Function Codifica(Texto As String) As Byte()
        Return encryptStringToBytes_AES(Texto, myRijndael.Key, myRijndael.IV)
    End Function

    Public Function Decodifica(Bytes As Byte()) As String
        Return decryptStringFromBytes_AES(Bytes, myRijndael.Key, myRijndael.IV)
    End Function

    [ô]agora de momento ignore esta função. mas em breve estude outros metodos de criptografia
    Private Function encryptStringToBytes_AES(ByVal plainText As String, ByVal Key() As Byte, ByVal IV() As Byte) As Byte()
        [ô] Check arguments.
        If plainText Is Nothing OrElse plainText.Length <= 0 Then
            Throw New ArgumentNullException([Ô]plainText[Ô])
        End If
        If Key Is Nothing OrElse Key.Length <= 0 Then
            Throw New ArgumentNullException([Ô]Key[Ô])
        End If
        If IV Is Nothing OrElse IV.Length <= 0 Then
            Throw New ArgumentNullException([Ô]IV[Ô])
        End If

        [ô] Declare the RijndaelManaged object
        [ô] used to encrypt the data.
        Dim aesAlg As RijndaelManaged = Nothing

        [ô] Declare the stream used to encrypt to an in memory
        [ô] array of bytes.
        Dim msEncrypt As MemoryStream = Nothing

        Try
            [ô] Create a RijndaelManaged object
            [ô] with the specified key and IV.
            aesAlg = New RijndaelManaged()
            aesAlg.Key = Key
            aesAlg.IV = IV

            [ô] Create an encryptor to perform the stream transform.
            Dim encryptor As ICryptoTransform = aesAlg.CreateEncryptor(aesAlg.Key, aesAlg.IV)

            [ô] Create the streams used for encryption.
            msEncrypt = New MemoryStream()
            Using csEncrypt As New CryptoStream(msEncrypt, encryptor, CryptoStreamMode.Write)
                Using swEncrypt As New StreamWriter(csEncrypt)

                    [ô]Write all data to the stream.
                    swEncrypt.Write(plainText)
                End Using
            End Using

        Finally
            [ô] Clear the RijndaelManaged object.
            If Not (aesAlg Is Nothing) Then
                aesAlg.Clear()
            End If
        End Try
        [ô] Return the encrypted bytes from the memory stream.
        Return msEncrypt.ToArray()

    End Function

    [ô]agora de momento ignore esta função. mas em breve estude outros metodos de criptografia
    Private Function decryptStringFromBytes_AES(ByVal cipherText() As Byte, ByVal Key() As Byte, ByVal IV() As Byte) As String
        [ô] Check arguments.
        If cipherText Is Nothing OrElse cipherText.Length <= 0 Then
            Throw New ArgumentNullException([Ô]cipherText[Ô])
        End If
        If Key Is Nothing OrElse Key.Length <= 0 Then
            Throw New ArgumentNullException([Ô]Key[Ô])
        End If
        If IV Is Nothing OrElse IV.Length <= 0 Then
            Throw New ArgumentNullException([Ô]IV[Ô])
        End If

        [ô] Declare the RijndaelManaged object
        [ô] used to decrypt the data.
        Dim aesAlg As RijndaelManaged = Nothing

        [ô] Declare the string used to hold
        [ô] the decrypted text.
        Dim plaintext As String = Nothing

        Try
            [ô] Create a RijndaelManaged object
            [ô] with the specified key and IV.
            aesAlg = New RijndaelManaged()
            aesAlg.Key = Key
            aesAlg.IV = IV

            [ô] Create a decrytor to perform the stream transform.
            Dim decryptor As ICryptoTransform = aesAlg.CreateDecryptor(aesAlg.Key, aesAlg.IV)

            [ô] Create the streams used for decryption.
            Using msDecrypt As New MemoryStream(cipherText)
                Using csDecrypt As New CryptoStream(msDecrypt, decryptor, CryptoStreamMode.Read)
                    Using srDecrypt As New StreamReader(csDecrypt)

                        [ô] Read the decrypted bytes from the decrypting stream
                        [ô] and place them in a string.
                        plaintext = srDecrypt.ReadToEnd()
                    End Using
                End Using
            End Using

        Finally

            [ô] Clear the RijndaelManaged object.
            If Not (aesAlg Is Nothing) Then
                aesAlg.Clear()
            End If
        End Try
        Return plaintext

    End Function
End Class