PM Obfu

[Felonious]

Update: Fixed scrolling issue in text mode console

#!/usr/bin/perl
$m=q\$g=59;$s=23;@v=($",$",'.',';','x','X','M');$t=[map{[(s
plit('',$_))[0..$g]]}reverse+split($/,$m)];sub'i{($b)=@_;$b
->[0]=[(0            )x($g+1)    ];for(@{$b->[    0]}){$_=$
#v*(int(r             and(7))     <3);}for(1.     .($s)){@{
$b}[$_]=[    (0)x(    $g+1)];      }}sub'p{(      $b)=@_;sy
stem($^O=    ~/MSW    in32/?'       cls':'c       lear');$s
tr='';for             $r(reve        rse(0        ..$s)){fo
r$c(0..$g           ){$str.=(    $t   ->[   $r    ][$c]eq$"
?$":@v[in    t$b->[$r][$c]]);    }$s       tr.    =$/;}prin
t$str;}su    b'f{($x)=@_;$b=[    ];i($b);for$r    (1..($s-1
)){for$c(    1..($g-1)){if(in    t(rand(2))){$    v=0;for$r
i(-1..1){    for$ci(-1..1){$v    +=$x->[$r+$ri    ][$c+$ci]
;}}$b->[$r][$c]=$v/9;}else{$b->[$r][$c]=$x->[$r-1][$c];}}}r
eturn $b;}$z=[];i($z);p($z);while(1){$z=f($z);p($z);}\;$m.=
"$/$/$/$/$/$/1;$/$/$/$/$/$/$/";;s//$m/;s/$"//g;s|$/||g;eval

[[e-mail] shh]$ su real

[Len]

Brilliant idea Felonious !

I only miss the sound of sizzling and crackling burning wood.

Oh wait..

perl pm_obfu.pl | tee /dev/audio

that's all I need for tonight :)

Felonious++

[husoft]

Can you explain a few things I don't understand?

- First thing I don't understand is this way of making
subs (sub'i, sub'p, sub'f) what's the main difference
from the sub i{..}.

- Second, in this line : \;$m.="$/$/$/$/$/$/1; I don't
really get what you are doing there.

- Third, $/$/$/$/$/$/$/";; why ;;?



#!/usr/bin/perl


$m=q\$g=59;
$s=23;

@v=($",$",'.',';','x','X','M');
$t=[map{[(split('',$_))[0..$g]]}reverse+split($/,$m)];

sub'i{
    ($b)=@_;
    $b->[0]=[(0)x($g+1)];

    for(@{$b->[0]}){
        $_=$#v*(int(rand(7))<3);
    }

    for(1..($s)){
        @{$b}[$_]=[(0)x($g+1)];
    }
}
sub'p{
    ($b)=@_;
    system($^O=~/MSWin32/ ? 'cls': 'clear');

    $str='';
    for $r(reverse(0..$s)){
        for $c(0..$g){
            $str.=($t->[$r][$c]eq$"?$":@v[int $b->[$r][$c]]);
        }$str.=$/;
    }
    print $str;
}

sub'f{
    ($x)=@_;$b=[];i($b);

    for $r(1..($s-1)){
        for$c(1..($g-1)){if(int(rand(2))){
             $v=0;for$ri(-1..1){
             for$ci(-1..1){
                   $v+=$x->[$r+$ri][$c+$ci];
             }
        }

         $b->[$r][$c]=$v/9;
    }else{

    $b->[$r][$c]=$x->[$r-1][$c];}}}
    return $b;

}

$z=[];
i($z);
p($z);
while(1){
    $z=f($z);
    p($z);
}

\;$m.="$/$/$/$/$/$/1;
$/$/$/$/$/$/$/";;
s//$m/;
s/$"//g;
s|$/||g;
eval

[Felonious]

1) sub'i{} means the same as sub main::i {}, in this case it's used to get rid of the space (important because spaces are used as a mask).
2 and 3) these serve as filler to make the code rectangular and for tweaking the position of the mask over the output.

[[e-mail] shh]$ su real

[JaWi]

I've finally got a worthy replacement for my fireplace video... Very nice job!

-- JaWi

"A chicken is an egg's way of producing more eggs."

[kelan]

Oh man is that sweet.

kelan

---

Yak it up with Fullscreen ChatterBox

[jjdraco]

I kneel before your greatness

jjdraco
learning Perl one statement at a time.

[husoft]

incredible obfu, nice work!

[Kage]

Wow.. Very nice.. My server burped and farted a few times because of it, but it runs. Now do one that says KAGE and you will be my God. :)

---

PuuPuuPlatter

[Anonymous Monk]

Errr... wow. That is the most impressive obfuscated animation I've seen in some time...

[Anonymous Monk]

*bows*

[tbone1]

Dayumn!

You know, figuring this out is just going to wreck our group's productivity today. But at least it's a more fun (and logical) wreckage than having marketing involved!

--
tbone1
As God is my witness, I thought turkeys could fly.