Function myBin(OneChar)
    If OneChar = "" Then myBin = 0 Else myBin = AscB(OneChar)
  End Function

  Function bin2num(inData)
    Dim cOut, sOut, I
    sOut = ""

    For I = 1 To LenB(inData)
      cOut = myBin(MidB(inData,I,1))
      cOut = Hex(CInt(cOut))
      While Len(cOut) < 2
        cOut = "0" & cOut
      Wend
      sOut = sOut & cOut
    Next
    bin2num = sOut
  End Function

  Function op_Done(pTemplate)
  
  	limpaBiometria

    If Not IsObject(pTemplate) Then
      alert "Erro na leitura da digital."
    else
      Dim blob_temp
      Dim blob_coded
      blob_temp = Null
      
      pTemplate.Export blob_temp
      blob_coded = bin2num(blob_temp)

			aoObterTemplate blob_coded
	    
    End if

  End Function
  
  Function obtemSerialDoPrimeiro
  	Dim serialTemp
  	serialTemp = ""
  	If IsObject(todos) Then
  		If todos.Count = 1 Then
	  		serialTemp = todos.Item(1).SerialNumber
  		Else 
  			alert "Deixe conectado somente um leitor de digital."
  		End If
  	End If
  	obtemSerialDoPrimeiro = serialTemp
  End Function
  
	' ------- Inicializacao ------
	
  limpaBiometria
  
  If IsObject(todos) Then
  	Dim serialTemp
  	serialTemp = getSerial()
  	If serialTemp <> "" Then
  		todos.Device serialTemp
  	End If
  End If

  If Not IsObject(op) Then
    alert "Erro ao inicializar o leitor biometrico."
  Else
  	Dim chaveTemp
  	chaveTemp = getChaveBiometrica()
  	If chaveTemp <> "" Then
  		op.SetNonce chaveTemp 
  	End If 
    op.Run
  End If