忘记密码   免费注册 查看新帖 |

ChinaUnix.net

  平台 论坛 博客 文库 频道自动化运维 虚拟化 储存备份 C/C++ PHP MySQL 嵌入式 Linux系统
最近访问板块 发新帖
查看: 4912 | 回复: 1

[学习共享] 【摩斯密码】加密,解密脚本。---无间道,使徒行者,必用! [复制链接]

论坛徽章:
0
发表于 2017-09-30 12:43 |显示全部楼层
本帖最后由 本友会机友会摄友会 于 2017-09-30 13:09 编辑

    使徒行者2,两个卧底警察碰面,见面敲敲榴莲。用的都是摩斯密码。---我了个擦。

#
$编码表 =
@{
        'a' = '.-'
        'b' = '-...'
        'c' = '-.-.'
        'd' = '-..'
        'e' = '.'
        'f' = '..-.'
        'g' = '--.'
        'h' = '....'
        'i' = '..'
        'j' = '.---'
        'k' = '-.-'
        'l' = '.-..'
        'm' = '--'
        'n' = '-.'
        'o' = '---'
        'p' = '.--.'
        'q' = '--.-'
        'r' = '.-.'
        's' = '...'
        't' = '-'
        'u' = '..-'
        'v' = '...-'
        'w' = '.--'
        'x' = '-..-'
        'y' = '-.--'
        'z' = '--..'
        '1' = '.----'
        '2' = '..---'
        '3' = '...--'
        '4' = '....-'
        '5' = '.....'
        '6' = '-....'
        '7' = '--...'
        '8' = '---..'
        '9' = '----.'
        '0' = '-----'

        '.' = '.-.-.-'
        ',' = '--..--'
        '?' = '..--..'
        "'" = '.----.'
        '!' = '-.-.--'
        '/' = '-..-.'
        '(' = '-.--.'
        ')' = '-.--.-'
        '&' = '.-...'
        ':' = '---...'
        ';' = '-.-.-.'
        '=' = '-...-'
        '+' = '.-.-.'
        '-' = '-....-'
        '_' = '..--.-'
        '"' = '.-..-.'
        '$' = '...-..-'
        '@' = '.--.-.'
}

$解码表 =
@{
        '.-'      = 'a'
        '-...'    = 'b'
        '-.-.'    = 'c'
        '-..'     = 'd'
        '.'       = 'e'
        '..-.'    = 'f'
        '--.'     = 'g'
        '....'    = 'h'
        '..'      = 'i'
        '.---'    = 'j'
        '-.-'     = 'k'
        '.-..'    = 'l'
        '--'      = 'm'
        '-.'      = 'n'
        '---'     = 'o'
        '.--.'    = 'p'
        '--.-'    = 'q'
        '.-.'     = 'r'
        '...'     = 's'
        '-'       = 't'
        '..-'     = 'u'
        '...-'    = 'v'
        '.--'     = 'w'
        '-..-'    = 'x'
        '-.--'    = 'y'
        '--..'    = 'z'
        '.----'   = '1'
        '..---'   = '2'
        '...--'   = '3'
        '....-'   = '4'
        '.....'   = '5'
        '-....'   = '6'
        '--...'   = '7'
        '---..'   = '8'
        '----.'   = '9'
        '-----'   = '0'
        '.-.-.-'  = '.'
        '--..--'  = ','
        '..--..'  = '?'
        '.----.'  = "'"
        '-.-.--'  = '!'
        '-..-.'   = '/'
        '-.--.'   = '('
        '-.--.-'  = ')'
        '.-...'   = '&'
        '---...'  = ':'
        '-.-.-.'  = ';'
        '-...-'   = '='
        '.-.-.'   = '+'
        '-....-'  = '-'
        '..--.-'  = '_'
        '.-..-.'  = '"'
        '...-..-' = '$'
        '.--.-.'  = '@'
}

function 摩尔斯编码([string]$输入)
{
        $Script:摩尔斯编码失败字符串 = ''
        $Script:摩尔斯编码输出 = ''
        $输出 = $输入.ToCharArray()
        [string]$temp001 = ''
        foreach ($temp001 in $输出)
        {
                if ($编码表.ContainsKey($temp001)) #??! 哈希表包含“:”
                {
                        $temp002 = $编码表."$temp001"
                        $Script:摩尔斯编码输出 = $Script:摩尔斯编码输出 + '|' + $temp002
                }
                else
                {
                        $Script:摩尔斯编码失败字符串 += $temp001
                }
        }
}

function 摩尔斯解码([string]$输入)
{
        $Script:摩尔斯解码输出 = ''
        $输出 = $输入 -split '\|'
        foreach ($temp001 in $输出)
        {
                $temp002 = $解码表."$temp001"
                $Script:摩尔斯解码输出 += $temp002
        }
}

摩尔斯编码 "I'm blackjack"
write-host "成功编码字符串为【$Script:摩尔斯编码输出】"
write-host "无法编码字符串为 【$Script:摩尔斯编码失败字符串】"

write-host '--------------------------------------'
摩尔斯解码 "|....|-|-|.--.|---...|-..-.|-..-.|-...|-...|...|.-.-.-|-.-.|....|..|-.|.-|..-|-.|..|-..-|.-.-.-|-.|.|-"
write-host "成功解码出的字符串为【$Script:摩尔斯解码输出】"


输出:
成功编码字符串为【|..|.----.|--|-...|.-..|.-|-.-.|-.-|.---|.-|-.-.|-.-】
无法编码字符串为 【 】
-------------------------------------
成功解码出的字符串为【http://bbs.chinaunix.net

以后你买个西瓜,必须在上面拍出   “-..-.|-..-.|-...|-...|...|.-.-.-|-.-.|....|..|-.|.-|..-|-.|..|-..-|.-.-.-|-.|.|-”,然后把耳朵贴在西瓜上面听,有无
“|...|....|.|.-..|.-..”返回!!!




论坛徽章:
6
程序设计版块每日发帖之星
日期:2016-05-11 06:20:00操作系统版块每日发帖之星
日期:2016-05-12 06:20:00每日论坛发贴之星
日期:2016-05-12 06:20:00操作系统版块每日发帖之星
日期:2016-05-14 06:20:00程序设计版块每日发帖之星
日期:2016-05-31 06:20:00每日论坛发贴之星
日期:2016-05-31 06:20:00
发表于 2017-10-02 07:10 |显示全部楼层
write-host 可能是powershell 的一个mingling,是powershell得语言写得
您需要登录后才可以回帖 登录 | 注册

本版积分规则

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号 北京市公安局海淀分局网监中心备案编号:11010802020122
广播电视节目制作经营许可证(京) 字第1234号 中国互联网协会会员  联系我们:wangnan@it168.com
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP