对于asp这种古董级的技术，这年头想找一些有用的资料已经不容易了，下面是一些常用的加密算法:

md5 (将以下代码另存为md5.inc)

<%

Private Const BITS_TO_A_BYTE = 8

Private Const BYTES_TO_A_WORD = 4

Private Const BITS_TO_A_WORD = 32

Private 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 = &H80000000

        Else

            LShift = 0

        End If

        Exit Function

    ElseIf iShiftBits < 0 Or iShiftBits > 31 Then

        Err.Raise 6

    End If

    If (lValue And m_l2Power(31 - iShiftBits)) Then

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

    Else

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

    End If

End Function

Private Function RShift(lValue, iShiftBits)

    If iShiftBits = 0 Then

        RShift = lValue

        Exit Function

    ElseIf iShiftBits = 31 Then

        If lValue And &H80000000 Then

            RShift = 1

        Else

            RShift = 0

        End If

        Exit Function

    ElseIf iShiftBits < 0 Or iShiftBits > 31 Then

        Err.Raise 6

    End If

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

    If (lValue And &H80000000) Then

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

    End If

End Function

Private Function RotateLeft(lValue, iShiftBits)

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

End Function

Private Function AddUnsigned(lX, lY)

    Dim lX4

    Dim lY4

    Dim lX8

    Dim lY8

    Dim lResult

    lX8 = lX And &H80000000

    lY8 = lY And &H80000000

    lX4 = lX And &H40000000

    lY4 = lY And &H40000000

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

    If lX4 And lY4 Then

        lResult = lResult Xor &H80000000 Xor lX8 Xor lY8

    ElseIf lX4 Or lY4 Then

        If lResult And &H40000000 Then

            lResult = lResult Xor &HC0000000 Xor lX8 Xor lY8

        Else

            lResult = lResult Xor &H40000000 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 = 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

    Loop

    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 = 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(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(16777215)

    m_lOnBits(24) = CLng(33554431)

    m_lOnBits(25) = CLng(67108863)

    m_lOnBits(26) = CLng(134217727)

    m_lOnBits(27) = CLng(268435455)

    m_lOnBits(28) = CLng(536870911)

    m_lOnBits(29) = CLng(1073741823)

    m_lOnBits(30) = CLng(2147483647)

    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(16777216)

    m_l2Power(25) = CLng(33554432)

    m_l2Power(26) = CLng(67108864)

    m_l2Power(27) = CLng(134217728)

    m_l2Power(28) = CLng(268435456)

    m_l2Power(29) = CLng(536870912)

    m_l2Power(30) = CLng(1073741824)

    Dim x

    Dim k

    Dim AA

    Dim BB

    Dim CC

    Dim DD

    Dim a

    Dim b

    Dim c

    Dim d

    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)

    a = &H67452301

    b = &HEFCDAB89

    c = &H98BADCFE

    d = &H10325476

    For k = 0 To UBound(x) Step 16

        AA = a

        BB = b

        CC = c

        DD = d

        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, &H698098D8

        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, &H8771F681

        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)

    Next

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

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

End Function

%>

sha1 (将以下代码另存为hex_sha1_js.inc)

<script language="javascript" type="text/javascript" runat="server">

/*

 * A JavaScript implementation of the Secure Hash Algorithm, SHA-1, as defined

 * in FIPS PUB 180-1

 * Version 2.1a Copyright Paul Johnston 2000 - 2002.

 * Other contributors: Greg Holt, Andrew Kepert, Ydnar, Lostinet

 * Distributed under the BSD License

 * See http://pajhome.org.uk/crypt/md5 for details.

 */

/*

 * Configurable variables. You may need to tweak these to be compatible with

 * the server-side, but the defaults work in most cases.

 */

var hexcase = 0;  /* hex output format. 0 - lowercase; 1 - uppercase        */

var b64pad  = "="; /* base-64 pad character. "=" for strict RFC compliance   */

