ASP imitation MD5 encryption algorithm

Function Encrypt (ecode)
Dim Texts
Dim I
for I=1 to Len (ecode)
Texts=texts & CHR [ASC (MI 　　D (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 & Amp Chr (Seed) & Chr (int (94*rnd (-seed) +32))
Next
Dim dist
Dist= ""
For i = 1 to len (texts)
I F Mid (texts,i,1) <> "'" Then
Dist=dist+mid (texts,i,1)
End If
Next
mistake = Dist
en D 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
Response. Write (texts)
Response. End ()
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

Function Enpas (CODESTR)

Dim Codelen
Dim Codespace
Dim NEWCODE,CECR,CECB,CEC

Codelen = 30
Codespace = Codelen-len (CODESTR)

If not Codespace < 1 Then
For CECR = 1 to Codespace
Codestr = codestr & Chr (21)
Next
End If

Newcode = 1

Dim Been
For CECB = 1 to Codelen
Been = Codelen + ASC (Mid (codestr,cecb,1)) * CECB
Newcode = Newcode * Been
Next

Codestr = Newcode
Newcode = Empty

For CEC = 1 to Len (CODESTR)
Newcode = Newcode & Cfscode (Mid (codestr,cec,3))
Next

For CEC = to Len (newcode)-2
Enpas = Enpas & Mid (newcode,cec,1)
Next

End Function

Function Cfscode (word)
 dim cc
 for cc = 1 to Len (Word)
 cfscode = Cfscode & Asc (Mid Wor d,cc,1))
 next
 cfscode = Hex (cfscode)
End Function