Perl is crazy!
-
not exp log srand xor s qq qx xor
s x x length uc ord and print chr
ord for qw q join use sub tied qx
xor eval xor print qq q q xor int
eval lc q m cos and print chr ord
for qw y abs ne open tied hex exp
ref y m xor scalar srand print qq
q q xor int eval lc qq y sqrt cos
and print chr ord for qw x printf
each return local x y or print qq
s s and eval q s undef or oct xor
time xor ref print chr int ord lc
foreach qw y hex alarm chdir kill
exec return y s gt sin sort splitQuote:
It's just pointless obfuscation, but its kinda neat. That code prints out "Just another Perl hacker" using only keywords in perl. The trick to it is that the "q" keyword works as a quote, and the rest of the code is just operating on the keywords that are now just strings inside the q tags.
:eek:
What do you get when you cross a joke with a rhetorical question? The metaphorical solid rear-end expulsions have impacted the metaphorical motorized bladed rotating air movement mechanism. Do questions with multiple question marks annoy you???
-
not exp log srand xor s qq qx xor
s x x length uc ord and print chr
ord for qw q join use sub tied qx
xor eval xor print qq q q xor int
eval lc q m cos and print chr ord
for qw y abs ne open tied hex exp
ref y m xor scalar srand print qq
q q xor int eval lc qq y sqrt cos
and print chr ord for qw x printf
each return local x y or print qq
s s and eval q s undef or oct xor
time xor ref print chr int ord lc
foreach qw y hex alarm chdir kill
exec return y s gt sin sort splitQuote:
It's just pointless obfuscation, but its kinda neat. That code prints out "Just another Perl hacker" using only keywords in perl. The trick to it is that the "q" keyword works as a quote, and the rest of the code is just operating on the keywords that are now just strings inside the q tags.
:eek:
What do you get when you cross a joke with a rhetorical question? The metaphorical solid rear-end expulsions have impacted the metaphorical motorized bladed rotating air movement mechanism. Do questions with multiple question marks annoy you???
So the real question here, which is the most mystifying language? Perl? or [Brainfuck](https://en.wikipedia.org/wiki/Brainfuck)?! :o
A new .NET Serializer All in one Menu-Ribbon Bar Taking over the world since 1371!
-
not exp log srand xor s qq qx xor
s x x length uc ord and print chr
ord for qw q join use sub tied qx
xor eval xor print qq q q xor int
eval lc q m cos and print chr ord
for qw y abs ne open tied hex exp
ref y m xor scalar srand print qq
q q xor int eval lc qq y sqrt cos
and print chr ord for qw x printf
each return local x y or print qq
s s and eval q s undef or oct xor
time xor ref print chr int ord lc
foreach qw y hex alarm chdir kill
exec return y s gt sin sort splitQuote:
It's just pointless obfuscation, but its kinda neat. That code prints out "Just another Perl hacker" using only keywords in perl. The trick to it is that the "q" keyword works as a quote, and the rest of the code is just operating on the keywords that are now just strings inside the q tags.
:eek:
What do you get when you cross a joke with a rhetorical question? The metaphorical solid rear-end expulsions have impacted the metaphorical motorized bladed rotating air movement mechanism. Do questions with multiple question marks annoy you???
Long ago I tried to install Perl, my god what a mess! removed it the same day from my PC :doh:
-
So the real question here, which is the most mystifying language? Perl? or [Brainfuck](https://en.wikipedia.org/wiki/Brainfuck)?! :o
A new .NET Serializer All in one Menu-Ribbon Bar Taking over the world since 1371!
Malbolge
-
Malbolge
:laugh: :thumbsup:
A new .NET Serializer All in one Menu-Ribbon Bar Taking over the world since 1371!
-
not exp log srand xor s qq qx xor
s x x length uc ord and print chr
ord for qw q join use sub tied qx
xor eval xor print qq q q xor int
eval lc q m cos and print chr ord
for qw y abs ne open tied hex exp
ref y m xor scalar srand print qq
q q xor int eval lc qq y sqrt cos
and print chr ord for qw x printf
each return local x y or print qq
s s and eval q s undef or oct xor
time xor ref print chr int ord lc
foreach qw y hex alarm chdir kill
exec return y s gt sin sort splitQuote:
It's just pointless obfuscation, but its kinda neat. That code prints out "Just another Perl hacker" using only keywords in perl. The trick to it is that the "q" keyword works as a quote, and the rest of the code is just operating on the keywords that are now just strings inside the q tags.
:eek:
What do you get when you cross a joke with a rhetorical question? The metaphorical solid rear-end expulsions have impacted the metaphorical motorized bladed rotating air movement mechanism. Do questions with multiple question marks annoy you???
-
I agree … this is rather horrifying, and knowing nothing about … ooops :-)...[EDIT]Pearl Perl [/EDIT], I dare to ask for evidence of this … :-). Where can I see the result ?
https://www.tutorialspoint.com/online_perl_ide.php[^]
"The greatest enemy of knowledge is not ignorance, it is the illusion of knowledge". Stephen Hawking, 1942- 2018
-
https://www.tutorialspoint.com/online_perl_ide.php[^]
"The greatest enemy of knowledge is not ignorance, it is the illusion of knowledge". Stephen Hawking, 1942- 2018
-
So the real question here, which is the most mystifying language? Perl? or [Brainfuck](https://en.wikipedia.org/wiki/Brainfuck)?! :o
A new .NET Serializer All in one Menu-Ribbon Bar Taking over the world since 1371!
Don't forget Whitespace[^]. :)
"These people looked deep within my soul and assigned me a number based on the order in which I joined." - Homer
-
not exp log srand xor s qq qx xor
s x x length uc ord and print chr
ord for qw q join use sub tied qx
xor eval xor print qq q q xor int
eval lc q m cos and print chr ord
for qw y abs ne open tied hex exp
ref y m xor scalar srand print qq
q q xor int eval lc qq y sqrt cos
and print chr ord for qw x printf
each return local x y or print qq
s s and eval q s undef or oct xor
time xor ref print chr int ord lc
foreach qw y hex alarm chdir kill
exec return y s gt sin sort splitQuote:
It's just pointless obfuscation, but its kinda neat. That code prints out "Just another Perl hacker" using only keywords in perl. The trick to it is that the "q" keyword works as a quote, and the rest of the code is just operating on the keywords that are now just strings inside the q tags.
:eek:
What do you get when you cross a joke with a rhetorical question? The metaphorical solid rear-end expulsions have impacted the metaphorical motorized bladed rotating air movement mechanism. Do questions with multiple question marks annoy you???
It reminds me of some crazy things you can do in JavaScript. obfuscation - What are JavaScript's builtin strings? - Stack Overflow[^] For example, paste the following JS into a jsfiddle and run it: alert([[]+1/!1][1^1][1>>1]+({}+[])[1<<1^11>>1]+( []+!!-[])[1<<1]+[/~/+{}][+!1][-~1<<1]+[([]+/-/[( !!1+[])[1>>1]+(!!1+[])[1<<1^1]+(!1+[])[1|1<<1]+( !!1+[])[1^1]])[1+(1^(11+1+1)<<1)],([]+/-/[(!!1+[ ])[1>>1]+(!!1+[])[1<<1^1]+(!1+[])[1|1<<1]+(!!1+[ ])[1^1]])[1^11<<1],([]+/-/[(!!1+[])[1>>1]+(!!1+[ ])[1<<1^1]+(!1+[])[1|1<<1]+(!!1+[])[1^1]])[1^(11 +1+1)<<1]][((([]+/-/[(!!1+[])[1>>1]+(!!1+[])[1<< 1^1]+(!1+[])[1|1<<1]+(!!1+[])[1^1]])[(1<<1<<1<<1 )+1<<1]==({}+[])[1^1])*1)+((([]+/-/[(!!1+[])[1>> 1]+(!!1+[])[1<<1^1]+(!1+[])[1|1<<1]+(!!1+[])[1^1 ]])[(1^11<<1)-1]==({}+[])[1^1])<<1)]+([,][~1]+[] )[1-~1]+[[]+{}][!1.1%1][11111.1%11.1*111e11|!1]+ (/1/+1/[1<1][1%1])[1^11]+[[],[]+{}][1][+1]+(/<Everyone is born right handed. Only the strongest overcome it. Fight for left-handed rights and hand equality.
-
Don't forget Whitespace[^]. :)
"These people looked deep within my soul and assigned me a number based on the order in which I joined." - Homer
ha! That's the one I was really thinking about, thanks! :-D Yea, whitespace is da beast! :laugh:
A new .NET Serializer All in one Menu-Ribbon Bar Taking over the world since 1371!
-
It reminds me of some crazy things you can do in JavaScript. obfuscation - What are JavaScript's builtin strings? - Stack Overflow[^] For example, paste the following JS into a jsfiddle and run it: alert([[]+1/!1][1^1][1>>1]+({}+[])[1<<1^11>>1]+( []+!!-[])[1<<1]+[/~/+{}][+!1][-~1<<1]+[([]+/-/[( !!1+[])[1>>1]+(!!1+[])[1<<1^1]+(!1+[])[1|1<<1]+( !!1+[])[1^1]])[1+(1^(11+1+1)<<1)],([]+/-/[(!!1+[ ])[1>>1]+(!!1+[])[1<<1^1]+(!1+[])[1|1<<1]+(!!1+[ ])[1^1]])[1^11<<1],([]+/-/[(!!1+[])[1>>1]+(!!1+[ ])[1<<1^1]+(!1+[])[1|1<<1]+(!!1+[])[1^1]])[1^(11 +1+1)<<1]][((([]+/-/[(!!1+[])[1>>1]+(!!1+[])[1<< 1^1]+(!1+[])[1|1<<1]+(!!1+[])[1^1]])[(1<<1<<1<<1 )+1<<1]==({}+[])[1^1])*1)+((([]+/-/[(!!1+[])[1>> 1]+(!!1+[])[1<<1^1]+(!1+[])[1|1<<1]+(!!1+[])[1^1 ]])[(1^11<<1)-1]==({}+[])[1^1])<<1)]+([,][~1]+[] )[1-~1]+[[]+{}][!1.1%1][11111.1%11.1*111e11|!1]+ (/1/+1/[1<1][1%1])[1^11]+[[],[]+{}][1][+1]+(/<Everyone is born right handed. Only the strongest overcome it. Fight for left-handed rights and hand equality.
:omg:
-
:omg:
-
Ya, somebody was bored and drank too much caffeine to figure that one out. :-D
Everyone is born right handed. Only the strongest overcome it. Fight for left-handed rights and hand equality.
How much coffee could that be? I guess I couldn't drink that in a year...
while (!drunkenByCoffee(:java:)) {:java:++; } -
So the real question here, which is the most mystifying language? Perl? or [Brainfuck](https://en.wikipedia.org/wiki/Brainfuck)?! :o
A new .NET Serializer All in one Menu-Ribbon Bar Taking over the world since 1371!
-
not exp log srand xor s qq qx xor
s x x length uc ord and print chr
ord for qw q join use sub tied qx
xor eval xor print qq q q xor int
eval lc q m cos and print chr ord
for qw y abs ne open tied hex exp
ref y m xor scalar srand print qq
q q xor int eval lc qq y sqrt cos
and print chr ord for qw x printf
each return local x y or print qq
s s and eval q s undef or oct xor
time xor ref print chr int ord lc
foreach qw y hex alarm chdir kill
exec return y s gt sin sort splitQuote:
It's just pointless obfuscation, but its kinda neat. That code prints out "Just another Perl hacker" using only keywords in perl. The trick to it is that the "q" keyword works as a quote, and the rest of the code is just operating on the keywords that are now just strings inside the q tags.
:eek:
What do you get when you cross a joke with a rhetorical question? The metaphorical solid rear-end expulsions have impacted the metaphorical motorized bladed rotating air movement mechanism. Do questions with multiple question marks annoy you???
It's just the initials of some keywords, from which the output gets built (hex alarm chdir kill exec return --> hacker).
-
not exp log srand xor s qq qx xor
s x x length uc ord and print chr
ord for qw q join use sub tied qx
xor eval xor print qq q q xor int
eval lc q m cos and print chr ord
for qw y abs ne open tied hex exp
ref y m xor scalar srand print qq
q q xor int eval lc qq y sqrt cos
and print chr ord for qw x printf
each return local x y or print qq
s s and eval q s undef or oct xor
time xor ref print chr int ord lc
foreach qw y hex alarm chdir kill
exec return y s gt sin sort splitQuote:
It's just pointless obfuscation, but its kinda neat. That code prints out "Just another Perl hacker" using only keywords in perl. The trick to it is that the "q" keyword works as a quote, and the rest of the code is just operating on the keywords that are now just strings inside the q tags.
:eek:
What do you get when you cross a joke with a rhetorical question? The metaphorical solid rear-end expulsions have impacted the metaphorical motorized bladed rotating air movement mechanism. Do questions with multiple question marks annoy you???
I used to do Perl, back when it was all the rage for web development. Fun to write, an absolute nightmare to maintain. You can do just about anything with one line of code, except read it later.
-
not exp log srand xor s qq qx xor
s x x length uc ord and print chr
ord for qw q join use sub tied qx
xor eval xor print qq q q xor int
eval lc q m cos and print chr ord
for qw y abs ne open tied hex exp
ref y m xor scalar srand print qq
q q xor int eval lc qq y sqrt cos
and print chr ord for qw x printf
each return local x y or print qq
s s and eval q s undef or oct xor
time xor ref print chr int ord lc
foreach qw y hex alarm chdir kill
exec return y s gt sin sort splitQuote:
It's just pointless obfuscation, but its kinda neat. That code prints out "Just another Perl hacker" using only keywords in perl. The trick to it is that the "q" keyword works as a quote, and the rest of the code is just operating on the keywords that are now just strings inside the q tags.
:eek:
What do you get when you cross a joke with a rhetorical question? The metaphorical solid rear-end expulsions have impacted the metaphorical motorized bladed rotating air movement mechanism. Do questions with multiple question marks annoy you???
Yeah, but it can be really useful too. Back in the 80s I wrote a perl script that took all the list files (Comadore Amiga 68000 assembler) from a project and combine them into a single list file that had the absolute address for all the instructions. The original list files all started at zero so they weren't really very helpful when trying to debug. I use to use perl fairly regularly (I'm retired now) to make support routines for my projects. My per scripts are very C like since, as an embedded engineer, I pretty much did all my programming in C/C++ (at least for the last 25 years or so).
-
not exp log srand xor s qq qx xor
s x x length uc ord and print chr
ord for qw q join use sub tied qx
xor eval xor print qq q q xor int
eval lc q m cos and print chr ord
for qw y abs ne open tied hex exp
ref y m xor scalar srand print qq
q q xor int eval lc qq y sqrt cos
and print chr ord for qw x printf
each return local x y or print qq
s s and eval q s undef or oct xor
time xor ref print chr int ord lc
foreach qw y hex alarm chdir kill
exec return y s gt sin sort splitQuote:
It's just pointless obfuscation, but its kinda neat. That code prints out "Just another Perl hacker" using only keywords in perl. The trick to it is that the "q" keyword works as a quote, and the rest of the code is just operating on the keywords that are now just strings inside the q tags.
:eek:
What do you get when you cross a joke with a rhetorical question? The metaphorical solid rear-end expulsions have impacted the metaphorical motorized bladed rotating air movement mechanism. Do questions with multiple question marks annoy you???
English is still more crazy: Buffalo buffalo Buffalo buffalo buffalo buffalo Buffalo buffalo - Wikipedia[^]
#SupportHeForShe Government can give you nothing but what it takes from somebody else. A government big enough to give you everything you want is big enough to take everything you've got, including your freedom.-Ezra Taft Benson You must accept 1 of 2 basic premises: Either we are alone in the universe or we are not alone. Either way, the implications are staggering!-Wernher von Braun
-
Long ago I tried to install Perl, my god what a mess! removed it the same day from my PC :doh:
Are you sure it's gone???!
#SupportHeForShe Government can give you nothing but what it takes from somebody else. A government big enough to give you everything you want is big enough to take everything you've got, including your freedom.-Ezra Taft Benson You must accept 1 of 2 basic premises: Either we are alone in the universe or we are not alone. Either way, the implications are staggering!-Wernher von Braun