var chrsz   = 8;  /* bits per input character. 8 - ASCII; 16 - Unicode      */

/*

 * These are the functions you'll usually want to call

 * They take string arguments and return either hex or base-64 encoded strings

 */

function hex_sha1(s){return binb2hex(core_sha1(str2binb(s),s.length * chrsz));}

function b64_sha1(s){return binb2b64(core_sha1(str2binb(s),s.length * chrsz));}

function str_sha1(s){return binb2str(core_sha1(str2binb(s),s.length * chrsz));}

function hex_hmac_sha1(key, data){ return binb2hex(core_hmac_sha1(key, data));}

function b64_hmac_sha1(key, data){ return binb2b64(core_hmac_sha1(key, data));}

function str_hmac_sha1(key, data){ return binb2str(core_hmac_sha1(key, data));}

/*

 * Perform a simple self-test to see if the VM is working

 */

function sha1_vm_test()

{

  return hex_sha1("abc") == "a9993e364706816aba3e25717850c26c9cd0d89d";

}

/*

 * Calculate the SHA-1 of an array of big-endian words, and a bit length

 */

function core_sha1(x, len)

{

  /* append padding */

  x[len >> 5] |= 0x80 << (24 - len % 32);

  x[((len + 64 >> 9) << 4) + 15] = len;

  var w = Array(80);

  var a =  1732584193;

  var b = -271733879;

  var c = -1732584194;

  var d =  271733878;

  var e = -1009589776;

  for(var i = 0; i < x.length; i += 16)

  {

    var olda = a;

    var oldb = b;

    var oldc = c;

    var oldd = d;

    var olde = e;

    for(var j = 0; j < 80; j++)

    {

      if(j < 16) w[j] = x[i + j];

      else w[j] = rol(w[j-3] ^ w[j-8] ^ w[j-14] ^ w[j-16], 1);

      var t = safe_add(safe_add(rol(a, 5), sha1_ft(j, b, c, d)),

                       safe_add(safe_add(e, w[j]), sha1_kt(j)));

      e = d;

      d = c;

      c = rol(b, 30);

      b = a;

      a = t;

    }

    a = safe_add(a, olda);

    b = safe_add(b, oldb);

    c = safe_add(c, oldc);

    d = safe_add(d, oldd);

    e = safe_add(e, olde);

  }

  return Array(a, b, c, d, e);

}

/*

 * Perform the appropriate triplet combination function for the current

 * iteration

 */

function sha1_ft(t, b, c, d)

{

  if(t < 20) return (b & c) | ((~b) & d);

  if(t < 40) return b ^ c ^ d;

  if(t < 60) return (b & c) | (b & d) | (c & d);

  return b ^ c ^ d;

}

/*

 * Determine the appropriate additive constant for the current iteration

 */

function sha1_kt(t)

{

  return (t < 20) ?  1518500249 : (t < 40) ?  1859775393 :

         (t < 60) ? -1894007588 : -899497514;

}

/*

 * Calculate the HMAC-SHA1 of a key and some data

 */

function core_hmac_sha1(key, data)

{

  var bkey = str2binb(key);

  if(bkey.length > 16) bkey = core_sha1(bkey, key.length * chrsz);

  var ipad = Array(16), opad = Array(16);

  for(var i = 0; i < 16; i++)

  {

    ipad[i] = bkey[i] ^ 0x36363636;

    opad[i] = bkey[i] ^ 0x5C5C5C5C;

  }

  var hash = core_sha1(ipad.concat(str2binb(data)), 512 + data.length * chrsz);

  return core_sha1(opad.concat(hash), 512 + 160);

}

/*

 * Add integers, wrapping at 2^32. This uses 16-bit operations internally

 * to work around bugs in some JS interpreters.

 */

function safe_add(x, y)

{

  var lsw = (x & 0xFFFF) + (y & 0xFFFF);

  var msw = (x >> 16) + (y >> 16) + (lsw >> 16);

  return (msw << 16) | (lsw & 0xFFFF);

}

