Mercurial > mercurial > hgweb_iklist.hg.cgi

annotate prog/08.pl @ 2:c0f76f8e67fa draft v1.0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ver 1.0.0 release (add 2 items, time-limit@2022-09-30. & bug fix.)
author pyon <pyon@macmini>
date Sat, 28 Aug 2021 09:56:40 +0900
parents 13e80a745ef0
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1
13e80a745ef0 beta2 release.
pyon <pyon@macmini>
parents:
diff changeset
1 # XOR 17
13e80a745ef0 beta2 release.
pyon <pyon@macmini>
parents:
diff changeset
2
13e80a745ef0 beta2 release.
pyon <pyon@macmini>
parents:
diff changeset
3 #my $pw = 'kaigo862';
13e80a745ef0 beta2 release.
pyon <pyon@macmini>
parents:
diff changeset
4 my $pw = 'kouiki862';
13e80a745ef0 beta2 release.
pyon <pyon@macmini>
parents:
diff changeset
5 for (split //, $pw) {
13e80a745ef0 beta2 release.
pyon <pyon@macmini>
parents:
diff changeset
6 my $o = (ord $_) ^ 17;
13e80a745ef0 beta2 release.
pyon <pyon@macmini>
parents:
diff changeset
7 print chr $o;
13e80a745ef0 beta2 release.
pyon <pyon@macmini>
parents:
diff changeset
8 }
13e80a745ef0 beta2 release.
pyon <pyon@macmini>
parents:
diff changeset
9 print "\n";