mirror of
https://github.com/adulau/ootp.git
synced 2024-11-24 19:17:09 +00:00
264 lines
7.8 KiB
Modula-2
264 lines
7.8 KiB
Modula-2
'
|
|
' Copyright (c) 2005 Mark Fullmer
|
|
' Copyright (c) 2009 Mark Fullmer and the Ohio State University
|
|
' All rights reserved.
|
|
'
|
|
' Redistribution and use in source and binary forms, with or without
|
|
' modification, are permitted provided that the following conditions
|
|
' are met:
|
|
' 1. Redistributions of source code must retain the above copyright
|
|
' notice, this list of conditions and the following disclaimer.
|
|
' 2. Redistributions in binary form must reproduce the above copyright
|
|
' notice, this list of conditions and the following disclaimer in the
|
|
' documentation and/or other materials provided with the distribution.
|
|
'
|
|
' THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
|
|
' ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
|
' IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
|
' ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
|
|
' FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
|
' DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
|
|
' OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
|
' HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
|
' LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
|
|
' OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
|
' SUCH DAMAGE.
|
|
'
|
|
' $Id: HOTP.DEF 91 2009-12-28 02:45:25Z maf $
|
|
'
|
|
|
|
|
|
' ZC commands CLA=80
|
|
' b = Byte Idx,Mode,Version
|
|
' i = Integer Count
|
|
' l = Long Count32,Capabilities
|
|
' sn = String length n Hostname(12),ZCKey(20),*PIN(5),HOTP(5),
|
|
' AdminKey(20),eeBlock(16), readerKey(5)
|
|
' INS Name Format CapabilityID
|
|
'------------------------------------------------------------------------
|
|
' 00 PRDisplay (CLA=C8) - 00000001
|
|
' RecordNumber(Byte), DataFormat(Byte), DigitCount(Byte)
|
|
' DecimalPoint(Byte), Delay(Byte), MoreData(Byte),
|
|
' Data(String)
|
|
' 40 SetHost Idx,Count,Hostname,HOTPKey 00000002
|
|
' 42 GetHost Idx,Count,Hostname,HOTPKey 00000004
|
|
' 44 GetHostName Idx,myPIN,Hostname 00000008
|
|
' 46 GetHOTP Idx,myPIN,HOTP 00000010
|
|
' 48 SetAdminMode Mode,AdminKey 00000020
|
|
' 4A SetBalanceCardIndex Idx 00000040
|
|
' 4C SetPIN myPIN,newPIN 00000080
|
|
' 4E TestPIN myPIN 00000100
|
|
' 50 GetVersion Version 00000200
|
|
' 52 SetAdminKey AdminKey 00000400
|
|
' 54 SetHost32 Idx,Count32,Hostname,HOTPKey 00000800
|
|
' 56 GetHost32 Idx,Count32,Hostname,HOTPKey 00001000
|
|
' 58 GetHOTPCount32 Idx,myPIN,Count32,HOTP 00002000
|
|
' 5A GetHOTPHost Idx,myPIN,HOTP,Hostname 00004000
|
|
' 5C GetHOTPHostCount32 Idx,myPIN,Count,HOTP,Hostname 00008000
|
|
' 5E ClearAll 00010000
|
|
' 60 SetReaderKey readerKey 00020000
|
|
|
|
' 90 GetCapabilities Capabilities XXXXXXXX
|
|
' A0 GetEEBlock P1=Idx,eeBlock XXXXXXXX
|
|
' A1 SetEEBlock P1=Idx,eeBlock XXXXXXXX
|
|
|
|
'
|
|
' HOTP display formats
|
|
'
|
|
Const FMTHEX40 = 1
|
|
Const FMTDEC316 = 2
|
|
Const FMTDEC317 = 3
|
|
Const FMTDEC318 = 4
|
|
Const FMTDEC319 = 5
|
|
Const FMTDEC3110 = 6
|
|
Const FMTDHEX40 = 7
|
|
|
|
|
|
'
|
|
' enable minimal functions for Spyrus Reader
|
|
'
|
|
'Const ENABLECSETHOST = 1
|
|
'Const ENABLECGETHOST = 1
|
|
Const ENABLECGETHOSTNAME = 1
|
|
'Const ENABLECGETHOTP = 1
|
|
Const ENABLECSETADMINMODE = 1
|
|
Const ENABLECSETBALANCECARDINDEX = 1
|
|
Const ENABLECSETPIN = 1
|
|
Const ENABLECTESTPIN = 1
|
|
Const ENABLECGETVERSION = 1
|
|
Const ENABLECSETADMINKEY = 1
|
|
Const ENABLECSETHOST32 = 1
|
|
Const ENABLECGETHOST32 = 1
|
|
Const ENABLECGETHOTPCOUNT32 = 1
|
|
'Const ENABLECGETHOTPHOST = 1
|
|
Const ENABLECGETHOTPHOSTCOUNT32 = 1
|
|
Const ENABLECPRDISPLAY = 1
|
|
Const ENABLECCLEARALL = 1
|
|
Const ENABLESETREADERKEY = 1
|
|
|
|
'
|
|
' Capabilities bits
|
|
'
|
|
|
|
#ifdef ENABLECPRDISPLAY
|
|
Const CAPPRDISPLAY = &H00000001
|
|
#else
|
|
Const CAPPRDISPLAY = &H00000000
|
|
#endif
|
|
|
|
#ifdef ENABLECSETHOST
|
|
Const CAPSETHOST = &H00000002
|
|
#else
|
|
Const CAPSETHOST = &H00000000
|
|
#endif
|
|
|
|
#ifdef ENABLECGETHOST
|
|
Const CAPGETHOST = &H00000004
|
|
#else
|
|
Const CAPGETHOST = &H00000000
|
|
#endif
|
|
|
|
#ifdef ENABLECGETHOSTNAME
|
|
Const CAPGETHOSTNAME = &H00000008
|
|
#else
|
|
Const CAPGETHOSTNAME = &H00000000
|
|
#endif
|
|
|
|
#ifdef ENABLECGETHOTP
|
|
Const CAPGETHOTP = &H00000010
|
|
#else
|
|
Const CAPGETHOTP = &H00000000
|
|
#endif
|
|
|
|
#ifdef ENABLECSETADMINMODE
|
|
Const CAPSETADMINMODE = &H00000020
|
|
#else
|
|
Const CAPSETADMINMODE = &H00000000
|
|
#endif
|
|
|
|
#ifdef ENABLECSETBALANCECARDINDEX
|
|
Const CAPSETBALANCECARDINDEX = &H00000040
|
|
#else
|
|
Const CAPSETBALANCECARDINDEX = &H00000000
|
|
#endif
|
|
|
|
#ifdef ENABLECSETPIN
|
|
Const CAPSETPIN = &H00000080
|
|
#else
|
|
Const CAPSETPIN = &H00000000
|
|
#endif
|
|
|
|
#ifdef ENABLECTESTPIN
|
|
Const CAPTESTPIN = &H00000100
|
|
#else
|
|
Const CAPTESTPIN = &H00000000
|
|
#endif
|
|
|
|
#ifdef ENABLECGETVERSION
|
|
Const CAPGETVERSION = &H00000200
|
|
#else
|
|
Const CAPGETVERSION = &H00000000
|
|
#endif
|
|
|
|
#ifdef ENABLECSETADMINKEY
|
|
Const CAPSETADMINKEY = &H00000400
|
|
#else
|
|
Const CAPSETADMINKEY = &H00000000
|
|
#endif
|
|
|
|
#ifdef ENABLECSETHOST32
|
|
Const CAPSETHOST32 = &H00000800
|
|
#else
|
|
Const CAPSETHOST32 = &H00000000
|
|
#endif
|
|
|
|
#ifdef ENABLECGETHOST32
|
|
Const CAPGETHOST32 = &H00001000
|
|
#else
|
|
Const CAPGETHOST32 = &H00000000
|
|
#endif
|
|
|
|
#ifdef ENABLECGETHOTPCOUNT32
|
|
Const CAPGETHOTPCOUNT32 = &H00002000
|
|
#else
|
|
Const CAPGETHOTPCOUNT32 = &H00000000
|
|
#endif
|
|
|
|
#ifdef ENABLECGETHOTPHOST
|
|
Const CAPGETHOTPHOST = &H00004000
|
|
#else
|
|
Const CAPGETHOTPHOST = &H00000000
|
|
#endif
|
|
|
|
#ifdef ENABLECGETHOTPHOSTCOUNT32
|
|
Const CAPGETHOTPHOSTCOUNT32 = &H00008000
|
|
#else
|
|
Const CAPGETHOTPHOSTCOUNT32 = &H00000000
|
|
#endif
|
|
|
|
#ifdef ENABLECCLEARALL
|
|
Const CAPCLEARALL = &H00010000
|
|
#else
|
|
Const CAPCLEARALL = &H00000000
|
|
#endif
|
|
|
|
#ifdef ENABLESETREADERKEY
|
|
Const CAPSETREADERKEY = &H00020000
|
|
#else
|
|
Const CAPSETREADERKEY = &H00000000
|
|
#endif
|
|
|
|
Declare Command &HC8 &H00 PRDisplay(RecordNumber as Byte, DataFormat as Byte, _
|
|
DigitCount as Byte,DecimalPoint as Byte, _
|
|
Delay as Byte, MoreData as Byte, _
|
|
Data as String)
|
|
|
|
Declare Command &H80 &H40 SetHost(Idx as Byte, Count as Integer, _
|
|
Hostname as String*12, HOTPKey as String*20)
|
|
|
|
Declare Command &H80 &H42 GetHost(Idx as Byte, Count as Integer, _
|
|
Hostname as String*12, HOTPKey as String*20)
|
|
|
|
Declare Command &H80 &H44 GetHostName(Idx as Byte, myPIN as String*5, _
|
|
Hostname as String*12)
|
|
|
|
Declare Command &H80 &H46 GetHOTP(Idx as Byte, myPIN as String*5, _
|
|
HOTP as String*5)
|
|
|
|
Declare Command &H80 &H48 SetAdminMode(Mode as Byte, K as String*20)
|
|
|
|
Declare Command &H80 &H4A SetBalanceCardIndex(Idx as Byte)
|
|
|
|
Declare Command &H80 &H4C SetPIN(myPIN as String*5, newPIN as String*5)
|
|
|
|
Declare Command &H80 &H4E TestPIN(myPIN as String*5)
|
|
|
|
Declare Command &H80 &H50 GetVersion(V as Byte)
|
|
|
|
Declare Command &H80 &H52 SetAdminKey(K as String*20)
|
|
|
|
Declare Command &H80 &H54 SetHost32(Idx as Byte, Count32 as Long, _
|
|
Hostname as String*12, HOTPKey as String*20)
|
|
|
|
Declare Command &h80 &H56 GetHost32(Idx as Byte, Count32 as Long, _
|
|
Hostname as String*12, HOTPKey as String*20)
|
|
|
|
Declare Command &H80 &H58 GetHOTPCount32(Idx as Byte, myPIN as String*5, _
|
|
Count32 as Long, HOTP as String*5)
|
|
|
|
Declare Command &H80 &H5A GetHOTPHost(Idx as Byte, myPIN as String*5, _
|
|
HOTP as String*5, Hostname as String*12)
|
|
|
|
Declare Command &H80 &H5C GetHOTPHostCount32(Idx as Byte, myPIN as String*5, _
|
|
Count32 as Long, HOTP as String*5, Hostname as String*12)
|
|
|
|
Declare Command &H80 &H5E ClearAll()
|
|
|
|
Declare Command &H80 &H60 SetReaderKey(readerKey as String*5)
|
|
|
|
Declare Command &H80 &H90 GetCapabilities(Capabilities as Long)
|
|
|
|
'
|
|
' error codes used
|
|
'
|
|
|