Codificar un archivo con vb6.0

[aldo1982]

buenas, muy bueno ese codigo, pero por si te interesa tengo otro.

aca te lo dejo.

en un modulo poens estas dos funciones

Código:

'Encripta una cadena de caracteres.
'S = Cadena a encriptar
'P = Password
Public Function TextEncript(ByVal S As String, Optional ByVal P As String = "123456789abcde") As String
Dim i As Integer, r As String
Dim C1 As Integer, C2 As Integer
r = ""
If Len(P) > 0 Then
For i = 1 To Len(S)
C1 = Asc(Mid(S, i, 1))
If i > Len(P) Then
C2 = Asc(Mid(P, i Mod Len(P) + 1, 1))
Else
C2 = Asc(Mid(P, i, 1))
End If
C1 = C1 + C2 + 64
If C1 > 255 Then C1 = C1 - 256
r = r + Chr(C1)
Next i
Else
r = S
End If
TextEncript = r

End Function

'Desencripta una cadena de caracteres.
'S = Cadena a desencriptar
'P = Password
Public Function TextDecript(ByVal S As String, Optional ByVal P As String = "123456789abcde") As String
Dim i As Integer, r As String
Dim C1 As Integer, C2 As Integer
r = ""
If Len(P) > 0 Then
For i = 1 To Len(S)
C1 = Asc(Mid(S, i, 1))
If i > Len(P) Then
C2 = Asc(Mid(P, i Mod Len(P) + 1, 1))
Else
C2 = Asc(Mid(P, i, 1))
End If
C1 = C1 - C2 - 64
If Sgn(C1) = -1 Then C1 = 256 + C1
r = r + Chr(C1)
Next i
Else
r = S
End If
TextDecript = r
End Function

luego si quieres encriptar un text1 por ejemplo

Código:

TextEncript(text1.text)

para desencriptar

Código:

TextDecript(text1.text)

una aclaracion, esto lo llamamos encriptar, pero el nombre correcto es OFUSCAR, ya que la encriptacion no tiene lookup.

salu2 y espero te haya servido.