function EPassVerify()
	On Error Resume Next
	
	dim Pin
	dim Info
	dim ErrID
	dim Infos
	dim UserName
	dim UserPWD
	
	Pin   = document.Login.PIN.value
	ErrID = ReadKey(Pin,Info)
	
	If ErrID <> 0 Then 
		if ErrID = -1 Then 
			document.Login.MSGID.value = "113"
			Exit function
		End if
		
		if ErrID = -2 Then 
			document.Login.MSGID.value = "116"
			Exit function
		End if
		
		if ErrID = 1 Then 
			document.Login.MSGID.value = "114"
			Exit function
		End if
		
		document.Login.MSGID.value = "115"
		Exit function
	End if
	
	Infos = split(Info,Chr(13)&Chr(10))   
	
	UserName = Infos(0)
	UserPWD  = Infos(1)
	
	document.Login.UserName.value     = UserName
    document.Login.UserPWDInput.value = UserPWD
    
    EncryptLogin0()
End function

function CheckKey()
	On Error Resume Next 
    ePass.GetLibVersion
    
    If Err.number = &H1B6 Then
    	CheckKey = 2    
        Exit function
    end if
    
    ePass.OpenDevice 1, ""
    If Err then
        ePass.CloseDevice
        CheckKey = 1
        Exit function
    End if
    
    CheckKey = 0
End function
                    
function ReadKey(PIN,Info)
	On Error Resume Next 
	
	dim ErrID
	ErrID = CheckKey()
	
	If ErrID <> 0 then
		ReadKey = -1
		Exit function
	End If
	
    dim epsFileSize
    dim InfoSize
    dim epsFileID
  
    EPASS.VerifyPIN 0,PIN  
    If err then
		ReadKey = 1
		Exit function
    End If
    
    epsFileID = &H3000
      
    epsFileSize  = ePass.GetFileInfo(0,3,epsFileID,0)
    If err then
		ReadKey = 3
		Exit function
    End If
    
    ePass.OpenFile 0,epsFileID
    If err then
		ReadKey = 4
		Exit function
    End If  
      
	Info = ePass.Read(0,0,InfoSize,epsFileSize)
	If err then
		ReadKey = 5
		Exit function
    End If
    
    ReadKey = 0
    
    ePass.CloseFile
    ePass.CloseDevice    
End function