Abend, ich hab mal wieder Probleme beim übersetzten von C# nach VB. Ich lasse einen Online Konverter folgenden Code nach VB konvertieren:
Die Konvertierung erfolgt ohne Fehler jedoch zeigt Visual Studios bei diesem Code einen Fehler an:
Ich erhalte folgenden Fehler:
Gruß und Danke im voraus, Wanted. :wacko:
Quellcode
- public string Encipher(string sData)
- {
- StringBuilder sbResult = new StringBuilder(sData.Length * 2);
- for (int a = 0; a < sData.Length; a++)
- {
- byte k = MixTable();
- int c = sData[a] & 0xff ^ k;
- if (c > 0)
- {
- sbResult.Append(HEXALPHABET_CHARS[c >> 4 & 0xf]);
- sbResult.Append(HEXALPHABET_CHARS[c & 0xf]);
- }
- else
- {
- sbResult.Append("00");
- }
- }
- return sbResult.ToString();
- }
Die Konvertierung erfolgt ohne Fehler jedoch zeigt Visual Studios bei diesem Code einen Fehler an:
VB.NET-Quellcode
- Public Function Encipher(sData As String) As String
- Dim sbResult As New StringBuilder(sData.Length * 2)
- For a As Integer = 0 To sData.Length - 1
- Dim k As Byte = MixTable()
- Dim c As Integer = sData(a) And &Hff Xor k 'Fehler ist von sData(a) bis vor Xor
- If c > 0 Then
- sbResult.Append(HEXALPHABET_CHARS(c >> 4 And &Hf))
- sbResult.Append(HEXALPHABET_CHARS(c And &Hf))
- Else
- sbResult.Append("00")
- End If
- Next
- Return sbResult.ToString()
- End Function
Ich erhalte folgenden Fehler:
Ich weiß nicht weiter, hab schon manches versucht, was muss ich tun? Der Fehler tritt an mehreren Stellen mit ähnlicher Struktur auf:Der And-Operator ist für die Typen "Char" und "Integer" nicht definiert.
*HEXALPHABET_CHARS(D) = (A And &HFF)
-Der And-Operator ist für die Typen "Char" und "Integer" nicht definiert.
*val__2(x) - 64
-Der --Operator ist für die Typen "Char" und "Integer" nicht definiert.
*raw(pos) And 4
-Der And-Operator ist für die Typen "Char" und "Integer" nicht definiert.
*raw(pos) >> 3
-Der >>-Operator ist für die Typen "Char" und "Integer" nicht definiert.
Gruß und Danke im voraus, Wanted. :wacko: