Berechnung der Prüfsumme ascii
- VB6
Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von thijs83.
-
-
@thijs83:: Das ist kein Protokoll, sondern die Berechnungsvorschrift der Prüfsumme anhand eines Beispiels.bedeutet, dass es sich um Hex-Werte handelt.
bedeutet also rechnerisch Es werden nur die beiden niederwertigen Bytes als Prüfsumme verwendet.Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch
Ein guter .NET-Snippetkonverter (der ist verfügbar).
Programmierfragen über PN / Konversation werden ignoriert! -
Visual Basic-Quellcode
- Sub test()
- Dim pattern As String, CS As String
- Dim message As String, HexPattern As String
- Dim sum As Integer, i As Long
- message = "01HANOVER"
- pattern = Chr$(2) & message & Chr$(3) ' STX - CHR$(2), ETX - CHR$(3)
- For i = 2 To Len(pattern) ' i=2 weil, wie im Beispiel, STX (02) nicht
- sum = sum + Asc(Mid$(pattern, i, 1)) ' für die sum-Berechnung verwendet wird
- Next
- CS = Right$("00" & Hex$(0 - (sum Mod 256)), 2)
- pattern = pattern & CS
- For i = 1 To Len(pattern)
- HexPattern = HexPattern & Right$("00" & Hex$(Asc(Mid$(pattern, i, 1))), 2)
- Next
- Debug.Print HexPattern
- '
- ' Entweder
- ' pattern -----> Com
- ' oder
- ' HexPattern --> Com
- End Sub
-
-
Ähnliche Themen
-
vb_neuling - - Sonstige Problemstellungen
-
3 Benutzer haben hier geschrieben
- Gast (2)
- RodFromGermany (1)
- Eierlein (1)
