CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 02 09 07:16:06

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

Sécurité & Cryptage

> POUR CACHER DU TEXTE DANS DU TEXTE(RTF). STÉGANOGRAPHIE. [BORLAND 5, BCB]

POUR CACHER DU TEXTE DANS DU TEXTE(RTF). STÉGANOGRAPHIE. [BORLAND 5, BCB]

Information sur la source

Note :
Aucune note

Catégorie :Sécurité & Cryptage Niveau :Initié Date de création :25/06/2004 Vu / téléchargé :4 324 / 220

Auteur : NikatorS

Ecrire un message privé

Commentaire sur cette source (13)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Vous souhaitez cacher un message sans que personne ne puisse soupçonner son existence : c'est possible !
Il y a plusieurs façons de faire. Ce programme montre comment cacher un texte non formaté dans un document au format RTF (Rich Text Format);

Désoler pour les puristes, comme je ne voulais me casser le tête pour les allocations de mémoire, je me suis servi de l'AnsiString de Borland pour mes chaînes de caractères. (Il faut faire le passage en char).

Le principe de basse est assez simple. On ce sert des lettres du document RTF pour cacher notre message. La taille est toujours fixée à 16 sauf quand on veut utilisé une lettre : cette dernière passe alors à 16,5.
C'est ce morceau de code que vous pouvez lire ci-dessous.
Pour le reste, l'interface graphique et les améliorations consulter le zip.

Dans quelques jours un autre type de stéganographie(Cacher des données dans des données) devrait voir le jour : Comment cacher un fichier quelconque dans une image BMP.

Source