/*

 * Bitwise rotate a 32-bit number to the left.

 */

function rol(num, cnt)

{

  return (num << cnt) | (num >>> (32 - cnt));

}

/*

 * Convert an 8-bit or 16-bit string to an array of big-endian words

 * In 8-bit function, characters >255 have their hi-byte silently ignored.

 */

function str2binb(str)

{

  var bin = Array();

  var mask = (1 << chrsz) - 1;

  for(var i = 0; i < str.length * chrsz; i += chrsz)

    bin[i>>5] |= (str.charCodeAt(i / chrsz) & mask) << (32 - chrsz - i%32);

  return bin;

}

/*

 * Convert an array of big-endian words to a string

 */

function binb2str(bin)

{

  var str = "";

  var mask = (1 << chrsz) - 1;

  for(var i = 0; i < bin.length * 32; i += chrsz)

    str += String.fromCharCode((bin[i>>5] >>> (32 - chrsz - i%32)) & mask);

  return str;

}

/*

 * Convert an array of big-endian words to a hex string.

 */

function binb2hex(binarray)

{

  var hex_tab = hexcase ? "0123456789ABCDEF" : "0123456789abcdef";

  var str = "";

  for(var i = 0; i < binarray.length * 4; i++)

  {

    str += hex_tab.charAt((binarray[i>>2] >> ((3 - i%4)*8+4)) & 0xF) +

           hex_tab.charAt((binarray[i>>2] >> ((3 - i%4)*8  )) & 0xF);

  }

  return str;

}

/*

 * Convert an array of big-endian words to a base-64 string

 */

function binb2b64(binarray)

{

  var tab = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";

  var str = "";

  for(var i = 0; i < binarray.length * 4; i += 3)

  {

    var triplet = (((binarray[i   >> 2] >> 8 * (3 -  i   %4)) & 0xFF) << 16)

                | (((binarray[i+1 >> 2] >> 8 * (3 - (i+1)%4)) & 0xFF) << 8 )

                |  ((binarray[i+2 >> 2] >> 8 * (3 - (i+2)%4)) & 0xFF);

    for(var j = 0; j < 4; j++)

    {

      if(i * 8 + j * 6 > binarray.length * 32) str += b64pad;

      else str += tab.charAt((triplet >> 6*(3-j)) & 0x3F);

    }

  }

  return str;

}

</script>

sha256 (将以下代码另存为sha256.inc)

<%

' See the VB6 project that accompanies this sample for full code comments on how

' it works.

'

' ASP VBScript code for generating a SHA256 'digest' or 'signature' of a string. The

' MD5 algorithm is one of the industry standard methods for generating digital

' signatures. It is generically known as a digest, digital signature, one-way

' encryption, hash or checksum algorithm. A common use for SHA256 is for password

' encryption as it is one-way in nature, that does not mean that your passwords

' are not free from a dictionary attack.

'

' If you are using the routine for passwords, you can make it a little more secure

' by concatenating some known random characters to the password before you generate

' the signature and on subsequent tests, so even if a hacker knows you are using

' SHA-256 for your passwords, the random characters will make it harder to dictionary

' attack.

'

' NOTE: Due to the way in which the string is processed the routine assumes a

' single byte character set. VB passes unicode (2-byte) character strings, the

' ConvertToWordArray function uses on the first byte for each character. This

' has been done this way for ease of use, to make the routine truely portable

' you could accept a byte array instead, it would then be up to the calling

' routine to make sure that the byte array is generated from their string in

' a manner consistent with the string type.

'

' This is 'free' software with the following restrictions:

'

' You may not redistribute this code as a 'sample' or 'demo'. However, you are free

' to use the source code in your own code, but you may not claim that you created

' the sample code. It is expressly forbidden to sell or profit from this source code

' other than by the knowledge gained or the enhanced value added by your own code.

'

' Use of this software is also done so at your own risk. The code is supplied as

