Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

(Recursive || Not) Japh Spidering

by cristian (Hermit)
on Mar 31, 2005 at 15:06 UTC ( #443852=obfuscated: print w/replies, xml ) Need Help??

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 _;

Replies are listed 'Best First'.
Re: (Recursive || Not) Japh Spidering
by BioGeek (Hermit) on Apr 19, 2005 at 01:10 UTC
    Very nicely done!

    It worked for all the examples given above, except for when I tried it on my homenode image. Then I got:
    Ut ANtHE pEL HAKE,

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://443852]
Approved by Tanktalus
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (5)
As of 2018-07-22 20:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?















    Results (455 votes). Check out past polls.

    Notices?