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 

本文固定链接: http://www.jianyiit.com/post-313.html