#Include CARDUTIL.DEF
#Include COMMERR.DEF
ComPort=101

Declare Command &HA0 &HA4 SL(S$,Disable Le)

CLS:PRINT"Snooper SIM (c)2001,2008 Patrick GUEULLE":PRINT
Call WaitForCard
ResetCard:Call CheckSW1SW2:PRINT

S=SL(CHR$(&H3F)+CHR$(&H00))
If SW1<>&H9F Then Goto Echec
Open"Snoop.log" For Output As#1
Print"Exploration du repertoire racine...":Print
For F=&H00 To &HFF
R=&H2F
S=SL(CHR$(R)+CHR$(F))
F$=HEX$(F):If Len(F$)=1 Then F$="0"+F$
If SW1=&H9F Then Print HEX$(&H3F00)+CHR$(58)+HEX$(R)+F$
If SW1=&H9F Then Print#1, HEX$(&H3F00)+CHR$(58)+HEX$(R)+F$
Next F
Print:Print"Sous-repertoires :":Print
For F=&H00 To &HFF
R=&H7F
S=SL(CHR$(R)+CHR$(F))
F$=HEX$(F):If Len(F$)=1 Then F$="0"+F$
If SW1=&H9F Then Print HEX$(&H3F00)+CHR$(58)+HEX$(R)+F$
If SW1=&H9F Then Print#1, HEX$(&H3F00)+CHR$(58)+HEX$(R)+F$
Next F

S=SL(CHR$(&H3F)+CHR$(&H00))
S=SL(CHR$(&H7F)+CHR$(&H10))
Print:Print"Exploration du repertoire Telecom...":Print
For F=&H00 To &HFF
R=&H6F
S=SL(CHR$(R)+CHR$(F))
F$=HEX$(F):If Len(F$)=1 Then F$="0"+F$
If SW1=&H9F Then Print HEX$(&H7F10)+CHR$(58)+HEX$(R)+F$
If SW1=&H9F Then Print#1, HEX$(&H7F10)+CHR$(58)+HEX$(R)+F$
Next F
Print:Print"Sous-repertoires :":Print
For F=&H00 To &HFF
R=&H5F
S=SL(CHR$(R)+CHR$(F))
F$=HEX$(F):If Len(F$)=1 Then F$="0"+F$
If SW1=&H9F Then Print HEX$(&H7F10)+CHR$(58)+HEX$(R)+F$
If SW1=&H9F Then Print#1, HEX$(&H7F10)+CHR$(58)+HEX$(R)+F$
Next F

S=SL(CHR$(&H3F)+CHR$(&H00))
S=SL(CHR$(&H7F)+CHR$(&H20))
Print:Print"Exploration du repertoire GSM...":Print
For F=&H00 To &HFF
R=&H6F
S=SL(CHR$(R)+CHR$(F))
F$=HEX$(F):If Len(F$)=1 Then F$="0"+F$
If SW1=&H9F Then Print HEX$(&H7F20)+CHR$(58)+HEX$(R)+F$
If SW1=&H9F Then Print#1, HEX$(&H7F20)+CHR$(58)+HEX$(R)+F$
Next F
Print:Print"Sous-repertoires :":Print
For F=&H00 To &HFF
R=&H5F
S=SL(CHR$(R)+CHR$(F))
F$=HEX$(F):If Len(F$)=1 Then F$="0"+F$
If SW1=&H9F Then Print HEX$(&H7F20)+CHR$(58)+HEX$(R)+F$
If SW1=&H9F Then Print#1, HEX$(&H7F20)+CHR$(58)+HEX$(R)+F$
Next F

S=SL(CHR$(&H3F)+CHR$(&H00))
S=SL(CHR$(&H7F)+CHR$(&H21))
Print:Print"Exploration du repertoire DCS...":Print
For F=&H00 To &HFF
R=&H6F
S=SL(CHR$(R)+CHR$(F))
F$=HEX$(F):If Len(F$)=1 Then F$="0"+F$
If SW1=&H9F Then Print HEX$(&H7F21)+CHR$(58)+HEX$(R)+F$
If SW1=&H9F Then Print#1, HEX$(&H7F21)+CHR$(58)+HEX$(R)+F$
Next F
Print:Print"Sous-repertoires :":Print
For F=&H00 To &HFF
R=&H5F
S=SL(CHR$(R)+CHR$(F))
F$=HEX$(F):If Len(F$)=1 Then F$="0"+F$
If SW1=&H9F Then Print HEX$(&H7F21)+CHR$(58)+HEX$(R)+F$
If SW1=&H9F Then Print#1, HEX$(&H7F21)+CHR$(58)+HEX$(R)+F$
Next F
Close

Open"Snoop.log" For Input As#1
Print"Defilement resultats : barre d'espace, Quitter : Esc":Print
While Not Eof(1)
Attente:IK$=Inkey$
If IK$=Chr$(27) Then EXIT
If IK$<>CHR$(32) Then Goto Attente
Line Input#1,A$
Print A$;
If A$="3F00:2F05" Then Print " (ELP, Extended Language Preference)";
If A$="3F00:2FE2" Then Print " (ICCID)";

