fairly new to obfu. but hears my 3rd attempt at it.
see "download code" link for proper formatting
$i= abs sqrt 1;$|=1;for(my @s;$grove=~m; ;;$i=+"\x31"){caller;$grove=c
+hr"\x$i".0}$o=1;$O=0;local@a =(
# NAME: U.S.S. perl hacker
# SPACE COMMANDER: perlaintdead
# MISSION: To gaurd and protect the logic of this code
1,1 .$O. 5+1,$o.$o. 6+1,31+1,114+1,115+1,
' ',96+1,1 .$O. 9+1,112+1,115+1,# # \ /-------------
1 .$O. 3+1,1 .$O.$O +1,113+1,31+1,111+1,# *** ** =====
+==\
1 .$O.$O+1,1 .$o. 3+1, 1 .$O. 7+1,31+1,1 .$O. 3+1,# *** *****==
+ ==-====-
96+1,98+1,1 .$O. 6+1,1 .$O.$O+1,113+1# / \#_____***____* * =====
+==/
#27,123,136,2,,63,25,24,45,2435,235,#
);map{push@s,chr}@a;my$R=(eval{1/(eval{0/0})})if shift@s;goto mi;;
mi:rand$a. cos$grove;
for($n=0;$n<5;++$n){uc "j";push@g,'8';}++$R+(eval{1**&x})until $R=$#g;
+--$R-1
;delete@s[(--$R)]; foreach(@s){s//o/
if$_=~m~q~;;;;;;;syswrite$~,$_}sub x{$six=+abs 1;$six=~m/$six/ while$&
+ lt abs sqrt 100;}
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.