' is without warranty or guarantee of any kind.

'

' Should you wish to commission some derivative work based on this code provided

' here, or any consultancy work, please do not hesitate to contact us.

'

' Web Site:  http://www.frez.co.uk

' E-mail:    sales@frez.co.uk

Private m_lOnBits2(30)

Private m_l2Power2(30)

Private K(63)

Private Const BITS_TO_A_BYTE2 = 8

Private Const BYTES_TO_A_WORD2 = 4

Private Const BITS_TO_A_WORD2 = 32

m_lOnBits2(0) = CLng(1)

m_lOnBits2(1) = CLng(3)

m_lOnBits2(2) = CLng(7)

m_lOnBits2(3) = CLng(15)

m_lOnBits2(4) = CLng(31)

m_lOnBits2(5) = CLng(63)

m_lOnBits2(6) = CLng(127)

m_lOnBits2(7) = CLng(255)

m_lOnBits2(8) = CLng(511)

m_lOnBits2(9) = CLng(1023)

m_lOnBits2(10) = CLng(2047)

m_lOnBits2(11) = CLng(4095)

m_lOnBits2(12) = CLng(8191)

m_lOnBits2(13) = CLng(16383)

m_lOnBits2(14) = CLng(32767)

m_lOnBits2(15) = CLng(65535)

m_lOnBits2(16) = CLng(131071)

m_lOnBits2(17) = CLng(262143)

m_lOnBits2(18) = CLng(524287)

m_lOnBits2(19) = CLng(1048575)

m_lOnBits2(20) = CLng(2097151)

m_lOnBits2(21) = CLng(4194303)

m_lOnBits2(22) = CLng(8388607)

m_lOnBits2(23) = CLng(16777215)

m_lOnBits2(24) = CLng(33554431)

m_lOnBits2(25) = CLng(67108863)

m_lOnBits2(26) = CLng(134217727)

m_lOnBits2(27) = CLng(268435455)

m_lOnBits2(28) = CLng(536870911)

m_lOnBits2(29) = CLng(1073741823)

m_lOnBits2(30) = CLng(2147483647)

m_l2Power2(0) = CLng(1)

m_l2Power2(1) = CLng(2)

m_l2Power2(2) = CLng(4)

m_l2Power2(3) = CLng(8)

m_l2Power2(4) = CLng(16)

m_l2Power2(5) = CLng(32)

m_l2Power2(6) = CLng(64)

m_l2Power2(7) = CLng(128)

m_l2Power2(8) = CLng(256)

m_l2Power2(9) = CLng(512)

m_l2Power2(10) = CLng(1024)

m_l2Power2(11) = CLng(2048)

m_l2Power2(12) = CLng(4096)

m_l2Power2(13) = CLng(8192)

m_l2Power2(14) = CLng(16384)

m_l2Power2(15) = CLng(32768)

m_l2Power2(16) = CLng(65536)

m_l2Power2(17) = CLng(131072)

m_l2Power2(18) = CLng(262144)

m_l2Power2(19) = CLng(524288)

m_l2Power2(20) = CLng(1048576)

m_l2Power2(21) = CLng(2097152)

m_l2Power2(22) = CLng(4194304)

m_l2Power2(23) = CLng(8388608)

m_l2Power2(24) = CLng(16777216)

m_l2Power2(25) = CLng(33554432)

m_l2Power2(26) = CLng(67108864)

m_l2Power2(27) = CLng(134217728)

m_l2Power2(28) = CLng(268435456)

m_l2Power2(29) = CLng(536870912)

m_l2Power2(30) = CLng(1073741824)

K(0) = &H428A2F98

K(1) = &H71374491

K(2) = &HB5C0FBCF

K(3) = &HE9B5DBA5

K(4) = &H3956C25B

K(5) = &H59F111F1

K(6) = &H923F82A4

K(7) = &HAB1C5ED5

K(8) = &HD807AA98

