Santiago.pm Grupo de Usuarios - Perl - Santiago - Chile
Contacto:Cristian Vasquez Diaz




Publicaciones

Sitio : www.cpan.org

Paths::Graph by Cristian Vasquez Diaz

Paths::Tree by Cristian Vasquez Diaz

HTML::Myasp by Hans Poo

Un Patron de Cache en Perl ( pub:27-10-2005 ) by Hans Poo

Visual mod_perl Guide (png image format) ( pub:12-01-2006 ) by Hans Poo

Math::Group::Thompson by Roberto Alamos Moreno

Net::SMS::Clickatell by Roberto Alamos Moreno

Parse::Nessus::Plugin by Roberto Alamos Moreno


Sitio : www.perlmonks.org

LOOP MIN SPEECH

Forking loop will never end

OBFUSCATED CODE SECTION :

Obfu or another method?

Version 2

$*=\&(|,@=={$}=>,%\,%\}.$*,*_=\$@,
eval'&$->obfu',s<^(\w+)\s(...).*>!$2!,$.=$_,
eval'@$->obfu',s+.*w..(.)... . (.)(.)..... .. ..(.).*+'$4$3$2$1'+;
$,=" {print $_}",$,=~s/\n//g;$.=~s/\n//g;
$=[0]=~s<(.).*~(\w{6})$>@"$. $1$2$,"@e.eval$=[0]&&s<.*>@&Howoorg@e;


Version 1

#!/usr/bin/perl
$*=\&(|,@=={$}=>,%\,%\}.$*,*_=\$@,
eval'&$->obfu',s<^(\w+)\s(...).*>!$2!,$.=$_,
eval'@$->obfu',s+.(.)(.)'(.)\s(.).(.).\s.(.).(.)(.). "...(.)" .......
+. (.)..(.)... .(.) ..(.)...(.)*+'$13$9s$3 $1$2$8$3$7$6$12 $10$6$12$5
+$7$1$4$11$6$12'+,$,=" {print $_}",$=[0]=~s<(.).*~(\w{6})$>@"$.$1$2$,"
+@e.eval$=[0]&&s<.*>@&Howoorg@e;



