病毒专收员 发表于 2009-11-27 11:12:14

新版程序取消了ANSL编码方式编译,_StringEncrypt加密解密函数无法使用.

本帖最后由 病毒专收员 于 2009-11-28 16:46 编辑

因为没有了ANSL编码编译 ,_StringEncrypt加密解密函数无法使用大侠们有无办法解决?

kn007 发表于 2009-11-27 23:12:55

unicode&ansi皆可用，把_2RC4改作_StringEncryptX就行了。。。用法一样
新版没解决这个问题？我可没用新版本。。。部分东西是3311的，部分是3300的，大部分是3.2.13.12.1Func _2RC4($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   ;==>_2RC4

病毒专收员 发表于 2009-11-28 16:33:18

:face (8): 无奈呀,电脑被弄死掉了.. 不装也不行了.. :face (26):在感谢下!

kn007 发表于 2009-11-28 17:17:15

无奈呀,电脑被弄死掉了.. 不装也不行了.. 在感谢下!
病毒专收员 发表于 2009-11-28 16:33 http://www.autoitx.com/images/common/back.gif


    呵呵，不用谢，以后记得搜索下，我之前问过了。。。呵呵

病毒专收员 发表于 2009-11-29 22:39:23

:face (15): OK，！

chenronting 发表于 2009-12-3 15:45:30

。。 好长。。 看不懂呢。留 个位吧~~:face (18):

kn007 发表于 2009-12-10 15:46:40

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

waynew 发表于 2010-1-17 17:32:25

谢谢kn007，不过加密汉字还是会出错

liyi-softs 发表于 2011-11-5 17:21:54

好啊，终于找到解决办法了！`

leisurely 发表于 2011-12-17 19:36:02

请问一下这个函数加解密中文出现乱码要怎么解决啊？
页: [1]
查看完整版本: 新版程序取消了ANSL编码方式编译,_StringEncrypt加密解密函数无法使用.