Fichiers FD pour TO7 & TO7/70

Couvre tous les domaines de l'émulation ou de la virtualisation ainsi que les discussions sur les divers outils associés.

Modérateurs : Papy.G, fneck, Carl

Avatar de l’utilisateur
Kermitoo
Messages : 190
Inscription : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message par Kermitoo »

Merci Daniel !

Bon, les 5 listings complets... et certainement en moins de 10 minutes...

Mais quelle est l'idée? Utiliser un outil de décompactage ou cela n'a rien à voir?

C'est juste que j'ai besoin de comprendre
Daniel
Messages : 17316
Inscription : 01 mai 2007 18:30
Localisation : Vaucluse
Contact :

Re: Fichiers FD pour TO7 & TO7/70

Message par Daniel »

Il y a pas mal de programmes Basic protégés par le système de cryptage Thomson, assez facile à détourner sur un ordinateur Thomson, et d'autres protégés par des lignes de plus de 255 octets. Pour cette protection il existe un programme, mais il n'est pas pratique et pas applicable dans tous les cas : http://dcmoto.free.fr/programmes/decomp ... index.html
Remarque : L'utilitaire se nomme Décompactage, mais ça n'a rien à voir avec du décompactage. Le programme n'est absolument pas compacté, c'est seulement l'éditeur Basic qui limite la ligne affichée ou imprimée à 255 caractères.

Pour ma part je préfère très nettement faire ces opérations sur PC, j'ai donc programmé toute une série d'outils pour traiter les programmes Basic protégés. A chaque nouveau cas j'ajoute une fonction supplémentaire et finalement j'ai des solutions pour tous les cas rencontrés. Malheureusement ces programmes sont des ébauches pas vraiment finalisées, sans aucune documentation. Je suis le seul à pouvoir les utiliser, c'est pourquoi je ne les diffuse pas. Mais chacun peut se créer ses propres outils.
Daniel
L'obstacle augmente mon ardeur.
Fool-DupleX
Messages : 2284
Inscription : 06 avr. 2009 12:07

Re: Fichiers FD pour TO7 & TO7/70

Message par Fool-DupleX »

Notez que les lignes de plus de 255 caractères ne sont pas vraiment une protection (pas conçu comme tel). C'est le résultat d'un passage par l'outil Compactor, qui rénumérote aussi les lignes, réduit la taille des noms de variable, etc.
Avatar de l’utilisateur
Kermitoo
Messages : 190
Inscription : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message par Kermitoo »

TO7/70

NUMERO 10: (bootable en "2", Basic 128)
n10a.jpg
n10a.jpg (23.85 Kio) Consulté 3225 fois
n10c.jpg
n10c.jpg (24.25 Kio) Consulté 3225 fois
n10b.jpg
n10b.jpg (32.19 Kio) Consulté 3225 fois

Fichier FD Double Densité 3'1/2:
Numero 10_DD.rar
(20.7 Kio) Téléchargé 125 fois
Dernière modification par Kermitoo le 20 mars 2018 09:29, modifié 2 fois.
Avatar de l’utilisateur
Kermitoo
Messages : 190
Inscription : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message par Kermitoo »

T9000, TO7(+16k) , TO7/70

POUSSPAN: (bootable en "2")
p1.jpg
p1.jpg (10.37 Kio) Consulté 3225 fois
p2.jpg
p2.jpg (7.59 Kio) Consulté 3225 fois

Fichier FD Double Densité 3'1/2:
Pousspan_DD.rar
(14.39 Kio) Téléchargé 122 fois

Fichier FD Simple Densité 5'1/4:
Pousspan_SD.rar
(12.73 Kio) Téléchargé 121 fois

...et un grand merci à Daniel !
Avatar de l’utilisateur
Kermitoo
Messages : 190
Inscription : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message par Kermitoo »

Petite question pour Daniel:
A quoi sert le programme dcprobas?

@Fool-DupleX: je te contacte dans la semaine !

... merci pour vos réponses futures et antérieures !

A très vite !
Daniel
Messages : 17316
Inscription : 01 mai 2007 18:30
Localisation : Vaucluse
Contact :

Re: Fichiers FD pour TO7 & TO7/70

Message par Daniel »

Bonne question ! C'est un programme MS-DOS qui date de 2002, il ne fonctionne pas dans Windows, il y a très longtemps que j'ai oublié ce qu'il fait. Certainement rien d'important, ou sinon il a été remplacé par un utilitaire Windows meilleur et plus récent.

Mais bon, c'est un défi, je vais chercher dans mes archives. Quoique 2002, je ne suis pas sûr de retrouver. A suivre...
Sinon, il suffit de le lancer en MS-DOS, il doit bien afficher quelque chose à l'écran ?
Daniel
L'obstacle augmente mon ardeur.
Avatar de l’utilisateur
Kermitoo
Messages : 190
Inscription : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message par Kermitoo »