K(9) = &H12835B01

K(10) = &H243185BE

K(11) = &H550C7DC3

K(12) = &H72BE5D74

K(13) = &H80DEB1FE

K(14) = &H9BDC06A7

K(15) = &HC19BF174

K(16) = &HE49B69C1

K(17) = &HEFBE4786

K(18) = &HFC19DC6

K(19) = &H240CA1CC

K(20) = &H2DE92C6F

K(21) = &H4A7484AA

K(22) = &H5CB0A9DC

K(23) = &H76F988DA

K(24) = &H983E5152

K(25) = &HA831C66D

K(26) = &HB00327C8

K(27) = &HBF597FC7

K(28) = &HC6E00BF3

K(29) = &HD5A79147

K(30) = &H6CA6351

K(31) = &H14292967

K(32) = &H27B70A85

K(33) = &H2E1B2138

K(34) = &H4D2C6DFC

K(35) = &H53380D13

K(36) = &H650A7354

K(37) = &H766A0ABB

K(38) = &H81C2C92E

K(39) = &H92722C85

K(40) = &HA2BFE8A1

K(41) = &HA81A664B

K(42) = &HC24B8B70

K(43) = &HC76C51A3

K(44) = &HD192E819

K(45) = &HD6990624

K(46) = &HF40E3585

K(47) = &H106AA070

K(48) = &H19A4C116

K(49) = &H1E376C08

K(50) = &H2748774C

K(51) = &H34B0BCB5

K(52) = &H391C0CB3

K(53) = &H4ED8AA4A

K(54) = &H5B9CCA4F

K(55) = &H682E6FF3

K(56) = &H748F82EE

K(57) = &H78A5636F

K(58) = &H84C87814

K(59) = &H8CC70208

K(60) = &H90BEFFFA

K(61) = &HA4506CEB

K(62) = &HBEF9A3F7

K(63) = &HC67178F2

Private Function LShift(lValue, iShiftBits)

    If iShiftBits = 0 Then

        LShift = lValue

        Exit Function

    ElseIf iShiftBits = 31 Then

        If lValue And 1 Then

            LShift = &H80000000

        Else

            LShift = 0

        End If

        Exit Function

    ElseIf iShiftBits < 0 Or iShiftBits > 31 Then

        Err.Raise 6

    End If

    If (lValue And m_l2Power2(31 - iShiftBits)) Then

        LShift = ((lValue And m_lOnBits2(31 - (iShiftBits + 1))) * m_l2Power2(iShiftBits)) Or &H80000000

    Else

        LShift = ((lValue And m_lOnBits2(31 - iShiftBits)) * m_l2Power2(iShiftBits))

    End If

End Function

Private Function RShift(lValue, iShiftBits)

    If iShiftBits = 0 Then

        RShift = lValue

        Exit Function

    ElseIf iShiftBits = 31 Then

        If lValue And &H80000000 Then

            RShift = 1

        Else

            RShift = 0

        End If

        Exit Function

    ElseIf iShiftBits < 0 Or iShiftBits > 31 Then

        Err.Raise 6

    End If

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

    If (lValue And &H80000000) Then

        RShift = (RShift Or (&H40000000 \ m_l2Power2(iShiftBits - 1)))

    End If

End Function

Private Function AddUnsigned(lX, lY)

    Dim lX4

    Dim lY4

    Dim lX8

    Dim lY8

    Dim lResult

    lX8 = lX And &H80000000

    lY8 = lY And &H80000000

    lX4 = lX And &H40000000

    lY4 = lY And &H40000000

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

    If lX4 And lY4 Then

        lResult = lResult Xor &H80000000 Xor lX8 Xor lY8

    ElseIf lX4 Or lY4 Then

        If lResult And &H40000000 Then

            lResult = lResult Xor &HC0000000 Xor lX8 Xor lY8

        Else

            lResult = lResult Xor &H40000000 Xor lX8 Xor lY8

        End If

    Else

        lResult = lResult Xor lX8 Xor lY8

    End If

    AddUnsigned = lResult

