Mercurial > mercurial > hgweb_iklist.hg.cgi

view prog/08.pl @ 3:d3e201c48ff8 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
bug fix.
author pyon
date Wed, 29 Sep 2021 22:04:51 +0900
parents 13e80a745ef0
children
line wrap: on
line source

# XOR 17

#my $pw = 'kaigo862';
my $pw = 'kouiki862';
for (split //, $pw) {
	my $o = (ord $_) ^ 17;
	print chr $o;
}
print "\n";