Ver Mensaje Individual
  #8 (permalink)  
Antiguo 21/08/2009, 16:19
DesarrolladorNet
 
Fecha de Ingreso: julio-2009
Mensajes: 5
Antigüedad: 14 años, 9 meses
Puntos: 0
Respuesta: Encriptar y desencriptar pass con c#

Cita:
Iniciado por pyroCL Ver Mensaje
Hola...

Necesito encriptar un password y guardarlo en una bs y luego desencriptarlo...

Como hago para trabajar con estos?

Alguna idea?
Saludos!
Amigo:
aca te dejo 2 metodos para encriptar y otro para desencriptar
estan en visual basic .net, si lo necesitas a C# solo cambiale la sintaxis

ojalas te sirva saludos

Function Encripta(ByVal Texto As String) As String
Dim Clave As String, i As Integer, Pass2 As String
Dim CAR As String, Codigo As String
Clave = "%ü&/@#$A"
Pass2 = ""

For i = 1 To Len(Texto)
CAR = Mid(Texto, i, 1)
Codigo = Mid(Clave, ((i - 1) Mod Len(Clave)) + 1, 1)
Pass2 = Pass2 & Microsoft.VisualBasic.Strings.Right("0" & Hex(Asc(Codigo) Xor Asc(CAR)), 2)
Next i
Encripta = Pass2
End Function


Function DesEncripta(ByVal Texto As String) As String
Dim Clave As String, i As Integer, Pass2 As String
Dim CAR As String, Codigo As String
Dim j As Integer

Clave = "%ü&/@#$A"
Pass2 = ""
j = 1
For i = 1 To Len(Texto) Step 2
CAR = Mid(Texto, i, 2)
Codigo = Mid(Clave, ((j - 1) Mod Len(Clave)) + 1, 1)
Pass2 = Pass2 & Chr(Asc(Codigo) Xor Val("&h" + CAR))
j = j + 1
Next i
DesEncripta = Pass2
End Function