Algorithme de cryptage de Blaise de Vigénère.

Sujet: Algorithme de cryptage de Blaise de Vigénère. Sam 12 Mar 2016 - 4:11

Ceci est le texte du code suivant, crypté par lui-même Difficile de le déchiffrer, hein ? :

Le programme utilise le répertoire en cours pour donner une liste des fichiers .bas et .txt
Vous pouvez crypter / décrypter vos fichiers.
Un fichier crypté portera l’extension .crp
Un fichier décrypté portera l’extension .dcrp

L’essentiel dans ce code réside dans la SUB Cryptage_Decryptage(Tex$, Clef$, Crypt) qui débute à la ligne 39.
Elle nécessite trois paramètres :
Tex$ : texte à crypter / décrypter
Clefs : clé de cryptage / décryptage : une chaine de caractères quelconque. Cette clé doit être la MEME pour le cryptage et le décryptage
Crypt : 1 ===> cryptage; toute autre valeur ====> décryptage.

Avec cette SUB vous pouvez crypter / décrypter tout fichier ASCII.

Code:: rem ============================================================================
rem rem Algorithme de cryptage de Blaise de Vigénère.
rem ============================================================================
label clic
dim t$,clef$,crypt,f$,fich$,ext$
width 0,800 : height 0,600
list 10 : width 10 , 300 : height 10,500 : top 10,50 : left 10,10 : font_bold 10 : on_click 10,clic
list 20 : width 20 , 300 : height 20,500 : top 20,50 : left 20,310 : font_bold 0 : on_click 20,clic

option 30 : top 30,100 : left 30,620 : caption 30,"Cryptage" : on_click 30,clic : mark_on 30
font_bold 30 : font_size 30,16 : width 30,150 : height 30,50 : font_color 30,0,0,255
option 40 : top 40,150 : left 40,620 : caption 40,"Décryptage": on_click 40,clic
font_bold 40 : font_size 40,16 : width 40,150 : height 40,50 : font_color 40,0,0,255
button 50 : top 50,250 : left 50,620 : font_bold 50 : caption 50,"Go" : on_click 50,clic : inactive 50
button 60 : top 60,300 : left 60,620 : font_bold 60 : caption 60,"Quitter" : on_click 60,clic
List_Fichier()
clef$ = "Papydall" : ' Clé de cryptage / décryptage : une chaine de caractères quelconques
   ' Cette clé doit être la MEME pour le cryptage et le décryptage
end
rem ============================================================================
clic:
   select number_click
   case 10 : Lecture()
   case 20 : Lecture()
   case 30 : crypt = 1
   case 40 : crypt = 0
   case 50
   if (ext$ = ".crp") and (crypt = 1) then message "Le fichier est déjà crypté !" : return
   if (ext$ = ".dcrp") and (crypt = 0) then message "Le fichier est déjà décrypté !": return
   Cryptage_Decryptage(T$, Clef$, Crypt) : Enregistrer()
   message "C'est fait !"
   case 60 : Quitter()
   end_select
return
rem ============================================================================
' Tex$ : texte à crypter / décrypter
' Clefs : clé de cryptage / décryptage
' Crypt : 1 ===> cryptage; toute autre valeur ====> décryptage
SUB Cryptage_Decryptage(Tex$, Clef$, Crypt)
   if variable("Text_Crypte$") <> 1 then dim Text_Crypte$
   if variable("Text_DCrypte$") <> 1 then dim Text_DCrypte$
   dim_local i, j, k, n, Lclef, alphabet$, Lalphabet,c$,p,L

   Text_Crypte$ = "" : Text_DCrypte$ = ""
   Lclef = len(Clef$) : if Lclef = 0 then exit_sub
   alphabet$ = chr$(13)
   for i = 32 to 255 : alphabet$ = alphabet$ + chr$(i) : next i
   Lalphabet = len(alphabet$) : L = len(Tex$)
   for i = 1 to L
   j = 1 + mod(i-1,Lclef) : c$ = mid$(clef$,j,1)
   k = instr_pos(alphabet$,c$,1) : c$ = mid$(Tex$,i,1)
   n = instr_pos(alphabet$,c$,1)
   if Crypt = 1
   p = 1 + mod(n+k-1,Lalphabet)
   Text_Crypte$ = Text_Crypte$ + mid$(alphabet$,p,1)
   else
   p = 1 + mod(Lalphabet+n-k-1,Lalphabet)
   Text_DCrypte$ = Text_DCrypte$ + mid$(alphabet$,p,1)
   end_if
   next i
   if len(Text_Crypte$) > 0 then Text_Crypte$ = left$(Text_Crypte$,len(Text_Crypte$)-1)
   if len(Text_DCrypte$) > 0 then Text_DCrypte$ = left$(Text_DCrypte$,len(Text_DCrypte$)-1)
END_SUB
rem ============================================================================
SUB List_Fichier()
   f$ = file_find_first$
   while f$ <> "_"
   if file_extract_extension$(f$) = ".bas" or file_extract_extension$(f$) = ".txt"
   item_add 10,f$
   else
   if file_extract_extension$(f$) = ".crp" or file_extract_extension$(f$) = ".dcrp"
   item_add 20,f$
   end_if
   end_if
   f$ = file_find_next$
   end_while
   file_find_close
