Welches Crypt-Programm?

#1 Ich habe einen Code in meinem Skript und wüsste zu gern, mit welchem Verschlsselungs-Skript es codiert ist.
Vielleicht kann jemand helfen. So schaut der Code aus, um den es geht:

$code="2474656d70203d7e20737e3c2f5b62425d5b4f6f5d5b44645d5b59795d3e7e3c62723e3c62723e3c63656e7465723e3c7461626c6520626f726465723d223022206
3656c6c73706163696e673d2231222063656c6c70616464696e673d2231223e3c74723e3c74643e3c63656e7465723e3c666f6e7420666163653d2256657264616e612c41
7269616c222073697a653d2232223e3c623e4d6574612d5461672047656e657261746f723c2f623e2c20762476657273696f6e3c2f666f6e743e3c2f63656e7465723e3c2f7
4643e3c2f74723e3c74723e3c74643e3c63656e7465723e3c666f6e7420666163653d2256657264616e612c417269616c222073697a653d2232223e26636f70793b203c612
0687265663d22687474703a2f2f7777772e636f6465722d776f726c642e646522207461726765743d225f626c616e6b223e3c623e436f6465722d576f726c642e64653c2f62
3e3c2f613e2c20323030312d32303036202853746566616e6f73293c2f666f6e743e3c2f63656e7465723e3c2f74643e3c2f74723e3c2f7461626c653e3c2f63656e7465723e3
c2f626f64793e7e673b6966282474656d7020217e202f3c5c2f626f64793e2f297b097072696e742022436f6e74656e742d547970653a20746578742f68746d6c5c6e5c6e22
3b097072696e7420224b65696e20266c743b2f626f64792667743b20696e206d6574612e68746d6c20656e7468616c74656e21223b09657869743b7d7072696e74202243
6f6e74656e742d547970653a20746578742f68746d6c5c6e5c6e223b7072696e74202474656d703b";$code =~ s/([a-fA-F0-9]{2})/pack("C", hex($1))/eg;eval $code;
exit;

#2 Hmm bisschen alt, dass ist aber Perl.
es ist überhaupt gar nicht verschlüsselt, lediglich kodiert.
Du möchtest perldoc -f pack lesen.
__________
E-Mail: therion at ninth-art dot de
IRC: megatherion @ Freenode

#3 Danke für Deine Antwort.

Leider bin ich kein Programmierer und mir verschließt sich, was da in diesem Code steht. Aber vielleicht bist Du ja so nett und sagst es mir. Ich wäre Dir sehr dankbar.

Grüße - Jürgen

#4 Die Manpage findest du hier: http://perldoc.perl.org/functions/pack.html
Soweit wie ich das sehe wird ein regex pattern auf dem gesamten code eingesetzt, hier werden sämtliche bytes (zwei alphanumerische Zeichen) durch ihr ASCII Zeichen ersetzt.
Danach wird der code evaluiert und das script beendet.

Ich denke die Intuition dahinter ist eine einfache armoring Funktion wie zb. base64 das auch erfüllen würde.
Um deine eigentliche Frage zu beantworten, dass Script dekodiert sich selbst.
__________
E-Mail: therion at ninth-art dot de
IRC: megatherion @ Freenode

#5 Hallo Xeper !

Leider sagen mir natürlich die von Dir erwähnten Begriffe wie "regex pattern" und "amoring Funktion" rein gar nichts. Aber damit muss ich nun leben .-)

Trotzdem nochmals vielen Dank für Deine Mühe.

#6 Tja wie wärs mal mit googlen??
Um ein paar Fachbegriffe kommen wir nicht drum rum,
du hast ja auch nie gesagt wozu du das brauchst oder wissen willst.
Des wäre ja so als wenn du dich nun auf einma für Medizin, Genetik oder sons was interessierst, steig halt ins Gebiet ein oder lass es bleiben.
__________
E-Mail: therion at ninth-art dot de
IRC: megatherion @ Freenode

#7 Also wenn es dich noch interessiert, der Klartext ist (nicht sehr aufregend):

$temp =~ s~</[bB][Oo][Dd][Yy]>~<br><br><center><table border="0" cellspacing="1" cellpadding="1"><tr><td><center><font face="Verdana,Arial" size="2"><b>Meta-Tag Generator</b>, v$version</font></center></td></tr><tr><td><center><font face="Verdana,Arial" size="2">&copy; <a href="http://www.coder-world.de" target="_blank"><b>Coder-World.de</b></a>, 2001-2006 (Stefanos)</font></center></td></tr></table></center></body>~g;if($temp !~ /<\/body>/){ print "Content-Type: text/html\n\n"; print "Kein &lt;/body&gt; in meta.html enthalten!"; exit;}print "Content-Type: text/html\n\n";print $temp;

#8 Es gibt noch nette und unkomplizierte Menschen.

Viele Dank für Deine Mühe :-)

#9 Kein Ding, 5 min in C# :-)