Perl Monk, Perl Meditation PerlMonks

Re: ACA JAPH (hints)

by goibhniu (Hermit)
 on Aug 22, 2007 at 14:08 UTC Need Help??

My first clue is to explain ACA in the post. It's probably not very helpful; just a nudge in a direction. Here's the link:

My next clue is somethign most here could do themselves, but I just learned it this week (from reading PerlMonks!). Here's the perl -MO=Deparse output (this is without eyepopslikeamosquito's reduction):

```@ca = (sub {
@kp = split(//, shift @_, 0);
\$c = shift @_;
\$p2{' '} = ' ';
\$C2{' '} = ' ';
foreach \$_ (@kp, ('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j'
+, 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x
+', 'y', 'z')) {
if (not exists \$p2{\$_}) {
\$k = chr 65 + (\$a++ + \$c) % 26;
\$p2{\$_} = \$k;
\$C2{\$k} = \$_;
}
}
}
, sub {
\$t = shift @_;
\$h = shift @_;
foreach \$_ (split(//, \$t, 0)) {
\$r = \$r . \$\$h{\$_};
}
return \$r;
}
);
\$ca[0]->('thequickbrownfoxjumpsoverthelazydogs', 10);
print \$ca[1]->('ZOCK FWUKLMT BMTE LFQR', \%C2) . "\n";

My next clue is to comment my variables. This is a big leap and probably a give away. I wish I had better intermediate clues for ya.

```# @ca - code array
# @kp - key phrase
# \$c  - caesar shift (big hint here)
# %p2 - short for p2C - plaintext to CIPHERTEXT hash
# %C2 - short for C2p - CIPHERTEXT to plaintext hash
# \$k  - key (one letter of the key alphabet)
# \$t  - text
# \$h  - hash reference
# \$r  - result

ok, here's what I'm doing:

I humbly seek wisdom.

Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://634353]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others having a coffee break in the Monastery: (2)
As of 2024-06-21 02:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?

No recent polls found

Notices?
 • erzuuli ‥ 🛈The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.