If A$="3F00:7F10" Then Print " (Repertoire Telecom)";
If A$="3F00:7F20" Then Print " (Repertoire GSM)";
If A$="3F00:7F21" Then Print " (Repertoire DCS)";

If A$="7F10:5F50" Then Print " (Sous-repertoire Graphics)"; 
If A$="7F10:6F3A" Then Print " (ADN, Abbreviated Dialling Numbers)";
If A$="7F10:6F3B" Then Print " (FDN, Fixed Dialling Numbers)";
If A$="7F10:6F3C" Then Print " (SMS, Short Messages)";
If A$="7F10:6F3D" Then Print " (CCP, Capability configuration Parameters)";
If A$="7F10:6F40" Then Print " (MSISDN, Own Numbers)";
If A$="7F10:6F42" Then Print " (SMSP, Short Messages Service Parameters)";
If A$="7F10:6F43" Then Print " (SMSS, SMS Status)";
If A$="7F10:6F44" Then Print " (LND, Last Number Dialed)";
If A$="7F10:6F49" Then Print " (SDN, Service Dialling Numbers)";
If A$="7F10:6F4A" Then Print " (Ext 1)";
If A$="7F10:6F4B" Then Print " (Ext 2)";
If A$="7F10:6F4C" Then Print " (Ext 3)";
If A$="7F10:6F4D" Then Print " (BDN, Barred Dialling Numbers)";
If A$="7F10:6F4E" Then Print " (Ext 4)";
If A$="7F10:6F47" Then Print " (SMSR, Short message status reports)";

If A$="7F20:5F30" Then Print " (Sous-repertoire Iridium)";
If A$="7F20:5F31" Then Print " (Sous-repertoire Globalstar)";
If A$="7F20:5F32" Then Print " (Sous-repertoire ICO)";
If A$="7F20:5F33" Then Print " (Sous-repertoire ACeS)";
If A$="7F20:5F40" Then Print " (Sous-repertoire PCS1900)";
If A$="7F20:5F60" Then Print " (Sous-repertoire CTS)";
If A$="7F20:5F70" Then Print " (Sous-repertoire SoLSA)";
If A$="7F20:6F05" Then Print " (LP, Language preference)";
If A$="7F20:6F07" Then Print " (IMSI, International Mobile Subscriber Indentity)";
If A$="7F20:6F11" Then Print " (VWMI, Voice mail waiting Indicator)";
If A$="7F20:6F12" Then Print " (SST, Service String Table)";
If A$="7F20:6F13" Then Print " (CFF, Call Forwarding Flags)";
If A$="7F20:6F14" Then Print " (ONS, Operator Name String)";
If A$="7F20:6F15" Then Print " (CSP, Customer Service Profile)";
If A$="7F20:6F16" Then Print " (CPHS Information)";
If A$="7F20:6F17" Then Print " (MBX, VoiceMail Numbers)";
If A$="7F20:6F20" Then Print " (Kc, Ciphering Key)";
If A$="7F20:6F2C" Then Print " (DCK, Depersonalization Control Key)";
If A$="7F20:6F30" Then Print " (PLMN, Preferred PLMNs)";
If A$="7F20:6F31" Then Print " (HPLMN search period)";
If A$="7F20:6F32" Then Print " (CNL, Cooperative Networks List)";
If A$="7F20:6F37" Then Print " (ACMM, ACM maximum value)";
If A$="7F20:6F38" Then Print " (SST, SIM Service Table)";
If A$="7F20:6F39" Then Print " (ACM, Accumulated Call Meter)";
If A$="7F20:6F3E" Then Print " (GID1, Group Identifier level 1)";
If A$="7F20:6F3F" Then Print " (GID2, Group Identifier level 2)";
If A$="7F20:6F41" Then Print " (PUCT, Price per unit and currency table)";
If A$="7F20:6F45" Then Print " (CBMI, Cell broadcast message idenitifer selection)";
If A$="7F20:6F46" Then Print " (SPN, Service Provider Name)";
If A$="7F20:6F50" Then Print " (Call broadcast message identifier range selection)";
If A$="7F20:6F51" Then Print " (NIA, Network's Indication of Alerting)";
If A$="7F20:6F52" Then Print " (KcGPRS, GPRS Ciphering Key)";
If A$="7F20:6F53" Then Print " (LociGPRS, GPRS Location information)";
If A$="7F20:6F54" Then Print " (SUME, SetUpMenu Elements)";
If A$="7F20:6F74" Then Print " (BCCH, Broadcast Control Channels)";
If A$="7F20:6F78" Then Print " (ACC, Access Control Class)";
If A$="7F20:6F7B" Then Print " (FPLMN, Forbidden PLMNs)";
If A$="7F20:6F7E" Then Print " (LOCI, Location Information)";
If A$="7F20:6FAD" Then Print " (AD, Administrative Data)";
If A$="7F20:6FAE" Then Print " (Phase)";
If A$="7F20:6FB1" Then Print " (Voice Group Call Service)";
If A$="7F20:6FB2" Then Print " (Voice Group Call Service Status)";
If A$="7F20:6FB3" Then Print " (Voice Broadcast Service)";
If A$="7F20:6FB4" Then Print " (Voice Broadcast Service Status)";
If A$="7F20:6FB5" Then Print " (eMLPP, enhanced Multi Level Preemption and Priority)";
If A$="7F20:6FB6" Then Print " (Automatic Answer for eMLPP Service)";
If A$="7F20:6FB7" Then Print " (Emergency Call Codes)";

