STEGANOGRAPHIE BASIQUE

alias stegano_m {
  var %file $$sfile($+($left($mircdir,1),:\),Selectionnez l'image qui servira de support)                             
  var %final $?="Entrez le nom/chemin du fichier qui sera créé [meme extension que le fichier support]"                    | if (!%final) halt
  var %hide $$sfile($+($left($mircdir,1),:\),Selectionnez le fichier a cacher)                                          
  if ($exists(%final)) {
    echo -a 4(?) Le fichier %final existant, le fichier crée se nomme desormais $+(%final,.double) 4(?)
    %final = %final $+ .double
  }   
  echo -a ---------------------------------------------------------------
  echo -a Masquage en cours...

  %file = $+(",%file,") | %hide = $+(",%hide,") | %final = $+(",%final,")
  .copy %file %final
  write %final F?J?X $+ $crlf $+ $remove(%hide,")
  .copy -a %hide %final
  var %total $file(%file)
  write %final $chr(126) $+ %total 


  echo -a Operation terminée !
  echo -a Le fichier %final contenant le fichier %hide  a été crée avec succes !
  echo -a ---------------------------------------------------------------
}


alias stegano_dm {
  var %file $$sfile($+($left($mircdir,1),:\),Selectionnez l'image contenant le fichier masqué)
  var %file = $+(",%file,")
  var %filetmp $+($left($mircdir,1),:\recover.tmp)
  var %size $file(%file) , %tmp 0
  .fopen file %file
  while (%tmp <= 15) {
    .fseek file $calc(%size - %tmp)
    if ($chr($fgetc(file)) == $chr(126)) {
      var %pos $fopen(file).pos , %tmp2 2 , %debhide $null
      while ($calc(%pos + %tmp2) < %size) {
        var %debhide = %debhide $+ $chr($fgetc(file))
        inc %tmp2
      }
      break
    }
    inc %tmp 
  }
  if (!%debhide) { echo -a 4/!\ Le fichier %file ne contient pas de fichier masqué ! 4/!\ | .fclose file | halt }

  echo -a ---------------------------------------------------------------
  echo -a Récuperation en cours...

  bread %file %debhide %size &donnees
  bwrite %filetmp 1 $bvar(&donnees,0) &donnees
  var %chemin = $read(%filetmp,3)
  write -d11 %filetmp | write -dl2 %filetmp | write -dl0 %filetmp
  .fclose file 
  .rename %filetmp $+(",%chemin,.secret,")

  echo -a Le fichier $nopath($remove(%chemin,.secret)) a été recupéré !
  echo -a Chemin du fichier:  $+(",%chemin,.secret,") [extension .secret a supprimer]
  echo -a ---------------------------------------------------------------
}