AnsiString TexteO, TexteM; // Texte Original et Texte Modifié
long CaractereReste; // nombre de caratère restant à intègrer
long first; // fin de la config debut hypotètique du texte voir le zip ou l'initialiser à 0
void __fastcall TTexteChild::Integrer(void)
{
AnsiString t, tmp = " ", MessageO, CaractO;
long length, len, pass;
int ind, i, NCR;
bool caract;
Compter();
for (length=1;length<=TexteO.Length();length++) { // mise a la bonne taille des caractère
if ((TexteO[length] == '\\') && (TexteO[length+1] == 'f') && (TexteO[length+2] == 's') && (TexteO[length+3] >= '0') && (TexteO[length+3] <= '9')) {
t = t + "\\fs32";
length+=2;
while ((TexteO[length+1] != '\\') && (TexteO[length+1] != ' '))
length++;
} else {
tmp[1] = TexteO[length];
t = t + tmp;
}
}
TexteM = t;
t = "";
bool parant = false;
for (length=1;length<=TexteM.Length();length++) { // supression des "{\fs09" "}"
if ((TexteM[length] == '{') && (TexteM[length+1] == '\\') && (TexteM[length+2] == 'f') && (TexteM[length+3] == 's') && (TexteM[length+4] >= '0') && (TexteM[length+4] <= '9')) {
length+=3;
parant = true;
while ((TexteM[length] != ' '))
length++;
} else if ((TexteM[length] == '}') && (TexteM[length-1] != '\\')){
if (parant == false) {
tmp[1] = TexteM[length];
t = t + tmp;
}
parant = false;
} else {
tmp[1] = TexteM[length];
t = t + tmp;
}
}
TexteM = t;
t = "";
for (length=1;length<=Memo1->Text.Length();length++) { // enleve '\n'
if (Memo1->Text[length] != '\n') {
tmp[1] = Memo1->Text[length];
MessageO = MessageO + tmp;
}
}
len = MessageO.Length();
if (len == 0) {
CaractereReste = 0;
goto fin;
}
tmp[1] = MessageO[1];
CaractO = CharStrToRtf(tmp);
MessageO = MessageO + " ";
ind = 1;
pass = 0;
for (length=1;length<first;length++) {
tmp[1] = TexteM[length];
t = t + tmp;
}
for (length=first;length<=TexteM.Length();length++) {// integration
if ((TexteM[length] == '\\') && // configuration du texte : ne pas toucher
(!((TexteM[length+1] == '\'') || (TexteM[length+1] == '{') || (TexteM[length+1] == '}')))) {
tmp[1] = TexteM[length];
t = t + tmp;
while ((TexteM[length+1] != '\\') && (TexteM[length+1] != ' ')) {
length++;
tmp[1] = TexteM[length];
t = t + tmp;
}
} else { // c'est du texte visible
if ( ((CaractO == " ") || (CaractO == "\r")) && (ind <= len)) { // 2 ou 3 caract visuel ( 2 = ' ', 3 = "\r\n" = "\par"
t = t + CaractereRtf(TexteM,length);
if (CaractO == " ")
i = 2;
else
i = 3;
t = t + "\\fs33 ";
while (i > 0) {
length++;
t = t + CaractereRtf(TexteM,length);
i--;
}
t = t + "\\fs32 ";
ind++;
tmp[1] = MessageO[ind];
if ((tmp == "\r") || (tmp == " "))
CaractO = tmp;
else
CaractO = CharStrToRtf(tmp);
CaractereReste--;
pass = 0;
} else {
if ((TexteM[length] == CaractO[1]) && (ind <= len) && (pass > 3)) {
if (CaractO.Length() == 1) { // 1 caract visuel
t = t + "\\fs33 " + CaractO + "\\fs32 ";
} else { // plusieur caract formant 1 visuel
caract = true;
if (length+i < TexteM.Length()) {
i = CaractO.Length();
while (i > 2) {
if (CaractO[i] != TexteM[length+i-1]) {
caract = false;
break;
}
i--;
}
} else
caract = false;
if (caract == true) {
t = t + "\\fs33 " + CaractO + "\\fs32 ";
}
}
if ((CaractO.Length() == 1) || ((CaractO.Length() > 1) && (caract == true)) ) {
ind++;
tmp[1] = MessageO[ind];
if ((tmp == "\r") || (tmp == " "))
CaractO = tmp;
else
CaractO = CharStrToRtf(tmp);
CaractereReste--;
pass = 0;
}
} else {
tmp[1] = TexteM[length];
t = t + tmp;
pass++;
}
}
}
}
TexteM = t;
}
//---------------------------------------------------------------------------
void __fastcall TTexteChild::Extraire(void)
{
AnsiString t, tmp = " ";
long length;
bool Codee;
Codee = true;
for (length=1;length<=TexteO.Length();length++) { // le texte est-il bien codé
if ((TexteO[length] == '\\') && (TexteO[length+1] == 'f') && (TexteO[length+2] == 's')) {
if (!((TexteO[length+3] == '3') && (TexteO[length+4] >= '1') && (TexteO[length+4] <= '3'))) {
Codee = false;
break;
}
}
}
if (Codee == false) {
Memo1->Text = ""; // il n'y a pas de message
return;
}
for (length=1;length<=TexteO.Length();length++) {// extraction
if ((TexteO[length] == '\\') && // mise en forme : ne pas toucher
(!((TexteO[length+1] == '\'') || (TexteO[length+1] == '{') || (TexteO[length+1] == '}') ||
((TexteO[length+1] == 'f') && (TexteO[length+2] == 's') && (TexteO[length+3] >= '0') && (TexteO[length+3] <= '9'))
))) {
while ((TexteO[length+1] != '\\') && (TexteO[length+1] != ' ')) {
length++;
}
} else { // c'est du texte
if ((TexteO[length] == '\\') && (TexteO[length+1] == 'f') && (TexteO[length+2] == 's') && (TexteO[length+3] == '3') && (TexteO[length+4] == '3') && (TexteO[length+5] == ' ')) {
switch (NbCaractRtf(TexteO,length,tmp))
{
case 1 : t = t + tmp;
break;
case 2 : t = t + " ";
break;
case 3 : t = t + "\r\n";
break;
}
}
}
}
TexteM = t;
}
//---------------------------------------------------------------------------
AnsiString __fastcall TTexteChild::CharStrToRtf(AnsiString Valeur)
{
AnsiString t;
switch (Valeur[1])
{
case '{' : t = "\\{";
break;
case '}' : t = "\\}";
break;
case '\\' : t = "\\\\";
break;
case '½' : t = "\\'9c";
break;
case '¡' : t = "\\'a1";
break;
case '¢' : t = "\\'a2";
break;
case '£' : t = "\\'a3";
break;
case '?' : t = "\\'a4";
break;
case '¥' : t = "\\'a5";
break;
case 'S' : t = "\\'a6";
break;
case '§' : t = "\\'a7";
break;
case 's' : t = "\\'a8";
break;
case '©' : t = "\\'a9";
break;
case 'ª' : t = "\\'aa";
break;
case '®' : t = "\\'ae";
break;
case '¯' : t = "\\'af";
break;
case '°' : t = "\\'b0";
break;
case '±' : t = "\\'b1";
break;
case '²' : t = "\\'b2";
break;
case '³' : t = "\\'b3";
break;
case 'µ' : t = "\\'b5";
break;
case '·' : t = "\\'b7";
break;
case '¹' : t = "\\'b9";
break;
case 'º' : t = "\\'ba";
break;
case 'O' : t = "\\'bc";
break;
case 'o' : t = "\\'bd";
break;
case 'Y' : t = "\\'be";
break;
case '¿' : t = "\\'bf";
break;
case 'À' : t = "\\'c0";
break;
case 'Á' : t = "\\'c1";
break;
case 'Â' : t = "\\'c2";
break;
case 'Ã' : t = "\\'c3";
break;
case 'Ä' : t = "\\'c4";
break;
case 'Å' : t = "\\'c5";
break;
case 'Æ' : t = "\\'c6";
break;
case 'Ç' : t = "\\'c7";
break;
case 'È' : t = "\\'c8";
break;
case 'É' : t = "\\'c9";
break;
case 'Ê' : t = "\\'ca";
break;
case 'Ë' : t = "\\'cb";
break;
case 'Ì' : t = "\\'cc";
break;
case 'Í' : t = "\\'cd";
break;
case 'Î' : t = "\\'ce";
break;
case 'Ï' : t = "\\'cf";
break;
case 'Ð' : t = "\\'d0";
break;
case 'Ñ' : t = "\\'d1";
break;
case 'Ò' : t = "\\'d2";
break;
case 'Ó' : t = "\\'d3";
break;
case 'Ô' : t = "\\'d4";
break;
case 'Õ' : t = "\\'d5";
break;
case 'Ö' : t = "\\'d6";
break;
case '×' : t = "\\'d7";
break;
case 'Ø' : t = "\\'d8";
break;
case 'Ù' : t = "\\'d9";
break;
case 'Ú' : t = "\\'da";
break;
case 'Û' : t = "\\'db";
break;
case 'Ü' : t = "\\'dc";
break;
case 'Ý' : t = "\\'dd";
break;
case 'Þ' : t = "\\'de";
break;
case 'ß' : t = "\\'df";
break;
case 'à' : t = "\\'e0";
break;
case 'á' : t = "\\'e1";
break;
case 'â' : t = "\\'e2";
break;
case 'ã' : t = "\\'e3";
break;
case 'ä' : t = "\\'e4";
break;
case 'å' : t = "\\'e5";
break;
case 'æ' : t = "\\'e6";
break;
case 'ç' : t = "\\'e7";
break;
case 'è' : t = "\\'e8";
break;
case 'é' : t = "\\'e9";
break;
case 'ê' : t = "\\'ea";
break;
case 'ë' : t = "\\'eb";
break;
case 'ì' : t = "\\'ec";
break;
case 'í' : t = "\\'ed";
break;
case 'î' : t = "\\'ee";
break;
case 'ï' : t = "\\'ef";
break;
case 'ð' : t = "\\'f0";
break;
case 'ñ' : t = "\\'f1";
break;
case 'ò' : t = "\\'f2";
break;
case 'ó' : t = "\\'f3";
break;
case 'ô' : t = "\\'f4";
break;
case 'õ' : t = "\\'f5";
break;
case 'ö' : t = "\\'f6";
break;
case '÷' : t = "\\'f7";
break;
case 'ø' : t = "\\'f8";
break;
case 'ù' : t = "\\'f9";
break;
case 'ú' : t = "\\'fa";
break;
case 'û' : t = "\\'fb";
break;
case 'ü' : t = "\\'fc";
break;
case 'ý' : t = "\\'fd";
break;
case 'þ' : t = "\\'fe";
break;
case 'ÿ' : t = "\\'ff";
break;
case '\r' : t = "\\par\r";
break;
default: t = Valeur;
}
return t;
}
//---------------------------------------------------------------------------
AnsiString __fastcall TTexteChild::CaractereRtf(AnsiString TextRTF, long &Position)
{
long pos;
AnsiString CarRtf, tmp = " ";
bool fin;
pos = Position;
fin = false;
do {
tmp[1] = TextRTF[pos];
CarRtf = CarRtf + tmp;
switch (TextRTF[pos])
{
case '\\': pos++;
tmp[1] = TextRTF[pos];
switch (TextRTF[pos])
{
case '{': ;
case '}': ;
case '\\': CarRtf = CarRtf + tmp;
fin = true;
break;
case '\'': tmp = " ";
tmp[1] = TextRTF[pos+1];
tmp[2] = TextRTF[pos+2];
CarRtf = CarRtf + HexToInt(tmp);
tmp = " ";
pos+=2;
fin = true;
break;
case '~': pos++;
break;
default:
while((TextRTF[pos] != ' ') && (TextRTF[pos] != '\r') && (TextRTF[pos] != '\\')) {
tmp[1] = TextRTF[pos++];
CarRtf = CarRtf + tmp;
}
}
break;
case ' ': ;
case '\r': ;
case '\n': pos++;
break;
default: fin = true;
}
} while(fin == false);
Position = pos;
return CarRtf;
}
//---------------------------------------------------------------------------
int __fastcall TTexteChild::NbCaractRtf(AnsiString TextRTF, long pos, AnsiString &Caract)
{
int nb;
AnsiString fs32, tmp = " ";
bool fin;
nb = 0;
Caract = " ";
do {
switch (TextRTF[pos])
{
case '\\': pos++;
fs32 = "";
switch (TextRTF[pos])
{
case '{': ;
case '}': ;
case '\\': nb++;
case '~': pos++; // '°' => espace fait par word avant '!' et '?'
break;
case '\'': pos++;
break;
default:
while((TextRTF[pos] != ' ') && (TextRTF[pos] != '\r') && (TextRTF[pos] != '\\')) {
tmp[1] = TextRTF[pos++];
fs32 = fs32 + tmp;
}
}
break;
case ' ': ;
case '\r': ;
case '\n': pos++;
break;
default: nb++;
pos++;
}
if ((nb == 1) && (fs32 != "fs32"))
Caract[1] = TextRTF[pos-1];
} while(fs32 != "fs32");
return nb;
}
//---------------------------------------------------------------------------
const AnsiString Hexa = "0123456789ABCDEF";
double __fastcall TTexteChild::HexToInt(AnsiString Valeur)
{
double exp, convert;
int i, curs;
Valeur = Valeur.UpperCase();
exp = 1;
convert = 0;
for( i=Valeur.Length(); i>0; i--) {
curs = 1;
while( Valeur[i] != Hexa[curs]) curs++;
convert += (curs-1) * exp;
exp *= 16;
}
return convert;
}
//---------------------------------------------------------------------------

