schon aber ich sagte dir perdoc -f pack und dort wird dir erklärt wie man da viele bytes auf einmal umformen kann wie gesagt xor ist die andere möglichkeit( einfache $ergebnis = $sring xor $schlüssel, aufpassen mit den längen.). ausserdem würde ich ganz zu begin $datei = shift; schreiben, so brauchst du nicht die ganze zeit $_[0] schreiben und der code wird einiges lesbarer. oder my ($input_file, $output_file) = @ARGV; dann fürde ich benchmark nehmen und das script von dir wird dann so klein das du keine extra subroutinen für jeden schritt brauchst auch die riesen kommentarkästen sind doch etwas überdimensioniert. es macht viel aus so viel wie möglich code überblicken zu können.\n\n

<!--EDIT|lichtkind|1144449836-->