Histórico da Página

user function teste()
  	Local aSlots := {}
  	Local aObjs := {}
  	Local nI := 0
  Local nJ := 0
  	Local nSlots := 0
  	Local cPass := ""
  
  	cPass := "1234"
  
  	if HSMInitialize() <= 0
    		conout( "HSM not initialized" )
    		return
  	endif
  
  	aSlots := HSMSlotList()
  	nSlots := Len( aSlots )
  
  	varinfo( "slots", aSlots )
  
  	for nI := 1 to nSlots
    		ASize( aObjs, 0 )
    
    
		aObjs := HSMObjList( aSlots[nI][1], cPass )
    		varinfo( "obj", aObjs )
  	next nI
  
  	if HSMFinalize() <> 1
    		conout( "HSM not finalized" )
  	endif
return