AnsiString TexteO, TexteM; // Texte Original et Texte Modifié
long CaractereReste; // nombre de caratère restant à intègrer
long first; // fin de la config debut hypotètique du texte voir le zip ou l'initialiser à 0


void __fastcall TTexteChild::Integrer(void)
{
AnsiString t, tmp = " ", MessageO, CaractO;
long length, len, pass;
int ind, i, NCR;
bool caract;

    Compter();
    for (length=1;length<=TexteO.Length();length++) { // mise a la bonne taille des caractère
        if ((TexteO[length] == '\\') && (TexteO[length+1] == 'f') && (TexteO[length+2] == 's') && (TexteO[length+3] >= '0') && (TexteO[length+3] <= '9')) {
            t = t + "\\fs32";
            length+=2;
            while ((TexteO[length+1] != '\\') && (TexteO[length+1] != ' '))
                length++;
        } else {
            tmp[1] = TexteO[length];
            t = t + tmp;
        }
    }
    TexteM = t;
    t = "";

bool parant = false;

    for (length=1;length<=TexteM.Length();length++) { // supression des "{\fs09" "}"
        if ((TexteM[length] == '{') && (TexteM[length+1] == '\\') && (TexteM[length+2] == 'f') && (TexteM[length+3] == 's') && (TexteM[length+4] >= '0') && (TexteM[length+4] <= '9')) {
            length+=3;
            parant = true;
            while ((TexteM[length] != ' '))
                length++;
        } else if ((TexteM[length] == '}') && (TexteM[length-1] != '\\')){
            if (parant == false) {
                tmp[1] = TexteM[length];
                t = t + tmp;
            }
            parant = false;
        } else {
            tmp[1] = TexteM[length];
            t = t + tmp;
        }
    }
    TexteM = t;
    t = "";

    for (length=1;length<=Memo1->Text.Length();length++) { // enleve '\n'
        if (Memo1->Text[length] != '\n') {
            tmp[1] = Memo1->Text[length];
            MessageO = MessageO + tmp;
        }
    }

    len = MessageO.Length();

    if (len == 0) {
        CaractereReste = 0;
        goto fin;
    }

    tmp[1] = MessageO[1];
    CaractO = CharStrToRtf(tmp);
    MessageO = MessageO + " ";

    ind = 1;
    pass = 0;

    for (length=1;length<first;length++) {
        tmp[1] = TexteM[length];
        t = t + tmp;
    }
    for (length=first;length<=TexteM.Length();length++) {// integration
        if ((TexteM[length] == '\\') &&  // configuration du texte : ne pas toucher
            (!((TexteM[length+1] == '\'') || (TexteM[length+1] == '{') || (TexteM[length+1] == '}')))) {

             tmp[1] = TexteM[length];
             t = t + tmp;
             while ((TexteM[length+1] != '\\') && (TexteM[length+1] != ' ')) {
                length++;
                tmp[1] = TexteM[length];
                t = t + tmp;
             }
        } else { // c'est du texte visible

            if ( ((CaractO == " ") || (CaractO == "\r")) && (ind <= len)) { // 2 ou 3 caract visuel  ( 2 = ' ', 3 = "\r\n" = "\par"
                t = t + CaractereRtf(TexteM,length);

                if (CaractO == " ")
                    i = 2;
                else
                    i = 3;

                t = t + "\\fs33 ";
                while (i > 0) {
                    length++;
                    t = t + CaractereRtf(TexteM,length);
                    i--;
                }
                t = t + "\\fs32 ";

                ind++;
                tmp[1] = MessageO[ind];
                if ((tmp == "\r") || (tmp == " "))
                    CaractO = tmp;
                else
                    CaractO = CharStrToRtf(tmp);
                CaractereReste--;
                pass = 0;

            } else  {
                if ((TexteM[length] == CaractO[1]) && (ind <= len) && (pass > 3)) {
                    if (CaractO.Length() == 1) { // 1 caract visuel
                        t = t + "\\fs33 " + CaractO + "\\fs32 ";

                    } else {                    // plusieur caract formant 1 visuel
                        caract = true;
                        if (length+i < TexteM.Length()) {
                            i = CaractO.Length();
                            while (i > 2) {
                                if (CaractO[i] != TexteM[length+i-1]) {
                                    caract = false;
                                    break;
                                }
                                i--;
                            }
                        } else
                            caract = false;

                        if (caract == true) {
                            t = t + "\\fs33 " + CaractO + "\\fs32 ";
                        }
                    }

                    if ((CaractO.Length() == 1) || ((CaractO.Length() > 1) && (caract == true)) ) {
                        ind++;
                        tmp[1] = MessageO[ind];
                        if ((tmp == "\r") || (tmp == " "))
                            CaractO = tmp;
                        else
                            CaractO = CharStrToRtf(tmp);
                        CaractereReste--;
                        pass = 0;
                    }
                } else {
                    tmp[1] = TexteM[length];
                    t = t + tmp;
                    pass++;
                }
            }
        }
    }
    TexteM = t;
}
//---------------------------------------------------------------------------