End Function

Private Function Ch(x, y, z)

    Ch = ((x And y) Xor ((Not x) And z))

End Function

Private Function Maj(x, y, z)

    Maj = ((x And y) Xor (x And z) Xor (y And z))

End Function

Private Function S(x, n)

    S = (RShift(x, (n And m_lOnBits2(4))) Or LShift(x, (32 - (n And m_lOnBits2(4)))))

End Function

Private Function R(x, n)

    R = RShift(x, CInt(n And m_lOnBits2(4)))

End Function

Private Function Sigma0(x)

    Sigma0 = (S(x, 2) Xor S(x, 13) Xor S(x, 22))

End Function

Private Function Sigma1(x)

    Sigma1 = (S(x, 6) Xor S(x, 11) Xor S(x, 25))

End Function

Private Function Gamma0(x)

    Gamma0 = (S(x, 7) Xor S(x, 18) Xor R(x, 3))

End Function

Private Function Gamma1(x)

    Gamma1 = (S(x, 17) Xor S(x, 19) Xor R(x, 10))

End Function

Private Function ConvertToWordArray(sMessage)

    Dim lMessageLength

    Dim lNumberOfWords

    Dim lWordArray()

    Dim lBytePosition

    Dim lByteCount

    Dim lWordCount

    Dim lByte

    Const MODULUS_BITS = 512

    Const CONGRUENT_BITS = 448

    lMessageLength = Len(sMessage)

    lNumberOfWords = (((lMessageLength + ((MODULUS_BITS - CONGRUENT_BITS) \ BITS_TO_A_BYTE2)) \ (MODULUS_BITS \ BITS_TO_A_BYTE2)) + 1) * (MODULUS_BITS \ BITS_TO_A_WORD2)

    ReDim lWordArray(lNumberOfWords - 1)

    lBytePosition = 0

    lByteCount = 0

    Do Until lByteCount >= lMessageLength

        lWordCount = lByteCount \ BYTES_TO_A_WORD2

        lBytePosition = (3 - (lByteCount Mod BYTES_TO_A_WORD2)) * BITS_TO_A_BYTE2

        lByte = AscB(Mid(sMessage, lByteCount + 1, 1))

        lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(lByte, lBytePosition)

        lByteCount = lByteCount + 1

    Loop

    lWordCount = lByteCount \ BYTES_TO_A_WORD2

    lBytePosition = (3 - (lByteCount Mod BYTES_TO_A_WORD2)) * BITS_TO_A_BYTE2

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

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

    lWordArray(lNumberOfWords - 2) = RShift(lMessageLength, 29)

    ConvertToWordArray = lWordArray

End Function

