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

Posted 2020-09-21 FireC@t @ Perl6

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

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

 运行结果: