Andreas Cloos: macht doch keinen Unsinn!

Das kann einem ja den halben Tag versauen:

<img src="http://www.cloos.li/temp/noforum.jpg" border=0 alt="">

Erschrocken,
Andreas

  1. Hiho,

    Das kann einem ja den halben Tag versauen:
    <img src="http://www.cloos.li/temp/noforum.jpg" border=0 alt="">

    Immer mit die Ruhe. Ich hab doch nur den Apachen geupdatet ;-) Kleiner Admin kann ja
    auch nicht hexen, ne? ;-)

    Gruss,
     CK
     http://wwwtech.de

    --
    s s^s<DATA>se;s (([^\s]))(ord($1)%2?
    chr(ord($1)-5):chr(ord($1)-3))sieg;s s^s$_see;
    __END__
    uwlsy%*Sr%kqdphv%yr%AFN4%dy%zzzyhfm3ihC*1'as'>

    1. Immer mit die Ruhe. Ich hab doch nur den Apachen geupdatet ;-) Kleiner Admin kann ja
      auch nicht hexen, ne? ;-)

      Das Forum ist eine Droge, und du bist der Dealer... ;-)

      1. Hiho,

        Das Forum ist eine Droge, und du bist der Dealer... ;-)

        Hey, psst, komm mal her... ich hab hier, was du suchst. Garantiert orginal, nicht gestreckt!

        ;-)

        Gruss,
         CK
         http://wwwtech.de

        --
        s s^s<DATA>se;s (([^\s]))(ord($1)%2?
        chr(ord($1)-5):chr(ord($1)-3))sieg;s s^s$_see;
        __END__
        uwlsy%*Sr%kqdphv%yr%AFN4%dy%zzzyhfm3ihC*1'as'>

        1. Sup!

          s s^s<DATA>se;s (([^\s]))(ord($1)%2?
          chr(ord($1)-5):chr(ord($1)-3))sieg;s s^s$_see;
          __END__
          uwlsy%*Sr%kqdphv%yr%AFN4%dy%zzzyhfm3ihC*1'as'>

          Ist das http://info.astrian.net/jargon/terms/v/voodoo_programming.html ?

          Meine Perl-Bücher haben mich den Kram schon FAST durchschauen lassen. Das benutzen des Special-Token __END__ und des Filehandles <DATA> ist natürlich ziemlich advanced, der ternäre Operator ? ist auch immer wieder gerne gesehen, und der exzessive Gebrauch von regulären Ausdrücken hoher Komplexität ist eine relative Gemeinheit für reverse engineering Versuche.

          Hast Du Dir das selbst ausgedacht?

          Gruesse,

          Bio

          1. das ist ja wohl der hammer.bei euch gibts immer fun und neuen stoff!

            grüße an alle SELFHTMLer...
            ihr seit spitze weiter so!

            mfg michi

          2. Hiho,

            Nope. Das ist ein JAPH (Just Another Perl Hacker, fuer die Nicht-dclpm-er). Sozusagen
            Perl-Lyrik ;-)

            Meine Perl-Bücher haben mich den Kram schon FAST durchschauen lassen. Das benutzen
            des Special-Token __END__ und des Filehandles <DATA> ist natürlich ziemlich advanced,
            der ternäre Operator ? ist auch immer wieder gerne gesehen, und der exzessive Gebrauch von
            regulären Ausdrücken hoher Komplexität ist eine relative Gemeinheit für reverse engineering
            Versuche.

            Wenn du das sagst ;-)

            Hast Du Dir das selbst ausgedacht?

            Natuerlich. Was denkst du denn? Sowas ist als Kopfnuss zwischendurch immer mal wieder nett ;-)
            Aber das von Randall Schwartz ist IMHO viel besser:

            $Old_MacDonald = q#print #; $had_a_farm = (q-q:Just another Perl hacker,:-);
            s/^/q[Sing it, boys and girls...],$Old_MacDonald.$had_a_farm/eieio;

            Aber der eigentliche Grund ist, dass es mir ziemlich auf die Nerven geht, dass ich dauernd
            gespammt und geflamed werde.

            Gruss,
             C'perl ist geil'K
             http://wwwtech.de

            --
            s s^s<DATA>se;s (([^\s]))(ord($1)%2?
            chr(ord($1)-5):chr(ord($1)-3))sieg;s s^s$_see;
            __END__
            uwlsy%*Sr%kqdphv%yr%AFN4%dy%zzzyhfm3ihC*1'as'>

            1. Hallo Christian,

              Aber der eigentliche Grund ist, dass es mir ziemlich auf die Nerven geht, dass ich dauernd
              gespammt und geflamed werde.

              --
              s s^s<DATA>se;s (([^\s]))(ord($1)%2?
              chr(ord($1)-5):chr(ord($1)-3))sieg;s s^s$_see;
              __END__
              uwlsy%*Sr%kqdphv%yr%AFN4%dy%zzzyhfm3ihC*1'as'>

              und was hat das eine mit dem anderen zu tun?

              Grüße
              Thomas
              ps: just for fun:
                  <xsl:if test="not(string-length($start)=2) or
                      not(translate(substring($start,1,1), 'abcdefgh', 'aaaaaaaa')='a') or
                      not(translate(substring($start,2,1), '12345678', '11111111')='1')">
                      <xsl:message terminate="yes">Invalid start parameter: try say 'a1' or 'g6'</xsl:message>
                  </xsl:if>

              1. Hiho Thomas,

                und was hat das eine mit dem anderen zu tun?

                Nun, ganz einfach. In den Headern sende ich immer devnull@wwwtech.de - und devnull geht, wie der name schon sagt,
                direkt an /dev/null.
                So vermeide ich, dass ich Spam-Mails kriegen und ausserdem muss derjenige, der mir Mails schicken will, sich genauer
                mit dem Posting befassen - so hoffe ich halt, dass da was passiert im Kopf des Flamers/Spammers/wasauchimmer.

                ps: just for fun:
                    <xsl:if test="not(string-length($start)=2) or
                        not(translate(substring($start,1,1), 'abcdefgh', 'aaaaaaaa')='a') or
                        not(translate(substring($start,2,1), '12345678', '11111111')='1')">
                        <xsl:message terminate="yes">Invalid start parameter: try say 'a1' or 'g6'</xsl:message>
                    </xsl:if>

                Wenn du das sagst? ;-)
                Was macht das?

                Gruss,
                 CK
                 http://wwwtech.de

                --
                s s^s<DATA>se;s (([^\s]))(ord($1)%2?
                chr(ord($1)-5):chr(ord($1)-3))sieg;s s^s$_see;
                __END__
                uwlsy%*Sr%kqdphv%yr%AFN4%dy%zzzyhfm3ihC*1'as'>

                1. Hallo Christian,

                  und was hat das eine mit dem anderen zu tun?
                  Nun, ganz einfach. In den Headern sende ich immer devnull@wwwtech.de - und devnull geht, wie der name schon sagt,
                  direkt an /dev/null.

                  verstehe ich trotzdem nicht.

                  Wenn du das sagst? ;-)
                  Was macht das?

                  schach spielen *g*

                  --
                  s s^s<DATA>se;s (([^\s]))(ord($1)%2?
                  chr(ord($1)-5):chr(ord($1)-3))sieg;s s^s$_see;
                  __END__
                  uwlsy%*Sr%kqdphv%yr%AFN4%dy%zzzyhfm3ihC*1'as'>

                  und was macht das?

                  grüße
                  thomas

                  1. Joho,

                    verstehe ich trotzdem nicht.

                    /dev/null ist das Datennirvana.

                    schach spielen *g*

                    Aha.

                    und was macht das?

                    Einen Spruch auf der Konsole ausgeben.

                    Gruss,
                     CK
                     http://wwwtech.de

                    --
                    s s^s<DATA>se;s (([^\s]))(ord($1)%2?
                    chr(ord($1)-5):chr(ord($1)-3))sieg;s s^s$_see;
                    __END__
                    uwlsy%*Sr%kqdphv%yr%AFN4%dy%zzzyhfm3ihC*1'as'>

                    1. hallo ck,

                      --
                      s s^s<DATA>se;s (([^\s]))(ord($1)%2?
                      chr(ord($1)-5):chr(ord($1)-3))sieg;s s^s$_see;
                      __END__
                      uwlsy%*Sr%kqdphv%yr%AFN4%dy%zzzyhfm3ihC*1'as'>

                      &#097;&#057;&#049;&#048;&#053;&#053;&#051;&#053;&#064;&#117;&#110;&#101;&#116;&#046;&#117;&#110;&#105;&#118;&#105;&#101;&#046;&#097;&#099;&#046;&#097;&#116;

                      grüße
                      thomas

                      1. Hallo Thomas!

                        $_="

                        &#097;&#057;&#049;&#048;&#053;&#053;&#051;&#053;&#064;&#117;&#110;&#101;&#116;&#046;&#117;&#110;&#105;&#118;&#105;&#101;&#046;&#097;&#099;&#046;&#097;&#116;

                        ";
                        s&.*?&#0*([^;]+);&chr($1)&seg;
                        print;

                        ...sonst kann das ja keine Sau lesen ;-)

                        Gruss,
                         Carsten

                        1. Hallo Carsten,

                          ";
                          s&.*?&#0*([^;]+);&chr($1)&seg;
                          print;

                          -----------------
                          $_="
                          &#097;&#057;&#049;&#048;&#053;&#053;&#051;&#053;&#064;&#117;&#110;&#101;&#116;&#046;&#117;&#110;&#105;&#118;&#105;&#101;&#046;&#097;&#099;&#046;&#097;&#116;
                          ";
                          s&.*?&#0*([^;]+);&chr($1)&seg;
                          print;
                          -----
                          perl mail.pl
                          Bareword found where operator expected at mail.pl line 4, near "s&.*?&#0*([^;]+
                          );&chr"
                          Operator or semicolon missing before &seg at mail.pl line 4.
                          Ambiguous use of & resolved as operator & at mail.pl line 4.
                          syntax error at mail.pl line 4, near "s&.*?&#0*([^;]+);&chr"
                          Execution of mail.pl aborted due to compilation errors.

                          ...sonst kann das ja keine Sau lesen ;-)

                          copy & past in eine html seite und jeder (unicode fähige) browser kann das lesen ;-)

                          grüße
                          thomas

                          1. Hallo Thomas!

                            Bareword found where operator expected at mail.pl line 4, near

                            *grml* .. aber recht hat er.

                            Es muss natürlich:

                            s&.*?&#0*([^;]+);&chr($1)&seg;

                            heissen. Selber schuld ... ich wollte ja unbedingt noch das »» rausbekommen und die & als Separatoren verwenden.

                            copy & past in eine html seite und jeder (unicode fähige) browser kann das lesen ;-)

                            ... das kann ja jeder. (Schaff sogar ich obwohl das X-Windows mässige Copy & Paste meistens nicht zu meiner Bedienung kompatibel ist.)

                            Gruss,
                             Carsten, lernt grade Perl (sog. Spielphase)

          3. Moin,

            Meine Perl-Bücher haben mich den Kram schon FAST durchschauen lassen. [...]

            und hier mein Beitrag nur fuer dich: ;-))

            sub Bio() {  my @Bio = map{ord}split//=>q
            [nqj¹Dbf·DufºD7 ]; @_= map{ord}split//=>q
                        !Bio Bio Bio Bio!
              ;map{chr}map{$_+$|---102+shift} @Bio}
                         ;print for Bio;

            Viele Gruesse,

            n.d.p.

            1. Hiho,

              und hier mein Beitrag nur fuer dich: ;-))

              Tss,

              sub Bio() {  my @Bio = map{ord}split//=>q
              [h] «‰dc¹DXee_% ]; @_= map{ord}split//=>q
                          !Bio Bio Bio Bio!
                ;map{chr}map{$_+$|---102+shift} @Bio}
                           ;print for Bio;

              Gruss,
               CK
               http://wwwtech.de

              --
              s s^s<DATA>se;s (([^\s]))(ord($1)%2?
              chr(ord($1)-5):chr(ord($1)-3))sieg;s s^s$_see;
              __END__
              uwlsy%*Sr%kqdphv%yr%AFN4%dy%zzzyhfm3ihC*1'as'>

              1. Hiho,

                Tss,

                sub Bio() {  my @Bio = map{ord}split//=>q
                [h] «üdc¹DXee_% ]; @_= map{ord}split//=>q
                            !Bio Bio Bio Bio!
                  ;map{chr}map{$_+$|---102+shift} @Bio}
                             ;print for Bio;

                *seufz* diese Foren-Scripts. Das richtige Script findet ihr hier: http://wwwtech.de/bio.txt
                Gruss,
                 CK
                 http://wwwtech.de

                --
                s s^s<DATA>se;s (([^\s]))(ord($1)%2?
                chr(ord($1)-5):chr(ord($1)-3))sieg;s s^s$_see;
                __END__
                uwlsy%*Sr%kqdphv%yr%AFN4%dy%zzzyhfm3ihC*1'as'>

          4. Sup!

            erlativ!

            s s^s<DATA>se;s (([^\s]))(ord($1)%2?
            chr(ord($1)-5):chr(ord($1)-3))sieg;s s^s$_see;
            __END__
            uwlsy%*Sr%kqdphv%yr%AFN4%dy%zzzyhfm3ihC*1'as'>

            Ich weiß, was das heißt! Ich weiß, was das heißt!

            SCNR!

            Steffen, der immer gut informiert ist ;-)

          5. Hi!

            Ist das http://info.astrian.net/jargon/terms/v/voodoo_programming.html ?

            Wow, die kannte ich noch gar nicht. Endlich einer, der mir den Unterschied zwischen Geek und Nerd erklärt!
            Wird sofort weiterempfohlen :)

            MfG Simon