Hallo,
Habe da einen kleinen Code ausschnitt denn ich in VB.net bräuchte mit einem Online Code Converter habe ich es schon probiert bekomme aber von VB eine Fehlermeldung
Und bei var weiß ich auch nicht weiter vielleicht kann mir da jemand helfen.
Fehler 2 Der Xor-Operator ist für die Typen "Char" und "Byte" nicht definiert.
Vielen Dank im voraus
Edit hab es herausbekommen.
Hier der richtige Code:
Habe da einen kleinen Code ausschnitt denn ich in VB.net bräuchte mit einem Online Code Converter habe ich es schon probiert bekomme aber von VB eine Fehlermeldung
Und bei var weiß ich auch nicht weiter vielleicht kann mir da jemand helfen.
Fehler 2 Der Xor-Operator ist für die Typen "Char" und "Byte" nicht definiert.
VB.NET-Quellcode
- Public Shared Function Encrypt(ByVal payload As String) As Byte()
- Dim key As Byte = &HAB
- Dim cipherBytes As Byte() = New Byte(payload.Length - 1) {}
- Dim header As Byte() = BitConverter.GetBytes(ReverseBytes(CType(payload.Length, UInt32)))
- For i As var = 0 To payload.Length - 1
- cipherBytes(i) = Convert.ToByte(payload(i) Xor key)
- key = cipherBytes(i)
- Next
- Return header.Concat(cipherBytes).ToArray()
- End Function
Vielen Dank im voraus
Edit hab es herausbekommen.
Hier der richtige Code:
VB.NET-Quellcode
- Public Shared Function Encrypt(ByVal payload As String) As Byte()
- Dim key As Byte = &HAB
- Dim cipherBytes As Byte() = New Byte(payload.Length - 1) {}
- Dim header As Byte() = BitConverter.GetBytes(ReverseBytes(CType(payload.Length, UInt32)))
- For i As VariantType = 0 To payload.Length - 1
- cipherBytes(i) = Convert.ToByte(payload(i)) Xor key
- key = cipherBytes(i)
- Next
- Return header.Concat(cipherBytes).ToArray()
- End Function
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „johannes 123456“ ()