FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Dessin 2D: largeur de trait (résolu !)
par JL35 Aujourd'hui à 1:37

» PanExpress : l'éditeur Panoramic avec création d'objet
par Minibug Hier à 17:00

» Planétarium virtuel.
par Pedro Alvarez Hier à 16:59

» Nouvelle version 0.34
par jean_debord Hier à 9:39

» Quantité de mémoire utilisée par un exe
par mindstorm Jeu 21 Juin 2018 - 21:22

» Projet de planétarium virtuel.
par Jean Claude Jeu 21 Juin 2018 - 19:02

» Animation: Feux de signalisation
par Minibug Mer 20 Juin 2018 - 20:28

» Problème avec 'file_load'.
par Pedro Alvarez Lun 18 Juin 2018 - 8:12

» Version instantanée V 0.9.28i20 du 13/06/2018
par jjn4 Sam 16 Juin 2018 - 14:25

» string$(0,chr$(32)) sans erreur
par silverman Ven 15 Juin 2018 - 19:56

» Version instantanée V 0.9.28i19 du 13/06/2018
par Minibug Ven 15 Juin 2018 - 19:14

» Mes souhaits d'amélioration de Panoramic.
par Pedro Alvarez Jeu 14 Juin 2018 - 20:17

» [RÉSOLU] Message d'erreur impossible à indentifier
par Minibug Mer 13 Juin 2018 - 20:52

» Cadre pour image
par Jean Claude Mar 12 Juin 2018 - 16:31

» Créateur d'objets Panoramic
par Minibug Mar 12 Juin 2018 - 14:02

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juin 2018
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
CalendrierCalendrier

Partagez | 
 

 Camoufler un fichier texte dans une image

Aller en bas 
AuteurMessage
JL35



Nombre de messages : 6289
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Camoufler un fichier texte dans une image   Lun 1 Déc 2014 - 22:37

Pour mettre un fichier de type texte à l'abri des regards indiscrets, le fichier est crypté et intégré à une image quelconque qui garde ses propriétés d'image (inchangée visuellement).
Le cryptage est assez élémentaire, avec une clé de cryptage (à retenir !), mais il faut déjà savoir que cette image contient un élément invisible, puis savoir extraire et décoder cet élément.
Rien n'empêche d'ailleurs d'imaginer un codage plus sophistiqué, par exemple un compactage préalable genre zip, puis cryptage...

