Only 4 Bash.
Inspired by an old obfu (that one with jumpin' balls).
I'm not a script kiddie, I only wrote new tool for obfuscation, then I saw that script with Tux jumping in my perl scripts directory, and I thought to make an obfu... enjoy it.
Plz call it with 2 numeric args or it won't have effects.
(the numeric args are the columns and the rows of your terminal)
'Njoy it guys
#!/usr/bin/perl
###########################################
# Jumping Tux Obfu v0.1_alpha by X-3mE'89 #
# Written for Perlmonks.org on 18/07/2k4 #
###########################################
######################################
# Tools used to create this obfu: #
# #
# . Slackware Linux 9.1 as O.S. #
# . "banner" for the shape #
# . "mask.pl v0.1_alpha" by X-3mE for#
# converting normal code into obfu #
# following a shape #
# . xterm for doing tests #
# . emacs for writing source #
# #
######################################
# Usage: ./obfu.pl columns lines
# example ./obfu.pl 80 24 (in a standard size xterm)
$_=q!
$x ma
x= sh
if t&
@A RGV;$
yma x=shift
&@ARGV ;if(($xmax
== "")&or &($ymax==""))
&{ &die& "Usage:&$0&rows&c
ols\n "&}$gfx0=("&&\e[1;
32m__ _____");$gfx1=(" &\
e[1;3 2m/&&&&&&&\\");$ gf
x2=("\e[1;32m|&&0&&&0
&&|");$gfx3=("\e[1;
32m|&&&\e[1;33m,
^,\e[0m&&&\e[1;3
2m|\e[0m");$gfx4=("&\e
[1;32m\\&&\e[1;33 m\\_/
\e [0m&&\e[1;32m/\e [0m")
;$ gfx5=("&\e[1;32m/ &&\e[
1;37m___\e[0m&&\ e[1;3 2m
\\\e[0m");$gfx6 =("\ e[
1;32m|__\e[ 1;37m/&
&&\\\e[0 m\e[
1;32m__ |\e
[0m ")
;$ gf
x7 =(
+
"\
e[
1;
32
m(
__
)&
&&
(_
_)
\e
[0
m"
);
$g
fx8= ("
\e[1; 32m
\\&&\ e[1;3
7m\ \___
/\e [0m&
&\e [1;
32 m/
\e [0
m" ) ;$
gfx 9=( "\e
[1; 33m|\ \^/
|_|\ \^/|\e[0 m");$
gfx10=( "\e[1;33m&\\_/& &&\\_/\
e[0m");$x =1;$y=5;$ xf=1;$yf=1;while(1)&
{print&"\ec\e[31m\e[1;".(i nt(($xmax-21)/2)).
"HJumpingTux&v0.1_alpha \n\e[2;".(int((
$xmax-21)/2))."H&&&& &by&X-3mE'
89\e[0m";limits
();print("\e
[" .$
y. ";
".$x."H".$gfx0."\n"."\e[".($y+1
).";".$x."H".$gfx1."\n"."\e[".(
$y+2).";".$x."H".$gfx2."\n"."\e
[".($y+3).";".$x."H".$gfx3."\n"
." \e[
".(
$y+
4) .";".
$x."H".$gfx4."\n"."\e[".($y+5).
";".$x."H".$gfx5."\n"."\e[".($y
+6).";".$x."H".$gfx6."\n"."\e[
".($y+7).";".$x."H".$gfx7."\n
". "\e
[".
($y
+8 ).";"
.$x."H".$gfx8."\n"."\e[".($y+9)
.";".$x."H".$gfx9."\n"."\e[".($
y+10).";".$x."H".$gfx10."\n");
if($x>=($xmax-12))&{$xf=0}if(
$x
<4
)& {$
xf =1
}i f(
$xf==1)&{$x++}else&{$x--}if($y>=($ymax-11))&{$yf=0}i
f($y<5)&{$yf=1}if($yf==1)&{$y++}else&{$y--}system("
sleep&0.05");}sub&limits&{print&"\e[3;2H";for($i=0;$
i<($xmax-3);$i++)&{print&'_'}print&"\e[4;1H/\e[4;".(
$xmax-1)."H\\";for($i=5;$i<$ymax;$i++)&{print&"\e[".
$i ." ;1
H| "} pr
in t& "\
e[ $y ma
x; 1H \\
"; fo r(
$i =1 ;$
i< ($xmax -2
); $i++)&{pri nt
&' _'}print&' /'
;f or
($i =5;
$i< $ym
ax;$ i++)
&{print&"\ e[".$i.";"
.($xmax-1) ."H|"}prin
t("\e[".$y max.";5HTy
pe&Ctrl-Z&to&quit");} !;
s/\s+//g;
s/&/ /g;
s/\\/\\\\/g;
s/\\\\e/\\e/g;
s/\\\\\\\\/\\\\/g;
s/\\\\n/\\n/g;
eval
X-3mE'89
"Considerate la vostra semenza:
Fatti non foste a viver come bruti,
Ma per seguir virtute e canoscenza"
-
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.
|
