asp 高手来 帮帮忙

justwait

Func StringEncrypt($i_Encrypt, $s_EncryptText, $s_EncryptPassword, $i_EncryptLevel = 1, $i_Flag = 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 $b_EncryptText

                Local $b_EncryptPassword

                Local $v_EncryptModified

                Local $i_EncryptCountH

                Local $i_EncryptCountG

                Local $v_EncryptSwap

                Local $av_EncryptBox[256][2]

                Local $i_EncryptCountA

                Local $i_EncryptCountB

                Local $i_EncryptCountC

                Local $i_EncryptCountD

                Local $i_EncryptCountE

                Local $v_EncryptCipher

                Local $v_EncryptCipherBy

                $b_EncryptText = StringToBinary($s_EncryptText, $i_Flag)

                $b_EncryptPassword = StringToBinary($s_EncryptPassword, $i_Flag)

                If $i_Encrypt = 1 Then

                        For $i_EncryptCountF = 0 To $i_EncryptLevel Step 1

                                $i_EncryptCountG = ''

                                $i_EncryptCountH = ''

                                $v_EncryptModified = Binary('')

                                For $i_EncryptCountG = 1 To BinaryLen($b_EncryptText)

                                        If $i_EncryptCountH = BinaryLen($b_EncryptPassword) Then

                                                $i_EncryptCountH = 1

                                        Else

                                                $i_EncryptCountH += 1

                                        EndIf

                                        $v_EncryptModified = Binary($v_EncryptModified) & Binary('0x' & Hex(BitXOR(BinaryMid($b_EncryptText, $i_EncryptCountG, 1), BinaryMid($b_EncryptPassword, $i_EncryptCountH, 1), 255), 2))

                                Next

                                $b_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[256][2]

                                For $i_EncryptCountA = 0 To 255

                                        $av_EncryptBox[$i_EncryptCountA][1] = Dec(StringTrimLeft(BinaryMid($b_EncryptPassword, Mod($i_EncryptCountA, BinaryLen($b_EncryptPassword)) + 1, 1), 2))

                                        $av_EncryptBox[$i_EncryptCountA][0] = $i_EncryptCountA

                                Next

                                For $i_EncryptCountA = 0 To 255

                                        $i_EncryptCountB = Mod(($i_EncryptCountB + $av_EncryptBox[$i_EncryptCountA][0] + $av_EncryptBox[$i_EncryptCountA][1]), 256)

                                        $v_EncryptSwap = $av_EncryptBox[$i_EncryptCountA][0]

                                        $av_EncryptBox[$i_EncryptCountA][0] = $av_EncryptBox[$i_EncryptCountB][0]

                                        $av_EncryptBox[$i_EncryptCountB][0] = $v_EncryptSwap

                                Next

                                For $i_EncryptCountA = 1 To BinaryLen($b_EncryptText)

                                        $i_EncryptCountC = Mod(($i_EncryptCountC + 1), 256)

                                        $i_EncryptCountD = Mod(($i_EncryptCountD + $av_EncryptBox[$i_EncryptCountC][0]), 256)

                                        $i_EncryptCountE = $av_EncryptBox[Mod(($av_EncryptBox[$i_EncryptCountC][0] + $av_EncryptBox[$i_EncryptCountD][0]), 256)][0]

                                        $v_EncryptCipherBy = BitXOR(BinaryMid($b_EncryptText, $i_EncryptCountA, 1), $i_EncryptCountE)

                                        $v_EncryptCipher = Binary($v_EncryptCipher) & Binary('0x' & Hex($v_EncryptCipherBy, 2))

                                Next

                                $b_EncryptText = StringTrimLeft($v_EncryptCipher, 2)

                        Next

                Else

                        $b_EncryptText = $s_EncryptText

                        For $i_EncryptCountF = 0 To $i_EncryptLevel Step 1

                                $b_EncryptText = Binary('0x' & $b_EncryptText)

                                $i_EncryptCountB = 0

                                $i_EncryptCountC = ''

                                $i_EncryptCountD = ''

                                $i_EncryptCountE = ''

                                $v_EncryptCipherBy = ''

                                $v_EncryptCipher = ''

                                $v_EncryptSwap = ''

                                $av_EncryptBox = ''

                                Local $av_EncryptBox[256][2]

                                For $i_EncryptCountA = 0 To 255

                                        $av_EncryptBox[$i_EncryptCountA][1] = Dec(StringTrimLeft(BinaryMid($b_EncryptPassword, Mod($i_EncryptCountA, BinaryLen($b_EncryptPassword)) + 1, 1), 2))

                                        $av_EncryptBox[$i_EncryptCountA][0] = $i_EncryptCountA

                                Next

                                For $i_EncryptCountA = 0 To 255

                                        $i_EncryptCountB = Mod(($i_EncryptCountB + $av_EncryptBox[$i_EncryptCountA][0] + $av_EncryptBox[$i_EncryptCountA][1]), 256)

                                        $v_EncryptSwap = $av_EncryptBox[$i_EncryptCountA][0]

                                        $av_EncryptBox[$i_EncryptCountA][0] = $av_EncryptBox[$i_EncryptCountB][0]

                                        $av_EncryptBox[$i_EncryptCountB][0] = $v_EncryptSwap

                                Next

                                For $i_EncryptCountA = 1 To BinaryLen($b_EncryptText)

                                        $i_EncryptCountC = Mod(($i_EncryptCountC + 1), 256)

                                        $i_EncryptCountD = Mod(($i_EncryptCountD + $av_EncryptBox[$i_EncryptCountC][0]), 256)

                                        $i_EncryptCountE = $av_EncryptBox[Mod(($av_EncryptBox[$i_EncryptCountC][0] + $av_EncryptBox[$i_EncryptCountD][0]), 256)][0]

                                        $v_EncryptCipherBy = BitXOR(BinaryMid($b_EncryptText, $i_EncryptCountA, 1), $i_EncryptCountE)

                                        $v_EncryptCipher = Binary($v_EncryptCipher) & Binary('0x' & Hex($v_EncryptCipherBy, 2))

                                Next

                                $b_EncryptText = $v_EncryptCipher

                                $i_EncryptCountG = ''

                                $i_EncryptCountH = ''

                                $v_EncryptModified = ''

                                For $i_EncryptCountG = 1 To BinaryLen($b_EncryptText)

                                        If $i_EncryptCountH = BinaryLen($b_EncryptPassword) Then

                                                $i_EncryptCountH = 1

                                        Else

                                                $i_EncryptCountH += 1

                                        EndIf

                                        $v_EncryptModified = Binary($v_EncryptModified) & Binary('0x' & Hex(BitXOR(BinaryMid($b_EncryptText, $i_EncryptCountG, 1), BinaryMid($b_EncryptPassword, $i_EncryptCountH, 1), 255), 2))

                                Next

                                $b_EncryptText = BinaryToString($v_EncryptModified, $i_Flag)

                        Next

                EndIf

                Return $b_EncryptText

        EndIf

EndFunc   ;==>StringEncrypt


谁能吧这段au3 代码 运用到asp中 。。。

happytc

这种提问，一点价值都没有！！！！！！
实在应该被删掉

m765555

你想用作什么用