void __fastcall TTexteChild::Extraire(void)
{
AnsiString t, tmp = " ";
long length;
bool Codee;

    Codee = true;
    for (length=1;length<=TexteO.Length();length++) { // le texte est-il bien codé
        if ((TexteO[length] == '\\') && (TexteO[length+1] == 'f') && (TexteO[length+2] == 's')) {
            if (!((TexteO[length+3] == '3') && (TexteO[length+4] >= '1') && (TexteO[length+4] <= '3'))) {
                Codee = false;
                break;
            }
        }
    }

    if (Codee == false) {
        Memo1->Text = ""; // il n'y a pas de message
        return;
    }

    for (length=1;length<=TexteO.Length();length++) {// extraction
         if ((TexteO[length] == '\\') &&  // mise en forme : ne pas toucher
             (!((TexteO[length+1] == '\'') || (TexteO[length+1] == '{') || (TexteO[length+1] == '}') ||
              ((TexteO[length+1] == 'f') && (TexteO[length+2] == 's') && (TexteO[length+3] >= '0') && (TexteO[length+3] <= '9'))
              ))) {
             while ((TexteO[length+1] != '\\') && (TexteO[length+1] != ' ')) {
                length++;
             }
         } else { // c'est du texte
             if ((TexteO[length] == '\\') && (TexteO[length+1] == 'f')  && (TexteO[length+2] == 's') && (TexteO[length+3] == '3') && (TexteO[length+4] == '3') && (TexteO[length+5] == ' ')) {
                switch (NbCaractRtf(TexteO,length,tmp))
                {
                  case 1 : t = t + tmp;
                  break;
                  case 2 : t = t + " ";
                  break;
                  case 3 : t = t + "\r\n";
                  break;
                }

             }
         }
    }

    TexteM = t;
}
//---------------------------------------------------------------------------