L'image utilisée sera de type quelconque, je préconiserais plutôt du jpg, c'est plus compact.
(Cette image source n'est pas modifiée, seulement copiée)
Le fichier généré dans un répertoire à choisir portera le nom de l'image utilisée précédé de 'CCF_' (c'est tout à fait arbitraire).
La SUB Cryptext assure les deux fonctions, cryptage et décryptage. Les paramètres d'utilisation sont précisés en tête.
Elle utilise KGF.dll (fonction lecture d'un fichier dans une chaîne), il faut donc préciser son chemin en tête de la sub.
En décryptage, il faut préciser le répertoire qui recevra le fichier décodé, lequel sera généré avec son nom d'origine (avant codage).
Voici, avec un exemple d'appel:
Code:
DIM f$,rep$,cle$,fimg$
f$ = "C:\TEXTES\LOREM.txt": ' fichier texte à crypter
fimg$ = "C:\GRAPH\JPG\Rafale.jpg": ' image support
rep$ = "Z:": ' répertoire résultat
cle$ = "1a2b3c4d"

Cryptext(1,f$,rep$,cle$,fimg$): ' cryptage

' Cryptext(2,"Z:\CCF_Rafale.jpg",rep$,cle$): ' décryptage
PRINT "Terminé !"
END
' ==============================================================================
SUB Cryptext(mode%,f$,rep$,cle$,fimg$)
' Cryptage et camouflage d'un fichier texte dans une image (jpg, c'est plus compact)
' - PARAMÈTRES: -
' mode%:  = 1: cryptage, = 2: décryptage
' f$:     chemin du fichier texte à crypter ou décrypter
' rep$:   répertoire du résultat (image en cryptage, fichier texte en décryptage)
'         (le nom de l'image résultat est dérivé du nom de l'image support:
'           exemple: image support "Monimage.jpg", image résultat: "CCF_Monimage.jpg")
' cle$:   clé de cryptage/décryptage: une séquence de caractères ascii
'         ** Il est conseillé de mettre une clé en chiffres, ou mélange lettres/chiffres ***
'           (sinon, dans le cas de séries d'espaces, la clé risque d'apparaître en clair)
' fimg$:  (cryptage uniquement) chemin de l'image support (non modifiée)
' DÉCRYPTAGE: le fichier sera rendu avec son nom d'origine dans le répertoire rep$
' à charge pour le programme appelant de supprimer ou non le fichier image codé d'origine.
DIM_LOCAL a$, b$, nf$, ni$, v$, rs%, i%, xx, l1%, lf%, lt%
IF FILE_EXISTS(f$) = 0 THEN EXIT_SUB
IF DIR_EXISTS(rep$) = 0 THEN EXIT_SUB
IF cle$ = "" THEN EXIT_SUB
IF LABEL("Nor_dll") = 0 THEN LABEL Nor_dll
ON_ERROR_GOTO Nor_dll: ' si pas de dll chargée, dll_off -> erreur
DLL_OFF: ' à tout hasard
Nor_dll:
OFF_ERROR_GOTO
DLL_ON "C:\PANORAMIC\KLAUS\DLLs\KGF.dll": ' <<<<<<<<<<< A PRÉCISER <<<<<<<<<<<<<
IF RIGHT$(rep$,1)<>"" THEN rep$ = rep$+""
IF mode% = 1: ' CRYPTAGE ET CAMOUFLAGE
    IF FILE_EXISTS(fimg$) = 0 THEN EXIT_SUB
    FILEBIN_OPEN_READ 9, fimg$: l1%=FILEBIN_SIZE(9): FILEBIN_CLOSE 9: ' taille fichier image
    FILEBIN_OPEN_READ 9, f$: b$ = STRING$(FILEBIN_SIZE(9)," "): FILEBIN_CLOSE 9
    i% = DLL_CALL2("ReadBinaryFileToString",ADR(f$),ADR(b$)): ' fichier à crypter
    nf$ = FILE_EXTRACT_NAME$(f$): lf% = LEN(nf$): ' nom du fichier
    b$ = b$ + nf$
    ' cryptage de b$ (fichier + nom) dans a$
    a$ = "": xx = 1
    FOR i% = 1 TO LEN(b$)
        a$ = a$ + CHR$(BIN_XOR(ASC(MID$(b$,i%,1)),ASC(MID$(cle$,xx,1))))
        xx = xx+1: IF xx > LEN(cle$) THEN xx = 1
    NEXT i%
    v$ = "": xx = l1%: ' archivage taille du fichier image
    WHILE LEN(v$)<4
        v$ = v$ + CHR$(256*FRAC(xx/256)): xx = INT(xx/256)
    END_WHILE
    a$ = a$+v$
    v$ = "": xx = lf%: ' archivage longueur du nom du fichier crypté
    WHILE LEN(v$)<2
        v$ = v$ + CHR$(256*FRAC(xx/256)): xx = INT(xx/256)
    END_WHILE
    a$ = a$+v$
    b$ = STRING$(l1%," ")
    i% = DLL_CALL2("ReadBinaryFileToString",ADR(fimg$),ADR(b$)): ' fichier image -> b$
    b$ = b$+a$
    ni$ = FILE_EXTRACT_NAME$(fimg$): nf$ = rep$+"CCF_"+ni$
    i% = DLL_CALL2("WriteStringToBinaryFile",ADR(nf$),ADR(b$)): ' écriture
ELSE: ' DÉCRYPTAGE
    FILEBIN_OPEN_READ 9, f$: lt% = FILEBIN_SIZE(9): FILEBIN_CLOSE 9
    b$ = STRING$(lt%," ")
    i% = DLL_CALL2("ReadBinaryFileToString",ADR(f$),ADR(b$))
    a$ = RIGHT$(b$,6)
    l1%=16777213*ASC(MID$(a$,4,1))+65536*ASC(MID$(a$,3,1))
    l1%=l1%+256*ASC(MID$(a$,2,1))+ASC(MID$(a$,1,1)): ' lgr du fichier image
    lf% = 256*ASC(MID$(a$,6,1))+ASC(MID$(a$,5,1)): ' lgr nom du fichier
    b$ = MID$(b$,l1%+1,lt%-l1%-6): ' fichier crypté + nom
    ' décryptage de b$ dans a$
    a$ = "": xx = 1
    FOR i% = 1 TO LEN(b$)
        a$ = a$ + CHR$(BIN_XOR(ASC(MID$(b$,i%,1)),ASC(MID$(cle$,xx,1))))
        xx = xx+1: IF xx > LEN(cle$) THEN xx = 1
    NEXT i%
    nf$ = rep$+RIGHT$(a$,lf%): a$ = LEFT$(a$,LEN(a$)-lf%)
    i% = DLL_CALL2("WriteStringToBinaryFile",ADR(nf$),ADR(a$)): ' écriture décrypté
END_IF
END_SUB
' ==============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur En ligne
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Camoufler un fichier texte dans une image   Mar 2 Déc 2014 - 0:07

De la Stéganographie. Intéressant.

Il est vrai qu'en matière de cryptage, il y a de multiples techniques. La stéganographie en est une. Son avantage est de cacher une (relativement courte) information dans un fichier publiquement lisible, anodin en apparence. Mais le principe a son revers: le pourcentage d'information secrète par rapport à l'information anodine est ridicule, car dès qu'on augmente ce taux, donc dès qu'on veut cacher une partie plus significative de texte, cela devient trop facilement visible, pour des spécialistes du décryptage. Bien sûr, on peut employer une variante: transmettre toute une collection d'images, chacune contenant un fragment de texte crypté, si possible avec une clé différente, le nombre d'images donnant l'information (prédéfinie) sur les clés et leur ordre d'application. On peut crypter une petite portion de texte dans chaque image (ou dans chaque n-ième image) d'une vidéo...On peut varier les plaisirs à l'infini. Pour nous, simples amateurs, un tel cryptage est largement suffisant, car incompréhensible à l'oeil nu, même avec un éditeur hexa. Mais pas pour les spécialistes du décryptage car en présence de fichiers de type visuel, ils éliminent d'abord ce genre de possibilités par des outils puissants d'analyse d'images.

Pour les amateurs noon professionnels de cryptage, on peut commencer par la fameuse méthode de César (translocation de lettres). Je crois me souvenir que cela a déjà été fait sur le forum. Puis, il y a des méthodes plus sophistiquées (pour du texte, toujours): on peut appliquer de façon plus ou moins sophistiquée des méthodes de substitution de caractères, jusqu'au processus des fameux Enigma. Avec de l'informatique, c'est facile.

Cela devient déjà plus difficile de crypter des informations quelconques. Fichiers binaires tels de des photos, des plans, des bases de données etc, surtout si les volumes augmentent. On a alors recours à des algorithmes beaucoup plus complexes qui ont pour effet de rendre immédiatement "incompréhensible" le fichier en question qui est alors crypté en sa totalité - c'est l'information elle-même qui est cryptée et non incluse dans un fichier qui sert de véhicule. Il y a de multiples algorithmes, à simple ou double clé, clés binaires ou texte, etc. Je m'y suis essayé également, et le résultat sont deux fonctions dans KGF.dll qui traitent ce problème. Cryptage de fichiers binaires de n'importe quelle longueur, sur-cryptage de fichiers déjà cryptés etc. Sans grande utilité, juste un exercice de style. Mais j'ai trouvé cela passionnant, et je suis tout ce qui se fait dans ce sens, sur le forum. Et la petite procédure de notre ami JL35 est un parfait exemple de faire quelque chose de très spectaculaire en Panoramic. Bravo, JL35 !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
JL35



Nombre de messages : 6289
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Camoufler un fichier texte dans une image   Mar 2 Déc 2014 - 0:26

Tu as bien compris que je n'avais pas le sentiment d'avoir inventé un procédé inviolable, c'est juste le côté amusant (une image) et ça peut certainement résister à la curiosité des personnes non spécialement outillées pour le décodage.
Et pour des fichiers texte pas trop conséquents, genre liste de mots de passe, ou quelque chose comme ça, difficiles à interpréter en dehors de leur contexte par une personne autre que l'auteur.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur En ligne
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Camoufler un fichier texte dans une image   Mar 2 Déc 2014 - 0:48

Exact, JL35. C'est bien ce que j'ai dit. C'était juste pour planter un peu le contexte...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
JL35



Nombre de messages : 6289
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Camoufler un fichier texte dans une image   Mar 2 Déc 2014 - 14:41

Quoi qu'il en soit Klaus, en tout cas merci pour les deux fonctions de KGF.dll File to string et String to file (j'abrège) qui me sont vraiment utiles (indispensables) pour les bricolages dans les fichiers binaires.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur En ligne
Contenu sponsorisé




MessageSujet: Re: Camoufler un fichier texte dans une image   

Revenir en haut Aller en bas
 
Camoufler un fichier texte dans une image
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Camoufler un fichier texte dans une image
» Écrire un texte dans une image
» Ajouter du texte dans un textbox . [ RESOLU ]
» Importer un fichier .img dans basecamp ? (Résolu)
» quel fichier dans quel dossier

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: