Guest Gast

Code (perl): (dl )

1
2
3
4
5

        # was hier noch passiert, kann ich dir leider auch nicht sagen:
        while ( $w-- + 1 ) {
                ( $r, $t ) = $r->bdiv(256);
                $u = pack( 'C', $t->bstr ) . $u;
        } # while

Was da passiert, ist, dass die letzten $w+1 Bytes von $r vorne an $u angefügt werden.

(Warst Du jetzt eigentich derselbe Gast?)