已经得到存放密码的access数据库，但是由于密码经过加密，所以保存在access数据库中的不是直接的密码，但当我把access数据库中的密文清空后，即设为空密码后登陆还是不可以，为什么呢？？

请老师赐教 ！！！谢谢！！

加密程序为： 如果我想把密码设为1234，那么经过以下程序加密后的密文是什么呢？希望赐教！ <% Function encrypt(CodeStr)

Dim CodeLen Dim CodeSpace Dim NewCode

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 = 20 To Len(NewCode) - 18 Step 2 encrypt = encrypt & Mid(NewCode,cec,1) Next

End Function

Function CfsCode(Word) For cc = 1 To Len(Word) CfsCode = CfsCode & Asc(Mid(Word,cc,1)) Next CfsCode = Hex(CfsCode) End Function

%>

好了,谢谢.