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

发现一个小站, 密码加密方式为:

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

 运行结果:

 

posted on 2017-06-04 11:16  Perl6  阅读(1221)  评论(0编辑  收藏  举报

导航