Wie generiert Ihr eine 8 Bit Prüfsumme ? (gelöst) (Allgemeines zu Perl)

[thread]16455[/thread]

Wie generiert Ihr eine 8 Bit Prüfsumme ? [gelöst]

Tags: perl5 unpack 8Bit checksum Ähnliche Threads

Leser: 33

Articles: hide open all | hide show old branches

+10 replies
wollik

2011-06-24 17:33

User since
2005-02-04
21 Artikel
BenutzerIn

Hallo ins Forum,
bitte kann mir jemand bei meinem Problem zum Generieren einer Checksumme aus einem ASCII String helfen ?

Mittels:

$checksum = unpack("%8C*", "*010 3 476.8 9.84 4691 240.4 16.48 3973 50 3937 "); generiere ich mir einen 8 Bit Wert. Diesen Wert wandle ich dann in ein ASCII Zeichen mittels:
"$ascii = chr($checksum);" um und sollte "æ" (Wert für 145) heraus bekommen ich bekomme aber immer "µ" (Wert für 230) heraus?

Was mache ich dabei falsch ?

Hier die Beschreibung wie die Checksumme zu generiern ist:

Für die Prüfsumme werden die ASCII-Werte der Zeichen von „*“ einer Zeile bis einschließlich Leerzeichen nach dem Ertrag aufaddiert
und als ASCII-Wert mit ausgegeben. Zur Berechnung der Prüfsumme wird für Addition und Anzeige nur 1 Byte verwendet und somit die
Überläufe mit verwendet.

Ich habe schon verschiedene Möglichkeiten versucht, aber ich komme immer auf 230.

