将数字转化为特殊符号的密码

发现一个小站， 密码加密方式为：

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};
}

 运行结果:

 

转载于:https://www.cnblogs.com/perl6/p/6939867.html