关于口令加密的问题！

[guolianghu]

page1:
<form action=jm.asp>
<input type=text name=password>
<input type=submit name=b1>
</form>

page2:(jm.asp)

我想把page1传过来的password在page2里加密，然后存入数据库里，
请各位高手支几招，谢谢，除了组件外，用VBSCRIPT如何写程序？

[BrentIvan]

这是一段加密算法：
输入参数：要加密的字符串
返回值：加密后的字符串
注意：加密过程不可逆，字符串长度在10以内（如长度超过10，可以拆成10再加密）

Public Function encode(s)
Dim arrChr(10)
If Len(s) > 10 Or Len(s) = 0 Then
encode = s
Exit Function
ElseIf Len(s) = 10 Then
For i=1 To 10
arrChr(i) = Asc(mid(s, i, 1))
Next
Else
For i=1 To Len(s)
arrChr(i)=Asc(mid(s, i, 1))
Next
For i = Len(s) + 1 To 10
arrChr(i) = Len(s) + (i - Len(s)) Mod Len(s)
Next
End If

Dim yy(10)
t = ""
For i = 1 To 10
If i = 10 Then
yy(i) = Int(Rnd((-1) * arrChr(i) * arrChr(1)) * 79) + 48
Else
yy(i) = Int(Rnd((-1) * arrChr(i) * arrChr(i+1)) * 79) + 48
End If
If yy(i) = "'" Then
yy(i) = "$"
End If
t = t + Chr(yy(i))
Next
encode=t
End Function