Hallo, ich hab auf meinem PC noch ein altes Silkroad Bot Projekt das in VB6 erstellt wurde und wollte diese nun in VB.NET oder C# nachmachen, aber ich hab Probleme beim Übersetzen dieser beiden Funktionen:
Würde mich sehr freuen, wenn mir jemand dabei helfen könnte!
Code:
Public Function HexToString(sMessage As String) As String
Dim i As Integer
For i = 1 To Len(sMessage) Step 2
HexToString = HexToString & Chr(Int("&h" & Mid(sMessage, i, 2)))
Next
End Function
Private Function longToHex(l As Long) As String
longToHex = Hex(l)
If Len(longToHex) < 4 Then longToHex = String(4 - Len(longToHex), "0") & longToHex
longToHex = Right(longToHex, 2) & Left(longToHex, 2)
End Function