Public Function SHA256(sMessage)

    Dim HASH(7)

    Dim M

    Dim W(63)

    Dim a

    Dim b

    Dim c

    Dim d

    Dim e

    Dim f

    Dim g

    Dim h

    Dim i

    Dim j

    Dim T1

    Dim T2

    HASH(0) = &H6A09E667

    HASH(1) = &HBB67AE85

    HASH(2) = &H3C6EF372

    HASH(3) = &HA54FF53A

    HASH(4) = &H510E527F

    HASH(5) = &H9B05688C

    HASH(6) = &H1F83D9AB

    HASH(7) = &H5BE0CD19

    M = ConvertToWordArray(sMessage)

    For i = 0 To UBound(M) Step 16

        a = HASH(0)

        b = HASH(1)

        c = HASH(2)

        d = HASH(3)

        e = HASH(4)

        f = HASH(5)

        g = HASH(6)

        h = HASH(7)

        For j = 0 To 63

            If j < 16 Then

                W(j) = M(j + i)

            Else

                W(j) = AddUnsigned(AddUnsigned(AddUnsigned(Gamma1(W(j - 2)), W(j - 7)), Gamma0(W(j - 15))), W(j - 16))

            End If

            T1 = AddUnsigned(AddUnsigned(AddUnsigned(AddUnsigned(h, Sigma1(e)), Ch(e, f, g)), K(j)), W(j))

            T2 = AddUnsigned(Sigma0(a), Maj(a, b, c))

            h = g

            g = f

            f = e

            e = AddUnsigned(d, T1)

            d = c

            c = b

            b = a

            a = AddUnsigned(T1, T2)

        Next

        HASH(0) = AddUnsigned(a, HASH(0))

        HASH(1) = AddUnsigned(b, HASH(1))

        HASH(2) = AddUnsigned(c, HASH(2))

        HASH(3) = AddUnsigned(d, HASH(3))

        HASH(4) = AddUnsigned(e, HASH(4))

        HASH(5) = AddUnsigned(f, HASH(5))

        HASH(6) = AddUnsigned(g, HASH(6))

        HASH(7) = AddUnsigned(h, HASH(7))

    Next

    SHA256 = LCase(Right("00000000" & Hex(HASH(0)), 8) & Right("00000000" & Hex(HASH(1)), 8) & Right("00000000" & Hex(HASH(2)), 8) & Right("00000000" & Hex(HASH(3)), 8) & Right("00000000" & Hex(HASH(4)), 8) & Right("00000000" & Hex(HASH(5)), 8) & Right("00000000" & Hex(HASH(6)), 8) & Right("00000000" & Hex(HASH(7)), 8))

End Function

%>

使用示例：

<!-- #include file="md5.inc" -->

<!-- #include file="hex_sha1_js.inc" -->

<!-- #include file="sha256.inc" -->

<title>encode</title>

<%

Dim salt

salt = "infosky"

Dim param

param = "abc"

Response.Write "salt=" & salt & "<br/>"

