Decryptage d'image

Question

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

japee · Answer

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

sebflouflou · Answer

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

Decryptage d'image

2 réponses

Votre réponse

Discussions similaires