Dim FirstDigest
Dim Digest 
Digest= "01234567890123456"

dim bErr

sub ShowErr(Msg)
	bErr = true
	MsgBox Msg

End Sub

function Validate()
	Digest = "01234567890123456"
	On Error Resume Next
	
	bErr = false

	ePass.GetLibVersion

	If Err.number = &H1B6 Then

		ShowErr "请安装身份锁驱动，安装完毕后请重新启动计算机！"
		Validate = "false"
		Exit function
	Else
	
		ePass.OpenDevice 1, ""
		
		If Err then
			ShowErr "" & UnDogid
			Validate = "false"
			ePass.CloseDevice
			Exit function
		End if
	
		dim results
		results = "01234567890123456"
		results = ePass.GetStrProperty(7, 0, 0)
		
		'document.getElementById("checkFrame").src = "hideCheck.aspx?id=" & results
		Validate = results
		ePass.OpenFile 0, 1
		
	End If
	ePass.CloseDevice
End function