Decryptage d'image

sebflouflou Messages postés 8 Date d'inscription lundi 12 mai 2003 Statut Membre Dernière intervention 6 septembre 2004 - 21 oct. 2003 à 12:19
sebflouflou Messages postés 8 Date d'inscription lundi 12 mai 2003 Statut Membre Dernière intervention 6 septembre 2004 - 21 oct. 2003 à 18:14
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

japee Messages postés 1727 Date d'inscription vendredi 27 décembre 2002 Statut Modérateur Dernière intervention 6 novembre 2021 8
21 oct. 2003 à 16:29
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 Messages postés 8 Date d'inscription lundi 12 mai 2003 Statut Membre Dernière intervention 6 septembre 2004
21 oct. 2003 à 18:14
Merci je te revaudrait ca. n'hésite pas a m'envoyer des question je t'y repondrez si je sais le faire
Rejoignez-nous