AnsiString __fastcall TTexteChild::CharStrToRtf(AnsiString Valeur)
{
AnsiString t;

    switch (Valeur[1])
    {
      case '{' : t = "\\{";
      break;
      case '}' : t = "\\}";
      break;
      case '\\' : t = "\\\\";
      break;
      case '½' : t = "\\'9c";
      break;
      case '¡' : t = "\\'a1";
      break;
      case '¢' : t = "\\'a2";
      break;
      case '£' : t = "\\'a3";
      break;
      case '?' : t = "\\'a4";
      break;
      case '¥' : t = "\\'a5";
      break;
      case 'S' : t = "\\'a6";
      break;
      case '§' : t = "\\'a7";
      break;
      case 's' : t = "\\'a8";
      break;
      case '©' : t = "\\'a9";
      break;
      case 'ª' : t = "\\'aa";
      break;
      case '®' : t = "\\'ae";
      break;
      case '¯' : t = "\\'af";
      break;
      case '°' : t = "\\'b0";
      break;
      case '±' : t = "\\'b1";
      break;
      case '²' : t = "\\'b2";
      break;
      case '³' : t = "\\'b3";
      break;
      case 'µ' : t = "\\'b5";
      break;
      case '·' : t = "\\'b7";
      break;
      case '¹' : t = "\\'b9";
      break;
      case 'º' : t = "\\'ba";
      break;
      case 'O' : t = "\\'bc";
      break;
      case 'o' : t = "\\'bd";
      break;
      case 'Y' : t = "\\'be";
      break;
      case '¿' : t = "\\'bf";
      break;
      case 'À' : t = "\\'c0";
      break;
      case 'Á' : t = "\\'c1";
      break;
      case 'Â' : t = "\\'c2";
      break;
      case 'Ã' : t = "\\'c3";
      break;
      case 'Ä' : t = "\\'c4";
      break;
      case 'Å' : t = "\\'c5";
      break;
      case 'Æ' : t = "\\'c6";
      break;
      case 'Ç' : t = "\\'c7";
      break;
      case 'È' : t = "\\'c8";
      break;
      case 'É' : t = "\\'c9";
      break;
      case 'Ê' : t = "\\'ca";
      break;
      case 'Ë' : t = "\\'cb";
      break;
      case 'Ì' : t = "\\'cc";
      break;
      case 'Í' : t = "\\'cd";
      break;
      case 'Î' : t = "\\'ce";
      break;
      case 'Ï' : t = "\\'cf";
      break;
      case 'Ð' : t = "\\'d0";
      break;
      case 'Ñ' : t = "\\'d1";
      break;
      case 'Ò' : t = "\\'d2";
      break;
      case 'Ó' : t = "\\'d3";
      break;
      case 'Ô' : t = "\\'d4";
      break;
      case 'Õ' : t = "\\'d5";
      break;
      case 'Ö' : t = "\\'d6";
      break;
      case '×' : t = "\\'d7";
      break;
      case 'Ø' : t = "\\'d8";
      break;
      case 'Ù' : t = "\\'d9";
      break;
      case 'Ú' : t = "\\'da";
      break;
      case 'Û' : t = "\\'db";
      break;
      case 'Ü' : t = "\\'dc";
      break;
      case 'Ý' : t = "\\'dd";
      break;
      case 'Þ' : t = "\\'de";
      break;
      case 'ß' : t = "\\'df";
      break;
      case 'à' : t = "\\'e0";
      break;
      case 'á' : t = "\\'e1";
      break;
      case 'â' : t = "\\'e2";
      break;
      case 'ã' : t = "\\'e3";
      break;
      case 'ä' : t = "\\'e4";
      break;
      case 'å' : t = "\\'e5";
      break;
      case 'æ' : t = "\\'e6";
      break;
      case 'ç' : t = "\\'e7";
      break;
      case 'è' : t = "\\'e8";
      break;
      case 'é' : t = "\\'e9";
      break;
      case 'ê' : t = "\\'ea";
      break;
      case 'ë' : t = "\\'eb";
      break;
      case 'ì' : t = "\\'ec";
      break;
      case 'í' : t = "\\'ed";
      break;
      case 'î' : t = "\\'ee";
      break;
      case 'ï' : t = "\\'ef";
      break;
      case 'ð' : t = "\\'f0";
      break;
      case 'ñ' : t = "\\'f1";
      break;
      case 'ò' : t = "\\'f2";
      break;
      case 'ó' : t = "\\'f3";
      break;
      case 'ô' : t = "\\'f4";
      break;
      case 'õ' : t = "\\'f5";
      break;
      case 'ö' : t = "\\'f6";
      break;
      case '÷' : t = "\\'f7";
      break;
      case 'ø' : t = "\\'f8";
      break;
      case 'ù' : t = "\\'f9";
      break;
      case 'ú' : t = "\\'fa";
      break;
      case 'û' : t = "\\'fb";
      break;
      case 'ü' : t = "\\'fc";
      break;
      case 'ý' : t = "\\'fd";
      break;
      case 'þ' : t = "\\'fe";
      break;
      case 'ÿ' : t = "\\'ff";
      break;
      case '\r' : t = "\\par\r";
      break;
      default: t = Valeur;
    }

    return t;
}
//---------------------------------------------------------------------------

