Slashdot Mirror
5th Annual Obfuscated Perl Contest
$Bob writes "The best and brightest of the Perl community are showing up to drive you insane. Test you strength in the 5th Annual Obfuscated Perl Contest!" Name your variables after the stooges! Write Spagetti! Its good!
I just found it. It's called 'vanschnitz' and can be found here
Every expression is true, for a given value of 'true'
"trolling, karma-whoring crap" Have you considered a nice hot bubble bath and maybee a little time off in the country to rest?? Take your mind off things and remember how much we should all just love each other on this big ball of granite?? other than that, I agree.
Dirty Pirate Hooker
Click and scroll down
Too bad I bit.
--
A mind is a terrible thing to taste.
"A mind is a terrible thing to taste."
well, damn, i'll have to post that more often then.
mod this guy up!
BilldaCat
I don't know... I always liked gandalf.c--the one where the code is in the shape of the Cat in the Hat.
----------
"Rock over London... Rock on Chicago..." -Wesley Willis
WWJD? JWRTFM!!!
so do unix hackers... ;)
Do you even know anything about perl? -- AC Replying to Tom Christiansen post.
One of the entries is a "wc"[1] programme that will work both in Perl and C... Makes my teeth itch :-)
[1]Word count, rather than Water Closet, of course.
Ahmen.
Stop talking about who's to blame when all that counts is how to change --"Born of Frustration" - James
Or perhaps Attack of the Mutant Camels, another Minter classic.
Jeff Minter is easily the greatest computer game creator the world has ever seen.
How could you possibly say that LISP is an obfuscated language? It's by far one of the most elegant languages ever created! You just need to shift your mind from thinking iteratively to thinking recursively.
"Evil will always triumph over good, because good is dumb." - Dark Helmet (Spaceballs)
Obfuscated C is funny because C is supposed to be all strict and anal. Obfuscated Perl isn't funny because Perl deliberately allows obfuscation for the sake of speedy coding.
It's like the Dem/Repub convetions: they are supposed to be flimsy and full of rhetoric, so why does the press write articles proclaiming how flimsy and rhetorical(?) the convetions are (will be.) Duh. As my grandma would say as she downed another Miller Lite: "No shit, Sherlock."
---
https://www.accountkiller.com/removal-requested
I know I'll get moderated down for trolling or redundancy or somesuch, but I just have to say this: Enter Slash! You know you'll win. Of course getting it under the 512k line will be a little tricky but you can do it! We have faith in you!
perl, especially when written by me, seems to be a write-only language... :)
That's because it wouldn't be very challenging... ;)
(This from a guy who loves C++)
All about me
How about a writing Perl-obfuscator in obfucsated perl? Then, just crank your code through enough times that even you can't recognize it, and submit!
(Well, actually, it was the regex that put him off... Any language where| ([^\s]+)\s?|\s/g) {
while ($line=<>) {
foreach ($line=~/\"((?:(?:[^\"\\]*)|(?:(?:\\\")*))*)\"\s?
print "$_\n";
}
} is legal is enough to scare anyone...)
(One faux karma point to anyone who can tell me what that does :))
You are in a maze of twisty little relative jumps, all alike.
Is someone trying to trick the FBI into releasing the source for Carnivore?
If so, how do they know it's written in Perl? I thought they were using VB....
Of course we all know that it's boud to be obfuscated enough to win......
-Space for rent
Perhapse it's redundant because someone says something like it every time Perl comes up in a story...
dumbass.
How many of you were sitting at work when you saw this item, and have since spent a good deal of time trying to write a bit of obfuscated perl to post here as your response?
I'm not the only one, fess up.
Here you go.
#!/usr/bin/perl
print "hello world\n";
exit;
-toup
eval("\x70\x72\x69\x6e\x74\x20\x22\x54\x68\x69\x73 \x20\x74\x6f\x74\x61\x6c\x6c\x79\x20\x52 \x75\x6c\x33\x5a\x21\x0a\x22")
"Extremism in defense of liberty is more fun."
You don't want to admit doing it and it gets a little messy sometimes, but you sometimes need old Rosy to get the dirty deed done quickly.
Stop talking about who's to blame when all that counts is how to change --"Born of Frustration" - James
At Paris.pm (in France), we have devoted a page to obfuscating the expression $A++ .
Now 55 and counting.
BooKCheck the one with NO alphanumerical characters AT ALL!
Good programming habits are the same across most languages. I think there are just more bad perl programmers because they all came from doing web design.
WWJD? JWRTFM!!!
How are you able to tell the difference between Obfuscated & Un-Obfuscated Perl? :)
Make your bets now: Will this post be Funny or Flamebait?
DrQu+xum: Proof that the lameness filter doesn't work.
The problem with Perl is that it lets me do things too quickly, meaning I have to spend the rest of my time reading gentlemen's literature with my feet up on the desk.
Heh!
-- Cisk for the Cisk God
tar -xvf perl-5.6.0.tar.gz
cd perl-5.6.0
make
make install
WWJD? JWRTFM!!!
Unfortunately, the resulting "obfuscate.c" is WAY too big to be entered in the contest...
"It's overkill, of course. But you can never have too much overkill." - Anonymous Slashdot Coward
How many of you were sitting at work when you saw this item, and have since spent a good deal of time trying to write a bit of obfuscated perl to post here as your response?
I'm not the only one, fess up.
Now we can make some money from GPL'd software: give the source code away for free, and charge for the comments.
I'm still waiting for my eyeballs to uncross after reading my last LISP progrem.
... full of parens"
[Begin Also Spach Zarathustra theme music] "My God, it's , it's
"If I have seen further than other men, it is by stepping on their glasses." - Michael Swaine
jeb.
I think of it as open-source copy protection.
.sig: Now legally binding!
I've got $7 that says it doesn't get moderated at all.
Of course, why my cash is talking to me is a different story.
I was always a fan of the Obfuscated C contest (my fave category was 'abuse of the preprocessor'), but have to say these contests have their downside. They're used by language Nazis as arguments for why its a bad idea to use the language involved. "How can you consider using a language that's so crappy that people can write inpenetrable code with it?" is the usual harangue. (To which I always responded that any language can be abused in this fashion. Then I'd shoot them with my Nerf gun.)
"If I have seen further than other men, it is by stepping on their glasses." - Michael Swaine
seriously, though, while i suppose there is such a thing as elegant perl, as neat perl, as organized, modular, and even object-oriented perl, at its core, perl is a way to get things done quickly and simply. and, at least to some of the people whose perl i've had the "pleasure" of wading through, quickly and simply also seems to imply sloppy and quirky. which i suppose doesn't sound too bad, but when another coder comes along and extends sloppy and quirky code with messy, odd-ball code...
maybe i should just go back to c++, where things are always so straightforward... (heh)
Wouldn't the real challenge be an UnObfuscated Perl contest?
;)
(disclaimer: I like and use perl for many things...but it still looks like a doctor's handwriting
-- Life is short. Forgive quickly. Kiss slowly. ~ Robert Doisneau
Main Entry: obfuscate Pronunciation: 'äb-f&-"skAt; äb-'f&s-"kAt, &b- Function: transitive verb Inflected Form(s): -cated; -cating Etymology: Late Latin obfuscatus, past participle of obfuscare, from Latin ob- in the way + fuscus dark brown -- more at OB-, DUSK Date: 1577 1 a : DARKEN b : to make obscure 2 : CONFUSE - obfuscation /"äb-(")f&s-'kA-sh&n/ noun
- obfuscatory /äb-'f&s-k&-"tOr-E, &b-, -"tor-/ adjective
Thus my above coment was a witty comentary upon the popular conception of the word obfuscate. I am dismayed you did not get it.
Dirty Pirate Hooker
One word: Microsoft.
"Research is what I am doing when I don't know what I am doing." -- Wernher von Braun
All code due Dec. 31, 2000. Please direct questions to Steve Ballmer, Microsoft Craporation.
or write just anything in intercal...
No one can understand the truth until he drinks of coffee's frothy goodness.
--Sheikh Abd-Al-Kadir, 1587
Blindingly fast (on a DX66) and insanely addictive.
Athletic Scholarships to universities make as much sense as academic scholarships to sports teams.
Or...was it Revenge of the Killer Llamas (the sequel?) I forgot. It's suuuuuuuuuch a long time ago where code is short and sweet and all packed into 3K (for the VIC 20). Now Take That for obsfuscated!
Mode (3) smart-aleck mode. Press * to return to main menu.
just checked, it's Attack/Revenge of the Mutant Camels. Ilamasoft for the Vic20 (3Kilobytes!).
I got it confused with Llamasoft.
Jeff Minter's still coding!
Mode (3) smart-aleck mode. Press * to return to main menu.
Is there any perl more obfuscated than the implementation of RSA in 2 lines? That's unbelievable. It was impressive years ago when it was 5 lines. Of course, it could be argued that it belongs in an Obfuscated dc contest instead.
Assembly is the reverse of disassembly.
The Braille/ascii converter was my favorite too.
The real beauty of the program, was that the code itself was its own documentation -- in braille!
You ran the program on itself to see the documentation in ascii.
--
A mind is a terrible thing to taste.
"A mind is a terrible thing to taste."
It's a wierd contrast.. sometimes the can do something so well, and be feared for it... Yet other time be a bunch of bumbling idiots. (Waco.. Ruby ridge....)
Dirty Pirate Hooker
Yeah? What's he doing these days, anything interesting?
:-)
Attempt to drag us back to some semblance of on-topicness: Llamas, Camels; is Larry Wall really just a pseudonym for Jeff Minter?
Ah yes. I had the same situation with C. My favorite was the guy who knew Fortran and hated C, so he used the preprocessor to, in effect, create his own Fortran-like language. (My God, now I'm going to have nightmares about that one tonight)
"If I have seen further than other men, it is by stepping on their glasses." - Michael Swaine
This is neat, a first post about perl that doesn't necessarily flame it to death.
My $5 are on obfuscated, perl can be used to generate really neat and inteligable (sp?) code if you're not too lazy. Since I'm REALLY lazy, I'll submit some of my code.
As a suggestion, they should have a category for the smallest program to serve a webpage - that'll be intresting, coding an http 1.0 daemon and serving a page without using any modules. Just a thought...
All browsers' default homepage should read: Don't Panic...
So is the complaint from many Windows users... Let's see - I can save with -s, File..save, File...Save As, or the little button thingey... It's a small world, after all.... :-)
Roll Tide! For Bama headlines, check out Bamadog.
Hmmm...I wonder how much preprocessor magic it would take to make C into Perl?
Scary thought
I can't say that I don't give a fuck. I've just run out of fuck to give.
The shortest version yet: sort | uniq -c
Phear my l33t homepage.
I agree with Congress, the White House, and Microsoft, but those are the main blunderers. The CIA, FBI, and particularly the NSA, and for those of you who remember the cold war, the KGB and GRU, are to be feared, particularly by crackers, phreaks, lusers, and other shower scum of the hacking world. Most of us have nothing to be concerned of.
On a tangentally related note, anyone considered other obfuscated contests, such as an obfuscated TI-BASIC contest, for those of us still in high school or college?
Try this; it will actually work ;-)
#!/usr/bin/perl -w
s{(tech|rights|Constitution)}
{(qw(corporation abuse geek system internet new era Hellmouth))[int(rand(8))] . " $1"}egi, print for <DATA>;
__DATA__
Plugin your text here
San Francisco values: compassion, tolerance, respect, intelligence
yohmaz says:
/* BROKEN_STATIC_REDECL */
/* pointer to malloced string */
/* length of xp_pv as a C string */
/* allocated size */
/* integer value */
/* numeric value, if any */
/* magic for scalar array */
/* class package */
/* >= 2 indicates recursive call */
/* current owner thread */
/* USE_THREADS */
/* BROKEN_UNION_INIT */
6 -linux", 47);
* )&sv_list[0]));
* )&sv_list[1]));
/* ALLOW_PERL_OPTIONS */
/* ALLOW_PERL_OPTIONS */
-----------
For the next Obuscated C code contest, I'm going to write the follwing perl script:
#!/usr/bin/perl
print "Hello World\n";
and then
perl -MO=CC,-O2,-oobfuscate.c obfuscate.pl
and submit the obfuscate.c
----------
So, here's the output {grin}:
*whine* but its ONLY 295 lines...
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
/* Workaround for mapstart: the only op which needs a different ppaddr */
#undef Perl_pp_mapstart
#define Perl_pp_mapstart Perl_pp_grepstart
#define XS_DynaLoader_boot_DynaLoader boot_DynaLoader
EXTERN_C void boot_DynaLoader (pTHX_ CV* cv);
static void xs_init (pTHX);
static void dl_init (pTHX);
static PerlInterpreter *my_perl;
#ifdef BROKEN_STATIC_REDECL
#define Static extern
#else
#define Static static
#endif
#ifdef BROKEN_UNION_INIT
/*
* Cribbed from cv.h with ANY (a union) replaced by void*.
* Some pre-Standard compilers can't cope with initialising unions. Ho hum.
*/
typedef struct {
char * xpv_pv;
STRLEN xpv_cur;
STRLEN xpv_len;
IV xof_off;
double xnv_nv;
MAGIC* xmg_magic;
HV* xmg_stash;
HV * xcv_stash;
OP * xcv_start;
OP * xcv_root;
void (*xcv_xsub) (CV*);
void * xcv_xsubany;
GV * xcv_gv;
char * xcv_file;
long xcv_depth;
AV * xcv_padlist;
CV * xcv_outside;
#ifdef USE_THREADS
perl_mutex *xcv_mutexp;
struct perl_thread *xcv_owner;
#endif
cv_flags_t xcv_flags;
} XPVCV_or_similar;
#define ANYINIT(i) i
#else
#define XPVCV_or_similar XPVCV
#define ANYINIT(i) {i}
#endif
#define Nullany ANYINIT(0)
#define UNUSED 0
#define sym_0 0
Static OP op_list[3];
Static LISTOP listop_list[2];
Static SV sv_list[12];
Static XPV xpv_list[7];
Static XPVAV xpvav_list[3];
Static XPVHV xpvhv_list[1];
static OP * pp_main (pTHX);
static OP op_list[3] = {
{ 0, 0, NULL, 0, 0, 65535, 0x0, 0x0 },
{ 0, 0, NULL, 0, 177, 65535, 0x0, 0x0 },
{ (OP*)&listop_list[1], 0, NULL, 0, 190, 65535, 0x1, 0x0 },
};
static LISTOP listop_list[2] = {
{ 0, 0, NULL, 0, 209, 65535, 0x5, 0x0, 0, 0, 1 },
{ 0, 0, NULL, 0, 178, 65535, 0xd, 0x40, &op_list[1], &op_list[2], 5 },
};
static SV sv_list[12] = {
{ &xpvav_list[0], 1, 0xa },
{ &xpvav_list[1], 1, 0xa },
{ 0, 1, 0x100 },
{ &xpv_list[0], 1, 0x4840004 },
{ &xpvhv_list[0], 2, 0x2000000b },
{ &xpvav_list[2], 2, 0xa },
{ &xpv_list[1], 1, 0x4040004 },
{ &xpv_list[2], 1, 0x4040004 },
{ &xpv_list[3], 1, 0x4040004 },
{ &xpv_list[4], 1, 0x4040004 },
{ &xpv_list[5], 1, 0x4040004 },
{ &xpv_list[6], 1, 0x4040004 },
};
static XPV xpv_list[7] = {
{ 0, 12, 13 },
{ 0, 37, 38 },
{ 0, 26, 27 },
{ 0, 47, 48 },
{ 0, 36, 37 },
{ 0, 30, 31 },
{ 0, 1, 2 },
};
static XPVAV xpvav_list[3] = {
{ 0, -1, -1, 0, 0.0, 0, Nullhv, 0, 0, 0x1 },
{ 0, -1, -1, 0, 0.0, 0, Nullhv, 0, 0, 0x1 },
{ 0, -1, -1, 0, 0.0, 0, Nullhv, 0, 0, 0x1 },
};
static XPVHV xpvhv_list[1] = {
{ 0, 0, 31, 0, 0.0, 0, Nullhv, -1, 0, 0, 0 },
};
static int perl_init()
{
dTHR;
dTARG;
djSP;
{
SV **svp;
AV *av = (AV*)&sv_list[1];
av_extend(av, 1);
svp = AvARRAY(av);
*svp++ = (SV*)&PL_sv_undef;
*svp++ = (SV*)&sv_list[2];
AvFILLp(av) = 1;
}
op_list[0].op_ppaddr = pp_main;
op_list[1].op_ppaddr = PL_ppaddr[OP_ENTER];
xpv_list[0].xpv_pv = savepvn("Hello world\n", 12);
listop_list[0].op_ppaddr = PL_ppaddr[OP_PRINT];
op_list[2].op_ppaddr = PL_ppaddr[OP_EXIT];
listop_list[1].op_ppaddr = PL_ppaddr[OP_LEAVE];
xpv_list[1].xpv_pv = savepvn("/usr/local/lib/perl5/5.6.0/i686-linux", 37);
xpv_list[2].xpv_pv = savepvn("/usr/local/lib/perl5/5.6.0", 26);
xpv_list[3].xpv_pv = savepvn("/usr/local/lib/perl5/site_perl/5.6.0/i68
xpv_list[4].xpv_pv = savepvn("/usr/local/lib/perl5/site_perl/5.6.0", 36);
xpv_list[5].xpv_pv = savepvn("/usr/local/lib/perl5/site_perl", 30);
xpv_list[6].xpv_pv = savepvn(".", 1);
{
SV **svp;
AV *av = (AV*)&sv_list[5];
av_extend(av, 5);
svp = AvARRAY(av);
*svp++ = (SV*)&sv_list[6];
*svp++ = (SV*)&sv_list[7];
*svp++ = (SV*)&sv_list[8];
*svp++ = (SV*)&sv_list[9];
*svp++ = (SV*)&sv_list[10];
*svp++ = (SV*)&sv_list[11];
AvFILLp(av) = 5;
}
PL_main_root = (OP*)&listop_list[1];
PL_main_start = &op_list[0];
PL_curpad = AvARRAY((AV*)&sv_list[1]);
PL_initav = (AV *) Nullsv;
GvHV(PL_incgv) = (HV*)&sv_list[4];
GvAV(PL_incgv) = (AV*)&sv_list[5];
av_store(CvPADLIST(PL_main_cv),0,SvREFCNT_inc((AV
av_store(CvPADLIST(PL_main_cv),1,SvREFCNT_inc((AV
PL_amagic_generation= 0;
return 0;
}
#include "cc_runtime.h"
static
CCPP(pp_main)
{
I32 oldsave;
SV **svp, *sv, *src, *dst, *left, *right;
MAGIC *mg;
djSP;
lab_80f5670:
PL_op = &op_list[1];
DOOP(PL_ppaddr[OP_ENTER]);
TAINT_NOT;
sp = PL_stack_base + cxstack[cxstack_ix].blk_oldsp;
lab_80f5848:
PUSHMARK(sp);
EXTEND(sp, 1);
PUSHs((SV*)&sv_list[3]);
PL_op = (OP*)&listop_list[0];
DOOP(PL_ppaddr[OP_PRINT]);
lab_82cddd8:
TAINT_NOT;
sp = PL_stack_base + cxstack[cxstack_ix].blk_oldsp;
PL_op = &op_list[2];
DOOP(PL_ppaddr[OP_EXIT]);
DOOP(PL_ppaddr[OP_LEAVE]);
FREETMPS;
PUTBACK;
return PL_op;
}
int
main(int argc, char **argv, char **env)
{
int exitstatus;
int i;
char **fakeargv;
PERL_SYS_INIT3(&argc,&argv,&env);
if (!PL_do_undump) {
my_perl = perl_alloc();
if (!my_perl)
exit(1);
perl_construct( my_perl );
PL_perl_destruct_level = 0;
}
#ifdef CSH
if (!PL_cshlen)
PL_cshlen = strlen(PL_cshname);
#endif
#ifdef ALLOW_PERL_OPTIONS
#define EXTRA_OPTIONS 2
#else
#define EXTRA_OPTIONS 3
#endif
New(666, fakeargv, argc + EXTRA_OPTIONS + 1, char *);
fakeargv[0] = argv[0];
fakeargv[1] = "-e";
fakeargv[2] = "";
#ifndef ALLOW_PERL_OPTIONS
fakeargv[3] = "--";
#endif
for (i = 1; i argc; i++)
fakeargv[i + EXTRA_OPTIONS] = argv[i];
fakeargv[argc + EXTRA_OPTIONS] = 0;
exitstatus = perl_parse(my_perl, xs_init, argc + EXTRA_OPTIONS,
fakeargv, NULL);
if (exitstatus)
exit( exitstatus );
sv_setpv(GvSV(gv_fetchpv("0", TRUE, SVt_PV)), argv[0]);
PL_main_cv = PL_compcv;
PL_compcv = 0;
exitstatus = perl_init();
if (exitstatus)
exit( exitstatus );
dl_init(aTHX);
exitstatus = perl_run( my_perl );
perl_destruct( my_perl );
perl_free( my_perl );
PERL_SYS_TERM();
exit( exitstatus );
}
/* yanked from perl.c */
static void
xs_init(pTHX)
{
char *file = __FILE__;
dTARG;
djSP;
#ifdef USE_DYNAMIC_LOADING
newXS("DynaLoader::boot_DynaLoader", boot_DynaLoader, file);
#endif
/* bootstrapping code*/
SAVETMPS;
targ=sv_newmortal();
#ifdef DYNALOADER_BOOTSTRAP
PUSHMARK(sp);
XPUSHp("DynaLoader",strlen("DynaLoader"));
PUTBACK;
boot_DynaLoader(aTHX_ NULL);
SPAGAIN;
#endif
FREETMPS;
/* end bootstrapping code */
}
static void
dl_init(pTHX)
{
char *file = __FILE__;
dTARG;
djSP;
/* Dynamicboot strapping code*/
SAVETMPS;
targ=sv_newmortal();
FREETMPS;
/* end Dynamic bootstrapping code */
}
#!/usr/bin/perl
print "Hello World\n";
and then
perl -MO=CC,-O2,-oobfuscate.c obfuscate.pl
and submit the obfuscate.c
--
A mind is a terrible thing to taste.
"A mind is a terrible thing to taste."
Yey! =P
wow .. moderators really have a sence of humor.
See Rob's Comments:
HERE for the Third Annual Obfuscated Perl Contest.
Yeah, I know Perl code looks like crap. I'm not trying to deny it. However, this "joke" just isn't funny anymore. Seriously, I happened to be looking at an old /. post about the 4th annual contest, and this same stupid joke was made like 50 times. And here it is again! You'd better believe it won't be the last either. Come on! Can't you at least thing of an original way to make fun of perl?
I am not an idiot. Please use my name to email me.
"That's right, I'm quoting myself."
-Upsilon
Or mainframe programmer.
What made it obfuscated?
- It didn't use Xlib. It opened a socket and wrote the X protocol directly.
- It was about 1024 characters long.
- It ran like a bat out of hell - each pixel was a cell (so typical workstation monitor == one million cells), and it appeared to do about five or ten generations a second!
I loved just leaving that puppy running.... It started out with a random sampling of cells, and watching gliders spring up and soar across the screen....ObPerl: And people have suggested using this language as a first programming language? Eep.
-----
Klactovedestene!
#
$Conn = $Server->CreateObject("ADODB.Connection");
# Open a system DSN
#
$Conn->Open( "ADOSamples" );
# Execute an SQL Query
#
$RS = $Conn->Execute( "SELECT * FROM Orders" );
# Read a property to get the number of columns
# present in the Recordset returned from the
# query.
#
$count = $RS->Fields->{Count};
# Print out the names of each column
#
for ( $i = 0; $i $Response->Write( $RS->Fields($i)->Name );
$Response->Write("
");
};
# Loop the Recordset until there are no more records
#
while ( ! $RS->{EOF} ) {
for ( $i = 0; $i $Response->Write(" ");
$Response->Write($RS->Fields($i)->{Value});
$Response->Write("
");
};
# Move to the next record
#
$RS->MoveNext();
};
# Close the Recordset
#
$RS->Close();
$Conn->Close();
%>
Of course, a real entry would leave out the comments. Whaddya think? Would this qualify?
No, Thursday's out. How about never - is never good for you?
If the Obfuscated C Contest didn't have such small size limitations on C files, I'd post the source code to Perl!
...however, I need to see what silly rules the Obfuscated Perl contest has. If it doesn't have that many, you can just *bet* that I'll write a source filter that decrypts to Perl, runs itself, and calls the C preprocessor! (and maybe I'll have it generate and compile some C code while I'm at it... hmm.)
---
pb Reply or e-mail; don't vaguely moderate.
pb Reply or e-mail; don't vaguely moderate.
I hearby nominate Slashcode as the ultimate bit of obfuscated Perl code. Upon reading the relativly clean code, you think it's a mere weblog. But when you implement it, it turns out to be the world's most powerful distributed denial of service tool.
I know Microsoft technicians who don't sleep well knowing their webserver could be taken down by a global community of GNU extremists at any time of day or night. I know Apache admins that cringe and start filling out requisition orders for RAID arrays and Xeon processors at the slightest suggestion that someone submitted their site to Slashdot. Myself, I planned ahead with a script that reroutes everything to localhost at the first sign that my poor overworked server is having a breakdown. The chance of it being to linked to by Slashdot is one in a million, but I'm not taking any chances at being on the recieving end..
.sig: Now legally binding!
Attack of the killer llamas? You don't mean LlamaTron do you?
#!/usr/bin/perl
while(){
$hash{$_}++;
}
while(($line,$times_seen) = each %hash){
print "$times_seen $line\n";
}
--
"L'IT c'est moi!"
Yeah, I made a litle game, It's called "Try to escape the pr0n windows*, this is how it works:
#!usr/local/bin/perl
$pop_up -> new window();
$pop_up ->Start_html,
$pop_up ->close_window()
{
$pop_up->window('http://pr0n_url/'),
until resboot();
}
;-) wiZd0m
Disclaimer: I am not a perl programmer, and I know the syntax is flawed.
It's davidguy.c right? Did you do anything special to compile it in Linux? I keep getting a floating exception.
$5 is invalid
--
A mind is a terrible thing to taste.
"A mind is a terrible thing to taste."
cat
I've finally had it: until slashdot gets article moderation, I am not coming back.
LOL...
Carousel is a lie!
1st annual content
2nd annual contest
3rd annual contest
4th annual contest
Good luck to this year's contestants!
--
Kiro
This is what I cooked up to chop the '//' comment off of a line C++ code (taking into account the possibility of '/**/' comments and quoted strings).
? :\\"|[^"])*\")|(?:\/[^\/]))+)(\/\/.+)?/o ;
sub line_comment{
#Now to handle comments [evil chuckle]...
$_[0]=~/((?:[^'"\/]+|(?:\'(?:\\'|[^'])*\')|(?:\"(
return ($1, $2);
}
Now, I probably should have used the "/x" modifier and formatted this with comments, but there's just something about regex matching that makes any effort toward improving readability seem wrong.
I do this sort of thing all the time.
---
Despite rumors to the contrary, I am not a turnip.
My favorite is the tic tac toe game that is both the game and the code! (recompile to play next move...)
Hmmm, I can't seem to compile it. Lots of errors about undeclared variables. :-(
I'm going to put my name all over Slashcode. It'll be a shoe-in!
..is, I think, I could submit some of my own old (newbie) code unaltered.
Send your friends messages of love at fuck-you.org
#!/usr/bin/python
from sys import *
m={}
for line in stdin.readlines():
m[line] = m.get(line,0)+1
for line,count in m.items():
stdout.write("%d %s" % (count, line))
People like you exist. I fear for the human race.
You got modded up because...you suggested that someone else get modded up?
I guess I'll get modded down for suggesting that you get modded down.
-----
Um... I think I started to write an unobfuscated Hello World in Perl, in 1997, it's up to 2,500 lines, but sure looks orderly. I hope I can just get it running in time!
Vote Naked 2000
A feeling of having made the same mistake before: Deja Foobar
sig:
sig:
See the "..for smart people" banners Wired runs here? Look elsewhere guys.
if ($_ =~ /tech|rights|Constitution/) {
| internet|new era|Hellmouth');
ReplaceRandomWords('corporation|abuse|geek|system
}
Think that would make it under the crappy web page category?
In post-9/11 America, the CIA interrogates YOU!
-- Dave
This post expresses my opinion, not that of my employer. And yes, IAAL.
That's what my signature says for a while now:
Spaghetti Code is Tasty Code!
For more funny signature, you can check http://bugzilla.mozilla.org/data/comments (When it becomes available again.)
dudle.
Looking for a great online backup: Green Backup
Why don't you enter slash??
I know deep down you've always wanted to. <grin>
They would have to get in line behind Congress, the white house, the CIA, the FBI..............
Dirty Pirate Hooker
I've done some contracts maintaining Perl, and have seen some code that could win these hands down. Now I find out that they could have submitted it to the contest instead of the maintenance programmers, and actually won fame!!!
I can't say that I don't give a fuck. I've just run out of fuck to give.
Of the Obfuscated C Code Contest.
That contest could create some real good compiler tests.
Like, how about a solution to Towers of Hanoi that let the compiler solve the problem by recursively including itself, eventually creating one huge 'printf()'-statement?
And it used a compiler switch for the number of pegs. At the time I tested it, gcc broke (or my computer ran out of memory, I'm not really sure which of the two...) at 15 pegs.
The solution to 14 pegs would create a over 1 MB executable containing just an MB of printf("really long string"); text.
If I find a link to it somewhere I'll let you know. The International Obfuscated C Code Contest (IOCCC) has it's homepage at www.ioccc.org, but I can't seem to remember the name of the program.
Every expression is true, for a given value of 'true'
When I look at the obfuscated Perl code, I get the same sort of feeling when I look at my own Perl code. You know, that, "Yes, this is definately Perl" feeling.
http://thepope.org/~paco/
This one is NOT redundant!
| Ceci n'est pas une pipe.
This reminds me of Suck.com. An excellent way to define good is by its opposite. Yeah, and it's fun, too.
Moded down to -1(offtopic).
Moderator, you're perhaps an illiterate imbecile? That is a major point of the contest, to improve coding.
Live to be Moderated
If somebody can rewrite that classic Spectrum ZX game Attack of the Killer Llamas in 2048 characters or less, that will win for sure :)
Mode (3) smart-aleck mode. Press * to return to main menu.
Damn.
I was wrong.
Now I've gotta give all seven dollars to myself.
Man.
Check out the C obfuscated contest from the 90's. If you haven't seen any of the winning programs before, you will be amazed, shocked and left in wonder (Like I wonder what the day job of these developers is...)
International Obfuscated C page and the amazing and confounding winners.
My favorite is the tic tac toe game that is both the game and the code! (recompile to play next move...)
-- Moondog
10 A$="Hello World."
20 ? A$
--
"It's tough to be bilingual when you get hit in the head."