I wrote a simple (and rather long, i admit) YAPH. The obfuscation isn't very good, either.
And there's a reason for that: Most of the obfuscated code here on PerlMonks is very advanced. I wanted to give something to the community that can be de-obfuscated by a beginner... sort of training.
Dear expert PerlMonks: Please don't post your de-obfuscated solution here; it'll spoil the fun for those who want to learn for themselfs ;-)
Here's the code (yes, you absolutely need the Tk modules installed):
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Tk::widgets qw/JPEG/;
use MIME::Base64;
eval(decode_base64(join('', <DATA>)));
__DATA__
bXkgJGl
t Z 2 R hdGE gPSA8P C J FTkRE QVRB I j
s K Lz l q L z R B Q V F T a1 p
K U m d B Q kFRQU F B U U F C Q U F
E L y 9 n Q T d R MUpGU V Z S U F
V q b 2d a M l F 0 Y W 5 C bF
p5QjJNU z R 3SUN oMWMyb HVae U JKU2 t j
Zw p T b EJGUn l C M k5qS X B MQ0J4
Z F dG c2 F Y U jV J R D B n T 1
R B S y8 5 c 0 F R d 0 F E QWdJRE F
nSURBd 0 1 E Q k F N R E J BVU l C U
V V F Q k F V S 0J 3 Y 0 d D Q
X d L C k RBd0x D Z 3 NMRF E 0 U
0VBME 9FUTR MQ3hBV 0V CRVRG Q l
V W R l F 3 U E Z 4 Z
1 d G Q mdTRk J V V S 8
5 c 0FRd0 V EQkFRR kJBVU p CUV
V K R k E w T E R S UVU
KRkJR V U ZCUVVG Q l F V R k
J
RVU
Z C U V V G QlFVRk J
R V U Z C U V V
G Q lFVRkJ R V UZCUV V
G Ql F V R k J R V
UZ CU V V G Q l F
V R k J R VS84QU FFUWdB VUF
CUQpB d0Vp Q U FJUkF RTVJBZ i9FQU I4QUFB RUZBU
U V C Q VF F Q k F B Q U F B
Q U F B Q U F B Q kFnTU V C UVlIQ 0 F
rS0Mv L 0 V B T F V R QUFJQ k F 3
T U N C QU 1 G C k J R U U
V BQUF C Z lFFQ0 F3QUVF U V VTSVRG QkJoT
l J ZUWNpY 1J R e Wd a R 2hDQ0
5 D c 2 N F V l V 0S H d K
R E 5pY29 J S kNoW V h H Q m t h
S lN Z b ktDa3E K T kRVMk5 6 Z z V P
a0 5F U l V a S F N F bE t V
M V JWVmxk W V d W c G p a R1ZtW
j J ocGFuT jB kWFoz Z U
h s N m c 0 U 0 Z
o b 2VJaV l x U 2 s
1 U1 Z s cGVZbV pxaQp v NlN
sc HF l b 3 F h c Xlz
N 1 MxdHJl N H V i c k
N
3OFRGeH
N m S X ljclMw OVRWM X R mW T J k c mg
0 d V B r N W Vi bj Z P bn E 4 Z k x
6 O V B YMjkv a j U rd i 9 F C k F C O E
J B Q U 1 CQVFF Q k FRRUJB U U V B QUFBQU
F B Q U J B Z 0 1 F Q l FZ S E N
Ba0tDLy 9F QUxVUk F B S U J B Z 1 F F Q
XdRS E J RU U V B QUVDZ Hd B Q kFnTV
I K Q k F V a E1 R W V N RV k V I
W V h F V E l q S 0 J D Q l J D a 2
F H e H d Ra2pNM U x 3 R l dKeTBR b 1 d K R
F R o S m Z F W Ed C a 2 F Ka W N
vS1 N vMU5 q Y z R P V H B E U kVWRw
pSMG h K U2xOV V ZWWl h X Rmxh
W T J S b F p t Z G 9 h
V 3 B 6 Z E h W M m QzaD
V l b 0tEaE l X R 2 g 0
a U p p c E t U b E p X V
2w1a Vptc U t q cEtX bXA2 aXBx
c k t6Cn R M V z J 0N2k1d XNMR HhNWEd
4 O G p K e X RM VD F O W F
c x O W p a M n VM a jVPWG 0 1 K2pwN
n Z M e j l Q W D I 5 L 2
o 1 K 3 Y v Y U F B d 0 R
BU UFDR VFNUkF EOEE K K 2xvOUx 6MFd w
azB3QV lLaj hxNnl QU3h 0SEZ LMmxn VUFja TJtOGZ k L
1 N x T n h w d z V 5 b y9 L
dTFrM D R B V l F 1 d F BDNTQ v R 2
d E a DduVD h BLw p M a X N t O H
N 4 e n d L N H I 5 b 1 A 0L
1 dmd3 V 0 SHNy RXhT Y X F5NUx5 Z 2
x Z
c zlPQ jFQNU FmcFh4 Y n F I N 1 p majZEV
V h O d n I 0 d U l D K 2 Z
M a 3 R J UU1lC m d P M1A1ME F m ZGQ3W
W p C T0JXR G ZXU F h q S X J 5 c
j R L Z n R XYV o 4 U m J p S F
NkWWRi SFZu S H k3eGha Q 09 1Q 0 9 Q VS9oWH VGeENr
e
Wxs
S V p mYWc KRGc3 Nnl3V HhYTzZ qWURC
N DR y M E M r d E 9 2 R
m M 1 Z l d 1 T W p GQUgz S 2
x v R j d V R z F C N E h ldE
V R OG Z U M X B E R H g 2bW
dES G 1 0Qnl NVjVK OGJma QpoRDh OOUV1 c
H
l n Wm80eV N4 T0FHS S t V
Zi 9 B S 3 E 5 Y j h
V N i 9wM2h E d y 9 x T
3 R h e GNyWTZ YWVFO Y 1
h Od z R K R W F L
T W s0QUpQ M E F K UGF2em I
r C k4 zeFBi OW9UN G 1 h WGI2
Wm J h a F o r R n Ir N m p
G c k p l U W 1 G c m l N W
V Z w RlgrNl NyZ0g 4OEhn Q U h t W Glm d1Q
0 cy t N c z E 1 NG 1 2 Skd
0 T G U 1 Y 2 0 K S1Ni U
D
d4Yz l W SHBYb nR6OE RScDd0 O X B 2 R
2 R n Z V N C a XY w Q i t
JSGh 1 M j B m V DQ3V0 p G d E x
T M 2 d W R V F E Q U F B
e G o 5 S y t Z U E Z2 b E
M2ZF EzQQ pOQUh qOW44 TjlPc0 p r a1dhV0 t
WVGxa R W JEQStv cjZJK 0UveG4 xSzA xK 3 c 4TDZwT
j l y T X N Y K 2 o z RW pL c
X lxUFRq aGgzS E 9 ldGVQ N m p j Cj J 4bjJo
c 2 U r YTUve G Z lU2Fkc F Z s
Z l F 5 R 0 8 2 d E x s W k
l K b FBLL2o 5 U VB5b0E vUUc 3 V V N JR1VnZ
zl 4WE82 aE NPZU9 hNEg0 S y 9 0QzZ
Y O F Q K a E Z v b Hp C T H
B u a U t D M z h 4 N 1 p r
UGx5cU 1 Bc2pma U9EZz g4WnI w Y l V P K0t BUH
V V c H h S c 3 g yc V Z nVl
h K R k 1 T V l p V M0tj a
k
5
B S G52e Ho4Q gpTL0V 2NFp hdDR Z a nUzc1U
x T m 9 Z W n A 0 eG wv S
k V 5Tkt x L zdUSX JLTT h E Z Hp u cFg1V
2ZDWDRu N j U 0 O C t Q W G
h m U j l l M U s 1 d U k 3
U F VVdG JCCl R HaEZ yQUp j R 0pWeW9
BQ24 1 V jZaVUR nSGo 5amJwN G 8 wODJV Z 0 t
u W FB T d n h o L3 N P U H d
U K z I 3 ZGFNd 0 MySyt L S l V p S
2 t y b U N X UW1 J Z 2 o K a 1
p S a 05 B S H M v d0 F l U
EZGO T R rK0gya mVKc HJtK1g 3 Y W haWTFm Y
mxEST J6 SVVCU jhwVW R C b kJQM
D h M O E 5 t N T FT V T U
z b k t 0 a E R K d U J D
agpMT m50NmZ pSytx ZmpCN E 9 m d z E0Y VRR
W T V F T 2 k y c2 Z s d0p
L c E x o U X h J eWM4 a
2
JzWnd PT VY1Yj RidHR F M D d3SH E5 K0xpM
m k x Q X h 5 V z BN C l R P c X
M 2 Z 3 F 6 Q k Y 2 b n F D V D
dEMG9 BK1pOZ HY0bz lRbCs x U j N E Ylp Ddmx4d V
J z S G J w M X FH N 3 V Q N
1 J o M C 9 S a G ROYl c 5 L
2 N y R 2x4Y 1 p ZU U g KSUFK NzdlZW NlbmV
0V Fh u d E x y V X B IU XB N R 1 B 6
c UR 5 R y 8vVlZY e E Q 1Z G hwK25 hMUdt N G
F a S 0 p S Qy84Yj V Y W U R qc0NP
Z l V V Q W R G K 3 o 5 O Q p 0
M F Q 0dEl M e T k y M 3VuT1 lGa01t N k
1vU zBiSWZS
Y2tFZ W1BY Ss1c EpoYz Jxe W p JREx
u Y W V v U H B Y N T g
v Q k E z Z X Y r T E x5N2
t k c H J 5 L3VVC lF1 Z X J
5 T 3 h M S D h 5Sy 9 R U j
QvSWl ZRG9 TU00 w Q WZk Z D VNSl
BtUT RKNn F m WDJxc2
t v a mp 4b m
traz F E T E5 4 MXdhc
H l Y S T V
v Q X M z a 2
l6Uk 4KRz N L TU1FVi
tUS Ddh
b m g 2RHd a KzBWc HZpd lE5WT AzV V
d q d U l X d V l y Y T
l p Y WUzb G l j Y m Z O a
k R i Z 2 N B R HAvQ0 00e l
h k L 3 R i L 3 Q w K 0pM M
wp Y ZkUz a G Z3SH F Q O EFZ
M
m o 2 U TV0TG pVYmY vajV2S k1sWD JQOEE4 czQxS
Ul CW D V t e G 5 J Q n h
Y NT N I V X J pUzdN e l N1WFp 0 e
k V u S k o 5 NkFQC j F B L2F
j O G M y a y 9 o R z E xR0
N k WklK M F dRR05z b l lWQnov QURyN H
k
xSD
RtW DYycG cw eTNTS U1yTH Z L Y m1BU EJ PZTJh
b j h N Z k V v K 09 m Q z E K b
m 9 t c T N C V T J T K 1 d q T
T JBeWR2 eXJlM XJSdE p q O E 9 DRz NraUVr Y
W d s c 0 R t Z0 R 4 b D l
Z d W J h N m Z lT1c 1 K z
d X c n F1b3 Z y SG h H NHRvb Dh5NAp sWkFF
Qj do Z 2 Y 2 R 2 1 Y dH Ji U X M v b
X Vw e U 9 DSzVEW D l U Qy t YRGFz VlJUd U x
E d W F B U HRQOWs v N E t y NFo4U
F d u a V h V M 2 p t d T V n N
W h o UTU4 C m x n e F JpM3F 3MjQ0N D Y
vaDczcU
UyYzh WNGY reUo 0OHZQ R V B 3 N U 5
u c U x C c H J l U mp B N E F
V T 2 d 3 R 0 F BN2hp R 0 o v N m F
p d l l M M mY3M0 5 B S D A K Z
D h k L z J p Z k R Q d0 s 4
UC9iZ FptK zBha E 1 DYlRUSU h I bXprZC 8
5bGM5 V 1 A 0QW5 pd n o 2K0pQ
L 0 F B V W E rS S t 2
V FRMb2t 0 bDRi d E N T R V M
x d A o x bGt 4N3ZJR z U 5 d 0
Z y N T E r TDN 4 b j Fu N H
B l T D c3WG R h d X p kWHR5
K
1 R 0T0V qWCtG R U h a U U9BS
zg 3 d k w 0 e V JE S n d
L Q U 5 1 N DEyVFc 3 c l V y
C m 1 k e T l 4 Z W J t b Vk0
N WN u S l A 0 N U 5j W V
Z L T1Iz V T R x e l ozZj
JlN U
R u TzA4 TmltW GE3Wnl SOT F 1 Y U
FO VF R i a z J 3 e k c y
M Wp n S G 5 0 VnVYe F Y K ZXBBMF
l t W W ozUE5 Z U3p LaXFvND k 2 aWx
i Z n l U a z BBW E o 5 W nVK
d 2 R6az U 5 NnBQSz BnR z Q 1 e F
R
DYz
BVQWV x L0Ny NDk2M z h O WWJD MHRJN w p X N
X M 3 Y V N aa E R N b U N S T
H Q z amNN S G t v a C t x a X
Z v Z n c 5 K z F o N G M 4
U 0 t z R 2 9 R VG F M Z H R 4
bVErW k RuL0 F I a G dqOF I rTmZFW U 9Ee
FZoTG dwCmc5 K z FBSC8v M l E9PQp FTkREQ VRBCg p teSAk
b X c gP SB u ZX cg T W F p b l d
p b mRvdz s KJ G 13LT5 M YW J lbCgt dGV4d C A 9 P
iAnSn V z d C B B b m 9 0aGVy I F
B l c m w g S G F j a 2 V y I
S c pLT5wY W N rOwpte S A kaW1n ID0gJG 1 3 L T
5 Q aG 90by g t Z GF0YS A 9 PiAkaW
1 n Z G F 0 YS w g L W Z
v c m 1 hdCA 9 P i A n SlBFRy cpOwo
k bX c tPkxhY m V s K C 1 p b W
Fn ZS A 9 P i A k aW 1 n K S
0 + c G Fjaz s K J G 1 3 LT5CdX
R0b24 o LXRleH Qg P T
4 g J 1 F 1 a X
QnLAo g ICAgI C A gIC1
j b 2 1 tYW5kI D 0
+ I H N 1 Y n t
leGl0 fSApLT 5wYWNr O w p N
YWluTG
9 v cAo=P4 tGaL wtf3hS n f 7CfPM I2UJrh 3XujT
R R w K a g DE 0A q L R Z L
h X LSDwa r 9O39e D iZ A VUsu0 p7rk2 1 e
j T j S U P I 3 w a YSIr5 Ep0
w 5 o a S o 5 M 1 P T L l nDf
40Ckpk upzbtk KOtK 15EKex 6 o TN2S0 NS0jd6 Y U y
z
N
Y S S U rqEFF MYWd4U yy 2Eso 0 q
9 k yh k V 8 1 3 6 A 6 2 1
v b 4 t k g 3 meShd 4 g a CBNsSt
A1trQPI g 4 r v O 4 n9smA5 N C g
l 6 k fm Y c w S o s L U 7
b P X i ezD0C ZeYbVm l r jtz8 k Z
1FVP i2c2vy D8L8u jX E5iAB sO S7wDh JzFl0s
n O w 8 B D I j n v u r
2YTk Fw3io q u E R p E F V u fGBwQ
Y X rEKIf Zt3c6r TqNiw Ylql2u i U
E Z s C H 5 n b y Y Z Q
vuBy JiOTd3 E R c 5 Y C t n cgocTG
a46bc t Z g H 9 eG5A KX2OVp G M ddakP LRP4IJ KbpMc
z m Q R X wk r 5 a g mF m0 O l G x k
K m 5 4 m m D L 7uxyO E zt G Muk7R Cxfd6 7 h
R 7 y j c C h x nFU x q U 1 t 0 GAbJN
J 5 u e R tH G X g u O 6 m T j y
iGcyS R V P 2 490N AZKXvZ 9 p XPcmg vU6QC2 O z
W 4 qMkgF EsEM e F WABF b R oCd52 z gURJS uJGn
u f J X L k s j G p x J z Z r L
d X 5 e 1 w Z s u EqPRnz c T K qPBZ
I Mm e Mb075 U S 8 2 p xd8 0 S R L B G
6y Dv q r Y r z a Q 4 a l a d j I k
X 5 d d oJkZ JMnN 71ep h W 2 6 C NlAc
kh2r W 5 5INw BBn2 3zEIz c y 1nefr am6U H Y
f 4 H e s m E e f j A 6 d H tf K
N 1glARO 2 f mosP U 0 Y T 0 3 X J W K
w TqC c t O o U 2 6 O 5BYq1 M f h x K
y C C 8 N s F d S f 7 9 h u Y hO
6Tss c k V0fU kvIH 0 j2dt 7 xVlT P 2
dAAH1 J w f0yQ9P N8eiCk f XSz7 t4W2 cZd9o
M 9 p 2 V L X j Y i Y Y
X YS4aAD R1kBJ S2FfK X l 7 K O B A
Y I w u V D 5 b m W s19bU 2qd
6 n H S d q N 3 R 2 F y dPX
6 0 q KWo3di k 9Ts0HY iuiq 8u6h 2 x kAJ
If you have *any* trouble, just post it here - i'll try to talk you through.
Don't use '#ff0000':
use Acme::AutoColor; my $redcolor = RED();
All colors subject to change without notice.
