Aide décryptage
Bonjour,
voici mon code de cryptage
phrase = InputBox("Quels est la pharse à codé")
cle = InputBox("Quels est la clé?")
phrase = UCase(phrase)
cle = UCase(cle)
For i = 1 To Len(phrase)
lettreacoder = Mid(phrase, i, 1)
If Asc(lettreacoder) >= 65 And Asc(lettreacoder) <= 90 Then
If i Mod Len(cle) = 0 Then
j = Len(cle)
Else
j = i Mod Len(cle)
End If
numcle = Asc(Mid(cle, j, 1)) - 64
numlettre = Asc(lettreacoder) - 64
If numlettre + numcle >= 26 Then
motcode = motcode & Chr(numlettre + numcle + -26 + 63)
Else
motcode = motcode & Chr(numlettre + numcle + 63)
End If
Else
motcode = motcode & lettreacoder
End If
Next i
Call MsgBox(motcode)
End Sub
J'aurais besoin du code ou de l'aide pour le code car je pensait tout simplement faire l'inverse pour le décodé mais cela ne marche pas ...
mon code est basé sur cela
Le codage va s’effectuer sur le principe du chiffre de César : on remplace la lettre d’origine par la lettre occupant la même place dans le nouvel alphabet décalé.
Mais à la différence du chiffre de César, un même message va utiliser non pas un, mais plusieurs alphabets décalés. Pour savoir quels alphabets doivent être utilisés, et dans quel ordre, on utilise une clé.
Si cette clé est "VIGENERE" et le message est "Il faut coder cette phrase", on procèdera comme suit :
La première lettre du message (en majuscule), « I », est la 9e lettre de l’alphabet normal. Elle doit être codée en utilisant l’alphabet commençant par la première lettre de la clé, « V ». Dans cet alphabet, la 9e lettre est le « D ». « I » devient donc un « D ».
La deuxième lettre du message (toujours en majuscule), « L », est la 12e lettre de l’alphabet normal. Elle doit être codée en utilisant l’alphabet commençant par la deuxième lettre de la clé, « I ». Dans cet alphabet, la 12e lettre est le « T ». L devient donc un « T », etc.
Quand on arrive à la dernière lettre de la clé, on recommence à la première. Les lettres de la clé seront ainsi utilisées de façon cyclique (eg. V, I, G, E, N, E, R, E, V, I, G, E, etc.).
Écrire l’algorithme qui effectue un cryptage de Vigenère, en demandant bien sûr au départ le message à coder et la clé à l’utilisateur
Merci d'avance
Bonsoir, un fichier serait un plus.
Faute de mieux je t'en envois un à tester.
Bonne soirée.
Amicalement.
bonjour tout le monde ,
j'aurai besoin de votre aide pour programmer les codes pour décrypter quelque texte chiffrer le plus tôt possible
texte 1:
Le message ci-dessous a été encrypté à l'aide d'une clef de longueur inconnue :
Me avt osiibjpvk dz m'zmtedfoehdot lbtcénaohruz fso ee cévzkppkds xdstvhoen gaxtmt
ér dz m'zrqrds eo qamlj zkmen m'dmuudsjoi o'zru kzt gz mjhos oséxhfund.C'dtt obr
dmlz ruz me lpnyd mvsiéhzuiltf mdttz fn bpnozdt zwex me lpnyd rédm zs qpzod kfs
lbtcénaohruzr ppqfs opumqbizmu n'fn obsnds, hm azvdmzjt spuenvrn z vupim sexnvrn
qopq cjlclzq l'zcîhd qph séobrz me rzmwnme cf gz rézmioé.
texte 2:
Le message ci-dessous a été encrypté à l'aide d'une clef de longueur 3 :
Srkjrwpmeqg wozdy ls d ndca bawwahn vobwwwue hnclnahro spuirlnc tk bqllz bejgau
wqd eepwen izlop-pnrob pnrgndmo, wqd wha ujlvausa tnbijj pr xxihg xlgchr dnz bawtau
egikws. Sk fwu, wha ujlvausa io weqneqg.
Indices : Like, InStr, "software".
text 3 :
Le message ci-dessous a été encrypté à l'aide d'une clef de longueur 2 :
Ymubwt dmec yt jd ric evw uim cobt vn kbgorbgogoe wpss dmec ujjm cc y tjmmcor
ntwdfpnbri xfp llput xpf zmv mgwc.
Indices : Like, InStr, "psychopath".
Merci beaucoup a l avance