Rising Force
@'={$}=>,{}=>0x70,*,,0x6A,$={$$}=>0x68,*,,0x61,};
$,.= chr$_ foreach keys%{@'};
$_=$,,s<^(.)(.)(...).*>@$3$2$1@.print;


Call .. Call ... Call ..
#!/usr/bin/perl
sub x{(caller())[ob-//]}
sub ob{x}_(&fu.a)._(&te.&sc)._(&te.&ob)._(&te.&fu)._(&ob-//.$%);
sub fu{x}_(&at.//)._(&at.e)._(&at.f)._(&te.&fu)._(&at.&d_)._(&at.&sc);
sub sc{x}_(&te.&ob-//)._(&ob-//.$%)._(&sc.$%)._(&at.&sc);
sub at{x}_(&te.&ob-//)._(&at.c)._(&ob-//.$%)._(&at.&d_)._(&at.//);
sub te{x}_(&at.&ob)._(&at.b)._(&at.&sc)._(&te.&ob-//)._(&ob-//.c);
sub d_{x}sub _{vec($_,$%,d_)=eval"$%x$_[$%]";print chr vec($_,$%,d_)}


Live and Die
{split" ",(join"",@ARGV)|| ("12 1 2 1 1 1 1 2 1
1 1 1 2  1 4 1 0  11 1 2 1 4 1 2 1 4 1 2 1 4 1
0 4 1 4 1 2 1 1 1 1 2  1 1 1 1 2  1 1 1 1 0 3 1
4 1 2 1 4 1 2 1 8 1 4 1 0 2 1 1 1 1 2 1 4 1 2 1
8 1 4 1 0 0")}{$^=shift@_}{$^{1}="_/"and$^{0}="
"}_:{$^==0|| $^==1?print$^{$^}:print" "x$^}{$^=
join" ",@_ }{$^="'$^'"}@_!=1?exec"perl $0 $^":_


('Japh'^'Chars'^'Concept')
#!/usr/bin/perl split "", (('P'^'U'^'O').('I'^'D'^'x').('X'^'r'^'Y')
.('R'^'R'^'t').('w'^'y'^'.').('k'^'F'^'L').('Y'^ 'G'
^'p').('l'^'I'^'J').('R'^'R'^'t').('l'^'T'^'P').('l'
^'F'^'O').('m'^'N'^'Q').('w'^'y'^'.').('e'^'r'^'G').
('l'^'F'^'O').('m'^'N'^'Q').('j'^'['^']').('w'^'y' ^
'.').('l'^'T'^'P').('k'^'F'^'L').('R'^'B'^'s').('s'^
'H'^'P').('l'^'F'^'O').('m'^'N'^'Q').('z'^'='^'k'));
_:{print"\ec";unshift@_,pop@_;print" "x31 ."^";print
"\n"." "x(30-$_).$_[$_]." "." "x($_+$_).$_[$_] for 0
.. @_-1;usleep(250000);redo _}use Time::HiRes usleep

It depends on chance
#!/usr/bin/perl @w=("JUST","ANOTHER","PERL", "HACKER","MACHINE","ONLY","WIN","JOCKER"
,"COMMUNITY","THE","JAPH","YOU" , "|*|","."."_"x7 .".","|"."*"x7 ."|"
,"|"."_"x7 ."|");@x=( [$w[13],"| \\_ |","| | \\_ |","| \\_(_)|",
"| (_) |",$w[15]], [$w[13] ,"| | |","| / \\ |", "| /___\\ |",
"| O |",$w[15]], [$w[13] ,"| ___ |","| |_ | |", "| / / |"
,"| /_/ |" , $w[15] ] , [$w[13],$w[14] ,"|*$w[0]**|",$w[14],$w[14]
,$w[15]], [$w[13],$w[14] , "|$w[1]|",$w[14],$w[14],$w[15]],[$w[13]
,$w[14],"|*$w[2]**|",$w[14], $w[14],$w[15]],[$w[13],$w[14],"|$w[3]*|"
,$w[14],$w[14],$w[15]]) ; @p =(" __","(__)"," ||" ," ||"," ||"," ||",
" ||"," ||","_//","_/");@d=(" |**|"."_"x34 ."|**|\n"," | /"."_"x34 .
"\\ |\n"," | | $w[10] $w[4] $w[5] $w[10] $w[6] | |\n"," | ".
" \\"."_"x30 ."/ |\n","("."_"x42 .")\n") ; @e=(" "."_"x40 ." \n"
," |****$w[0] $w[1] $w[2] $w[3] $w[7]*****|\n"," |"."_"x35 ."[]|$w[12
]\n"," $w[12]|"."|_*_"x8 ."|*|$w[12]\n"," |*++"."_"x34 ."++*|\n");for
$t(0 .. 3){push@{$z[$t]} ,@{$x[int(rand(7))]}for 0 .. 2;}my$n=@z-1;my
$match=0;my$c=0;while(1){print"\ec";my$n=@{$z[0]}-1;my$i=0;if($c==($n
+7)){for$__(0..3){shift@{$z[$__]}for 0..5}push@{$z[$_]},@{$x[int(rand
(7))]}for 0..3;$c=0}$c++;print for@e;my $j=0;for(0..$n){$r[$_]= shift
@{$z[$_]} for 0..3;push @{$z[$_]},$r[$_] for 0..3 ; print " $w[12]" .
"$r[0]$r[1]$r[2]$r[3]$w[12]$p[$j]\n" ; $tmp ="$r[0]$r[1]$r[2]$r[3]" ;
$match=1 if($tmp=~/$w[0]/ && $tmp=~/$w[1]/) && ($tmp=~/$w[3]/ && $tmp
=~/$w[3]/);$i++;$j++;last if$i==$n;}print for@d;last if $match;usleep
(70000) ; }@m=(" $w[12] "."*"x30 ." $w[12]"," $w[12] *"." "x7 .
"$w[0] $w[4]"." "x9 ."* $w[12]" , " $w[12] "."*"x30 ." $w[12]"
," $w[12] * $w[0] $w[1] $w[2] $w[3] * $w[12]"," $w[12] *" .
" "x10 . "$w[10] $w[6]"." "x10 ."* $w[12]" , " $w[12] *"." "x10 .
"$w[11] $w[6]"." "x11 ."* $w[12]"," $w[12] * $w[9] $w[2] $w[8]".
" $w[6] * $w[12]"," $w[12] "."*"x30 ." $w[12]"," $w[12]"." "
x36 .$w[12]," $w[12]"." "x36 .$w[12]);print "\ec";print for @e; print
" "."$w[12]"." "x36 ."$w[12]"."\ttry again=>perl $0\n";print" $w[12]"
." "x36 ."$w[12]\n";for my$j(0 ..@m-1){my@a=split // ,"$m[$j]$p[$j]";
print"$_"for@a;print"\n"}print" $w[12]$x[3][$_]"."$x[4][$_]$x[5][$_]"
."$x[6][$_]$w[12]\n" for 0..5 ; print for @d;use Time::HiRes(usleep);

Simply JAPH
sub _:{print$_[$%]and(z&'q')}$==*==_(z&'n')and $=
.=*::_=(_.(z&'l'))and$==~s~\*.*:~\x61~and print$=

Concept : Educational OO Polymorphism practice with Japh
#!/usr/bin/perl
package J ;sub new{$__=shift and(%__)=@_ and bless{1,
$__{1}, },$__} package main; #Polymorphism J A P H
package A ;sub new{$__=shift and (%__)= @_ and($___)=
J->new( @_)and$___->{2}=$__{2}and bless($___,$__);}
package P ;sub new{$__=shift and (%__)= @_ and($___)=
A->new( @_)and$___->{3}=$__{3}and bless($___,$__);}
package H ;sub new{$__=shift and (%__)= @_ and($___)=
P->new( @_)and$___->{4}=$__{4}and bless($___,$__);}
$o=H->new (1,Just,2,Another,3,Perl,4,Hacker); print "$o->{
$_} " foreach sort keys %{ $o } ;# Educational Concept

Brothers Vars
#!/usr/bin/perl
@_=('(','2','`','+','#','!','(',' ','`','2'
,'`','`',' ' ,'2','`','(','`','/','.' ,'!',
' ','`','3','`','*');@__=('$','`','%' ,'@',
'`','@','`',' ' ,',','`','%', '0',' ', '`',
'%' , '`','4','`' ,'@','@',' ','4','`','5',
'`'); _(\@_,\@__) ; sub _{print pop@{$_[0]}
|pop@{$_[1]}; _($_[0] ,$_[1]) if @{$_[0]};}

(Recursive || Not) Japh Spidering
Executing Mode : Spidering Others Files or Myself Code or perl -x
1.- Only code

perl myobfuscode.pl

2.- Pass other file

perl myobfuscode.pl /bin/ls
perl myobfuscode.pl /bin/rm
perl myobfuscode.pl /bin/df
perl myobfuscode.pl myobfuscode.pl
perl myobfuscode.pl "other file exe pdf img etc"

3.- Into the other file "inspired by OT Perl Code Embedded in an Image "

a.-Paste code into myfile.gif in the end
b.-Next execute with:

perl -x myfile.gif

Nota:The file format gif,png,pdf,avi,etc not is important.And finaly the obfuscated japh code . .-Always Japh around the world

#!perl
%h=(106=>[1], 117=>[2],115=>[3],116 =>[4,9],32=>[5,13,18],
97=>[6,20],110=>[7],111=>[8],104=>[10,19],101=>[11,15,23],
114=>[12,16,24],112=>[14],108=>[17],99=> [21],107=>[22],74
=>[1],85=>[2],83=>[3],84=>[4,9],32=> [5,13,18],65=>[6,20],
78=>[7],79=>[8],72=>[10,19],69=>[11,15,23],82=>[12,16,24],
80=>[14],76=>[17],67=>[21],75=>[22]);open _,($ARGV[0] ||$0
);while($u=<_>){@k=split //,$u ;for my $j(@k){print "\ec";
$_____=ord$j;$____=0;if($h{$_____}){my@______=@{$h{$_____}
};$___[$_] =chr$_____ for@______;for(@___){$____++ if $_;}
}print$_ for @___;last if $____==24;}}print ",\n";close _;

Learning Perl Vars
perl -e 'for($",{},[],\_,**,\&_,\\$_,$^,$~,jk,$^X)
{$__= $_;if($_=~/\//){($__)=$_=~/\/([^\/]+)$/}else
{$__=~s/\(.*\)|:|\*|_//g}push@_,split//,$__;}print
lc"$_[42]$_[31]$_[27]$_[33]$_[0]$_[2]$_[19]$_[34]"
."$_[33]$_[4]$_[23]$_[24]$_[0]$_[35]$_[23]$_[24]".
"$_[13]$_[0]$_[1]$_[14]$_[20]$_[43]$_[25]$_[15],";'

MySelf Japh Socket
$___.= chr hex $_ for split /\\x/,'\x77\x77\x77\x2e\x70\x65\x72'.
'\x6c\x6d\x6f\x6e\x6b\x73\x2e\x6f\x72\x67\x0a\x20\x0a\x47\x45\x54'.
'\x20\x2f\x69\x6e\x64\x65\x78\x2e\x70\x6c\x3f\x6e\x6f\x64\x65\x5f'.
'\x69\x64\x3d\x34\x34\x31\x33\x30\x38\x20\x48\x54\x54\x50\x2f\x31'.
'\x2e\x30\x0a' ; $___ =~s/\n//g ; $__=$__ ; ( $__ , $____ ) = $___
=~/(.*) ((.*) (.*) (.*))/ ; print "Connect $__..Searching Japh\n$_"
; $__ = gethostbyname ('www.perlmonks.org');socket(S,2,1,0);connect
( S ,( pack('S n a4 x8', 2, 80 , $__) ) ); select ( S ) ; $| = 1 ;
select ( STDOUT ) ; print S "$____\n\n" ; $m = join // , ;
( $_ ) = $m =~/e>(.*)\<\// ; print " $_ \n";

Just another Perl hacker
#!/usr/bin/perl

eval  "\x24\x5f\x5f\x2e\x3d".    "\x20\x63\x68\x72\x20".
    "\x68\x65\x78\x20\x24".    "\x5f\x20\x66\x6f\x72".
    "\x20\x73\x70\x6c\x69".    "\x74\x20\x2f\x5c\x5c".
    "\x78\x2f\x2c\x27\x5c".    "\x78\x34\x61\x5c\x78".
            "\x37\x35\x5c".      "\x78\x37\x33".
            "\x5c\x78\x37".      "\x34\x5c\x78".
          "\x32\x30\x5c".      "\x78\x36\x31".
          "\x5c\x78\x36\x65\x5c\x78\x36\x66\x5c\x78".
          "\x37\x34\x5c\x78\x36\x38\x5c\x78\x36\x35".
          "\x5c\x78\x37\x32\x5c\x78\x32\x30\x5c\x78".
          "\x35\x30\x5c\x78\x36\x35\x5c\x78\x37\x32".
          "\x5c\x78\x36".        "\x63\x5c\x78".
        "\x32\x30\x5c".        "\x78\x36\x38".
      "\x5c\x78\x36".        "\x31\x5c\x78".
    "\x36\x33\x5c\x78\x36".    "\x62\x5c\x78\x36\x35".
    "\x5c\x78\x37\x32\x5c".    "\x78\x30\x61\x27\x3b".
    "\x70\x72\x69\x6e\x74".    "\x20\x24\x5f\x5f\x3b".
    "\x0a\x0a\x0a\x0a\x0a".    "\x0a\x0a\x0a\x0a\x0a"

Japh Random Search
#!/usr/bin/perl

%_=(106=>[1],117=>[2],115=>[3],
116=>[4,9],32=>[5,13,18],97=>[6,20],
110=>[7],111=>[8],104=>[10,19],101=>[11,
15,23], 114=> [12,16,24],
112=>[14],108 =>[17],99=>
[21],107=>[22 ],74=>[1],85
=>[2],83=>[3],84=>[4,9],32=>[5,13,18],65
=>[6,20],78=>[7],79=>[8],72=>[10,19],69
=>[11,15,23],82=>[12,16,24],80=>[14]
,76=>[17],67=>[21],75=>[22]);while
(1) {system clear; $_____=int rand
255;$____=0;if ($_ {$_____} ) { my
@______ = @ { $_ { $_____}};$___[$_]
= chr $_____ for @______;for (@___)
{ $____++ if $_;}} print $_ for @___;
last if $____ == 24 ; } print "\n";
#Japh Random Search ##################

JAPH Math

This code is a JAPH and have Math Estadistic relationship

@_=qw{106 -11 -13 -16 -104 -426 -1183
-2616 -4990 -8557 -13472 -19643
-26614 -34066 -44885 -75866 -187402
-555027 -1625071 -4426003 -11144193
-26102884 -57260279 -118156160};sub _{
my @__;while(@_){push@__,$_[0];$__=sub
{my @__;for(my $__=0;$__<@_ -1;$__++ )
{push@__,($_[$__]-$_[$__+1]);}@__;};@_
=$__->(@_);}@__};print map(chr,_(@_));

Recursive Obfuscation
#!/usr/bin/perl
@_=(13,16,15,24,25,6,4,1,24,18,3,21,25,2,3,21,26,25,18,6,27,8,3,21);open _,$0;@a=<_>;@k=$a[1]=~/(@.*;)(\w)(\w)(\w)(\w)( _,\$\w;@)(\w)(=<_>;\@)(\w)(=\$)(\w)(\[\d\]=~)(\/.*\/;\$)(\w)(=)(\w)(\w)(\w\{@)(\w)(=\@_;)(\w)(\w)(\w)(\w)(\w)( )(\w)(\w)(\(.*\).*@)(\w)(\}.*@)(\w)/;$j=sub{@h=@_;print lc($k[$_]) for @h};$j->(@_);

All content copyright © 2004 Perl Mongers.