MsgBox(0, 0, "原字符串: "&$str & @CRLF &"打乱后的: "& _StringDaluan($str))

Func _StringDaluan($str)
    ;字符串打乱顺序 
    ;by 绿色风  www.jianyiit.com
    $z_Arr = StringSplit($str, "")
    Local $zKey = ""
    For $i = 1 To $z_Arr[0]
        Local $k = Random(0, $i, 1)
        $zKey = StringMid($zKey, 1, $k) & $z_Arr[$i] & StringMid($zKey, $k + 1)
    Next
    Return $zKey
EndFunc   ;==>_StringDaluan

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