Für Eure Hilfe wäre ich sehr dankbar
WolliK
- +2 replies
- rosti
  
  2011-06-24 19:48
  
  User since
  2011-03-19
  3478 Artikel
  BenutzerIn
  
  Die Verwendung der Schablone "%8C*" in Deinem Code ist mir unverständlich. Was möchtest Du damit eigentlich bezwecken?
  
  unpack() nimmt einen $String als Argument und gibt eine @Liste zurück. Btw, das µ hat den Codepoint B5(dez.: 181, und das æ hat den Codepoint E6(dez.: 230), beide Zeichen sind kein ASCII.
  - murphy
    
    2011-06-24 20:01
    
    User since
    2004-07-19
    1776 Artikel
    HausmeisterIn
    
    2011-06-24T17:48:56 rosti
    Die Verwendung der Schablone "%8C*" in Deinem Code ist mir unverständlich.
    [...]
    
    Dann würde sich die Lektüre von -f unpack empfehlen, da steht drin, dass das Präfix "%" plus eine natürliche Zahl n in der Schablone die Berechnung einer n Bit breiten Prüfsumme über das folgende zu entpackende Feld veranlasst.
    When C++ is your hammer, every problem looks like your thumb.
- +5 replies
- murphy
  
  2011-06-24 20:08
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  Ich denke, der Fehler ist, dass die Prüfsumme über die gesamten Eingabezeichenkette gebildet wird statt nur über den Teil zwischen dem "*" und dem folgenden " ". Folgendes zum Beispiel produziert wie gewünscht die Ausgabe 145:
  
  Code (perl): (dl )
  
  1 2
  
  my $str = "*010 3 476.8 9.84 4691 240.4 16.48 3973 50 3937 "; say unpack("%8C*", ($str =~ /\*([^ ]+) /)[0])
  
  Es stellt sich mir allerdings auch noch die Frage, ob 145 wirklich das gewünschte Ergebnis ist. Es entspricht nämlich nicht der Spezifikation, welche da festlegt, dass eine Prüfsumme
  Quote
  [...] von „*“ einer Zeile bis einschließlich Leerzeichen [...]
  gebildet werden soll. Demnach müsste man das Leerzeichen noch mit in der Prüfsumme verrechnen (in meinem Beispielcode könnte man dazu einfach die Klammer im regulären Ausdruck hinter das Leerzeichen verschieben) und das Ergebnis wäre im angegebenen Beispiel nicht mehr 145 sondern 177.
  When C++ is your hammer, every problem looks like your thumb.
  - +4 replies
  - wollik
    
    2011-06-25 11:47
    
    User since
    2005-02-04
    21 Artikel
    BenutzerIn
    
    Hallo Mruphy,
    D A N K E das war's.
    Die Strings, für die die Prüfsumme gebildet werden sollen haben immer die feste Länge von 56 Bytes, also inclusive des letzten Leerzeichens. Über diese 56 Byetes wird dann die Prüfsumme gebildet und an den String angehängt.
    
    Bitte könntest Du uns hier im Forum noch erklären was Deine REGEX mit dem String $str macht ? Ich komme nicht dahinter wieso wir das machen müssen, denn in $str stehen doch diese 56 Zeichen ?
    
    Nochmals vielen Dank
    WolliK
    Last edited: 2014-04-17 16:17:44 +0200 (CEST)
    - +2 replies
    - wollik
      
      2011-06-25 12:03
      
      User since
      2005-02-04
      21 Artikel
      BenutzerIn
      
      Hallo Murphy,
      leider bekomme ich mit Deinem REGEX Vorschlag nun auch für andere Strings immer 145.
      
      Die Strings sind immer 56 Bytes lang inclusive dem "*" und dem letzten " " Zeichen. Darüber soll eine 8 Bit Prüfsumme gebildet werden und dann dieses Byte an den String als 57. Byte angehängt werden.
      
      Hier einmal eine Liste mit Daten und der richtigen Prüfsumme:
      
      "*010 3 329.9 9.97 3289 238.7 12.74 3045 50 3921 " # --> "Þ"
      "*010 3 542.5 9.88 5359 242.9 19.08 4641 50 3923 " # --> "Ý"
      "*010 3 317.8 9.99 3174 237.9 12.42 2956 50 3927 " # --> "á"
      "*010 3 586.5 9.90 5806 244.5 21.12 5170 50 3931 " # --> "Ê"
      "*010 3 324.5 9.95 3228 238.7 12.66 3025 50 3935 " # --> "Ð"
      "*010 3 476.8 9.84 4691 240.4 16.48 3973 50 3937 " # --> "æ"
      "*010 4 497.8 9.87 4913 242.1 17.70 4291 51 3941 " # --> "Û"
      
      Nur die vorletzte Zeile sollte 145 also "æ" erzeugen.
      
      Bitte hast du dazu noch eine Idee ?
      
      Viele Grüße
      WolliK
      
      Last edited: 2011-06-25 14:01:53 +0200 (CEST)
      - wollik
        
        2011-06-25 22:23
        
        User since
        2005-02-04
        21 Artikel
        BenutzerIn
        
        Hallo ins Forum,
        sorry die Prüfsumme von 230 ist o.k., allo Alles wird richtig errechnet!
        Ich hatte mich durch die falsche Darstellung in meiner Dosbox, die ein "μ" anstelle von einem "æ" anzeigt täuschen lassen und hatte in der DOS Zeichensatztabelle das "μ" Zeichen gesucht, das dort unter 145 steht, weshalb ich glaubte, dass die Prüfsumme 145 für den gegebenen String ergeben müsste.
        
        Die Beispiele wurden aber im ANSI-Zeichensatz (Windows) als Beispiel für die Prüfsummenberechnung einiger Datensätze darestellt.
        
        Sorry nochmals und D a n k e Euch Allen
        WolliK
    - murphy
      
      2011-06-26 17:21
      
      User since
      2004-07-19
      1776 Artikel
      HausmeisterIn
      
      2011-06-25T09:47:46 wollik
      [...]
      Bitte könntest Du uns hier im Forum noch erklären was Deine REGEX mit dem String $str macht ?
      [...]
      
      Mein Code extrahiert aus dem String den Teil zwischen dem ersten "*" und dem ersten darauffolgenden " ", bei Deinen Beispieldaten wir die Prüfsumme also nur über die Zeichenkette "010" berechnet.
      When C++ is your hammer, every problem looks like your thumb.
- +2 replies
- rosti
  
  2011-06-24 20:47
  User since
  2011-03-19
  3478 Artikel
  BenutzerIn
  Ich komme auch auf 230 mit folgender Gegenrechnung:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  my @x = unpack("C*", "*010 3 476.8 9.84 4691 240.4 16.48 3973 50 3937 "); my $sum = 0; for(@x){$sum += $_;} # 2278 $sum %= 256; # 8-Bit-Überträge rausrechnen print $sum; # 230
  
  D.h.: Dein Code macht genau das was er soll.
  
  --Rosti
  - wollik
    
    2011-06-25 11:56
    
    User since
    2005-02-04
    21 Artikel
    BenutzerIn
    
    Hallo Rosti,
    JA diese Zusammenzählen und andere Schleifen habe ich auch schon versucht und komme immer wie Du auf 230.
    Murphy manipuliert den Eingabestring bevor er die Prüfsumme bildet und kommt an das Ergebniss das ich brauche.
    Evtl. wurde von den Protokollentwicklern die Prüfsummenberechnung nur falsch beschrieben wie auch immer muss ich als Prüfsummenbyte bei diesem genannten String eine 145 schicken, was dank Murphy jetzt auch funktioniert.
    
    Vielen Dank
    WolliK

View all threads created 2011-06-24 17:33.