kk_lee69 发表于 2018-4-28 13:15:05

有人可以协助 写出 波雷费密码 算法吗??已有VB.NET跟C的写法[已解决]

本帖最后由 kk_lee69 于 2018-5-3 00:57 编辑

因为需要 一个简单 密文简短的 不考虑中文字 的 加密法，上网查了有个叫做
波雷费密码 的经典密码法， 也找到了 VB.NET跟 C 的写法，无奈小弟只会AUTOIT ，官网又找不到，因此 需要高手协助 转换语言，希望有人可以帮个忙

波雷费密码 维基百科介绍
https://zh.wikipedia.org/wiki/%E6%B3%A2%E9%9B%B7%E8%B2%BB%E5%AF%86%E7%A2%BC


VB.NET跟C的写法 位于
https://www.programmingalgorithms.com/algorithm/playfair-cipher?lang=VB.Net

如果需要 我可将 VB或者C 的语法贴上来，怕程序太长 太占版面，暂时不贴VB或者C的语法

haijie1223 发表于 2018-4-28 15:53:06

如果有时间的话，我愿意帮你翻译。

kk_lee69 发表于 2018-4-28 17:13:58

回复 2# haijie1223

感謝發哥!!也感謝發哥 繼續維持這個論壇運作!!

zghwelcome 发表于 2018-4-28 18:14:43

试试这个凯撒加密变体
;// 加密解密同函数
Func _Rot47($sString)
    Local $iPosition = 0, $sReturn = ''
    For $i = 1 To StringLen($sString)
      $iPosition = StringMid($sString, $i, 1)
      If Asc($iPosition) + 47 >= 127 And Asc($iPosition) > 32 And Asc($iPosition) < 127 Then
            $sReturn &= Chr(Asc($iPosition) - 47)
      ElseIf Asc($iPosition) + 47 <= 126 And Asc($iPosition) > 32 And Asc($iPosition) < 127 Then
            $sReturn &= Chr(Asc($iPosition) + 47)
      Else
            $sReturn &= $iPosition
      EndIf
    Next
    Return $sReturn
EndFunc

kk_lee69 发表于 2018-4-28 18:40:41

回复 4# zghwelcome

我試看看 感謝幫忙

haijie1223 发表于 2018-4-29 01:00:58

回复 3# kk_lee69


    http://www.autoit3.cn/thread-56867-1-1.html
页: [1]
查看完整版本: 有人可以协助 写出 波雷费密码 算法吗??已有VB.NET跟C的写法[已解决]