lsb968 发表于 2013-8-5 20:22:54

3.3.9.4 汉化版_StringEncrypt怎么能加密不能解密啊？ 已解决

本帖最后由 lsb968 于 2013-8-22 12:57 编辑

打开 3.3.9.4 汉化版Autoit Help 中的 _StringEncrypt.au3能加密不能解密，怎么回事啊？？

lsb968 发表于 2013-8-22 12:57:06

_StringEncrypt.au3换成 _StringEncryptX.au3



Func _StringEncryptX($i_Encrypt, $s_EncryptText, $s_EncryptPassword, $i_EncryptLevel = 1)
      If $i_Encrypt <> 0 And $i_Encrypt <> 1 Then
                SetError(1)
                Return ''
      ElseIf $s_EncryptText = '' Or $s_EncryptPassword = '' Then
                SetError(1)
                Return ''
      Else
                If Number($i_EncryptLevel) <= 0 Or Int($i_EncryptLevel) <> $i_EncryptLevel Then $i_EncryptLevel = 1
                Local $v_EncryptModified, $i_EncryptCountH, $i_EncryptCountG, $v_EncryptSwap, $av_EncryptBox
                Local $i_EncryptCountA, $i_EncryptCountB, $i_EncryptCountC, $i_EncryptCountD, $i_EncryptCountE
                Local $v_EncryptCipher, $v_EncryptCipherBy
                If $i_Encrypt = 1 Then
                        For $i_EncryptCountF = 0 To $i_EncryptLevel Step 1
                              $i_EncryptCountG = ''
                              $i_EncryptCountH = ''
                              $v_EncryptModified = ''
                              For $i_EncryptCountG = 1 To StringLen($s_EncryptText)
                                        If $i_EncryptCountH = StringLen($s_EncryptPassword) Then
                                                $i_EncryptCountH = 1
                                        Else
                                                $i_EncryptCountH += 1
                                        EndIf
                                        $v_EncryptModified = $v_EncryptModified & ChrW(BitXOR(AscW(StringMid($s_EncryptText, $i_EncryptCountG, 1)), AscW(StringMid($s_EncryptPassword, $i_EncryptCountH, 1)), 255))
                              Next
                              $s_EncryptText = $v_EncryptModified
                              $i_EncryptCountA = ''
                              $i_EncryptCountB = 0
                              $i_EncryptCountC = ''
                              $i_EncryptCountD = ''
                              $i_EncryptCountE = ''
                              $v_EncryptCipherBy = ''
                              $v_EncryptCipher = ''
                              $v_EncryptSwap = ''
                              $av_EncryptBox = ''
                              Local $av_EncryptBox
                              For $i_EncryptCountA = 0 To 255
                                        $av_EncryptBox[$i_EncryptCountA] = AscW(StringMid($s_EncryptPassword, Mod($i_EncryptCountA, StringLen($s_EncryptPassword)) + 1, 1))
                                        $av_EncryptBox[$i_EncryptCountA] = $i_EncryptCountA
                              Next
                              For $i_EncryptCountA = 0 To 255
                                        $i_EncryptCountB = Mod(($i_EncryptCountB + $av_EncryptBox[$i_EncryptCountA] + $av_EncryptBox[$i_EncryptCountA]), 256)
                                        $v_EncryptSwap = $av_EncryptBox[$i_EncryptCountA]
                                        $av_EncryptBox[$i_EncryptCountA] = $av_EncryptBox[$i_EncryptCountB]
                                        $av_EncryptBox[$i_EncryptCountB] = $v_EncryptSwap
                              Next
                              For $i_EncryptCountA = 1 To StringLen($s_EncryptText)
                                        $i_EncryptCountC = Mod(($i_EncryptCountC + 1), 256)
                                        $i_EncryptCountD = Mod(($i_EncryptCountD + $av_EncryptBox[$i_EncryptCountC]), 256)
                                        $i_EncryptCountE = $av_EncryptBox + $av_EncryptBox[$i_EncryptCountD]), 256)]
                                        $v_EncryptCipherBy = BitXOR(AscW(StringMid($s_EncryptText, $i_EncryptCountA, 1)), $i_EncryptCountE)
                                        $v_EncryptCipher &= Hex($v_EncryptCipherBy, 2)
                              Next
                              $s_EncryptText = $v_EncryptCipher
                        Next
                Else
                        For $i_EncryptCountF = 0 To $i_EncryptLevel Step 1
                              $i_EncryptCountB = 0
                              $i_EncryptCountC = ''
                              $i_EncryptCountD = ''
                              $i_EncryptCountE = ''
                              $v_EncryptCipherBy = ''
                              $v_EncryptCipher = ''
                              $v_EncryptSwap = ''
                              $av_EncryptBox = ''
                              Local $av_EncryptBox
                              For $i_EncryptCountA = 0 To 255
                                        $av_EncryptBox[$i_EncryptCountA] = AscW(StringMid($s_EncryptPassword, Mod($i_EncryptCountA, StringLen($s_EncryptPassword)) + 1, 1))
                                        $av_EncryptBox[$i_EncryptCountA] = $i_EncryptCountA
                              Next
                              For $i_EncryptCountA = 0 To 255
                                        $i_EncryptCountB = Mod(($i_EncryptCountB + $av_EncryptBox[$i_EncryptCountA] + $av_EncryptBox[$i_EncryptCountA]), 256)
                                        $v_EncryptSwap = $av_EncryptBox[$i_EncryptCountA]
                                        $av_EncryptBox[$i_EncryptCountA] = $av_EncryptBox[$i_EncryptCountB]
                                        $av_EncryptBox[$i_EncryptCountB] = $v_EncryptSwap
                              Next
                              For $i_EncryptCountA = 1 To StringLen($s_EncryptText) Step 2
                                        $i_EncryptCountC = Mod(($i_EncryptCountC + 1), 256)
                                        $i_EncryptCountD = Mod(($i_EncryptCountD + $av_EncryptBox[$i_EncryptCountC]), 256)
                                        $i_EncryptCountE = $av_EncryptBox + $av_EncryptBox[$i_EncryptCountD]), 256)]
                                        $v_EncryptCipherBy = BitXOR(Dec(StringMid($s_EncryptText, $i_EncryptCountA, 2)), $i_EncryptCountE)
                                        $v_EncryptCipher = $v_EncryptCipher & ChrW($v_EncryptCipherBy)
                              Next
                              $s_EncryptText = $v_EncryptCipher
                              $i_EncryptCountG = ''
                              $i_EncryptCountH = ''
                              $v_EncryptModified = ''
                              For $i_EncryptCountG = 1 To StringLen($s_EncryptText)
                                        If $i_EncryptCountH = StringLen($s_EncryptPassword) Then
                                                $i_EncryptCountH = 1
                                        Else
                                                $i_EncryptCountH += 1
                                        EndIf
                                        $v_EncryptModified &= ChrW(BitXOR(AscW(StringMid($s_EncryptText, $i_EncryptCountG, 1)), AscW(StringMid($s_EncryptPassword, $i_EncryptCountH, 1)), 255))
                              Next
                              $s_EncryptText = $v_EncryptModified
                        Next
                EndIf
                Return $s_EncryptText
      EndIf
EndFunc   ;==>_StringEncryptX

tutou9997 发表于 2013-8-28 16:36:07

学习了.刚好今天看到了代码试一试

moverlover 发表于 2016-8-3 14:18:00

3.3.9.4 汉化版_StringEncrypt怎么能加密不能解密啊？ 已解决

moverlover 发表于 2016-8-3 14:18:05

3.3.9.4 汉化版_StringEncrypt怎么能加密不能解密啊？ 已解决

大叔 发表于 2018-1-11 12:18:11

感谢 lsb968冶好了我多年的老寒腿~
我一直找加密结果后跟MD5结果类似的可逆加密算法
大老的代码刚好适用。 万分感谢。~
页: [1]
查看完整版本: 3.3.9.4 汉化版_StringEncrypt怎么能加密不能解密啊？ 已解决