O YLc @sVdZdZdZdZdZdZdZdZdZd Z e d krRd Z d Z ee Z e d dde gkrednedddgZeeZeeZeekredneddddddddgZdZeeeeedgZeeddddddddgkrhednddlZegZx-edD]ZejejddqWdZeedZeeZeeeZeeeZ ee!e dkredneddd ed d!d e"d!d"Z#e#j$Z%e#j&e%ed#d$krxed%ned&d'd(e"d'd"Z#e#j$Z%e#j&e%ed)d$kred*ned&d+d,e d,d-e"d+d"Z'e'j$Z(e'j&e"d-d"Z)e)j$Z*e)j&e(e*krRed.qRndS(/u Das Modul stellt Funktionen und Prozeduren bereit, um Bytes in den Least-Significant-Bits von Pixeldaten-Bytes zu verstecken. c CsGd}t|}d}|||d}|||t|ddddkritdnd}x+||dkr||||d}qrW|}x+||dkr||||d}qW|}tt|||d}x+||dkr#||||d}qW|}x+||dkrW||||d}q-W|}tt|||d}x+||dkr||||d}qW|}x+||dkr||||d}qW|}tt|||d}||dkr#td n||dd }||||gS(u liefert zu den Bytes s (bytes) einer ppm-Datei [Breite w (int), Höhe h (int), Farbtiefe mv (int), Liste der Pixeldaten (bytes)] cSs[||tdkrW|}x||dkr<|d}qW|}|||d=ndS(u löscht in s (bytearray), wenn Byte Nummer i (int) gleich ord('#') ist, alle Bytes bis zum ersten Auftreten von ord(' ')==13 oder ord(' ')==10 einschließlich u#i i iN(i i (uord(usuiuacuec((u$/home/mk/Desktop/stegano/stegano1.pyu skipcommentsiiiuASCIIuP6uFehler in magic numberi i i i u%Fehler in single whitespace characterN(i i i i (i i i i (i i i i (i i i i (i i i i (i i i i (i i i i (u bytearrayustru RuntimeErroruint( usu skipcommentuiuaueuwuhumvud((u$/home/mk/Desktop/stegano/stegano1.pyuppmDaten s\          cCsytd}t|}xZt|D]L}||}x9tdD]+}|t|d@dg}|d}qBWq%W|S(uZ liefert zum a (bytes) das zugehörige b (bytes), das die Einzelbits enthält iiii(ubytesulenurange(uaubunuiuhuj((u$/home/mk/Desktop/stegano/stegano1.pyu Bytes2BitsXs     cCstd}t|d}xt|D]}d||dd||ddd||ddd||dd d||dd d ||dd d||dd d||dd }|t|g}q)W|S(u? baut aus b (bytes) der Einzelbits a (bytes) der Bytes iiii@ii iiiiiii(ubytesulenurange(ubuaunuiuh((u$/home/mk/Desktop/stegano/stegano1.pyu Bits2Bytesfs  cCspt|}t|}td}x1t|D]#}|j||d@||q1W|||d}|S(u liefert c (bytearray) zurück, das aus a (bytes) entsteht, wenn das LSB jeweils entsprechend b (bytes) gewählt wird iiN(u Bytes2Bitsulenu bytearrayurangeuappend(uaubuhunucui((u$/home/mk/Desktop/stegano/stegano1.pyu encodeLSBrs    !cCstd}xt|D]}d||ddd||dddd||dddd||dd dd||dd dd ||dd dd||dd dd||dd d}|t|g}qW|S(ud liefert b (bytes) der Länge n (int) zurück, dessen Bytes aus den LSBs von a bestehen iiiii@ii iiiiii(ubytesurange(uaunubuiuh((u$/home/mk/Desktop/stegano/stegano1.pyu decodeLSBs   c Cst|d}|j}|jt|\}}}}t|d}|j} |jt|| } tdt|dt|dt|dd} t|d}|j| |j| |jdS(u erzeugt aus einer ppm-Datei ppm1 (str) und einer Datendatei daten (str) eine ppm-Datei ppm2 (str), die die Daten enthält urbuP6 u u uASCIIuwbN(uopenureaducloseuppmDatenu encodeLSBubytesustruwrite( uppm1udatenuppm2udateiusubuhuftupdatenundatenusdatenuheader((u$/home/mk/Desktop/stegano/stegano1.pyu encodePPMs    9  c Csvt|d}|j}|jt|\}}}}t||} t|d}|j| |jdS(ue extrahiert aus einer ppm-Datei ppm (str) eine Datendatei daten (str) der Länge n (int) urbuwbN(uopenureaducloseuppmDatenu decodeLSBuwrite( uppmudatenunudateiusubuhuftupdatenundaten((u$/home/mk/Desktop/stegano/stegano1.pyu decodePPMs   cCs5t|d}|j}|jt|\}}}}t|d}|j} |jt| } t| } x t| dkrd| } q}Wt| d} | | } t|| } tdt|dt|dt|dd} t|d}|j| |j| |jd S( u erzeugt aus einer ppm-Datei ppm1 (str) und einer Datendatei daten (str) eine ppm-Datei ppm2 (str), die die Daten enthält, dabei sind die ersten 6 Bytes die Anzahl der Nutzdaten in ASCII-Ziffern urbiu0uASCIIuP6 u u uwbN( uopenureaducloseuppmDatenulenustrubytesu encodeLSBuwrite(uppm1udatenuppm2udateiusubuhuftupdatenundatenunuheaduheaderusdaten((u$/home/mk/Desktop/stegano/stegano1.pyuhidePPMs(       9  c Cst|d}|j}|jt|\}}}}ttt|dd}t||ddd} t|d}|j| |jdS(u extrahiert aus einer ppm-Datei ppm (str) eine Datendatei daten (str), dabei wird erwartet, dass die ersten 6 Bytes der Daten die Groesse der Datendatei in ASCII-Ziffern angibt urbiuASCIINuwb(uopenureaducloseuppmDatenuintustru decodeLSBuwrite( uppmudatenudateiusubuhuftupdatenunundaten((u$/home/mk/Desktop/stegano/stegano1.pyu discoverPPMs   u__main__sTP# seltsam 6 # CREATOR: GIMP PNM Filter Version 1.1 6 1 25#1234 5 siiiu ppmDaten okiAiiBuBytes2Bits, Bits2Bytes okiu01001101iuencodeLSB, einfach okNiuHallö Welt!€€€uutf8uencodeLSB, decodeLSB oku spec5.ppmuabc.txtu spec6.ppmuabc1.txturbuqwertzuASCIIu encodePPM oku staufine.ppmu daten0.txtiuLK12u decodePPM oku daten1.txtu staufine2.ppmu daten2.txtuhidePPM, discoverPPM ok(+u__doc__uppmDatenu Bytes2Bitsu Bits2Bytesu encodeLSBu decodeLSBu encodePPMu decodePPMuhidePPMu discoverPPMu__name__usupduduprintubytesuaubucu bitmusteruinturandomu bytearrayurangeuiuappendurandintustuinhaltulenunuenudeustruopenudateiureadudatucloseudatei1udat1udatei2udat2(((u$/home/mk/Desktop/stegano/stegano1.pyusx O            $!*