Codificar un archivo con vb6.0

[franko1809]

A que formato se puede codificar o encriptar un archivo de texto en vb6.0

[seba123neo]

Hola,tenes muchos algoritmos de encriptación....por decir los mas facmosos SHA-1,MD5...etc...hasta te podes ahcer vos uno propio...pero busca por ahi este modulo clase "clsCrypto" que es de microsoft y esta bastante bueno...es para escriptar y desencriptar archivos....usa api's de encriptación...

saludos.

[franko1809]

gracias por el dato tio ya encontre lo que necesitaba hay muchas opciones a parte del clsCrypto

saludos

[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.

[franko1809]

gracias por el codigo tio ahora lo pruebo

saludos

[aldo1982]

Iniciado por franko1809

gracias por el codigo tio ahora lo pruebo

saludos

de nada, espero sirva.

salu2