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