Voilà ce qu'il dit:
dcprobas.jpg
dcprobas.jpg (128.32 Kio) Consulté 3206 fois
Daniel
Messages : 17316
Inscription : 01 mai 2007 18:30
Localisation : Vaucluse
Contact :

Re: Fichiers FD pour TO7 & TO7/70

Message par Daniel »

J'ai retrouvé aussi de mon côté : c'est un utilitaire permettant de décrypter un fichier .BAS protégé, ou de crypter un fichier .BAS non protégé.
Aucun intérêt, dcmoto le fait encore plus simplement.

Curiosité : Il est écrit en Basic. A l'époque il m'arrivait encore d'utiliser le Basic, par nostalgie des débuts sur MO5. Mais c'est du Basic compilé, pour de meilleures performances. Ci-dessous le programme source :

Code : Tout sélectionner

'DCPROBAS Protection/Deprotection d'un programme Basic Thomson

'v1: 07-03-2002

'codes de decryptage
 DIM cod1%(13), cod2%(11)
 FOR i% = 1 TO 13: READ a$: cod1%(i%) = VAL("&h" + a$): NEXT i%
 FOR i% = 1 TO 11: READ a$: cod2%(i%) = VAL("&h" + a$): NEXT i%
 DATA 86,1e,d7,ba,87,99,26,64,87,23,34,58,86
 DATA 80,19,56,aa,80,76,22,f1,82,38,aa

'lecture du programme crypte
 PRINT
 PRINT "DCPROBAS v1 - Protection/Deprotection d'un programme Basic Thomson"
 PRINT "-----------   Daniel Coulom - 07/03/2002"
 PRINT
 PRINT "Le programme Basic a traiter doit être dans un fichier"
 PRINT "binaire dont l'extension est obligatoirement .bas"
 PRINT "Le resultat est un fichier de même nom avec l'extension .new"
 PRINT "Attention: si le fichier .new existe, il est ecrase."
 PRINT
 INPUT "Nom du fichier .bas (sans l'extension) : ", f$
 PRINT
 IF f$ = "" THEN PRINT "Abandon du programme": PRINT : END

 OPEN f$ + ".bas" FOR BINARY AS #1
 l& = LOF(1)
 IF l& > 30000 THEN l1& = 30000: l2& = l& - l1& ELSE l1& = l&: l2& = 0
 prog1$ = SPACE$(l1&)
 prog2$ = SPACE$(l2&)
 GET #1, , prog1$
 GET #1, , prog2$
 CLOSE #1
 OPEN f$ + ".new" FOR OUTPUT AS #1
 SELECT CASE ASC(prog1$)
  CASE 254: MID$(prog1$, 1, 1) = CHR$(255): s% = 1: t$ = "Deprotection"
  CASE 255: MID$(prog1$, 1, 1) = CHR$(254): s% = 2: t$ = "Protection"
  CASE ELSE: PRINT "ERREUR: "; f$; ".bas ne commence pas par &hfe ou &hff"
   PRINT : END
 END SELECT
 PRINT #1, LEFT$(prog1$, 3);

'boucle de decryptage
 c%(1) = 13
 c%(2) = 11
 PRINT
 FOR i& = 4 TO l&
  IF i& <= l1& THEN x$ = MID$(prog1$, i&, 1)
  IF i& > l1& THEN x$ = MID$(prog2$, i& - l1&, 1)
  a% = ASC(x$) - c%(s%)
  IF a% < 0 THEN a% = a% + 256
  a% = a% XOR cod1%(c%(1))
  a% = a% XOR cod2%(c%(2))
  a% = a% + c%(3 - s%)
  IF a% > 255 THEN a% = a% - 256
  c%(1) = c%(1) - 1: IF c%(1) = 0 THEN c%(1) = 13
  c%(2) = c%(2) - 1: IF c%(2) = 0 THEN c%(2) = 11
  PRINT #1, CHR$(a%);
  'LOCATE CSRLIN, 1: PRINT i&;
 NEXT i&
 LOCATE CSRLIN, 1: PRINT t$; " terminee"
 PRINT
 CLOSE

Daniel
L'obstacle augmente mon ardeur.
Avatar de l’utilisateur
Kermitoo
Messages : 190
Inscription : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message par Kermitoo »

TO7/70

TOP GUN: (Bootable en "2", Basic 128)
TOP1.jpg
TOP1.jpg (26.73 Kio) Consulté 3187 fois
TOP2.jpg
TOP2.jpg (35.91 Kio) Consulté 3187 fois
TOP3.jpg
TOP3.jpg (25.03 Kio) Consulté 3187 fois

Fichier FD Double Densité 3'1/2:
TOPGUN_DD.rar
(13.93 Kio) Téléchargé 126 fois
Répondre