AnsiString __fastcall TTexteChild::CaractereRtf(AnsiString TextRTF, long &Position)
{
long pos;
AnsiString CarRtf, tmp = " ";
bool fin;

    pos = Position;
    fin = false;
    do {
        tmp[1] = TextRTF[pos];
        CarRtf = CarRtf + tmp;
        switch (TextRTF[pos])
        {
          case '\\': pos++;
                tmp[1] = TextRTF[pos];
                switch (TextRTF[pos])
                {
                  case '{': ;
                  case '}': ;
                  case '\\': CarRtf = CarRtf + tmp;
                        fin = true;
                  break;
                  case '\'': tmp = "  ";
                        tmp[1] = TextRTF[pos+1];
                        tmp[2] = TextRTF[pos+2];
                        CarRtf = CarRtf + HexToInt(tmp);
                        tmp = " ";
                        pos+=2;
                        fin = true;
                  break;
                  case '~': pos++;
                  break;
                 default:
                        while((TextRTF[pos] != ' ') && (TextRTF[pos] != '\r') && (TextRTF[pos] != '\\')) {
                            tmp[1] = TextRTF[pos++];
                            CarRtf = CarRtf + tmp;
                        }
                }

          break;
          case ' ': ;
          case '\r': ;
          case '\n': pos++;
          break;
          default: fin = true;
        }

    } while(fin == false);

    Position = pos;
    return CarRtf;

}
//---------------------------------------------------------------------------

int __fastcall TTexteChild::NbCaractRtf(AnsiString TextRTF, long pos, AnsiString &Caract)
{
int nb;
AnsiString fs32, tmp = " ";
bool fin;

    nb = 0;
    Caract = " ";
    do {
        switch (TextRTF[pos])
        {
          case '\\': pos++;
                fs32 = "";
                switch (TextRTF[pos])
                {
                  case '{': ;
                  case '}': ;
                  case '\\': nb++;
                  case '~': pos++; // '°' => espace fait par word avant '!' et '?'
                  break;
                  case '\'': pos++;
                  break;
                  default:
                        while((TextRTF[pos] != ' ') && (TextRTF[pos] != '\r') && (TextRTF[pos] != '\\')) {
                            tmp[1] = TextRTF[pos++];
                            fs32 = fs32 + tmp;
                        }
                }

          break;
          case ' ': ;
          case '\r': ;
          case '\n': pos++;
          break;
          default: nb++;
                pos++;
        }
        if ((nb == 1) && (fs32 != "fs32"))
            Caract[1] = TextRTF[pos-1];

    } while(fs32 != "fs32");

    return nb;

}
//---------------------------------------------------------------------------

const AnsiString Hexa = "0123456789ABCDEF";

double __fastcall TTexteChild::HexToInt(AnsiString Valeur)
{
double exp, convert;
int i, curs;

    Valeur = Valeur.UpperCase();
    exp = 1;
    convert = 0;
    for( i=Valeur.Length(); i>0; i--) {
        curs = 1;
        while( Valeur[i] != Hexa[curs]) curs++;
        convert += (curs-1) * exp;
        exp *= 16;
    }
    return convert;
}
//---------------------------------------------------------------------------

Conclusion

On pourrait ajouter des options de cryptographie, je le ferais peut-être.

Pendant les vacances scolaires je suis pas souvent sur le net, alors je repondrai quand même à vos questions mais avec du retard.
25/06/2004

Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

IntegreAllTop.cpp 1 560 octets
IntegreAllTop.dfm1 323 octets
IntegreAllTop.h 1 125 octets
Preview.cpp 1 338 octets
Preview.dfm839 octets
Preview.h 1 090 octets
sLecon01.cpp 11 136 octets
sLecon01.dfm39 344 octets
sLecon01.h 3 924 octets
sLecon01child.cpp 34 735 octets
sLecon01child.dfm2 918 octets
sLecon01child.h 2 745 octets
sLecon01CosoleChild.cpp 704 octets
sLecon01CosoleChild.dfm617 octets
sLecon01CosoleChild.h 906 octets
Stegano01.bpr2 707 octets
Stegano01.cpp 975 octets
Stegano01.exe572 928 octets
Stegano01.res2 092 octets

