Perl Konvertierung von Binär-stream an hex

Das problem, das ich habe ist, wenn ich ein Perl-Skript zum Auslesen der Daten (PE EXE-Datei) über STDIN und der stream enthält ein Zeilenende-Zeichen "0A" bei der Konvertierung zu hex findet es. Wenn ich dann konvertieren des hex-Daten zurück, es beschädigt ist (fehlende 0A in hex-format). Also, wie kann ich erkennen, das "windows" - version von line feed "0A" in Perl?

Hinweis: unter dem Betriebssystem Linux (Perl) ist das Lesen einer Windows-PE -

!usr/bin/perl

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

Beispiel:

[root@mybox test]# cat test.exe | perl encoder.pl > output
InformationsquelleAutor ekronnenburg | 2010-11-23
  1. 6

    In der Schleife sind, laufen Sie chomp auf jeden Eingang. Dies ist das entfernen, was der Wert ist derzeit in $/ vom Ende der Zeile. Chancen sind, ist dies 0x0a, und das ist, wo der Wert hingeht. Versuchen Sie chomp($line) aus der Schleife.

    Im Allgemeinen, mit der Linie orientiert sich das Lesen nicht sinnvoll für binäre Dateien, die sich nicht zeilenorientiert. Sie sollten einen Blick auf die untere Ebene read - Funktion, die ermöglicht Ihnen das Lesen einen block von bytes aus der Datei, ohne dass man sich was diese bytes sind. Sie können dann Ihre Daten in Blöcken statt Linien.

    • Wow, das ist peinlich. Ich tauchte gerade in messing mit binmode() und gar nicht sehen, die chomp.
    • Auch finden Sie unpack('H*', $binary_string) ist sehr effizienter als split und printf '%02x'.
    • eine änderung#!/usr/bin/perl-binmode(STDIN); while(<STDIN>) { #print $_; push(@Byte,$_); } foreach (@bytes) { printf "%02lx", ord $_; }
    • Mit der code-änderung binmod + entfernen chomp stream bricht
    • Verifiziert chomp entfernt den 0a von der encoding-stream allerdings muss ich einfügen die folgenden charachters '\x' pro hex set zB 0d0d0a24 wäre \x0d\x0d\x0a\x24 irgendwelche Vorschläge, wie dies zu tun würde geschätzt werden.
    • es gibt mehrere Möglichkeiten, dies zu tun, was genau wollen Sie tun?

    InformationsquelleAutor Eric Strom
  2. 1
    #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
    InformationsquelleAutor ph1g
Schreibe einen Kommentar