If A$="7F21:5F30" Then Print " (Sous-repertoire Iridium)";
If A$="7F21:5F31" Then Print " (Sous-repertoire Globalstar)";
If A$="7F21:5F32" Then Print " (Sous-repertoire ICO)";
If A$="7F21:5F33" Then Print " (Sous-repertoire ACeS)";
If A$="7F21:5F40" Then Print " (Sous-repertoire PCS1900)";
If A$="7F21:5F60" Then Print " (Sous-repertoire CTS)";
If A$="7F21:5F70" Then Print " (Sous-repertoire SoLSA)";
If A$="7F21:6F05" Then Print " (LP, Language preference)";
If A$="7F21:6F07" Then Print " (IMSI, International Mobile Subscriber Indentity)";
If A$="7F21:6F11" Then Print " (VWMI, Voice mail waiting Indicator)";
If A$="7F21:6F12" Then Print " (SST, Service String Table)";
If A$="7F21:6F13" Then Print " (CFF, Call Forwarding Flags)";
If A$="7F21:6F14" Then Print " (ONS, Operator Name String)";
If A$="7F21:6F15" Then Print " (CSP, Customer Service Profile)";
If A$="7F21:6F16" Then Print " (CPHS Information)";
If A$="7F21:6F17" Then Print " (MBX, VoiceMail Numbers)";
If A$="7F21:6F20" Then Print " (Kc, Ciphering Key)";
If A$="7F21:6F2C" Then Print " (DCK, Depersonalization Control Key)";
If A$="7F21:6F30" Then Print " (PLMN, Preferred PLMNs)";
If A$="7F21:6F31" Then Print " (HPLMN search period)";
If A$="7F21:6F32" Then Print " (CNL, Cooperative Networks List)";
If A$="7F21:6F37" Then Print " (ACMM, ACM maximum value)";
If A$="7F21:6F38" Then Print " (SST, SIM Service Table)";
If A$="7F21:6F39" Then Print " (ACM, Accumulated Call Meter)";
If A$="7F21:6F3E" Then Print " (GID1, Group Identifier level 1)";
If A$="7F21:6F3F" Then Print " (GID2, Group Identifier level 2)";
If A$="7F21:6F41" Then Print " (PUCT, Price per unit and currency table)";
If A$="7F21:6F45" Then Print " (CBMI, Cell broadcast message idenitifer selection)";
If A$="7F21:6F46" Then Print " (SPN, Service Provider Name)";
If A$="7F21:6F50" Then Print " (Call broadcast message identifier range selection)";
If A$="7F21:6F51" Then Print " (NIA, Network's Indication of Alerting)";
If A$="7F21:6F52" Then Print " (KcGPRS, GPRS Ciphering Key)";
If A$="7F21:6F53" Then Print " (LociGPRS, GPRS Location information)";
If A$="7F21:6F54" Then Print " (SUME, SetUpMenu Elements)";
If A$="7F21:6F74" Then Print " (BCCH, Broadcast Control Channels)";
If A$="7F21:6F78" Then Print " (ACC, Access Control Class)";
If A$="7F21:6F7B" Then Print " (FPLMN, Forbidden PLMNs)";
If A$="7F21:6F7E" Then Print " (LOCI, Location Information)";
If A$="7F21:6FAD" Then Print " (AD, Administrative Data)";
If A$="7F21:6FAE" Then Print " (Phase)";
If A$="7F21:6FB1" Then Print " (Voice Group Call Service)";
If A$="7F21:6FB2" Then Print " (Voice Group Call Service Status)";
If A$="7F21:6FB3" Then Print " (Voice Broadcast Service)";
If A$="7F21:6FB4" Then Print " (Voice Broadcast Service Status)";
If A$="7F21:6FB5" Then Print " (eMLPP, enhanced Multi Level Preemption and Priority)";
If A$="7F21:6FB6" Then Print " (Automatic Answer for eMLPP Service)";
If A$="7F21:6FB7" Then Print " (Emergency Call Codes)";
Print:Wend
Print:Print"Appuyer sur ESCape pour sortir"

Sortie:If Inkey$<>CHR$(27) Then Goto Sortie
EXIT

Echec:
Print "Carte SIM non reconnue !"