asp生成不需要数据库的中奖码

恭喜您，您中奖了，你的中奖码是（请牢记，领奖需要）：ｘｘｘｘｘｘｘｘｘｘｘ

然后用户输入ｘｘｘｘｘｘｘｘｘｘｘ，简单验证后就可以领奖了。


你使用过这样的功能，或者有没有想开发一个这样的功能呢？

有一个思路是：将一批唯一中奖码，录入的到数据库，中奖时，取出来一条，做一个标记，把中奖码告诉
用户。

但是这样要先将一批中奖码录入到数据库中，有没有其他方法呢？

比如：200807151054281502895e585d7e4b529e，能不能做到：不到数据库中查询验证就可以确认这个中奖
码是不是有效（不是伪造）的呢？

我有一个思路，如果愿意，请听我说一下：）

比如这个中奖码：200807151054281502895e585d7e4b529e

他有三部分组成
20080715105428　1502　895e585d7e4b529e

20080715105428 是年月日时分秒yyyymmddhhmmss
1502 是四位随机数，防止第一部分重复
895e585d7e4b529e　前两部分+privatekey的 md5 16位的值

一句话：中奖码的前18位和后16位是有关系的

这样，只要别人猜不到你的privatekey，就伪造不了你的中奖码。

不足之处，这个中奖码长了点：（

 

代码如下：

getkey()　返回一个唯一的中奖码
ckkey(s) 验证中奖码是否有奖

<%
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 = ucase(wordtohex(a) & wordtohex(b) & wordtohex(c) & wordtohex(d))    '32byte
    md5 = lcase(wordtohex(b) & wordtohex(c))  'i crop this to fit 16byte database password :d
end function

function cftgetserverdate(d)
    dim strtmp, iyear,imonth,idate 
    iyear = year(d) 
    imonth = month(d) 
    idate = day(d) 

    strtmp = cstr(iyear)
    if imonth < 10 then 
        strtmp = strtmp & "0" & cstr(imonth)
    else 
        strtmp = strtmp & cstr(imonth)
    end if 
    if idate < 10 then 
        strtmp = strtmp & "0" & cstr(idate) 
    else 
        strtmp = strtmp & cstr(idate) 
    end if 
    cftgetserverdate = strtmp 
end function

function cftgetservertime(d)
    dim strtmp, iyear,imonth,idate 
    iyear = hour(d) 
    imonth = minute(d) 
    idate = second(d) 

    strtmp = ""

    if iyear < 10 then 
        strtmp = strtmp & "0" & cstr(iyear)
    else 
        strtmp = strtmp & cstr(iyear)
    end if 

    if imonth < 10 then 
        strtmp = strtmp & "0" & cstr(imonth)
    else 
        strtmp = strtmp & cstr(imonth)
    end if 
    if idate < 10 then 
        strtmp = strtmp & "0" & cstr(idate) 
    else 
        strtmp = strtmp & cstr(idate) 
    end if 
    cftgetservertime = strtmp 
end function

function getrnd(min,max)
    randomize
    getrnd = int((max - min + 1) * rnd + min)
end function

function getrnddatenum()
    getrnddatenum = cftgetserverdate(now) & cftgetservertime(now) & getrnd(1000,9999)
end function

'privatekey，尽量复杂一些，开始使用后，就不能更改了。
dim keyinfokey
keyinfokey = "51windows.net@1234567890!@#$%^&*()qwerfghjk"

'得到中奖码
function getkey()
    skey = getrnddatenum()
    skey2 = md5(skey & keyinfokey)
    getkey = skey & skey2
end function


'验证中奖码
function ckkey(s)
    strs = s
    if len(strs)<> 34 then
        ckkey = false
        exit function
    end if
    datenum = left(strs,18)
    md5oldstr = right(strs,16)
    md5str = md5(datenum & keyinfokey)
    if lcase(md5str) = lcase(md5oldstr) then
        ckkey = true
    else
        ckkey = false
    end if
end function
%>