底下这段代码，是用户登录是自动将数据库的乱码变成，用户的密码，然后登录，，

如何改，才能使这段代码失效~~~~~

<% function encrypt(ecode)
        Dim texts
        dim i
        for i=1 to len(ecode)
            texts=texts & chr(asc(mid(ecode,i,1))+i)
        next
encrypt = texts
end function
    function decrypt(dcode)    
        dim texts
        dim i
        for i=1 to len(dcode)
            texts=texts & chr(asc(mid(dcode,i,1))-i)
        next
        decrypt=texts
    end function
    function    mistake(preString)
Dim texts
Dim seed
Dim i,length
prestring = trim(preString)
length = len(preString)
seed = length
Randomize(length)
texts = ""
for i = 1 to length
seed = int(94*rnd(-asc(mid(preString,i,1))-seed*asc(right(prestring,1)))+32)
texts = texts & chr(seed) & chr(int(94*rnd(-seed)+32))
next
    dim dist
    dist=""
    for i = 1 to len(texts)
     if mid(texts,i,1)<>"'" then
         dist=dist+mid(texts,i,1)
    end if
next
mistake = dist
    end function
     %>