Fichiers FD pour TO7 & TO7/70
Modérateurs : Papy.G, fneck, Carl
Re: Fichiers FD pour TO7 & TO7/70
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
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
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.
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.
L'obstacle augmente mon ardeur.
-
- Messages : 2363
- Inscription : 06 avr. 2009 12:07
Re: Fichiers FD pour TO7 & TO7/70
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
TO7/70
NUMERO 10: (bootable en "2", Basic 128)
Fichier FD Double Densité 3'1/2:
NUMERO 10: (bootable en "2", Basic 128)
Fichier FD Double Densité 3'1/2:
Dernière modification par Kermitoo le 20 mars 2018 09:29, modifié 2 fois.
Re: Fichiers FD pour TO7 & TO7/70
T9000, TO7(+16k) , TO7/70
POUSSPAN: (bootable en "2")
Fichier FD Double Densité 3'1/2:
Fichier FD Simple Densité 5'1/4:
...et un grand merci à Daniel !
POUSSPAN: (bootable en "2")
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
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 !
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
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 ?
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.
L'obstacle augmente mon ardeur.
Re: Fichiers FD pour TO7 & TO7/70
Voilà ce qu'il dit:
Re: Fichiers FD pour TO7 & TO7/70
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 :
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.
L'obstacle augmente mon ardeur.
Re: Fichiers FD pour TO7 & TO7/70
TO7/70
TOP GUN: (Bootable en "2", Basic 128)
Fichier FD Double Densité 3'1/2:
TOP GUN: (Bootable en "2", Basic 128)
Fichier FD Double Densité 3'1/2: