Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
[thread]752[/thread]

Perlcode entschlüsseln



<< |< 1 2 >| >> 11 Einträge, 2 Seiten
Thepi
 2006-06-13 20:17
#8017 #8017
User since
2006-06-13
3 Artikel
BenutzerIn
[Homepage] [default_avatar]
Hi
Einige Perlcodes sind verschlüsselt. Gibt es eine möglichkeit sie zu entschlüsslen ?
renee
 2006-06-13 20:19
#8018 #8018
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Dazu muss man wissen, wie sie "verschlüsselt" sind. Wenn es Dir nur um die Logik geht, kannst Du mit CPAN:B::Deparse arbeiten...

perl -MO=Deparse skriptname.pl
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
GwenDragon
 2006-06-13 20:21
#8019 #8019
User since
2005-01-17
14757 Artikel
Admin1
[Homepage]
user image
DIe Verschlüsselung hat schon Gründe ;)
Thepi
 2006-06-13 20:23
#8020 #8020
User since
2006-06-13
3 Artikel
BenutzerIn
[Homepage] [default_avatar]
Danke für die schnelle anwort.. So sieht ein kleiner auschnitt aus:
Code: (dl )
$$haw{$$utv{$wxi}};defined$$mil{$str[13986]}{$wxi}||(uev$byy($str[20560],{$str[5596],$wxi,'file',$$mil{$str[7963]}}));&{$$mil{$str[13986]}{$wxi}}($mil,$byy);vdw$byy()}:(uev$byy($str[12812],{$str[5596],$wxi}))};$@&&do{ref$@eq''&&($@={$str[11993],$str[19413].$@});rjt($@)};sub rju{my$wky=shift;defined$glx?(send_http_header$glx($str[8887])):(print$str[23305]);print$str[71880].$wky.$str[26554]}
\n\n

<!--EDIT|esskar|1150222192-->
renee
 2006-06-13 20:35
#8021 #8021
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Arbeite mal mit dem Deparse-Modul wie oben beschrieben...
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
GwenDragon
 2006-06-13 20:38
#8022 #8022
User since
2005-01-17
14757 Artikel
Admin1
[Homepage]
user image
In eine wieder lesbare Forum bringst du das nicht mehr ohne großen Zeitaufwand.
Ein schöner Spaghetticode.
esskar
 2006-06-13 22:11
#8023 #8023
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
der code ist nicht ausführbar!
Ishka
 2006-06-14 01:13
#8024 #8024
User since
2003-08-04
771 Artikel
HausmeisterIn
[Homepage] [default_avatar]
das mit der nicht-Ausführbarkeit könnte daran liegen, daß es nur ein kleiner Ausschnitt ist.

Von welchem Programm ist das denn der Code?
sub z{if(@_){1while$x[$k=rand 10];t($t=$x[$k]=1)}print map"$z[$x[$_]]$_".($_%3?
"":"\n"),1..9}sub t{$j=0;$x[$_+1]==$t&&($j+=2**$_)for 0..8;z,die"Gewinner $z[$t]
"if grep$_==($j&$_),7,56,73,84,146,273,292,448;z,die"Gleichstand\n"if@x>9&&!grep
!$_,@x}@x=4;@z=qw{. [ (};z$^T&1;while(<>){next if$_>9||$x[$_];t$t=$x[$_]=2;z 1}
Thepi
 2006-06-14 22:30
#8025 #8025
User since
2006-06-13
3 Artikel
BenutzerIn
[Homepage] [default_avatar]
chat system
--
Es geht mir eigendlich nur darum das ich mich mit diesem chatsytem besser auseindaer setzen kann\n\n

<!--EDIT|Thepi|1150309882-->
GwenDragon
 2006-06-14 22:51
#8026 #8026
User since
2005-01-17
14757 Artikel
Admin1
[Homepage]
user image
Ist wohl der gtchat. :cool:

Da will wohl eben der Ersteller nicht, dass Code geklaut wird oder Programmiertricks ;)
<< |< 1 2 >| >> 11 Einträge, 2 Seiten



View all threads created 2006-06-13 20:17.