有谁作过飞天诚信的epass1000c#接口

http://www.dongle.com.cn/download/download_list.php?pid=513
上面是飞天公司下载驱动和示例的地方
现在想把飞天诚信的epass1000,就是那个象u盘样的密钥作到自已开发的程序中,当用户登录的时候,读一下里面的信息,只要能读出里面的信息就行,现在是一点儿头续也没有,请哪位作过这方面的高手指点,真的谢谢你

解决方案 »

  1.   

    我有个demo程序
    怎么给你??
      

  2.   

    to Firestone2003(笨笨小猪):
       你好！我也正巧需要一个所说的程序
       能发我一份嘛
      

  3.   

    我的QQ23678337
    或是发到[email protected]
    真的很感谢Firestone2003(笨笨小猪)
      

  4.   

    看懂了吗？？
    <body>
    <OBJECT id="ePass" style="LEFT: 0px; TOP: 0px" height="200" width="400" classid="clsid:E740C5DF-3454-46A7-80EC-364D1ADB6CF0" name="ePass" VIEWASTEXT>
    </OBJECT></body>
    <script language='VBScript'> Digest = "01234567890123456"
    On Error Resume Next
    bErr = false 'Let detect whether the ePass 1000 Safe Active Control loaded.
    'If we call any method and the Err.number be set to &H1B6, it 
    'means the ePass 1000 Safe Active Control had not be loaded.
    ePass.GetLibVersion
    msgbox "ttt"
    If Err.number = &H1B6 Then ShowErr "Load ePass 1000 Safe Active Control Err"
    Validate = false
    Exit function
    Else

    ePass.OpenDevice 1, ""

    If Err then
    ShowErr "请勾选使用框,并插入USB_Key!"
    Validate = false
    ePass.CloseDevice
    Exit function
    End if

    'ePass.ResetSecurityState 0
    dim results
    results = "01234567890123456"
    results = ePass.GetStrProperty(7, 0, 0)
    'MsgBox results 'ePass.VerifyUserPIN TheForm.Identity.Value, TheForm.UserPIN.Value
    'ePass.VerifyPIN 0, TheForm.UserPIN.Value If Err Then
    ShowErr "Verify User PIN Failure!!!"
    Validate = false
    ePass.CloseDevice
    Exit function
    End If
    If Not bErr Then
    ePass.ChangeDir &H300, 0, "ASP_DEMO"
    If Err then 
    ShowErr "Change to demo directory"
    Validate = false
    ePass.CloseDevice
    Exit function
    End If
    End If
    'Open the first key file.
    If Not bErr Then
    ePass.OpenFile 0, 1
    If Err Then
    ShowErr "Open first KEY-file"
    Validate = false
    ePass.CloseDevice
    Exit function
    End If

    End If 'Do HASH-MD5-HMAC compute.
    If Not bErr Then
    Digest = ePass.HashToken (1, 2,"")
    If Err Then 
    ShowErr "HashToken compute"
    Validate = false
    ePass.CloseDevice
    Exit function
    End If
    msgbox Digest+"--"+results
    // DigestID.innerHTML = "<input type='hidden' name='Digest' Value='" & Digest & "'>"
    // snID.innerHTML = "<input type='hidden' name='SN_SERAL' Value='" & results & "'>"
    End If
    End If ePass.CloseDevice
    </script>