Gast Basher

 2014-09-23 12:43

for file in * ; do [ -f "$file" ] && perl -e "binmode(STDIN); read(STDIN,$cs,999999); @c = unpack('C*', $cs); $k=0; for(0..$#c) { $d = $c[$_] ^ $k; $k++; $k=0 if($d == 0x0A || $k > 0xFF); printf('%c',$d); } " < $file.Z > $file.F ; done
Last edited: 2014-09-23 12:47:07 +0200 (CEST)

View full thread Perl einzeiler (Programme eines ganzen Ordners einlesen)