On Wednesday, July 16, 2003 at 9:07:44 AM UTC+1, Harry Mason wrote:
For perl there is Acme::EyeDrops. It doesn't just format the program, it obfuscates it too.
-- 8< -- cut here -- >8 --
#!/usr/bin/perl -w
eval eval '"'.
('#').
'!'.'/' .('['
^'.' ) .('['^'('). ("\["^
')')."\/".( '`'|'"').('`'| ')').(
'`'|'.') .'/'. ( '['^'+').('`'|'%').('['
^')').('`'|',').('{' ^'[').'-'.('['^',').('!'
^'+').('['^'.').('['^ '(').('`'|'%').('{'^('[')).(
'['^'(').('['^'/').( '['^')').('`'|')').('`'|'#').("\["^
('/')). ';'.('!'^'+').('['^'+').('['^"\)").(
'`'|')').('`'|'.').('['^'/').('{'^'[').'\\'.'"'.('`'|'(').(
'`'|'%').('`'|',').('`'|',').('`'|'/').','.('{'^'[').('['^','
).('`'|'/').('['^')').('`'|',').('`'|'$').'\\'.'\\'.('`'|"\.").
'\\'.'"'.';'.('!'^'+').'"';$:='.'^'~';$~='@'|'(';$^=')'^'[';$/=
'`'|'.';$_='('^'}';$,='`'|'!';$\=')'^'}';$:='.'^'~';$~='@'|'(';
$^=')'^'[';$/='`'|'.';$_='('^'}';$,='`'|'!';$\=')'^'}';$:="\."^
'~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$_='('^'}';$,='`'|('!');$\=
')'^'}';$:='.'^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$_='('^'}';
$,='`'|'!';$\=')'^'}';$:='.'^'~';$~='@'|'(';$^=')'^'[' ;($/)=
'`'|'.';$_='('^'}';$,='`'|'!';$\=')'^'}';$:='.'^'~'; ($~)=
'@'|'(';$^=')'^'[';$/='`'|'.';$_='('^'}';$,=('`')| "\!";
$\=')'^'}';$:='.'^'~';$~='@'|'(';$^=')' ^'[';$/= '`'|
(( '.'));$_='('^'}';$,='`'|"\!";$\= ')'^'}'; ($:)
='.'^"\~"; $~='@'|'(' ;$^=')'^ '[';$/= '`'
|('.');$_= '('^'}';$, ='`'|'!' ;$\=')' ^+
"\}";$:= '.'^'~';$~ =('@')| '(';$^
=')'^'[' ;$/=('`')| '.';$_= "\("^
'}';$,= '`'|'!';$\ ="\)"^ '}';$:
=('.')^ "\~";$~= ('@')| "\(";
$^=')' ^"\["; $/='`' |'.';
($_)= ('(')^ '}';$, ='`'|
"\!"; $\=')'^ '}';$: ='.'
^'~'; $~='@'|'(' ;$^=
')'^ "\[";$/= '`'|
'.'; $_=('(')^ '}';
($,) ='`'|'!';$\ =')'^
"\}"; $:='.'^'~';$~= ('@')|
"\("; $^="\)"^ '['; $/='`'|
'.';$_= '('^'}';
$,="\`"| '!';#;
-- 8< -- cut here -- >8 --
Thats an interesting piece of art
i dont have perl installed and i'd be curious to know what its output
looks like
In alt.ascii-art, colin randall <colin.randall2@googlemail.com> wrote:
On Wednesday, July 16, 2003 at 9:07:44 AM UTC+1, Harry Mason wrote:
I'd make a suggestion, but 19 years later it might not help.
For perl there is Acme::EyeDrops. It doesn't just format the program, it
obfuscates it too.
-- 8< -- cut here -- >8 --
#!/usr/bin/perl -w
eval eval '"'.
('#').
'!'.'/' .('['
^'.' ) .('['^'('). ("\["^
')')."\/".( '`'|'"').('`'| ')').(
'`'|'.') .'/'. ( '['^'+').('`'|'%').('['
^')').('`'|',').('{' ^'[').'-'.('['^',').('!'
^'+').('['^'.').('['^ '(').('`'|'%').('{'^('[')).(
'['^'(').('['^'/').( '['^')').('`'|')').('`'|'#').("\["^
('/')). ';'.('!'^'+').('['^'+').('['^"\)").(
'`'|')').('`'|'.').('['^'/').('{'^'[').'\\'.'"'.('`'|'(').(
'`'|'%').('`'|',').('`'|',').('`'|'/').','.('{'^'[').('['^','
).('`'|'/').('['^')').('`'|',').('`'|'$').'\\'.'\\'.('`'|"\.").
'\\'.'"'.';'.('!'^'+').'"';$:='.'^'~';$~='@'|'(';$^=')'^'[';$/=
'`'|'.';$_='('^'}';$,='`'|'!';$\=')'^'}';$:='.'^'~';$~='@'|'(';
$^=')'^'[';$/='`'|'.';$_='('^'}';$,='`'|'!';$\=')'^'}';$:="\."^
'~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$_='('^'}';$,='`'|('!');$\=
')'^'}';$:='.'^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$_='('^'}';
$,='`'|'!';$\=')'^'}';$:='.'^'~';$~='@'|'(';$^=')'^'[' ;($/)=
'`'|'.';$_='('^'}';$,='`'|'!';$\=')'^'}';$:='.'^'~'; ($~)=
'@'|'(';$^=')'^'[';$/='`'|'.';$_='('^'}';$,=('`')| "\!";
$\=')'^'}';$:='.'^'~';$~='@'|'(';$^=')' ^'[';$/= '`'|
(( '.'));$_='('^'}';$,='`'|"\!";$\= ')'^'}'; ($:)
='.'^"\~"; $~='@'|'(' ;$^=')'^ '[';$/= '`'
|('.');$_= '('^'}';$, ='`'|'!' ;$\=')' ^+
"\}";$:= '.'^'~';$~ =('@')| '(';$^
=')'^'[' ;$/=('`')| '.';$_= "\("^
'}';$,= '`'|'!';$\ ="\)"^ '}';$:
=('.')^ "\~";$~= ('@')| "\(";
$^=')' ^"\["; $/='`' |'.';
($_)= ('(')^ '}';$, ='`'|
"\!"; $\=')'^ '}';$: ='.'
^'~'; $~='@'|'(' ;$^=
')'^ "\[";$/= '`'|
'.'; $_=('(')^ '}';
($,) ='`'|'!';$\ =')'^
"\}"; $:='.'^'~';$~= ('@')|
"\("; $^="\)"^ '['; $/='`'|
'.';$_= '('^'}';
$,="\`"| '!';#;
-- 8< -- cut here -- >8 --
Thats an interesting piece of art
i dont have perl installed and i'd be curious to know what its output
looks like
It just prints "hello, world".
There are a bunch more examples in the documentation for Acme::EyeDrops,
but trying a few, I was unable to get them to produce output (other
than errors[*]). Chances are the output ASCII art code is rather
sensitive to changes in Perl syntax.
https://metacpan.org/pod/Acme::EyeDrops
[*] Example, with Perl v5.26.1
Eval-group not allowed at runtime, use re 'eval' in regex
m/(?{eval"\$~=pop||'';open\$%;y,!-~,#,,s,(.).,\$+,gs,\$~&&(\$_=reverse)for\@~=grep\$|--,('')x18,<0>;\@;=map~~reverse,re.../
at /tmp/p line 48.
For the similarly shapped "camel.pl"
Elijah
------
has not tried using all the ancient versions of Perl he has access to
On 11/10/2021 19:01, Eli the Bearded wrote:
has not tried using all the ancient versions of Perl he has access took ... thanks for that ... sorry to have put you to the trouble ...
so it was just an example of a "caligram" using the Acme::EyeDrops tool
if it had been C or Bash or even Pascal i would've been able to read it
... hadn't realized that Perl was so 'parentheses' heavy ... kind of
looks like it was made with a bracket-generator :)
$ cat ~/sigs/japh.I
#!/usr/bin/perl -w
use Shell;
print(figlet(qw(Just Another Perl Hacker)));
__END__
Eli the Bearded <*@eli.users.panix.com> wrote:
$ cat ~/sigs/japh.I
#!/usr/bin/perl -w
use Shell;
print(figlet(qw(Just Another Perl Hacker)));
__END__
UUOP ;-)
I finally found an old one of mine:
($a,$b,$c)=localtime time;sub a{int(31+sin($_[0]/57)*$_[1]).int(#mitch@cgarbs.de
31-cos($_[0]/57)*$_[1])}for(3..50){$i{a($b*6,$_/3)}++;$i{a($c*30%360+$b/2,$_/5)}
++}for(0..359){$i{a($_,19)}++;$i{a($_,16)}++if!($_%30)}for$y(6..26){for(11..52){
print((' ','"','o','8')[(exists$i{$_.$y*2})*2+exists$i{$_.($y*2-1)}])}print"\n"}
I won't post the output, try to guess ;-)
Hint: The output changes regularly, you could run it in a loop like
"while perl the_script.pl; do sleep 1m; done".
This still runs with a current Perl, even with -w enabled.
Best regards
Christian
On 23/10/2021 19:58, Christian Garbs wrote:
Eli the Bearded <*@eli.users.panix.com> wrote:a guess:
$ cat ~/sigs/japh.I
#!/usr/bin/perl -w
use Shell;
print(figlet(qw(Just Another Perl Hacker)));
__END__
UUOP ;-)
I finally found an old one of mine:
($a,$b,$c)=localtime time;sub a{int(31+sin($_[0]/57)*$_[1]).int(#mitch@cgarbs.de
31-cos($_[0]/57)*$_[1])}for(3..50){$i{a($b*6,$_/3)}++;$i{a($c*30%360+$b/2,$_/5)}
++}for(0..359){$i{a($_,19)}++;$i{a($_,16)}++if!($_%30)}for$y(6..26){for(11..52){
print((' ','"','o','8')[(exists$i{$_.$y*2})*2+exists$i{$_.($y*2-1)}])}print"\n"}
I won't post the output, try to guess ;-)
Hint: The output changes regularly, you could run it in a loop like
"while perl the_script.pl; do sleep 1m; done".
This still runs with a current Perl, even with -w enabled.
Best regards
Christian
a circular motion of an email-addy leaving a trail
the following looks like it could be the original camel?
originally posted by Philip Taylor:
And here's another Perl camel, copied from http://www.perl.com/CPAN-local/misc/japh :
#!/usr/bin/perl -w
use strict;
$_='ev
al("seek\040D
ATA,0, 0;");foreach(1..3)
{<DATA>;}my @camel1hump;my$camel;
my$Camel ;while( <DATA>){$_=sprintf("%-6 9s",$_);my@dromedary 1=split(//);if(defined($ _=<DATA>)){@camel1hum p=split(//);}while(@dromeda
ry1){my$camel1hump=0 ;my$CAMEL=3;if(defined($_=shif
t(@dromedary1 ))&&/\S/){$camel1hump+=1<<$CAMEL;}
$CAMEL--;if(d efined($_=shift(@dromedary1))&&/\S/){
$camel1hump+=1 <<$CAMEL;}$CAMEL--;if(defined($_=shift(
@camel1hump))&&/\S/){$camel1hump+=1<<$CAMEL;}$CAMEL--;if(
defined($_=shift(@camel1hump))&&/\S/){$camel1hump+=1<<$CAME
L;;}$camel.=(split(//,"\040..m`{/J\047\134}L^7FX"))[$camel1h
ump];}$camel.="\n";}@camel1hump=split(/\n/,$camel);foreach(@
camel1hump){chomp;$Camel=$_;y/LJF7\173\175`\047/\061\062\063\
064\065\066\067\070/;y/12345678/JL7F\175\173\047`/;$_=reverse;
print"$_\040$Camel\n";}foreach(@camel1hump){chomp;$Camel=$_;y
/LJF7\173\175`\047/12345678/;y/12345678/JL7F\175\173\0 47`/;
$_=reverse;print"\040$_$Camel\n";}';;s/\s*//g;;eval; eval
("seek\040DATA,0,0;");undef$/;$_=<DATA>;s/\s*//g;( );;s
;^.*_;;;map{eval"print\"$_\"";}/.{4}/g; __DATA__ \124
\1 50\145\040\165\163\145\040\157\1 46\040\1 41\0
40\143\141 \155\145\1 54\040\1 51\155\ 141
\147\145\0 40\151\156 \040\141 \163\16 3\
157\143\ 151\141\16 4\151\1 57\156
\040\167 \151\164\1 50\040\ 120\1
45\162\ 154\040\15 1\163\ 040\14
1\040\1 64\162\1 41\144 \145\
155\14 1\162\ 153\04 0\157
\146\ 040\11 7\047\ 122\1
45\15 1\154\1 54\171 \040
\046\ 012\101\16 3\16
3\15 7\143\15 1\14
1\16 4\145\163 \054
\040 \111\156\14 3\056
\040\ 125\163\145\14 4\040\
167\1 51\164\1 50\0 40\160\
145\162 \155\151
\163\163 \151\1
57\156\056
In alt.ascii-art, colin randall <colin.r...@googlemail.com> wrote:
On Wednesday, July 16, 2003 at 9:07:44 AM UTC+1, Harry Mason wrote:
I'd make a suggestion, but 19 years later it might not help.
For perl there is Acme::EyeDrops. It doesn't just format the program, it obfuscates it too.
-- 8< -- cut here -- >8 --
#!/usr/bin/perl -w
eval eval '"'.
('#').
'!'.'/' .('['
^'.' ) .('['^'('). ("\["^
')')."\/".( '`'|'"').('`'| ')').(
'`'|'.') .'/'. ( '['^'+').('`'|'%').('['
^')').('`'|',').('{' ^'[').'-'.('['^',').('!'
^'+').('['^'.').('['^ '(').('`'|'%').('{'^('[')).(
'['^'(').('['^'/').( '['^')').('`'|')').('`'|'#').("\["^
('/')). ';'.('!'^'+').('['^'+').('['^"\)").( '`'|')').('`'|'.').('['^'/').('{'^'[').'\\'.'"'.('`'|'(').( '`'|'%').('`'|',').('`'|',').('`'|'/').','.('{'^'[').('['^',' ).('`'|'/').('['^')').('`'|',').('`'|'$').'\\'.'\\'.('`'|"\."). '\\'.'"'.';'.('!'^'+').'"';$:='.'^'~';$~='@'|'(';$^=')'^'[';$/= '`'|'.';$_='('^'}';$,='`'|'!';$\=')'^'}';$:='.'^'~';$~='@'|'('; $^=')'^'[';$/='`'|'.';$_='('^'}';$,='`'|'!';$\=')'^'}';$:="\."^ '~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$_='('^'}';$,='`'|('!');$\= ')'^'}';$:='.'^'~';$~='@'|'(';$^=')'^'[';$/='`'|'.';$_='('^'}'; $,='`'|'!';$\=')'^'}';$:='.'^'~';$~='@'|'(';$^=')'^'[' ;($/)= '`'|'.';$_='('^'}';$,='`'|'!';$\=')'^'}';$:='.'^'~'; ($~)= '@'|'(';$^=')'^'[';$/='`'|'.';$_='('^'}';$,=('`')| "\!"; $\=')'^'}';$:='.'^'~';$~='@'|'(';$^=')' ^'[';$/= '`'|
(( '.'));$_='('^'}';$,='`'|"\!";$\= ')'^'}'; ($:)
='.'^"\~"; $~='@'|'(' ;$^=')'^ '[';$/= '`'
|('.');$_= '('^'}';$, ='`'|'!' ;$\=')' ^+
"\}";$:= '.'^'~';$~ =('@')| '(';$^
=')'^'[' ;$/=('`')| '.';$_= "\("^
'}';$,= '`'|'!';$\ ="\)"^ '}';$:
=('.')^ "\~";$~= ('@')| "\(";
$^=')' ^"\["; $/='`' |'.';
($_)= ('(')^ '}';$, ='`'|
"\!"; $\=')'^ '}';$: ='.'
^'~'; $~='@'|'(' ;$^=
')'^ "\[";$/= '`'|
'.'; $_=('(')^ '}';
($,) ='`'|'!';$\ =')'^
"\}"; $:='.'^'~';$~= ('@')|
"\("; $^="\)"^ '['; $/='`'|
'.';$_= '('^'}';
$,="\`"| '!';#;
-- 8< -- cut here -- >8 --
Thats an interesting piece of art
i dont have perl installed and i'd be curious to know what its output
looks like
It just prints "hello, world".
There are a bunch more examples in the documentation for Acme::EyeDrops,
but trying a few, I was unable to get them to produce output (other
than errors[*]). Chances are the output ASCII art code is rather
sensitive to changes in Perl syntax.
https://metacpan.org/pod/Acme::EyeDrops
[*] Example, with Perl v5.26.1
Eval-group not allowed at runtime, use re 'eval' in regex m/(?{eval"\$~=pop||'';open\$%;y,!-~,#,,s,(.).,\$+,gs,\$~&&(\$_=reverse)for\@~=grep\$|--,('')x18,<0>;\@;=map~~reverse,re.../
at /tmp/p line 48.
For the similarly shapped "camel.pl"
Elijah
------
has not tried using all the ancient versions of Perl he has access to
http://ai.neocities.org/RoboMind.html -- ASCII art of a Robot AI Mind in Perl
El 10/11/21 a las 15:06, A.T. Murray escribió:| 3) obsessions (maybe love is a kind of positive one)
http://ai.neocities.org/RoboMind.html -- ASCII art of a Robot AI Mind in PerlA good graph, but be careful not to go all the way down to reproduce
1) mental issues (most obvious thing)
2) temporal weakness which affects decisions or the decision process
4) cognitive limitations
et cetera
If "brain plasticity" is an ability of the AI Mind to learn and grow over time, then it is implemented with features like the NewConcept mind-module.
Mentifex
Sysop: | Keyop |
---|---|
Location: | Huddersfield, West Yorkshire, UK |
Users: | 296 |
Nodes: | 16 (2 / 14) |
Uptime: | 52:09:25 |
Calls: | 6,650 |
Calls today: | 2 |
Files: | 12,200 |
Messages: | 5,330,387 |