END_SUB
rem ============================================================================
SUB Lecture()
   dim_local f$,a$,p
   f$ = item_read$(number_click,item_index(number_click))
   p = instr_pos(f$,".",1)
   fich$ = left$(f$,p-1)
   ext$ = file_extract_extension$(f$)
   t$ = ""
   file_open_read 1,f$
   while file_eof(1) <> 1
   file_readln 1,a$ : t$ = t$ + a$ + chr$(13)
   end_while
   file_close 1
   active 50
END_SUB
rem ============================================================================
SUB Enregistrer()
   dim_local f$
   if crypt = 1
   f$ = text_crypte$ : fich$ = fich$ + ".crp"
   else
   f$ = text_decrypte$ : fich$ = fich$ + ".dcrp"
   end_if
   if file_exists(fich$) = 1
   if message_confirmation_yes_no("Un fichier du même nom existe"+ chr$(13) + "Voulez_vous l'écraser ?") <> 1 then exit_sub
   end_if
   file_open_write 1 ,fich$
   if crypt = 1
   file_write 1,Text_Crypte$
   else
   file_write 1,Text_DCrypte$
   end_if
   file_close 1
END_SUB
rem ============================================================================
SUB Quitter()
   terminate
END_SUB
rem ============================================================================

Papydall, tu sais que tu pourrais faire un article avec ce programme ?
Il touche à plein de notions parfois un peu compliquer à comprendre quand on commence en Panoramic et en plus tu pourrais y développer l'explication du programme et l'algorithme et les principes du cryptage.

Testé et approuvé,
C'est simple et efficace.

Une remarque: juste pour chipoter, on ne demande pas la clé (surtout pour le décryptage) , mais je sais que c'est facile à faire soi-même.

Et merci à Blaise de Vigénère

Bravo Papydall.

Wikipédia : « Le chiffre de Vigenère est un système de chiffrement poly-alphabétique, c’est un chiffrement par substitution, mais une même lettre du message en clair peut, suivant sa position dans celui-ci, être remplacée par des lettres différentes, contrairement à un système de chiffrement mono-alphabétique comme le chiffre de César (qu‘il utilise cependant comme composant). »

L’outil du chiffrement est la « table de Vigénère » qui se contente des 26 lettes majuscules de l’alphabet, ce qui est pour moi très insuffisant pour coder un texte qui se respecte.
J’ai pris l’idée de cette table en l’élargissant sur tout le code ASCII (les caractères affichables de 32 à 255 auxquels j’ai ajouté le caractère 13 (retour à la ligne).

La grande caractéristique du code de Vigénère c’est qu’une même lettre (dans le texte en clair) est codée par des lettres différentes ce qui fait qu’il est impossible par une analyse statistique de retrouver cette lettre.
Mais cela ne veut pas dire que ce cryptage est « incassable »

Il est cependant efficace pour crypter / décrypter vos textes (mots de passe, code Panoramic, votre déclaration d’amour à votre dulcinée, etc.)

Jicehel a écrit:: Papydall, tu sais que tu pourrais faire un article avec ce programme ?

Ce n'est pas l'envie qui m'en manque !

Jean Claude a écrit:: Une remarque: juste pour chipoter, on ne demande pas la clé (surtout pour le décryptage) , mais je sais que c'est facile à faire soi-même.

Chipote cher ami tant que tu voudras, c’est bon signe : ça veut dire que tu t’intéresses à ce que je fais et je t'en remercie.
On ne demande pas la clé (ni la clef) parce qu’elle est définie dans le code implicitement.

Ligne 17

Code:: clef$ = "Papydall" : ' Clé de cryptage / décryptage : une chaine de caractères quelconques
' Cette clé doit être la MEME pour le cryptage et le décryptage

Tu voudras bien la changer en :

Code:: Clef$ = "Jean Claude a perdu sa clé, il en invente une autre"

Et, parole de Papydall, ça fonctionnera avec cette clé toute neuve (pour le cryptage ET pour le décryptage, il faut utiliser la MEME clé)

Oui Papydall, j'ai bien vu qu'on pouvait changer la clé dans le code.
Je voulais dire que le programme ne le demande pas à l'utilisateur. Je pense à un ordinateur qui sert à plusieurs personnes, mais comme je l'ai dit: c'est facile de modifier le programme soi-même.
C'est vrai que je me suis mal exprimé, je n'ai pas détaillé mon message suffisamment.

A+

Tu étais clair Jean Claude (je dirais même limpide !), tu t’es bien exprimé et tu as détaillé ton message suffisamment.
J’ai voulu seulement t’imiter en chipotant !

Chipoter ! Chipoter encore ! Il en restera toujours !

Sujet: re Sam 12 Mar 2016 - 20:12

Bon, ben, alors, puisque ce n' est pas l' envie qui te manque, il est où cet article ?...
lol!

Ben oui, il écrit bien, il programme bien et il a plein de chose à dire (enfin à écrire) alors s'il y en a bien un ui peut nous faire un article original et bien écrit c'est bien lui.... Smile

» cryptage
» Tracé d’arc de cercle par l'algorithme de Bresenham
» Cryptage en 100 % Panoramic
» Cryptage/décryptage
» algorithme de classement