1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
| Public Module CARD_SRI_Mapping
Public Function Mapping_CARD_SRI(ByVal ICCODE As ICCODE) As Byte(,)
'Dim Mapping() As Byte
Select Case ICCODE
'Initialise un tableau image du mapping du SRT512
Case ICCODE.SRT512
' //17 Blocks adresses contenant chacun 4 octets
Dim Mapping = New Byte(16,3) { _
{&HFF, &HFF, &HFF, &HFF}, _
{&HFF, &HFF, &HFF, &HFF}, _
{&HFF, &HFF, &HFF, &HFF}, _
{&HFF, &HFF, &HFF, &HFF}, _
{&HFF, &HFF, &HFF, &HFF}, _
{&HFF, &HFF, &HFF, &HFF}, _
{&HFF, &HFF, &HFF, &HFF}, _
{&HFF, &HFF, &HFF, &HFF}, _
{&HFF, &HFF, &HFF, &HFF}, _
{&HFF, &HFF, &HFF, &HFF}, _
{&HFF, &HFF, &HFF, &HFF}, _
{&HFF, &HFF, &HFF, &HFF}, _
{&HFF, &HFF, &HFF, &HFF}, _
{&HFF, &HFF, &HFF, &HFF}, _
{&HFF, &HFF, &HFF, &HFF}, _
{&HFF, &HFF, &HFF, &HFF}, _
{&HFF, &HFF, &HFF, &HFF} _
}
Return Mapping
End Select
End Function
End Module |
Partager