Enlaces patrocinados:

Trucos de Visual Basic 6.0 Encriptar y desencriptar cadenas

'Encripta una cadena de caracteres.
'S = Cadena a encriptar
'P = Password
Function EncryptStr(ByVal S As String, ByVal P As String) 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
EncryptStr = R
End Function


'Desencripta una cadena de caracteres.
'S = Cadena a desencriptar
'P = Password
Function UnEncryptStr(ByVal S As String, ByVal P As String) 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
UnEncryptStr = R
End Function
NUEVO: Si tienes dudas de informática pregunta en nuestros foros

Comentarios sobre Encriptar y desencriptar cadenas

Ema dice:

Gracias, me sirvio.
Comentario publicado 13/04/2010 6:38:00
locomalo dice:

gracias loco... me sirvió de mucho...
Comentario publicado 28/04/2010 16:33:00
Carlos dice:

programa
Comentario publicado 14/05/2010 14:21:00
camila dice:

no me sirvio
Comentario publicado 22/10/2010 14:07:00
john dice:

ese codigo en donde lo coloco? y qeu objetos inserto?
Comentario publicado 24/11/2010 22:11:00
Pedro Chacin dice:

Bueno: La función la colocas donde quieres encryptar o desencryptar un texto. Ejemplo: para encryptar el texto que está en un text1: P = "F" MENSAJE = EncryptStr(Text1.Text, P) Text1.Text = MENSAJE Luego para pasar el texto desencryptado a un text2: Text2.Text = UnEncryptStr(Text1.Text, "F")
Comentario publicado 06/12/2010 19:44:00
Mauricio dice:

Grande! me sirvio mxo
Comentario publicado 19/01/2011 2:59:00
sarita dice:

holaa muchas graciasss...exelente aporte...me gustaria preguntarte algo..... como quedaria en el form1 ??? se pondrian 2 textbox y un button?
Comentario publicado 28/03/2011 15:08:00
Armnado dice:

Esas mismas funciones como serían en c#?
Comentario publicado 08/08/2011 21:29:00
Chats dice:

buen aporte gracias....
Comentario publicado 01/09/2011 19:40:00
Edwin dice:

Excelente .... como decimos en Costa Rica cuando algo esta muy bueno .... "Pura Vida"
Comentario publicado 26/12/2011 22:07:00
Dejar un comentario
Nombre:

Mail:

Web:

Comentario:

Código de seguridad

Captcha

Inserta el código de seguridad