encriptacion de datos

[Ka0stj]

Hola marinella

Para encriptar texto puedes utilizar estas funciones que encontré en alguna ocasión por la web:

Código vb:

Public Function EncryptText(ByVal strText As String, ByVal strPwd As String)
        Dim i As Integer, C As Integer
        Dim strBuff As String = ""
 
        strPwd = UCase$(strPwd)
 
        'Encrypt string
        If Len(strPwd) Then
            For i = 1 To Len(strText)
                C = Asc(Mid$(strText, i, 1))
                C = C + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
                strBuff = strBuff & Chr(C And &HFF)
            Next i
        Else
            strBuff = strText
        End If
        EncryptText = strBuff
 
    End Function
 
    'Decrypt text encrypted with EncryptText
    Public Function DecryptText(ByVal strText As String, ByVal strPwd As String)
        Dim i As Integer, C As Integer
        Dim strBuff As String = ""
 
        strPwd = UCase$(strPwd)
 
        'Decrypt string
        If Len(strPwd) Then
            For i = 1 To Len(strText)
                C = Asc(Mid$(strText, i, 1))
                C = C - Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
                strBuff = strBuff & Chr(C And &HFF)
            Next i
        Else
            strBuff = strText
        End If
        DecryptText = strBuff
 
    End Function
 

En cuanto a encriptar datos de tu base de datos echale un ojo al siguiente enlace:

http://gerardoramosun.wordpress.com/...l-server-2005/

Saludos!