Page 10 sur 10
Re: Fichiers FD pour TO7 & TO7/70
Publié : 09 mars 2018 20:40
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
Re: Fichiers FD pour TO7 & TO7/70
Publié : 09 mars 2018 21:50
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.
Re: Fichiers FD pour TO7 & TO7/70
Publié : 11 mars 2018 10:47
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.
Re: Fichiers FD pour TO7 & TO7/70
Publié : 19 mars 2018 18:25
par Kermitoo
TO7/70
NUMERO 10: (bootable en "2", Basic 128)
- n10a.jpg (23.85 Kio) Consulté 3386 fois
- n10c.jpg (24.25 Kio) Consulté 3386 fois
- n10b.jpg (32.19 Kio) Consulté 3386 fois
Fichier FD Double Densité 3'1/2:
Re: Fichiers FD pour TO7 & TO7/70
Publié : 19 mars 2018 18:32
par Kermitoo
T9000, TO7(+16k) , TO7/70
POUSSPAN: (bootable en "2")
- p1.jpg (10.37 Kio) Consulté 3386 fois
- p2.jpg (7.59 Kio) Consulté 3386 fois
Fichier FD Double Densité 3'1/2:
Fichier FD Simple Densité 5'1/4:
...et un grand merci à Daniel !
Re: Fichiers FD pour TO7 & TO7/70
Publié : 19 mars 2018 18:44
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 !
Re: Fichiers FD pour TO7 & TO7/70
Publié : 19 mars 2018 19:00
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 ?
Re: Fichiers FD pour TO7 & TO7/70
Publié : 19 mars 2018 19:41
par Kermitoo
Voilà ce qu'il dit:
- dcprobas.jpg (128.32 Kio) Consulté 3367 fois
Re: Fichiers FD pour TO7 & TO7/70
Publié : 19 mars 2018 20:04
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
Re: Fichiers FD pour TO7 & TO7/70
Publié : 20 mars 2018 09:38
par Kermitoo
TO7/70
TOP GUN: (Bootable en "2", Basic 128)
- TOP1.jpg (26.73 Kio) Consulté 3348 fois
- TOP2.jpg (35.91 Kio) Consulté 3348 fois
- TOP3.jpg (25.03 Kio) Consulté 3348 fois
Fichier FD Double Densité 3'1/2: