Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Self Modifying

by iamcal (Friar)
on May 02, 2001 at 12:19 UTC ( #77263=obfuscated: print w/ replies, xml ) Need Help??

#!/usr/bin/perl -w use strict; my$c=q|M33,S+%,K)2Q+*3)1*RHS*3$J4DA3*C,D2BA$420J0RA$,S,A)#`S*$HP4E$D M+$0L02DC,%(L)$A4-$4D1`I-*R0T22PR1$,L)2Q+*21!,"TD-$0Q8$DM*E(T M5#(R4%(Q)"Q8*3)!+"HR,2$L(E!%*B0P53@D1$TJ12A0"DTR(RA2-"4H42DR M42DJ,BQ1*R)(4BPS)$PH13$D*S(T1#,S0$0Q)%1*,3)1+")$5%,H4D$R+"(T M2#4R1$(*330S0$HL4D1!*E0I*#1"4%,I)$Q(,3,D12I%*%`T(S$C,"0P42DE M,2HL,RDA+"(I)#4E*$@T1"12*R,H4`I-,R,L0C0R*"HS,V!3*21(3#1$,2$J M12Q)*B,Q(C4E+$DI)$$L+#(P1#$R23(J)3!1*%)1(RPB,%`T(E$T"DTT,DA, M+%)$02I"*$DI(S1%*B1`5#$R,3(J4C!(-&!)+2Q2+$@T0S!2*B)(4RQ6(3,J M,C$H,R,Q)2DD)$H*33$C,2DJ0BQ1+$,P12HD1$DI,R1,*R,L2#$C)%(R,C1* M*3,A-"HE+%$H4EA"+"5@5"A%)$,B1%1,+$1!+`I-*C(I,2@R3$(J)$1(,%)! M)2XB,3`U,R$B+#(L2C1"02PM(R$H-2)00BLE)$@P4C$R*T(I*#(S,30H,C!, G"CHP0R$H+2(I)2A"1%8X)$`J*B,D0BDV8$XI0B1(+B8A*#A@2&`*|; my$p=q^$a=10;$c=unpack'u',q|x|;if($a==1){print$c;}else{$a--;$p= ~s|\$a=(\d+)|\$a=$a|;$p=~s!'u',q\|(.*?)\|!'u',q\|$c\|!s;eval$p;}^; $p=~s!'u',q\|(.*?)\|!'u',q\|$c\|!;eval$p;

Comment on Self Modifying
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://77263]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (5)
As of 2014-12-27 03:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (176 votes), past polls