Binary to C-Array (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2024-05-05 17:03:04
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
2 Benutzer online

[thread]13304[/thread]

submit to reddit

Binary to C-Array

Leser: 11

Articles: hide open all | hide show old branches

+4 replies
Gast rsr

2009-03-31 15:47

Hi,

gibts eine einfache Möglichkeit, einen Binary String (wie er zB von Digest::MD5 md5() geliefert wird) in die Form "\x83\x87\..." zu bringen, so dass ich ihn direkt in einem C File verwenden kann?

Danke!
- +3 replies
- Taulmarill
  
  2009-03-31 16:49
  User since
  2004-02-19
  1750 Artikel
  BenutzerIn
  Du kannst es dir schon mal einfacher machen, und die Funktion md5_hex verwenden. Dann musst du davon nur noch jeweils zwei Zeichen nehmen und \x davor setzen. So z.B.
  
  Code (perl): (dl )
  
  1 2 3 4
  
  use Digest::MD5 qw/md5_hex/; print "\\x$_" for md5_hex( 'abc' ) =~ /(..)/g; print "\n";
  
  $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
  - +2 replies
  - Gast rsr
    
    2009-03-31 17:22
    
    Prinzipiell ja, nur da beschwert sich der C Compiler natürlich über eine Out of Range Escape Sequence... (wäre einfach zu einfach gewesen ;)
    
    ich muss also definitiv nach jedem Byte wieder ein \x machen...
    - Gast rsr
      
      2009-03-31 17:26
      
      ok Lösung missverstanden... alles klar, danke :)

View all threads created 2009-03-31 15:47.