Télécharger le zip

Sources du même auteur

CACHER UN FICHIER DANS UNE IMAGE BMP (8, 16, 24 ET 32 BITS)....

Toutes les sources de NikatorS

Sources de la même categorie

PROJET DE CRYPTOGRAPHIE: RSA À JEU REDUIT D'INSTRUCTION par samatarahmed

CRYPTOSYSTÈME ELGAMAL LIBRAIRIE GMP par louelh95

NOUVEL ALGORITHME D'ENCRYPTION-DÉSENCRYPTION DYNAMIQUE (INFA... par vletktol

A2DCRYPT - CRYPTAGE 2048 BITS par darkor

CRYPTEUR-DÉCRYPTEUR-IP par antho974

Toutes les sources de la catégorie Sécurité & Cryptage

Commentaires et avis

Commentaire de neo_00110010101 le 25/06/2004 20:07:18

faudrait que tu expliques la démarche à suivre parce que pour l'instant j'ai enregistré un *.rtf avec du texte, je l'ai ouvert avec Word et il n'y avait rien (tout va bien) par contre quand je l'ouvre avec ton programme, erreur !

Commentaire de NikatorS le 26/06/2004 20:52:15

il faut charger un texte (rtf) et un message (txt) dans le menu projet
puis toujours dans le menu projet on integre.
ensuite on enregistre le nouveau fichier et l'on obtient le fichier avec le message caché.
(Le fichier RTF doit obligatoirement contenir un texte)

Pour extraire le message, il faut charger un texte (rtf) avec un message caché(dans le menu projet). ensuite on extrait (dans le menu projet) et le message apparait.

voila si tu à toujour un probleme envoi moi Le RTF et le message pour que je te disse ce qu'il ce passe.

Commentaire de neo_00110010101 le 27/06/2004 10:33:20

j'comprend pas tout car voilà ce qu'il me met :

Intégrer partiellement.
Il reste 3 caractère(s) à intégrer.
Le dernier caractère qui n'a pu être intégré est 'l'.
Choisissez un texte plus long ou un message plus court.

Commentaire de NikatorS le 27/06/2004 21:32:45

En fait des que l'integration commence le logiciel cherche dans le texte la premiere lettre du message. Des qu'il l'a trouver il passe à la suivante, et ainsi de suite. au point ou il en est le logiciel a parcourut tout le texte sans trouver 'l'.

Concretement choisit un texte different ou rallongé avec un autre texte(toujour au format RTF).

Commentaire de NikatorS le 27/06/2004 21:33:30

Commentaire de gilouBZH le 30/06/2004 13:41:36

pas mal mais je connais ce source je l'ai vu en periode de devellopement !

Bonne idée de le diffuser

Commentaire de coucou747 le 28/07/2004 02:01:49 administrateur CS

euh simple question, c'est pas plus logique de cacher ça dans un format multimédia ? je dirais me que l'idéal c'est le .wav car pas de compression = bcp de place libre pour cacher qqch pour moins de diférences repérables...

Commentaire de gilouBZH le 28/07/2004 13:59:53

ce source est donnée dans un but ludique c'est juste pour donner un exemple de stegano mais il est possible de dissimuler de dissimuler un texte dans plein de chose une image un wav un avi et plein d'autre chose (mais en dur dans un disque dur)

Commentaire de coucou747 le 28/07/2004 14:40:21 administrateur CS

oui évidement, je lançais seulement un défi
en fait, je t'expliques, je ne trouves pas la façon d'utiliser les .wav sur internet, ils n'expliquent pas grand chose sur ce format de musique peu compressé... J'adore toutes ces techniques stégano crypto etc... J'ai fait un programme de stégano pour cacher du texte dans les images bmp, je trouves mon programme plutot pas mal, les bmp sont des images parfaites pour cela, car elles laissetn pas mal de place.... Cependant, je me suis dit que les wav étaient un format de musique plutot peu compressé, donc ou l'on pouvait cacher bcp de choses, et en plus,n les wav ont un avantage par raport au bmp : une image bmp on l'a entièrement sous les yeux, un wav, on en écoute qu'une partie a un même moment, on écouyte pas tout le wav e nune seconde, donc on ne verra pas tout les défauts que la stégano y aura ajouté en même temps...

