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 : Carl, Papy.G, fneck

Répondre
Avatar du membre
Kermitoo
Messages : 178
Enregistré le : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message par Kermitoo » 09 mars 2018 20:40

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 : 10326
Enregistré le : 01 mai 2007 18:30
Localisation : Vaucluse
Contact :

Re: Fichiers FD pour TO7 & TO7/70

Message par Daniel » 09 mars 2018 21:50

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 : 986
Enregistré le : 06 avr. 2009 12:07

Re: Fichiers FD pour TO7 & TO7/70

Message par Fool-DupleX » 11 mars 2018 10:47

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 du membre
Kermitoo
Messages : 178
Enregistré le : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message par Kermitoo » 19 mars 2018 18:25

TO7/70

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

Fichier FD Double Densité 3'1/2:
Numero 10_DD.rar
(20.7 Kio) Téléchargé 10 fois
Modifié en dernier par Kermitoo le 20 mars 2018 09:29, modifié 2 fois.

Avatar du membre
Kermitoo
Messages : 178
Enregistré le : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message par Kermitoo » 19 mars 2018 18:32

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

POUSSPAN: (bootable en "2")
p1.jpg
p1.jpg (10.37 Kio) Vu 283 fois
p2.jpg
p2.jpg (7.59 Kio) Vu 283 fois

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

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

...et un grand merci à Daniel !

Avatar du membre
Kermitoo
Messages : 178
Enregistré le : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message par Kermitoo » 19 mars 2018 18:44

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 : 10326
Enregistré le : 01 mai 2007 18:30
Localisation : Vaucluse
Contact :

Re: Fichiers FD pour TO7 & TO7/70

Message par Daniel » 19 mars 2018 19:00

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 du membre
Kermitoo
Messages : 178
Enregistré le : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message par Kermitoo » 19 mars 2018 19:41

Voilà ce qu'il dit:
dcprobas.jpg
dcprobas.jpg (128.32 Kio) Vu 264 fois

Daniel
Messages : 10326
Enregistré le : 01 mai 2007 18:30
Localisation : Vaucluse
Contact :

Re: Fichiers FD pour TO7 & TO7/70

Message par Daniel » 19 mars 2018 20:04

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 du membre
Kermitoo
Messages : 178
Enregistré le : 10 juil. 2013 19:21

Re: Fichiers FD pour TO7 & TO7/70

Message par Kermitoo » 20 mars 2018 09:38

TO7/70

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

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

Répondre