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

kk_lee69

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

波雷费密码 维基百科介绍
https://zh.wikipedia.org/wiki/%E ... B%E5%AF%86%E7%A2%BC


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

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

haijie1223

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

kk_lee69

回复 2# haijie1223

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

zghwelcome

试试这个凯撒加密变体

;// 加密解密同函数
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

回复 4# zghwelcome

我試看看 感謝幫忙

haijie1223

回复 3# kk_lee69


    http://www.autoit3.cn/thread-56867-1-1.html