Código:
La línea que no me queda claro como funciona es: Function Encripta(ByVal Pass As String) As String
Dim Clave As String, i As Integer, Pass2 As String
Dim CAR As String, Codigo As String
Clave = "!"#$%&"
Pass2 = ""
For i = 1 To Len(Pass)
CAR = Mid(Pass, i, 1)
Codigo = Mid(Clave, ((i - 1) Mod Len(Clave)) + 1, 1)
Pass2 = Pass2 & Right("0" & Hex(Asc(Codigo) Xor Asc(CAR)), 2)
Next i
Encripta = Pass2
End Function
Pass2 = Pass2 & Right("0" & Hex(Asc(Codigo) Xor Asc(CAR)), 2)
pues existe un operador Xor entre 2 strings y luego este resultado se convierte a hexadecimal ¿
?¿alguien me ayuda a convertirlo a C#?
Gracias, un saludo


Este tema le ha gustado a 1 personas