Decryptage d'image

Signaler
Messages postés
8
Date d'inscription
lundi 12 mai 2003
Statut
Membre
Dernière intervention
6 septembre 2004
-
Messages postés
8
Date d'inscription
lundi 12 mai 2003
Statut
Membre
Dernière intervention
6 septembre 2004
-
j'ai un programme de decryptage d'image en qbasic et je n'arrive pas à le traduire en delphi si vous pouviez m'aider je vous en serez reconnaissant.

Voici le code :

DEFINT C
1 cpt = 0
INPUT "Nom du fichier … charger "; fich$
INPUT "Nom du fichier … sauver "; sav$
OPEN fich$ + ".jpg" FOR RANDOM AS 1 LEN = 1
OPEN sav$ + ".jpg" FOR OUTPUT AS 2 LEN = 1
FIELD #1, 1 AS entree$
GET #1
code = ASC(entree$) XOR 255
PRINT #2, CHR$(255);
PRINT "Code = "; HEX$(code)
DO
GET #1
PRINT #2, CHR$(ASC(entree$) XOR code);
cpt = cpt + 1
IF cpt > 1023 THEN cpt = 0:
PRINT "#";
LOOP UNTIL (EOF(1))
CLOSE
PRINT
CLEAR
GOTO 1

Merci beaucoup

flourette.sebastien@wanadoo.fr

2 réponses

Messages postés
1725
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
11 avril 2021
8
Ah, toi aussi tu as égaré le code acquis à prix d'or sur le 3617 CONCONCODE. Et bien entendu, ils ne veulent pas te le refiler sans payer à nouveau...
Petit canaillou, va, quand même :blush)

Heureusement, il y a Pirate Mag qui veille sur nos intérêts, et qui nous avait refilé la soluce, en VB hélas...
Je vois qu'on a les mêmes lectures.

J'avais adapté ce code pour Delphi à l'époque. Il faut que je remette la main dessus. Je le balancerai ici prochainement, avec le programme qui va avec, si j'ai le temps de reprendre celui que j'avais fait et qui est loin d'être optimisé :dissapprove)

Bonne prog' :-p
Messages postés
8
Date d'inscription
lundi 12 mai 2003
Statut
Membre
Dernière intervention
6 septembre 2004

Merci je te revaudrait ca. n'hésite pas a m'envoyer des question je t'y repondrez si je sais le faire