发现一个小站， 密码加密方式为：
0-9转化为()*+,-./ !
a-z或A-Z也将转化为其他字母等
这里只测试数字
比如密文是:
+++++
结果将为: 33333
下面是一个解密的小脚本:
use v6;
use HTTP::UserAgent;
say "输入纯标点密码!";
my $password = get();
#say $password.comb;
my %password = ‘(‘,0,‘)‘,1,‘*‘,2,‘+‘,3,‘,‘,4,‘-‘,5,‘.‘,6,‘/‘,7,‘ ‘,8,‘!‘,9;
for $password.comb -> $key {
print %password{$key};
}
运行结果:
原文：http://www.cnblogs.com/perl6/p/6939867.html