XML口令文件描述
adduser.asp文件用来向XML文件中增加新的元素。作为一个羽翼丰满的应用程序,还需要建立编辑和删除功能,但是如果需要的话,这些能够手工完成,而增加新用户则只能用这个页面来完成。这是因为口令和salt都是在用户提供的口令的基础上用AspEncrypt生成的。adduser.asp中的大部分代码用来 操作XML文件并创建一个新元素,但是因为有其它文章专门解释如何用ASP处理XML(见Server Side XML in ASP),所以我在这里只涉及AspEncrypt代码:
'Create Hash of password chosen
Randomize
Salt = ""
For i = 1 to 10
Salt = Salt & chr(int(Rnd * 26) + 65) '65 is ASCII for "A"
Next
' Calculate Hash of Password + Salt
Set CM = Server.CreateObject("Persits.CryptoManager")
Set Context = CM.OpenContext("mycontainer", True)
Set Hash = Context.CreateHash
Hash.AddText Request("Password") & Salt
HashValue = Hash.Value.Hex
Set Hash = Nothing
Set CM = Nothing
首先,我们用Randomize生成一个任意salt ,用VBScript Rnd函数创建一个任意的10字符字符串。 然后,salt 把增加到提交给页面的口令中,并发送给CryptoHash 对象。然后,单程随机值被提取 为HashValue,然后将其存储在XML文件中。
validateuser.asp 文档具有同样的功能。为了确定用户名/口令组合是否有效,页面首先要看在XML文件中是否存在用户名。如果没有,它就返回用户没有找到。否则,它就要将提交口令加提交用户salt 的随机值与为用户存储的加密口令相比较。以下代码执行这个测试:
Found = False
I = 0
While I < objectRootElement.childNodes.Length And Not Found
If objectRootElement.childNodes(I).attributes _
.getNamedItem("name").nodeValue = username Then
Found = True
Else
I = I + 1
End If
Wend
If Found Then
Response.Write "User " & username & " Found"
' Calculate Hash of specified password + Salt from DB
HashValue = objRootElement.childNodes(i).attributes _
.getNamedItem("password").nodeValue
Salt = objectRootElement.childNodes(i).attributes _
.getNamedItem("salt").nodeValue
Set CM = Server.CreateObject("Persits.CryptoManager")
Set Context = CM.OpenContext("mycontainer", True)
Set Hash = Context.CreateHash Hash.AddText password & Salt
HashValue2 = Hash.Value.Hex
Set Hash = Nothing
Set CM = Nothing
If HashValue = HashValue2 Then
Response.Write "User " & username & " Validated"
Else
Response.Write "User Password Invalid."
End If
Else
Response.Write "User " & username & " Not Found"
End If
Hashvalue用来在XML文件中存储经过加密的口令的值(正确的经过加密的口令)。Hashvalue2 是用提交的口令和数据库中的salt 进行计算的。如果它们匹配,用户就被确认。否则就提交一个无效口令。