(RESOLVIDO) Codificar texto e salvar em ".TXT"

[Danleonhart]

Pessoal...seguinte

Quero transformar o que for digitado em uma TextBox em caractéres especiais (tipo uma codificação), e salvar em um ".txt".

E quando for solicitado, carregar o arquivo, e decodificar...

EX:

Digito na TextBox: "SBrasil"

É salvo no "TXT" assim: "#*1/@4!"

Quando for solicitado, recarregar e mostrar o que realmente é: "SBrasil".

Tentei com o FreeFile (...For Binary Access Read Lock Read Write...Put/Get) mas ele escreve da maneira que digito na TextBox,sem alterar os caractéres.

Então, alguém conhece alguma maneira mais prática ? :huh:

Editado Março 1, 2011 por Danleonhart

[kuroi]

mas como é essa codificacao q você esta usando??

qual codigo você usa para faze-la??

[Danleonhart]

Olha, comecei testando este script que peguei na NET:

Este para inserir:

Private Sub cmd1_Click()
Dim nFileNum As Integer
nFileNum = FreeFile
Open "c:\\example.txt" For Binary Access Write Lock Read Write As #nFileNum
  Put #nFileNum, 1, "SBrasil"
Close #nFileNum
End Sub

Este para carregar:

Private Sub cmd2_Click()
Dim nFileNum As Integer, sString As String
nFileNum = FreeFile
Open "c:\\example.txt" For Binary Access Read Lock Read Write As #nFileNum
  sString = Space(7)
  Get #nFileNum, 1, sString
Close #nFileNum
lbl2.Caption = sString
End Sub

Mas estou aberto para sugestões :).

[kuroi]

não, esse codigo ai só grava e carrega, não faz nenhum tipo de codificacao.

você quer fazer um tipo de criptografia??

eu tenho um codigo bem simples aqui pra isso, q peguei por ai há muito tempo atras:

Public Function Criptografia(ByVal strTexto As String) As String
Dim intCont, nCar, cCar
    ChavePar = 256
    ChaveImpar = 255
    
    If ChavePar < 1 Or ChavePar > 255 Then ChavePar = 25
    If ChaveImpar < 1 Or ChaveImpar > 255 Then ChaveImpar = 33
    
    cCar = ""
    
    For intCont = 1 To Len(strTexto)
        If intCont / 2 = Int(intCont / 2) Then
            nCar = Asc(Mid(strTexto, intCont, 1)) Xor ChavePar
        Else
            nCar = Asc(Mid(strTexto, intCont, 1)) Xor ChaveImpar
        End If
        cCar = cCar + Chr(nCar)
    Next
    Criptografia = cCar
End Function[/code]
se você passar um texto, ela retorna o texto criptografado. se você passar o texto criptografado, ela te retorna o original.

[Danleonhart]

BELEZA Kuroi !

Sem querer abusar de sua boa vontade, me dá só um exemplo de como aplicá-lo...

Por exemplo, no que for digitado em um TextBox...entende ?! :blush:

"EDIT"

Consegui !

Private Sub cmd2_Click()
lb4.Caption = Criptografia(txt1.Text)
End Sub

Valeu Kuroi ! muito prático mesmo cara !

Editado Março 1, 2011 por Danleonhart