Donc, ne trouvant pas comment retoucher un wav en le laissant lisible et en le touchant le mons possible, j'ai posé ce comentaire en me disantque qqn pourrait essayer de m'indiquer comment faire ce programme ou le faire lui même...
(j'ai peut-être un peu manqué de tact excusez moi)

cependant ton programme n'ets pas mal du tout

Commentaire de NikatorS le 01/08/2004 18:10:23

Je te remercie coucou747, ce programme est le mien. L'idée de le créer à germer en classe avec gilouBZH et je l'ai fait. je te remercie gilou de répondre à ma place c'est sympa.

Quand à ton idée pour le .wav, elle me plait. gilouBZH t'en parlerai mieux que moi mais le wav est très semblable au bmp. Il ne compresse rien. Ce n'est pas le cas du mp3. Pour reprendre une expression de gilou, le mp3, c'est une oreille numérique. En fait le MP3 n'enregistre que les sons audibles par la plupart des gens. Donc mon idée est simple : si le MP3 ne s'en sert pas on peut les modifier dans un WAV. D'un point de vue technique je pense (ce n'est qu'une supposition) que le wav enregistre trois information pour un son unique : la fréquence, le volume et (ce qui n'est pas très probable) le nombre de fois que le son doit être répéter à la suite. Je t’invite avant de faire des recherches sur le WAV à en faire sur la nature même des sons (se sont des fréquences mécanique car elles ont besoins d’un support physique pour être émises (métal, bois, corde, membrane de HP) et pour être transporté (l’air)). Si ne trouve toujours rien oriente toi vers les explications sur le MP3 : tu pourrai cacher les infos dans l’octet qui code le volume. De plus, MP3 est bien plus répandu que le WAV, donc moins suspect.

Tiens moi au courant, je me passionne moi aussi de stégano. Mon prochain projet dans le domaine devrait être de cacher un fichier dans une JPEG. Bonne continuation.

Commentaire de coucou747 le 01/08/2004 18:42:50 administrateur CS

jpg, j'ai jamais essayé, mais je penses que les formats non compressés sont largement plus performants que les formats compressés pour las stégano.

Je n'ai jamais essayé le jpg, mais j'ai vu comment on compressait, voir login n ° je sais plsu combien, que je retrouve ce login, je vous donne le n°
Le jpg est très performant et très compliqué, donc, je ne m'y ataquerais vraiment pas...

Commentaire de NikatorS le 01/08/2004 19:46:27

C'est vrai les formats non compressés permettent de cacher plus facilement des informations, ils sont aussi plus facile comprendre. Seulement ils sont bien moins utilisé et donc soumis à une attention plus grande.

Example :
Je suis un industriel et je ne souhaite pas que mon concurant (voir le réseau échelon lui même) soit avisé d'un marché potentiel que je suis sur le point de remporter. Je veux envoyer un mail à mon associé. Je choisis une de mes photos de vacances et j'écris un message bidon convenu avec ce dernier. Vais je envyer un BMP ou une JPG ? Si j'envoi un BMP et que mon message est intercepté, je serais tout de suite repéré alors qu'avec une JPEG, c'est moins sûr.

Les formats non compréssés c'est bien pour se faire la main, mais après ça sert à quoi de faire de la stéganogaphie si c'est pour ce faire repéré direct ?

PS : Une adresse internet est la bien venu aussi.

Commentaire de gilouBZH le 08/08/2004 20:35:44

je ne tiens pas ca d'une source sure mais il me semble que le wav a une entetes et que dans celle ci il y a l'echantillonnage et d'autre renseignement comme la longueur du fichier et donc les API windows en lisant cette entete connaisse le nombre de frame donc il serai peut etre possible en modifiant cette derniere créer un fichier qui au lieu de x frame par s en aurrai x+1 ou x+0.1 (pour alterer un peu moins le fichier) ce qui aurait comme resultat que seule de rares personnes veraient la difference (c'est le meme principe que pour les image subliminale). il me semble egalement que le wav est code sur un octet qui contient la hauteur de la sortie (c'est le plus simple car en faisant varier la hauteur de sortie plus ou moins vite on fait varier la freqence le vol etc) voila ce que je pus lire sur internet pour le MP3 je vais chercher

Ajouter un commentaire

Nos sponsors

Derniers Blogs

[FRAMEWORK 4] LES TASKS ET LE THREAD UI par fathi

WORKFLOW FOUNDATION 3 A UN PIED DANS LA TOMBE par JeremyJeanson

TECHDAYS PARIS 2012 : NOUVELLES TENDANCES DU POSTE DE TRAVAIL - BRING YOUR OWN PC par ROMELARD Fabrice

TECHDAYS PARIS 2012 : SYSTEM CENTER SERVICE MANAGER 2012 VUE D'ENSEMBLE par ROMELARD Fabrice

TECHDAYS PARIS 2012 : PLEINIèRE SECOND JOUR par ROMELARD Fabrice

Forum

BSR JE CHERCHE UN CODE DE JEUX SUDOKO AVEC C par sassi1985

RE : COMMENT UTILISER LES MENUS WIN32 API C ? par ssefyou

RE : AIDE CODE C++ (ECRITURE, COMPARAISON DE CHAINES, REMPLACEMENT DE CHAINES DANS UN FICHIER ECT) par JosselynColombet

RE : QUEL EST LE MEILLEUR IPC(INTER PROCESSUS COMMUNICATIONS) SOUS WINDOWS ? par BruNews

RE : QUEL EST LE MEILLEUR IPC(INTER PROCESSUS COMMUNICATIONS) SOUS WINDOWS ? par LaTatadu91

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Fonctionnalites supplementaires sous Joomla
Budget : 800€
Animation interactive pour I phone
Budget : 2 000€
Site web pour projet Haiti
Budget : 10 000€

Logiciels

Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System
Easy-Planning (1.0.0.1)
EASY-PLANNING (1.0.0.1)

Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ...

Cliquez pour télécharger Easy-Planning
COLLECTOR PLUS (3.00B)
COLLECTOR PLUS (3.00B)

COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par : - L...

Cliquez pour télécharger COLLECTOR PLUS
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
LettresFaciles 2011 (8.0.0.1)
LETTRESFACILES 2011 (8.0.0.1)

LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types. Son inte...

Cliquez pour télécharger LettresFaciles 2011