一段 C++ 转过来的代码



看图说明：

``` Dim $str = "168.168.168.168 中华人民共和国万岁" $rstr = JY_CrypStr($str) MsgBox(0, StringLen($rstr), "原文: " & $str & @CRLF &"加密: " & $rstr & @CRLF & "还原: " & JY_CrypStr($rstr,11)) ;$str = 字符串 ;$type = 0 加密 (默认) ; 1 解密 Func JY_CrypStr($str, $type = 0) $str = StringSplit($str, "") ;;;改变 $arr 可以换规则 Local $arr[32] = [2, 0, 1, 0, 3, 0, 1, 0, 8, 0, 1, 0, 4, 0, 0, 0, 9, 0, 1, 0, 6, 0, 0, 0, 7, 0, 1, 0, 5, 0, 0, 1] Local $result = "" Local $index = 0 If $type = 0 Then For $i = 1 To $str[0] $c = AscW($str[$i]) + $arr[4 * $index]; $index = BitAND($index + 1, 7); $result &= ChrW($c) ; Next Else For $i = 1 To $str[0] $c = AscW($str[$i]) - $arr[4 * $index]; $index = BitAND($index + 1, 7); $result &= ChrW($c) ; Next EndIf Return SetError(0, 0, $result) EndFunc ;==>JY_CrypStr ```