1.易语言源码 求大神 这一步看不懂了 在线等 谢谢
2.php 网站 如何使用加密狗

易语言源码 求大神 这一步看不懂了 在线等 谢谢

       elseif($paytypes=="Alipay"){

        $url="alipay_".$paytypes."/alipayto.php?源码盗号QQ源码product=".$products."&total_fee=".$total_fee."&body=".$names."&out_trade_no=".$out_trade_nos;

        Header("Location:$url");

        exit;

       }

php 网站 如何使用加密狗

       MD5加密函数：

        <%

        Private Const BITS_TO_A_BYTE = 8

        Private Const BYTES_TO_A_WORD = 4

        Private Const BITS_TO_A_WORD =

        Private m_lOnBits()

        Private m_l2Power()

        Private Function LShift(lValue, iShiftBits)

        If iShiftBits = 0 Then

        LShift = lValue

        Exit Function

        ElseIf iShiftBits = Then

        If lValue And 1 Then

        LShift = &H

        Else

        LShift = 0

        End If

        Exit Function

        ElseIf iShiftBits < 0 Or iShiftBits > Then

        Err.Raise 6

        End If

        If (lValue And m_l2Power( - iShiftBits)) Then

        LShift = ((lValue And m_lOnBits( - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H

        Else

        LShift = ((lValue And m_lOnBits( - iShiftBits)) * m_l2Power(iShiftBits))

        End If

        End Function

        Private Function RShift(lValue, iShiftBits)

        If iShiftBits = 0 Then

        RShift = lValue

        Exit Function

        ElseIf iShiftBits = Then

        If lValue And &H Then

        RShift = 1

        Else

        RShift = 0

        End If

        Exit Function

        ElseIf iShiftBits < 0 Or iShiftBits > Then

        Err.Raise 6

        End If

        RShift = (lValue And &H7FFFFFFE) \ m_l2Power(iShiftBits)

        If (lValue And &H) Then

        RShift = (RShift Or (&H \ m_l2Power(iShiftBits - 1)))

        End If

        End Function

        Private Function RotateLeft(lValue, iShiftBits)

        RotateLeft = LShift(lValue, iShiftBits) Or RShift(lValue, ( - iShiftBits))

        End Function

        Private Function AddUnsigned(lX, lY)

        Dim lX4

        Dim lY4

        Dim lX8

        Dim lY8

        Dim lResult

        lX8 = lX And &H

        lY8 = lY And &H

        lX4 = lX And &H

        lY4 = lY And &H

        lResult = (lX And &H3FFFFFFF) + (lY And &H3FFFFFFF)

        If lX4 And lY4 Then

        lResult = lResult Xor &H Xor lX8 Xor lY8

        ElseIf lX4 Or lY4 Then

        If lResult And &H Then

        lResult = lResult Xor &HC Xor lX8 Xor lY8

        Else

        lResult = lResult Xor &H Xor lX8 Xor lY8

        End If

        Else

        lResult = lResult Xor lX8 Xor lY8

        End If

        AddUnsigned = lResult

        End Function

        Private Function md5_F(x, y, z)

        md5_F = (x And y) Or ((Not x) And z)

        End Function

        Private Function md5_G(x, y, z)

        md5_G = (x And z) Or (y And (Not z))

        End Function

        Private Function md5_H(x, y, z)

        md5_H = (x Xor y Xor z)

        End Function

        Private Function md5_I(x, y, z)

        md5_I = (y Xor (x Or (Not z)))

        End Function

        Private Sub md5_FF(a, b, c, d, x, s, ac)

        a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_F(b, c, d), x), ac))

        a = RotateLeft(a, s)

        a = AddUnsigned(a, b)

        End Sub

        Private Sub md5_GG(a, b, c, d, x, s, ac)

        a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_G(b, c, d), x), ac))

        a = RotateLeft(a, s)

        a = AddUnsigned(a, b)

        End Sub

        Private Sub md5_HH(a, b, c, d, x, s, ac)

        a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_H(b, c, d), x), ac))

        a = RotateLeft(a, s)

        a = AddUnsigned(a, b)

        End Sub

        Private Sub md5_II(a, b, c, d, x, s, ac)

        a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_I(b, c, d), x), ac))

        a = RotateLeft(a, s)

        a = AddUnsigned(a, b)

        End Sub

        Private Function ConvertToWordArray(sMessage)

        Dim lMessageLength

        Dim lNumberOfWords

        Dim lWordArray()

        Dim lBytePosition

        Dim lByteCount

        Dim lWordCount

        Const MODULUS_BITS =

        Const CONGRUENT_BITS =

        lMessageLength = Len(sMessage)

        lNumberOfWords = (((lMessageLength + ((MODULUS_BITS - CONGRUENT_BITS) \ BITS_TO_A_BYTE)) \ (MODULUS_BITS \ BITS_TO_A_BYTE)) + 1) * (MODULUS_BITS \ BITS_TO_A_WORD)

        ReDim lWordArray(lNumberOfWords - 1)

        lBytePosition = 0

        lByteCount = 0

        Do Until lByteCount >= lMessageLength

        lWordCount = lByteCount \ BYTES_TO_A_WORD

        lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE

        lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(Asc(Mid(sMessage, lByteCount + 1, 1)), lBytePosition)

        lByteCount = lByteCount + 1

        Loop

        lWordCount = lByteCount \ BYTES_TO_A_WORD

        lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE

        lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(&H, lBytePosition)

        lWordArray(lNumberOfWords - 2) = LShift(lMessageLength, 3)

        lWordArray(lNumberOfWords - 1) = RShift(lMessageLength, )

        ConvertToWordArray = lWordArray

        End Function

        Private Function WordToHex(lValue)

        Dim lByte

        Dim lCount

        For lCount = 0 To 3

        lByte = RShift(lValue, lCount * BITS_TO_A_BYTE) And m_lOnBits(BITS_TO_A_BYTE - 1)

        WordToHex = WordToHex & Right("0" & Hex(lByte), 2)

        Next

        End Function

       Public Function MD5(sMessage)

        m_lOnBits(0) = CLng(1)

        m_lOnBits(1) = CLng(3)

        m_lOnBits(2) = CLng(7)

        m_lOnBits(3) = CLng()

        m_lOnBits(4) = CLng()

        m_lOnBits(5) = CLng()

        m_lOnBits(6) = CLng()

        m_lOnBits(7) = CLng()

        m_lOnBits(8) = CLng()

        m_lOnBits(9) = CLng()

        m_lOnBits() = CLng()

        m_lOnBits() = CLng()

        m_lOnBits() = CLng()

        m_lOnBits() = CLng()

        m_lOnBits() = CLng()

        m_lOnBits() = CLng()

        m_lOnBits() = CLng()

        m_lOnBits() = CLng()

        m_lOnBits() = CLng()

        m_lOnBits() = CLng()

        m_lOnBits() = CLng()

        m_lOnBits() = CLng()

        m_lOnBits() = CLng()

        m_lOnBits() = CLng()

        m_lOnBits() = CLng()

        m_lOnBits() = CLng()

        m_lOnBits() = CLng()

        m_lOnBits() = CLng()

        m_lOnBits() = CLng()

        m_lOnBits() = CLng()

        m_lOnBits() = CLng()

        m_l2Power(0) = CLng(1)

        m_l2Power(1) = CLng(2)

        m_l2Power(2) = CLng(4)

        m_l2Power(3) = CLng(8)

        m_l2Power(4) = CLng()

        m_l2Power(5) = CLng()

        m_l2Power(6) = CLng()

        m_l2Power(7) = CLng()

        m_l2Power(8) = CLng()

        m_l2Power(9) = CLng()

        m_l2Power() = CLng()

        m_l2Power() = CLng()

        m_l2Power() = CLng()

        m_l2Power() = CLng()

        m_l2Power() = CLng()

        m_l2Power() = CLng()

        m_l2Power() = CLng()

        m_l2Power() = CLng()

        m_l2Power() = CLng()

        m_l2Power() = CLng()

        m_l2Power() = CLng()

        m_l2Power() = CLng()

        m_l2Power() = CLng()

        m_l2Power() = CLng()

        m_l2Power() = CLng()

        m_l2Power() = CLng()

        m_l2Power() = CLng()

        m_l2Power() = CLng()

        m_l2Power() = CLng()

        m_l2Power() = CLng()

        m_l2Power() = CLng()

       Dim x

        Dim k

        Dim AA

        Dim BB

        Dim CC

        Dim DD

        Dim a

        Dim b

        Dim c

        Dim d

        Const S = 7

        Const S =

        Const S =

        Const S =

        Const S = 5

        Const S = 9

        Const S =

        Const S =

        Const S = 4

        Const S =

        Const S =

        Const S =

        Const S = 6

        Const S =

        Const S =

        Const S =

        x = ConvertToWordArray(sMessage)

        a = &H

        b = &HEFCDAB

        c = &HBADCFE

        d = &H

        For k = 0 To UBound(x) Step

        AA = a

        BB = b

        CC = c

        DD = d

        md5_FF a, b, c, d, x(k + 0), S, &HDAA

        md5_FF d, a, b, c, x(k + 1), S, &HE8C7B

        md5_FF c, d, a, b, x(k + 2), S, &HDB

        md5_FF b, c, d, a, x(k + 3), S, &HC1BDCEEE

        md5_FF a, b, c, d, x(k + 4), S, &HFC0FAF

        md5_FF d, a, b, c, x(k + 5), S, &HCA

        md5_FF c, d, a, b, x(k + 6), S, &HA

        md5_FF b, c, d, a, x(k + 7), S, &HFD

        md5_FF a, b, c, d, x(k + 8), S, &HD8

        md5_FF d, a, b, c, x(k + 9), S, &H8BF7AF

        md5_FF c, d, a, b, x(k + ), S, &HFFFF5BB1

        md5_FF b, c, d, a, x(k + ), S, &HCD7BE

        md5_FF a, b, c, d, x(k + ), S, &H6B

        md5_FF d, a, b, c, x(k + ), S, &HFD

        md5_FF c, d, a, b, x(k + ), S, &HAE

        md5_FF b, c, d, a, x(k + ), S, &HB

        md5_GG a, b, c, d, x(k + 1), S, &HFE

        md5_GG d, a, b, c, x(k + 6), S, &HCB

        md5_GG c, d, a, b, x(k + ), S, &HE5A

        md5_GG b, c, d, a, x(k + 0), S, &HE9B6C7AA

        md5_GG a, b, c, d, x(k + 5), S, &HDFD

        md5_GG d, a, b, c, x(k + ), S, &H

        md5_GG c, d, a, b, x(k + ), S, &HD8A1E

        md5_GG b, c, d, a, x(k + 4), S, &HE7D3FBC8

        md5_GG a, b, c, d, x(k + 9), S, &HE1CDE6

        md5_GG d, a, b, c, x(k + ), S, &HCD6

        md5_GG c, d, a, b, x(k + 3), S, &HF4DD

        md5_GG b, c, d, a, x(k + 8), S, &HAED

        md5_GG a, b, c, d, x(k + ), S, &HA9E3E

        md5_GG d, a, b, c, x(k + 2), S, &HFCEFA3F8

        md5_GG c, d, a, b, x(k + 7), S, &HFD9

        md5_GG b, c, d, a, x(k + ), S, &H8D2A4C8A

        md5_HH a, b, c, d, x(k + 5), S, &HFFFA

        md5_HH d, a, b, c, x(k + 8), S, &HF

        md5_HH c, d, a, b, x(k + ), S, &H6D9D

        md5_HH b, c, d, a, x(k + ), S, &HFDEC

        md5_HH a, b, c, d, x(k + 1), S, &HA4BEEA

        md5_HH d, a, b, c, x(k + 4), S, &H4BDECFA9

        md5_HH c, d, a, b, x(k + 7), S, &HF6BB4B

        md5_HH b, c, d, a, x(k + ), S, &HBEBFBC

        md5_HH a, b, c, d, x(k + ), S, &HB7EC6

        md5_HH d, a, b, c, x(k + 0), S, &HEAAFA

        md5_HH c, d, a, b, x(k + 3), S, &HD4EF

        md5_HH b, c, d, a, x(k + 6), S, &HD

        md5_HH a, b, c, d, x(k + 9), S, &HD9D4D

        md5_HH d, a, b, c, x(k + ), S, &HE6DBE5

        md5_HH c, d, a, b, x(k + ), S, &H1FACF8

        md5_HH b, c, d, a, x(k + 2), S, &HC4AC

        md5_II a, b, c, d, x(k + 0), S, &HF

        md5_II d, a, b, c, x(k + 7), S, &HAFF

        md5_II c, d, a, b, x(k + ), S, &HABA7

        md5_II b, c, d, a, x(k + 5), S, &HFCA

        md5_II a, b, c, d, x(k + ), S, &HBC3

        md5_II d, a, b, c, x(k + 3), S, &H8F0CCC

        md5_II c, d, a, b, x(k + ), S, &HFFEFFD

        md5_II b, c, d, a, x(k + 1), S, &HDD1

        md5_II a, b, c, d, x(k + 8), S, &H6FAE4F

        md5_II d, a, b, c, x(k + ), S, &HFE2CE6E0

        md5_II c, d, a, b, x(k + 6), S, &HA

        md5_II b, c, d, a, x(k + ), S, &H4EA1

        md5_II a, b, c, d, x(k + 4), S, &HFE

        md5_II d, a, b, c, x(k + ), S, &HBD3AF

        md5_II c, d, a, b, x(k + 2), S, &H2AD7D2BB

        md5_II b, c, d, a, x(k + 9), S, &HEBD

        a = AddUnsigned(a, AA)

        b = AddUnsigned(b, BB)

        c = AddUnsigned(c, CC)

        d = AddUnsigned(d, DD)

        Next

        'MD5 = LCase(WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d))

        MD5=LCase(WordToHex(b) & WordToHex(c)) 'I crop this to fit byte database password :D

        End Function

        %>

        调用的时候就用

        MD5(要加密的内容)