Perl konvertieren binären Stream zu hex

Question

Das Problem, das ich habe, ist, wenn ich ein Perl-Skript lesen Daten (PE Executable) über STDIN und der Stream enthält einen Zeilenabschluss "0A" die Konvertierung in Hex fehlt. Dann, wenn ich die Hex-Daten zurückkonvertiere, ist es beschädigt (fehlende 0A im Hex-Format). Wie kann ich die "Windows" Version des Zeilenvorschubs "0A" in Perl erkennen?

Hinweis: Linux-Betriebssystem (Perl) liest ein Windows PE

!usr/bin/perl 

while($line = <STDIN>) 
{ 
    chomp($line); 
    @bytes = split //, $line; 
    foreach (@bytes) 
    { 
     printf "%02lx", ord $_; 
    } 
} 

Anwendungsbeispiel:

[root@mybox test]# cat test.exe | perl encoder.pl > output 

Answer 1

In der Schleife, die ausgeführt werden chomp auf jeder Eingangsleitung. Dadurch wird der aktuelle Wert $/ vom Ende der Zeile entfernt. Wahrscheinlichkeiten sind 0x0a, und das ist, wo der Wert geht. Versuchen Sie, chomp($line) aus Ihrer Schleife zu entfernen.

Im Allgemeinen ist die Verwendung von zeilenorientiertem Lesen für binäre Dateien, die selbst nicht zeilenorientiert sind, nicht sinnvoll. Sie sollten sich die Funktion read auf der unteren Ebene ansehen, mit der Sie einen Block von Bytes aus der Datei lesen können, ohne sich darum kümmern zu müssen, um welche Bytes es sich handelt. Sie können Ihre Daten dann in Blöcken statt in Zeilen verarbeiten.

Answer 2

#With split 
cat magic.exe | perl -e 'print join("", map { sprintf("\\x%02x", ord($_)) } split(//, join("", <STDIN>)))' > hex_encoded_binary 

#With pack 
cat magic.exe| perl -e 'print join("", map { "\\x" . $_ } unpack("H*", join("", <STDIN>)) =~ /.{2}/gs)' > hex_encoded_binary