如何使ASP登录用户从明文改为MD5密文方式 md5.asp这个文件从哪里得到？_百度知道
提问者采纳
MD5.ASP文件源程序&%Private Const BITS_TO_A_BYTE = 8Private Const BYTES_TO_A_WORD = 4Private Const BITS_TO_A_WORD = 32Private m_lOnBits(30)Private m_l2Power(30)Private Function LShift(lValue, iShiftBits)If iShiftBits = 0 ThenLShift = lValueExit FunctionElseIf iShiftBits = 31 ThenIf lValue And 1 ThenLShift = &HElseLShift = 0End IfExit FunctionElseIf iShiftBits & 0 Or iShiftBits & 31 ThenErr.Raise 6End IfIf (lValue And m_l2Power(31 - iShiftBits)) ThenLShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &HElseLShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits))End IfEnd FunctionPrivate Function RShift(lValue, iShiftBits)If iShiftBits = 0 ThenRShift = lValueExit FunctionElseIf iShiftBits = 31 ThenIf lValue And &H ThenRShift = 1ElseRShift = 0End IfExit FunctionElseIf iShiftBits & 0 Or iShiftBits & 31 ThenErr.Raise 6End IfRShift = (lValue And &H7FFFFFFE) \ m_l2Power(iShiftBits)If (lValue And &H) ThenRShift = (RShift Or (&H \ m_l2Power(iShiftBits - 1)))End IfEnd FunctionPrivate Function RotateLeft(lValue, iShiftBits)RotateLeft = LShift(lValue, iShiftBits) Or RShift(lValue, (32 - iShiftBits))End FunctionPrivate Function AddUnsigned(lX, lY)Dim lX4Dim lY4Dim lX8Dim lY8Dim lResultlX8 = lX And &HlY8 = lY And &HlX4 = lX And &HlY4 = lY And &HlResult = (lX And &H3FFFFFFF) + (lY And &H3FFFFFFF)If lX4 And lY4 ThenlResult = lResult Xor &H Xor lX8 Xor lY8ElseIf lX4 Or lY4 ThenIf lResult And &H ThenlResult = lResult Xor &HC0000000 Xor lX8 Xor lY8ElselResult = lResult Xor &H Xor lX8 Xor lY8End IfElselResult = lResult Xor lX8 Xor lY8End IfAddUnsigned = lResultEnd FunctionPrivate Function md5_F(x, y, z)md5_F = (x And y) Or ((Not x) And z)End FunctionPrivate Function md5_G(x, y, z)md5_G = (x And z) Or (y And (Not z))End FunctionPrivate Function md5_H(x, y, z)md5_H = (x Xor y Xor z)End FunctionPrivate Function md5_I(x, y, z)md5_I = (y Xor (x Or (Not z)))End FunctionPrivate 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 SubPrivate 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 SubPrivate 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 SubPrivate 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 SubPrivate Function ConvertToWordArray(sMessage)Dim lMessageLengthDim lNumberOfWordsDim lWordArray()Dim lBytePositionDim lByteCountDim lWordCountConst MODULUS_BITS = 512Const CONGRUENT_BITS = 448lMessageLength = 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 = 0lByteCount = 0Do Until lByteCount &= lMessageLengthlWordCount = lByteCount \ BYTES_TO_A_WORDlBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTElWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(Asc(Mid(sMessage, lByteCount + 1, 1)), lBytePosition)lByteCount = lByteCount + 1LooplWordCount = lByteCount \ BYTES_TO_A_WORDlBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTElWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(&H80, lBytePosition)lWordArray(lNumberOfWords - 2) = LShift(lMessageLength, 3)lWordArray(lNumberOfWords - 1) = RShift(lMessageLength, 29)ConvertToWordArray = lWordArrayEnd FunctionPrivate Function WordToHex(lValue)Dim lByteDim lCountFor lCount = 0 To 3lByte = RShift(lValue, lCount * BITS_TO_A_BYTE) And m_lOnBits(BITS_TO_A_BYTE - 1)WordToHex = WordToHex & Right(&0& & Hex(lByte), 2)NextEnd FunctionPublic Function MD5(sMessage)m_lOnBits(0) = CLng(1)m_lOnBits(1) = CLng(3)m_lOnBits(2) = CLng(7)m_lOnBits(3) = CLng(15)m_lOnBits(4) = CLng(31)m_lOnBits(5) = CLng(63)m_lOnBits(6) = CLng(127)m_lOnBits(7) = CLng(255)m_lOnBits(8) = CLng(511)m_lOnBits(9) = CLng(1023)m_lOnBits(10) = CLng(2047)m_lOnBits(11) = CLng(4095)m_lOnBits(12) = CLng(8191)m_lOnBits(13) = CLng(16383)m_lOnBits(14) = CLng(32767)m_lOnBits(15) = CLng(65535)m_lOnBits(16) = CLng(131071)m_lOnBits(17) = CLng(262143)m_lOnBits(18) = CLng(524287)m_lOnBits(19) = CLng(1048575)m_lOnBits(20) = CLng(2097151)m_lOnBits(21) = CLng(4194303)m_lOnBits(22) = CLng(8388607)m_lOnBits(23) = CLng()m_lOnBits(24) = CLng()m_lOnBits(25) = CLng()m_lOnBits(26) = CLng()m_lOnBits(27) = CLng()m_lOnBits(28) = CLng()m_lOnBits(29) = CLng()m_lOnBits(30) = 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(16)m_l2Power(5) = CLng(32)m_l2Power(6) = CLng(64)m_l2Power(7) = CLng(128)m_l2Power(8) = CLng(256)m_l2Power(9) = CLng(512)m_l2Power(10) = CLng(1024)m_l2Power(11) = CLng(2048)m_l2Power(12) = CLng(4096)m_l2Power(13) = CLng(8192)m_l2Power(14) = CLng(16384)m_l2Power(15) = CLng(32768)m_l2Power(16) = CLng(65536)m_l2Power(17) = CLng(131072)m_l2Power(18) = CLng(262144)m_l2Power(19) = CLng(524288)m_l2Power(20) = CLng(1048576)m_l2Power(21) = CLng(2097152)m_l2Power(22) = CLng(4194304)m_l2Power(23) = CLng(8388608)m_l2Power(24) = CLng()m_l2Power(25) = CLng()m_l2Power(26) = CLng()m_l2Power(27) = CLng()m_l2Power(28) = CLng()m_l2Power(29) = CLng()m_l2Power(30) = CLng()Dim xDim kDim AADim BBDim CCDim DDDim aDim bDim cDim dConst S11 = 7Const S12 = 12Const S13 = 17Const S14 = 22Const S21 = 5Const S22 = 9Const S23 = 14Const S24 = 20Const S31 = 4Const S32 = 11Const S33 = 16Const S34 = 23Const S41 = 6Const S42 = 10Const S43 = 15Const S44 = 21x = ConvertToWordArray(sMessage)a = &Hb = &HEFCDAB89c = &H98BADCFEd = &HFor k = 0 To UBound(x) Step 16AA = aBB = bCC = cDD = dmd5_FF a, b, c, d, x(k + 0), S11, &HD76AA478md5_FF d, a, b, c, x(k + 1), S12, &HE8C7B756md5_FF c, d, a, b, x(k + 2), S13, &H242070DBmd5_FF b, c, d, a, x(k + 3), S14, &HC1BDCEEEmd5_FF a, b, c, d, x(k + 4), S11, &HF57C0FAFmd5_FF d, a, b, c, x(k + 5), S12, &H4787C62Amd5_FF c, d, a, b, x(k + 6), S13, &HA8304613md5_FF b, c, d, a, x(k + 7), S14, &HFD469501md5_FF a, b, c, d, x(k + 8), S11, &Hmd5_FF d, a, b, c, x(k + 9), S12, &H8B44F7AFmd5_FF c, d, a, b, x(k + 10), S13, &HFFFF5BB1md5_FF b, c, d, a, x(k + 11), S14, &H895CD7BEmd5_FF a, b, c, d, x(k + 12), S11, &H6B901122md5_FF d, a, b, c, x(k + 13), S12, &HFD987193md5_FF c, d, a, b, x(k + 14), S13, &HA679438Emd5_FF b, c, d, a, x(k + 15), S14, &H49B40821md5_GG a, b, c, d, x(k + 1), S21, &HF61E2562md5_GG d, a, b, c, x(k + 6), S22, &HC040B340md5_GG c, d, a, b, x(k + 11), S23, &H265E5A51md5_GG b, c, d, a, x(k + 0), S24, &HE9B6C7AAmd5_GG a, b, c, d, x(k + 5), S21, &HD62F105Dmd5_GG d, a, b, c, x(k + 10), S22, &H2441453md5_GG c, d, a, b, x(k + 15), S23, &HD8A1E681md5_GG b, c, d, a, x(k + 4), S24, &HE7D3FBC8md5_GG a, b, c, d, x(k + 9), S21, &H21E1CDE6md5_GG d, a, b, c, x(k + 14), S22, &HC33707D6md5_GG c, d, a, b, x(k + 3), S23, &HF4D50D87md5_GG b, c, d, a, x(k + 8), S24, &H455A14EDmd5_GG a, b, c, d, x(k + 13), S21, &HA9E3E905md5_GG d, a, b, c, x(k + 2), S22, &HFCEFA3F8md5_GG c, d, a, b, x(k + 7), S23, &H676F02D9md5_GG b, c, d, a, x(k + 12), S24, &H8D2A4C8Amd5_HH a, b, c, d, x(k + 5), S31, &HFFFA3942md5_HH d, a, b, c, x(k + 8), S32, &Hmd5_HH c, d, a, b, x(k + 11), S33, &H6D9D6122md5_HH b, c, d, a, x(k + 14), S34, &HFDE5380Cmd5_HH a, b, c, d, x(k + 1), S31, &HA4BEEA44md5_HH d, a, b, c, x(k + 4), S32, &H4BDECFA9md5_HH c, d, a, b, x(k + 7), S33, &HF6BB4B60md5_HH b, c, d, a, x(k + 10), S34, &HBEBFBC70md5_HH a, b, c, d, x(k + 13), S31, &H289B7EC6md5_HH d, a, b, c, x(k + 0), S32, &HEAA127FAmd5_HH c, d, a, b, x(k + 3), S33, &HD4EF3085md5_HH b, c, d, a, x(k + 6), S34, &H4881D05md5_HH a, b, c, d, x(k + 9), S31, &HD9D4D039md5_HH d, a, b, c, x(k + 12), S32, &HE6DB99E5md5_HH c, d, a, b, x(k + 15), S33, &H1FA27CF8md5_HH b, c, d, a, x(k + 2), S34, &HC4AC5665md5_II a, b, c, d, x(k + 0), S41, &HF4292244md5_II d, a, b, c, x(k + 7), S42, &H432AFF97md5_II c, d, a, b, x(k + 14), S43, &HAB9423A7md5_II b, c, d, a, x(k + 5), S44, &HFC93A039md5_II a, b, c, d, x(k + 12), S41, &H655B59C3md5_II d, a, b, c, x(k + 3), S42, &H8F0CCC92md5_II c, d, a, b, x(k + 10), S43, &HFFEFF47Dmd5_II b, c, d, a, x(k + 1), S44, &H85845DD1md5_II a, b, c, d, x(k + 8), S41, &H6FA87E4Fmd5_II d, a, b, c, x(k + 15), S42, &HFE2CE6E0md5_II c, d, a, b, x(k + 6), S43, &HA3014314md5_II b, c, d, a, x(k + 13), S44, &H4E0811A1md5_II a, b, c, d, x(k + 4), S41, &HF7537E82md5_II d, a, b, c, x(k + 11), S42, &HBD3AF235md5_II c, d, a, b, x(k + 2), S43, &H2AD7D2BBmd5_II b, c, d, a, x(k + 9), S44, &HEB86D391a = AddUnsigned(a, AA)b = AddUnsigned(b, BB)c = AddUnsigned(c, CC)d = AddUnsigned(d, DD)Next'MD5=LCase(WordToHex(b) & WordToHex(c))MD5 = UCase(WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d))End Function%&
提问者评价
非常感谢，我决定使用40位的sha1加密算法！
其他类似问题
按默认排序
其他3条回答
MD5源文件&%Private Const BITS_TO_A_BYTE = 8Private Const BYTES_TO_A_WORD = 4Private Const BITS_TO_A_WORD = 32Private m_lOnBits(30)Private m_l2Power(30) Private Function LShift(lValue, iShiftBits)
If iShiftBits = 0 Then
LShift = lValue
Exit Function
ElseIf iShiftBits = 31 Then
If lValue And 1 Then
LShift = &H
LShift = 0
Exit Function
ElseIf iShiftBits & 0 Or iShiftBits & 31 Then
Err.Raise 6
If (lValue And m_l2Power(31 - iShiftBits)) Then
LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H
LShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits))
End IfEnd FunctionPrivate Function RShift(lValue, iShiftBits)
If iShiftBits = 0 Then
RShift = lValue
Exit Function
ElseIf iShiftBits = 31 Then
If lValue And &H Then
RShift = 1
RShift = 0
Exit Function
ElseIf iShiftBits & 0 Or iShiftBits & 31 Then
Err.Raise 6
RShift = (lValue And &H7FFFFFFE) \ m_l2Power(iShiftBits)
If (lValue And &H) Then
RShift = (RShift Or (&H \ m_l2Power(iShiftBits - 1)))
End IfEnd FunctionPrivate Function RotateLeft(lValue, iShiftBits)
RotateLeft = LShift(lValue, iShiftBits) Or RShift(lValue, (32 - iShiftBits))End FunctionPrivate Function AddUnsigned(lX, lY)
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 &HC0000000 Xor lX8 Xor lY8
lResult = lResult Xor &H Xor lX8 Xor lY8
lResult = lResult Xor lX8 Xor lY8
AddUnsigned = lResultEnd FunctionPrivate Function md5_F(x, y, z)
md5_F = (x And y) Or ((Not x) And z)End FunctionPrivate Function md5_G(x, y, z)
md5_G = (x And z) Or (y And (Not z))End FunctionPrivate Function md5_H(x, y, z)
md5_H = (x Xor y Xor z)End FunctionPrivate Function md5_I(x, y, z)
md5_I = (y Xor (x Or (Not z)))End FunctionPrivate 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 SubPrivate 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 SubPrivate 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 SubPrivate 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 SubPrivate Function ConvertToWordArray(sMessage)
Dim lMessageLength
Dim lNumberOfWords
Dim lWordArray()
Dim lBytePosition
Dim lByteCount
Dim lWordCount
Const MODULUS_BITS = 512
Const CONGRUENT_BITS = 448
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
lWordCount = lByteCount \ BYTES_TO_A_WORD
lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE
lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(&H80, lBytePosition)
lWordArray(lNumberOfWords - 2) = LShift(lMessageLength, 3)
lWordArray(lNumberOfWords - 1) = RShift(lMessageLength, 29)
ConvertToWordArray = lWordArrayEnd FunctionPrivate Function WordToHex(lValue)
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)
NextEnd FunctionPublic Function MD5(sMessage, style)
m_lOnBits(0) = CLng(1)
m_lOnBits(1) = CLng(3)
m_lOnBits(2) = CLng(7)
m_lOnBits(3) = CLng(15)
m_lOnBits(4) = CLng(31)
m_lOnBits(5) = CLng(63)
m_lOnBits(6) = CLng(127)
m_lOnBits(7) = CLng(255)
m_lOnBits(8) = CLng(511)
m_lOnBits(9) = CLng(1023)
m_lOnBits(10) = CLng(2047)
m_lOnBits(11) = CLng(4095)
m_lOnBits(12) = CLng(8191)
m_lOnBits(13) = CLng(16383)
m_lOnBits(14) = CLng(32767)
m_lOnBits(15) = CLng(65535)
m_lOnBits(16) = CLng(131071)
m_lOnBits(17) = CLng(262143)
m_lOnBits(18) = CLng(524287)
m_lOnBits(19) = CLng(1048575)
m_lOnBits(20) = CLng(2097151)
m_lOnBits(21) = CLng(4194303)
m_lOnBits(22) = CLng(8388607)
m_lOnBits(23) = CLng()
m_lOnBits(24) = CLng()
m_lOnBits(25) = CLng()
m_lOnBits(26) = CLng()
m_lOnBits(27) = CLng()
m_lOnBits(28) = CLng()
m_lOnBits(29) = CLng()
m_lOnBits(30) = 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(16)
m_l2Power(5) = CLng(32)
m_l2Power(6) = CLng(64)
m_l2Power(7) = CLng(128)
m_l2Power(8) = CLng(256)
m_l2Power(9) = CLng(512)
m_l2Power(10) = CLng(1024)
m_l2Power(11) = CLng(2048)
m_l2Power(12) = CLng(4096)
m_l2Power(13) = CLng(8192)
m_l2Power(14) = CLng(16384)
m_l2Power(15) = CLng(32768)
m_l2Power(16) = CLng(65536)
m_l2Power(17) = CLng(131072)
m_l2Power(18) = CLng(262144)
m_l2Power(19) = CLng(524288)
m_l2Power(20) = CLng(1048576)
m_l2Power(21) = CLng(2097152)
m_l2Power(22) = CLng(4194304)
m_l2Power(23) = CLng(8388608)
m_l2Power(24) = CLng()
m_l2Power(25) = CLng()
m_l2Power(26) = CLng()
m_l2Power(27) = CLng()
m_l2Power(28) = CLng()
m_l2Power(29) = CLng()
m_l2Power(30) = CLng()Dim x
Const S11 = 7
Const S12 = 12
Const S13 = 17
Const S14 = 22
Const S21 = 5
Const S22 = 9
Const S23 = 14
Const S24 = 20
Const S31 = 4
Const S32 = 11
Const S33 = 16
Const S34 = 23
Const S41 = 6
Const S42 = 10
Const S43 = 15
Const S44 = 21
x = ConvertToWordArray(sMessage)
b = &HEFCDAB89
c = &H98BADCFE
For k = 0 To UBound(x) Step 16
md5_FF a, b, c, d, x(k + 0), S11, &HD76AA478
md5_FF d, a, b, c, x(k + 1), S12, &HE8C7B756
md5_FF c, d, a, b, x(k + 2), S13, &H242070DB
md5_FF b, c, d, a, x(k + 3), S14, &HC1BDCEEE
md5_FF a, b, c, d, x(k + 4), S11, &HF57C0FAF
md5_FF d, a, b, c, x(k + 5), S12, &H4787C62A
md5_FF c, d, a, b, x(k + 6), S13, &HA8304613
md5_FF b, c, d, a, x(k + 7), S14, &HFD469501
md5_FF a, b, c, d, x(k + 8), S11, &H
md5_FF d, a, b, c, x(k + 9), S12, &H8B44F7AF
md5_FF c, d, a, b, x(k + 10), S13, &HFFFF5BB1
md5_FF b, c, d, a, x(k + 11), S14, &H895CD7BE
md5_FF a, b, c, d, x(k + 12), S11, &H6B901122
md5_FF d, a, b, c, x(k + 13), S12, &HFD987193
md5_FF c, d, a, b, x(k + 14), S13, &HA679438E
md5_FF b, c, d, a, x(k + 15), S14, &H49B40821
md5_GG a, b, c, d, x(k + 1), S21, &HF61E2562
md5_GG d, a, b, c, x(k + 6), S22, &HC040B340
md5_GG c, d, a, b, x(k + 11), S23, &H265E5A51
md5_GG b, c, d, a, x(k + 0), S24, &HE9B6C7AA
md5_GG a, b, c, d, x(k + 5), S21, &HD62F105D
md5_GG d, a, b, c, x(k + 10), S22, &H2441453
md5_GG c, d, a, b, x(k + 15), S23, &HD8A1E681
md5_GG b, c, d, a, x(k + 4), S24, &HE7D3FBC8
md5_GG a, b, c, d, x(k + 9), S21, &H21E1CDE6
md5_GG d, a, b, c, x(k + 14), S22, &HC33707D6
md5_GG c, d, a, b, x(k + 3), S23, &HF4D50D87
md5_GG b, c, d, a, x(k + 8), S24, &H455A14ED
md5_GG a, b, c, d, x(k + 13), S21, &HA9E3E905
md5_GG d, a, b, c, x(k + 2), S22, &HFCEFA3F8
md5_GG c, d, a, b, x(k + 7), S23, &H676F02D9
md5_GG b, c, d, a, x(k + 12), S24, &H8D2A4C8A
md5_HH a, b, c, d, x(k + 5), S31, &HFFFA3942
md5_HH d, a, b, c, x(k + 8), S32, &H
md5_HH c, d, a, b, x(k + 11), S33, &H6D9D6122
md5_HH b, c, d, a, x(k + 14), S34, &HFDE5380C
md5_HH a, b, c, d, x(k + 1), S31, &HA4BEEA44
md5_HH d, a, b, c, x(k + 4), S32, &H4BDECFA9
md5_HH c, d, a, b, x(k + 7), S33, &HF6BB4B60
md5_HH b, c, d, a, x(k + 10), S34, &HBEBFBC70
md5_HH a, b, c, d, x(k + 13), S31, &H289B7EC6
md5_HH d, a, b, c, x(k + 0), S32, &HEAA127FA
md5_HH c, d, a, b, x(k + 3), S33, &HD4EF3085
md5_HH b, c, d, a, x(k + 6), S34, &H4881D05
md5_HH a, b, c, d, x(k + 9), S31, &HD9D4D039
md5_HH d, a, b, c, x(k + 12), S32, &HE6DB99E5
md5_HH c, d, a, b, x(k + 15), S33, &H1FA27CF8
md5_HH b, c, d, a, x(k + 2), S34, &HC4AC5665
md5_II a, b, c, d, x(k + 0), S41, &HF4292244
md5_II d, a, b, c, x(k + 7), S42, &H432AFF97
md5_II c, d, a, b, x(k + 14), S43, &HAB9423A7
md5_II b, c, d, a, x(k + 5), S44, &HFC93A039
md5_II a, b, c, d, x(k + 12), S41, &H655B59C3
md5_II d, a, b, c, x(k + 3), S42, &H8F0CCC92
md5_II c, d, a, b, x(k + 10), S43, &HFFEFF47D
md5_II b, c, d, a, x(k + 1), S44, &H85845DD1
md5_II a, b, c, d, x(k + 8), S41, &H6FA87E4F
md5_II d, a, b, c, x(k + 15), S42, &HFE2CE6E0
md5_II c, d, a, b, x(k + 6), S43, &HA3014314
md5_II b, c, d, a, x(k + 13), S44, &H4E0811A1
md5_II a, b, c, d, x(k + 4), S41, &HF7537E82
md5_II d, a, b, c, x(k + 11), S42, &HBD3AF235
md5_II c, d, a, b, x(k + 2), S43, &H2AD7D2BB
md5_II b, c, d, a, x(k + 9), S44, &HEB86D391
a = AddUnsigned(a, AA)
b = AddUnsigned(b, BB)
c = AddUnsigned(c, CC)
d = AddUnsigned(d, DD)
if style=32 then
MD5 = LCase(WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d)) else
MD5=LCase(WordToHex(b) & WordToHex(c)) end ifEnd Function%&
动网论坛的inc目录下
直接把上面的代码复制到asp文件中，用的时候&!--#include file=&md5.asp&--&这样引用一下就可以了．
md5的相关知识
您可能关注的推广
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁您现在的位置：&&>>&&>>&&>>&正文
大智慧股票指标公式&东拼西凑主图指标公式
　　南方财富网入门小编带来股票公式：东拼西凑主图指标公式。
　　DRAWGBK（c，‘mm2’），Color2B5516;
　　a：=“［email=LTFunc5@FORLT2］LTFunc5@FORLT2［/email］”;
　　s1：=“［email=LTFunc5@LT_S1］LTFunc5@LT_S1［/email］”;
　　hs：=“［email=LTFunc5@LT_HS］LTFunc5@LT_HS［/email］”;
　　ls：=“［email=LTFunc5@LT_LS］LTFunc5@LT_LS［/email］”; p1：=“［email=LTFunc5@LT_P1］LTFunc5@LT_P1［/email］”;
　　upp：=“［email=LTFunc5@LT_UPP］LTFunc5@LT_UPP”;udd：=“［email=LTFunc5@LT_UDD［/email］LTFunc5@LT_UDD［/email［/email］］”;
　　{s1;p1;p0;udd};
　　d1：=ema（abs（“ddx.ddx”），60）; d2：=max（“ddx.ddx”/d1+7.5，7.5）;
　　d3：=min（“ddx.ddx”/d1，10）; fb：=if（s1=0，hs，ls）;
　　tr0：=ifs（p1=1，‘明日收盘价《’+numtostrn（udd，2）+‘，出现S点\n’，‘若明日收盘价》’+numtostrn（upp，2）+‘，出现B点\n’）;
　　tr1：=ifs（s1=1，‘明日收盘价《’+numtostrn（ls，2）+‘，短线机会’，‘若明日收盘价》’+numtostrn（hs，2）+‘短线买入机会’）;
　　tr2：=ifs（p1=1，ifs（cross（p1，0），‘B点’，‘持股’），ifs（cross（1，p1），‘S点’，‘持币’））;
　　tr3：=ifs（s1=0，‘向下，’，‘向上，’）;
　　tr4：=‘3.能量级别：’+numtostrn（d3，1）+‘级’;
　　bs：=‘《*t=0092F7*》《*c=FFFFFF*》《*p=95*》’+datestr（date）+‘决策系统提示\n’+‘《*t=E7FFFF*》《*c=000000*》《*p=95*》’+‘1.BS点：’+tr2+‘，’+tr0+‘《*t=E7FFFF*》《*c=000000*》《*p=95*》’+‘2.短线：’+tr3+tr1+‘\n’+‘《*t=E7FFFF*》《*c=000000*》《*p=95*》’+tr4;
　　drawflagtext（1，fb，bs）;
　　STICKLINE（p1=1 and c》=o and o《》0，c，o，d2，0），color5454
　　STICKLINE（p1=1 and c》=o and o《》0，c，o，7.5，0），
　　STICKLINE（p1=1 and c》=o and o《》0，c，c，7.5，0），color5454
　　STICKLINE（p1=1 and c》=o and o《》0，o，o，7.5，0），color5454
　　STICKLINE（p1=1 and c》=o and o《》0，o，c，7.5，1），color5454
　　STICKLINE（p1=1 and c《=o，o，c，7.5，1），color5454
　　STICKLINE（p1=1 and c《=o，l，c，0.5，1），color5454
　　STICKLINE（p1=1 and c《=o，h，o，0.5，1），color5454
　　STICKLINE（（p1《》1 or barscount（c）《3） and c》=o，c，o，7.5，1），colorffff54;
　　STICKLINE（（p1《》1 or barscount（c）《3） and c》=o，c，h，0.5，1），colorffff54;
　　STICKLINE（（p1《》1 or barscount（c）《3） and c》=o，l，o，0.5，1），colorffff54;
　　drawbmp（p1=1 and ref（p1，1）=0，l，‘buy1.bmp’），align1，valign0;
　　drawbmp（p1=0 and ref（p1，1）=1，h，‘sell1.bmp’），align1，valign2;
　　drawbmp（s1=1 and ref（s1，1）=0 and （p1+ref（p1，1））《》1，l，‘bs.bmp’），align1，valign0;
　　drawbmp（s1=0 and ref（s1，1）=1 and （p1+ref（p1，1））《》1，h，‘ss.bmp’），align1，valign2;
　　JJ：=（CLOSE+HIGH+LOW）/3;
　　A：=EMA（JJ，10）;
　　B：=REF（A，1）;
　　STICKLINE（A》B ，A ，B ，10 ，0 ），COLORYELLOW;
　　STICKLINE（A《B ，B ，A ，10 ，0 ），COLORBLUE;
　　MA1:MA（CLOSE，3），COLORYELLOW;
　　MA2:MA（CLOSE，19），COLOR00ff00;
　　xx1：=（C+L+H）/3;
　　bbb13：=atan（ema（xx1，13）-ref（ema（xx1，13），1））*3.1416*10;
　　ema8：=ema（c，8）;
　　DRAWTEXT（filter（bbb13》1 and ema（xx1，13）》ref（ema（xx1，8），1），10），
　　ema8，‘∠45上升’），
　　X1:POLYLINE（C《COST（50），COST（1）），COLOR008800;
　　X3:POLYLINE（C《COST（50），COST（3）），COLOR008800;
　　X5:POLYLINE（C《COST（50），COST（5）），COLOR008800;
　　X7:POLYLINE（C《COST（50），COST（7）），COLOR008800;
　　X9:POLYLINE（C《COST（50），COST（9）），COLOR008800;
　　十：POLYLINE（C《COST（50），COST（10）），POINTDOT，COLOR008800;
　　X11:POLYLINE（C《COST（50），COST（11）），COLOR66CC00;
　　X31:POLYLINE（C《COST（50），COST（13）），COLOR66CC00;
　　X51:POLYLINE（C《COST（50），COST（15）），COLOR66CC00;
　　X71:POLYLINE（C《COST（50），COST（17）），COLOR66CC00;
　　X91:POLYLINE（C《COST（50），COST（19）），COLOR66CC00;
　　二十：POLYLINE（C《COST（50），COST（20）），POINTDOT，COLOR66CC00;
　　X12:POLYLINE（C《COST（50），COST（21）），COLORFF9933;
　　X32:POLYLINE（C《COST（50），COST（23）），COLORFF9933;
　　X52:POLYLINE（C《COST（50），COST（25）），COLORFF9933;
　　X72:POLYLINE（C《COST（50），COST（27）），COLORFF9933;
　　X92:POLYLINE（C《COST（50），COST（29）），COLORFF9933;
　　三十：POLYLINE（C《COST（50），COST（30）），POINTDOT，COLORFF9933;
　　X13:POLYLINE（C《COST（50），COST（31）），COLOR008800;
　　X33:POLYLINE（C《COST（50），COST（33）），COLOR008800;
　　X53:POLYLINE（C《COST（50），COST（35）），COLOR008800;
　　X73:POLYLINE（C《COST（50），COST（37）），COLOR008800;
　　X93:POLYLINE（C《COST（50），COST（39）），COLOR008800;
　　四十：POLYLINE（C《COST（50），COST（40）），POINTDOT，COLOR008800;
　　X14:POLYLINE（C》0，COST（41）），COLOR33CC00;
　　X34:POLYLINE（C》0，COST（43）），COLOR33CC00;
　　X54:POLYLINE（C》0，COST（45）），COLOR33CC00;
　　X74:POLYLINE（C》0，COST（47）），COLOR33CC00;
　　X94:POLYLINE（C》0，COST（49）），COLOR33CC00;
　　COST（50），COLORYELLOW，CIRCLEDOT;
　　STICKLINE（C》=O，C，O，9，1），COLORRED;
　　STICKLINE（C》=O，L，O，0.1，0），COLORRED;
　　STICKLINE（C》=O，C，H，0.1，0），COLORRED;
　　STICKLINE（C《O，C，O，9，0），COLORFFFF00;
　　STICKLINE（C《O，H，L，0.1，0），COLORFFFF00;
　　rcc：=DYNAINFO（3）;
　　s2：=sma（c，3，1）;
　　s6：=sma（c，5，1）;
　　dk：=2*（s2-s6）;
　　STICKLINE（dk》0，rcc，rcc+dk，0，1），COLORRED;
　　STICKLINE（dk《0，rcc，rcc+dk，0，1），COLORCYAN;
　　流通盘大小：=FINANCE2（37）/;
　　DRAWTEXTABS（2，20，‘总股本：’+NUMTOSTR（FINANCE2（35）/10000 ）+‘亿’+‘ 流通股：’+ NUMTOSTR（CAPITAL/1000000）+‘亿’），COLORGREEN
　　;DRAWTEXTABS（2，35，‘上市日期：’+STR（FINANCE2（2））+‘日’），COLOR0000FF;
　　每股收益：=FINANCE2（3）;
　　每股：=DYNAINFO（39）;
　　每股净资产：=FINANCE2（4）;
　　销售毛利率：=FINANCE2（12）;
　　主营收入同比：=FINANCE2（11）;
　　净利润同比增长：=FINANCE2（10）;
　　每股公积金：=FINANCE2（7）;
　　每股未分配：=FINANCE2（8）;
　　{DRAWTEXTABS（2，40，‘优劣提示：’），COLOR505050;}
　　DRAWTEXTABS（2，50，‘每股收益：’+NUMTOSTRN（每股收益，2）+‘元’），COLORF00FF0;
　　DRAWTEXTABS（2，65，‘每股市盈率：’+NUMTOSTRN（每股市盈率，1）+‘倍’），COLORGREEN;
　　DRAWTEXTABS（2，80，‘每股净资产：’+NUMTOSTRN（每股净资产，2）+‘元’），Color1880FF;
　　DRAWTEXTABS（2，95，‘每股公积金：’+NUMTOSTRN（每股公积金，2）+‘元’），COLORYELLOW;
　　DRAWTEXTABS（2，110，‘每股未分配：’+NUMTOSTRN（每股未分配，2）+‘元’），COLORF00FF0;
　　DRAWTEXTABS（2，125，‘销售毛利率：’+NUMTOSTRN（销售毛利率，2）+‘%’），COLORGREEN;
　　DRAWTEXTABS（2，140，‘主营收入同比增长：’+NUMTOSTRN（主营收入同比，2）+‘%’），COLOR0000FF;
　　DRAWTEXTABS（2，155，‘净利润同比增长：’+NUMTOSTRN（净利润同比增长，2）+‘%’），COLORYELLOW;
　　{DRAWTEXTABS（2，80，‘高低提示：’），COLOR505050;}
　　DRAWTEXTABS（2，5，‘所属板块：’+BKNAME），COLORYELLOW;
　　DRAWTEXTREL（380，20，STKLABEL+‘ ’+STKNAME+‘ ’+DYNAINFO（7）+‘元’+‘ ’+DYNAINFO（14）*100+‘%’），COLORFFFF00，LINETHICK4;
　　DRAWTEXTREL（400，255，‘■主题库：’+SELFSTRING（‘主题投资库’）），COLORF00FF0;
　　DRAWTEXTREL（400，210，‘■千股点评：’+SELFSTRING（‘千股千评’）），Color119FFF;
　　DRAWTEXTREL（720，75，‘■星级：’+SelfString（‘星级’）），colorRED;
　　DRAWTEXTREL（800，75，‘■星级值：’+SelfString（‘星级值’）），COLOR00FFFF;
　　DRAWTEXTREL（870，75，‘■评级：’+SelfString（‘评级’）），color00ff00;
　　DRAWTEXTREL（400，255，‘■主题库：’+SELFSTRING（‘主题投资库’）），COLORF00FF0;
　　DRAWTEXTREL（400，120，‘■大盘指数：’+INDEXC），COLORF00FF0;
　　DRAWTEXTREL（550，120，‘■大盘涨幅：’+（（INDEXC-REF（INDEXC，1））/REF（INDEXC，1）*100）+‘%’），LINETHICK0，PRECIS2，Color119FFF;
　　DRAWTEXTREL（650，120，‘■大盘涨跌：’+INDEXC-REF（INDEXC，1）），LINETHICK0，PRECIS2，COLORFFFF00;
　　DRAWTEXTREL（400，165，‘■上涨家数：’+NUMTOSTRN（DYNAINFO（66），0）+‘家’），COLOR0000FF;
　　DRAWTEXTREL（550，165，‘■下跌家数：’+NUMTOSTRN（DYNAINFO（67），0）+‘家’），COLOR00FF00;
　　DRAWTEXTREL（650，165，‘■平盘家数：’+NUMTOSTRN（DYNAINFO（68），0）+‘家’），COLORFFFFFF;
　　DRAWTEXTREL（400，75，‘今 日 换 手 率：’+ DYNAINFO（37）*100+‘%’），COLORYELLOW;
　　gj：=if（c=INDEXC，（INDEXC+INDEXh+INDEXl+INDEXO）/4，UNT/（v+0.01）/100）;
　　明日：=l+（gj-l）+（c-l）;
　　明日：=l+（c-gj）;
　　今日阻力：=REF（明日阻力 ， 1）;
　　今日支撑：=REF（明日支撑 ， 1）;
　　STICKLINE（DISPSTATUS=2 and c》=今日阻力，今日阻力，今日阻力，20，0），Color0000FF;
　　STICKLINE（DISPSTATUS=2 and c《今日阻力，今日阻力，今日阻力，20，0），Color00FF00;
　　STICKLINE（DISPSTATUS=2 and c》=今日支撑，今日支撑，今日支撑，20，0），ColorFF00FF;
　　STICKLINE（DISPSTATUS=2 and c《今日支撑，今日支撑，今日支撑，20，0），ColorFF9900;
　　DRAWTEXTREL（650，75，‘今日支撑：’+NUMTOSTRN（今日支撑 ，2 ）），Color119FFF;
　　DRAWTEXTREL（550，75，‘今日阻力：’+NUMTOSTRN（今日阻力 ，2 ）），ColorGREEN;
　　DRAWTEXTREL（620，20，‘今日涨跌：’+C-REF（C，1）+‘元’），LINETHICK4，COLORFFFF00;
　　更多同花顺股票指标公式，请关注南方财富网。
股票入门声明：资讯来源于互联网，属作者个人观点，仅供投资者参考，并不构成投资建议。投资者据此操作，风险自担。
48小时排行