Mercurial > mercurial > hgweb_iklist.hg.cgi

diff prog/08.pl @ 1:13e80a745ef0 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
beta2 release.
author pyon <pyon@macmini>
date Tue, 24 Aug 2021 21:30:47 +0900
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/prog/08.pl	Tue Aug 24 21:30:47 2021 +0900
@@ -0,0 +1,9 @@
+# XOR 17
+
+#my $pw = 'kaigo862';
+my $pw = 'kouiki862';
+for (split //, $pw) {
+	my $o = (ord $_) ^ 17;
+	print chr $o;
+}
+print "\n";