Hilfe mit Byteverschiebung

Question

Ich muss eine Textdatei byte-shift. Ich weiß absolut nichts über Perl, aber ich fand ein perfekt funktionierendes Stück Code in Perl namens moz-byteshift.pl (documentation). Das macht genau das, was ich machen möchte, aber ich muss es in C# machen.

Hier ist der Quellcode der Perl-Datei:

#!/usr/bin/perl 

# To perform a byteshift of 7 
# To decode: moz-byteshift.pl -s -7 <infile >outfile 
# To encode: moz-byteshift.pl -s 7 <infile >outfile 

# To perform a byteshift of 13 
# To decode: moz-byteshift.pl -s -13 <infile >outfile 
# To encode: moz-byteshift.pl -s 13 <infile >outfile 

use encoding 'latin1'; 
use strict; 
use Getopt::Std; 

use vars qw/$opt_s/; 

getopts("s:"); 
if(!defined $opt_s) { 
    die "Missing shift\n"; 
} 

my $buffer; 
while(1) { 
    binmode(STDIN, ":raw"); 
    my $n=sysread STDIN, $buffer, 1; 
    if($n == 0) { 
    last; 
    } 
    my $byte = unpack("c", $buffer); 
    $byte += 512 + $opt_s; 
    $buffer = pack("c", $byte); 
    binmode(STDOUT, ":raw"); 
    syswrite STDOUT, $buffer, 1; 
} 

Wenn jemand zumindest könnte erklären, wie der Perl-Skript funktioniert, das wäre toll. Beispielcode des Äquivalents in C# wäre besser. =)

Danke für die Hilfe.

Answer 1

Was der Code tut ist dies: Lesen Sie jedes Byte von Standard-Eingang eins nach dem anderen (nach dem Umschalten in den Rohmodus, so dass keine Übersetzung auftritt). Der Entpacker erhält den Byte-Wert des gerade gelesenen Zeichens, so dass eine '0' gelesen zu 0x30 wird. Die Codierung latin1 ist so gewählt, dass diese Konvertierung konsistent ist (siehe z. B. http://www.cs.tut.fi/~jkorpela/latin9.html).

Dann wird der Wert in der Befehlszeile mit der Option -s zusammen mit 512 zu diesem Byte hinzugefügt, um eine Modulo-Operation zu simulieren. Auf diese Weise sind -s 0, -s 256 usw. äquivalent. Ich bin nicht sicher, warum das nötig ist, weil ich angenommen hätte, dass das folgende Rudel das erledigt hätte, aber ich denke, dass sie einen guten Grund haben müssen, es dort hinein zu tun.

Schreiben Sie dann das unverarbeitete Byte an den Standardeingang.

Hier ist, was passiert, wenn Sie es auf einer Datei ausgeführt enthält die Zeichen(ich die Daten in dem DATA Abschnitt) setzen:

E:\Test> byteshift.pl -s 1 | xxd 
0000000: 3132 3334 3536 0b      123456. 

Jedes Byte-Wert wird um eins erhöht.

E:\Test> byteshift.pl -s 257 | xxd 
0000000: 3132 3334 3536 0b      123456. 

bleiben 257% 256 = 1. Das heißt:

$byte += $opt_s; 
$byte %= 256; 

zum einzigen Schritt in dem Code verwendet, äquivalent ist.

Viel später: OK, ich weiß nicht, C# aber hier ist, was ich in der Lage war, zusammen mit Online-Dokumentation zusammenzusetzen.Jemand, der C# kennt sollte dieses Problem beheben:

using System; 
using System.IO; 

class BinaryRW { 
    static void Main(string[] args) { 
     BinaryWriter binWriter = new BinaryWriter(
       Console.OpenStandardOutput() 
       ); 
     BinaryReader binReader = new BinaryReader(
       Console.OpenStandardInput() 
       ); 

     int delta; 

     if (args.Length < 1 
       || ! int.TryParse(args[0], out delta)) 
     { 
      Console.WriteLine(
        "Provide a non-negative delta on the command line" 
        ); 
     } 
     else {  
      try { 
       while (true) { 
        int bin = binReader.ReadByte(); 
        byte bout = (byte) ((bin + delta) % 256); 
        binWriter.Write(bout); 
       } 
      } 

      catch(EndOfStreamException) { } 

      catch(ObjectDisposedException) { } 

      catch(IOException e) { 
       Console.WriteLine(e);   
      } 

      finally { 
       binWriter.Close(); 
       binReader.Close(); 

      } 
     } 
    } 
} 

E:\Test> xxd bin 
0000000: 3031 3233 3435 0d0a 0d0a    .... 

E:\Test> b 0 < bin | xxd 
0000000: 3031 3233 3435 0d0a 0d0a    .... 

E:\Test> b 32 < bin | xxd 
0000000: 5051 5253 5455 2d2a 2d2a     PQRSTU-*-* 

E:\Test> b 257 < bin | xxd 
0000000: 3132 3334 3536 0e0b 0e0b     123456.... 

Answer 2

Es gibt nicht viel zu erzählen. Er liest eine Datei ein Byte nach der anderen, passt den Wert jedes Bytes um einen beliebigen Wert an (über das Flag -s angegeben) und schreibt die angepassten Bytes aus. Es ist das binäre Äquivalent der ROT-13-Verschlüsselung einer Textdatei.

Der Rest der Details sind spezifisch wie Perl diese Dinge tut. getopts() ist eine Funktion (aus dem Getopt :: Std-Modul), die Befehlszeilenschalter verarbeitet. binmode() versetzt die Dateihandles in den Raw-Modus, um die Magie zu umgehen, die Perl normalerweise während der I/O-Operationen ausführt. Die Funktionen syread() und syswrite() werden für den Zugriff auf Low-Level-Streams verwendet. Die Funktionen pack() und unpack() werden zum Lesen und Schreiben von Binärdaten verwendet. Perl macht keine nativen Typen.

Das wäre trivial in C neu zu implementieren. Ich würde empfehlen, dies zu tun (und von C# wenn nötig binden), anstatt direkt auf C# zu portieren.

Answer 3

von den anderen Antworten zu urteilen das Äquivalent in C# würde dies etwas wie folgt aussehen:

using(Stream sIn = new FileStream(inPath)) 
{ 
    using(Stream sOut = new FileStream(outPath)) 
    { 
    int b = sIn.ReadByte(); 
    while(b >= 0) 
    { 
     b = (byte)b+1; // or some other value 
     sOut.WriteByte((byte)b); 
     b = sIn.ReadByte(); 
    } 
    sOut.Close(); 
    } 
    sIn.Close(); 
}