Response.Write "encode(""" & param & """)=" & md5(hex_sha1(param)&"*"&salt) & "<br/>"

Response.Write "md5(""" & param & """)=" & md5(param) & "<br/>"

Response.Write "sha1(""" & param & """)=" & hex_sha1(param) & "<br/>"

Response.Write "sha256(""" & param & """)=" & sha256(param) & "<br/>"

%>

运行结果：

salt=infosky
encode("abc")=7ba2f8ba443a3fdd10e7fc8841686983
md5("abc")=044bb8c23806270a8b87b5105b182efa
sha1("abc")=a9993e364706816aba3e25717850c26c9cd0d89d
sha256("abc")=ba7816bf8f01cfea414140de5dae2223b00361a396177a9cb410ff61f20015ad

asp中的md5/sha1/sha256算法收集的更多相关文章

  1. MD5 SHA1 SHA256 SHA512 SHA1WithRSA 的区别

    MD5 SHA1 SHA256 SHA512 这4种本质都是摘要函数,不通在于长度  MD5 是 128 位,SHA1  是 160 位 ,SHA256  是 256 位,SHA512 是512 位. ...

  2. Hash校验工具、MD5 SHA1 SHA256命令行工具

    MyHash 检验工具http://www.zdfans.com/html/4346.html HashMyFiles Hash校验工具http://www.nirsoft.net/utils/has ...

  3. Windows自带MD5 SHA1 SHA256命令行工具

    感恩大佬LiuYanYGZ的文章 MyHash 检验工具http://www.zdfans.com/html/4346.html HashMyFiles Hash校验工具http://www.nirs ...

  4. 文件 MD5 SHA1 SHA256 SHA512 校验码生成工具 V1.3

    [程序介绍]免费开源的 文件 MD5 SHA1 SHA256 SHA512 校验码生成工具 V1.3 这是一个有意思的程序,同一个程序,即是图形程序,又是命令行程序.程序作用:输入一个文件的路径,输出 ...

  5. You shouldn't use *any* general-purpose hash function for user passwords, not BLAKE2, and not MD5, SHA-1, SHA-256, or SHA-3

    hashlib - Secure hashes and message digests - Python 3.8.3 documentation https://docs.python.org/3.8 ...

  6. java中使用MD5加密的算法

    MD5,全名Message Digest Algorithm 5,中文名为消息摘要算法第五版,为计算机安全领域广泛使用的一种散列函数,用以提供消息的完整性保护.以下是JAVA语言中使用MD5加密的工具 ...

  7. openssl evp 哈希算法(md5,sha1,sha256)

    1. 简述 openssl提供了丰富密码学工具,一些常用的哈希算法 比如md5,sha 可以直接用提供的md5.h ,sha.h 接口使用: 为了方便开发者使用,openssl 又提供了一个EVP, ...

  8. 不安装任何软件或脚本使用powershell快速计算文件的MD5/SHA1/SHA256等校验值

    有的时候在检查升级过程中需要对xml文件进行签名,而xml文件中一般都需要包含安装包的SHA256值,这里分享一个使用PowerShell快速计算SHA256等其他值的方法. 一.在需要计算文件SHA ...

  9. Windows命令查看文件MD5,SHA1,SHA256 文件校验

    certutil -hashfile yourfilename.ext MD5 certutil -hashfile yourfilename.ext SHA1 certutil -hashfile ...

随机推荐

  1. XML语言基础1

    这学期选修了XML技术这门课,没有发课本,于是参考了W3school教程,整理一下上课的内容. 1.XML简介 XML是一种标记语言,很类似HTML,它不是对HTML的替代,而是对HTML的补充.在大 ...

  2. JavaScript Patterns 5.7 Object Constants

    Principle Make variables shouldn't be changed stand out using all caps. Add constants as static prop ...

  3. mysql技巧之select count的比较

        在工作过程中,时不时会有开发咨询几种select count()的区别,我总会告诉他们使用select count(*) 就好.下文我会展示几种sql的执行计划来说明为啥是这样.   1.测试 ...

  4. 通过mdf ldf文件还原数据库

    新建查询,执行如下语句: EXEC sp_attach_db @dbname = 'xxx', /*数据库名称*/ @filename1 = 'D:\数据库备份\预发布\201611241045 测试 ...

  5. js和jquery页面初始化加载函数的方法及先后顺序

    运行下面代码.弹出A.B.C.D.E的顺序:A=B=C>D=E. jquery:等待页面加载完数据,以及页面部分元素(不包括图片.视频), js:是页面全部加载完成才执行初始化加载. <! ...

  6. JVM探索之——内存管理（一）

    本系列的第一篇文章,预计本系列最后面会有两三个案例. Java与C.C++不一样Java不需要Coder进行手动内存管理,而这一切都交给JVM进行自动内存管理,这从某种程度上来说也减轻了我们Coder ...

  7. Linux磁盘管理之元数据、文件和目录、链接文件03

    一.存储设备分区简述 文件系统最终目的是把大量数据有组织的放入持久性的存储设备,如硬盘.硬盘存储能力具有持久性,不会因为断电而消失,存储量大,但读取速度慢.操作系统读取硬盘的时候,不会一个一个扇区读取 ...

  8. 参加 Tokyo Westerns / MMA CTF 2nd 2016 经验与感悟 TWCTF 2016 WriteUp

    洒家近期参加了 Tokyo Westerns / MMA CTF 2nd 2016(TWCTF) 比赛,不得不说国际赛的玩法比国内赛更有玩头,有的题给洒家一种一看就知道怎么做,但是做出来还需要洒家拍一 ...

  9. windows下 MySQL手动安装与卸载

    下载文件以后进行解压 ,指定文件的具体位置 1.安装 选择路径下的mysqld --intall 指定服务名称  --设置配置文件 例子: C:\Users\Administrator\Desktop ...

  10. POJ1386Play on Words[有向图欧拉路]

    Play on Words Time Limit: 1000MS   Memory Limit: 10000K Total Submissions: 11846   Accepted: 4050 De ...