interessant j' ai ecris une fonction en vba faisant tout cela : Function codage_cesar(t_dec() As Variant, message_clair As String, message_codé As String, dec As Integer, j As Integer) As String Dim t() As Variant ReDim t(0 To 25) ReDim t_dec(0 To 25) n = 0 For u = 1 To Len(message_clair) If IsNumeric(Mid(message_clair, u, 1)) Then n = n + 1 End If Next If n = 0 Then For i = 0 To UBound(t) t(i) = Chr(i + 65) Next If j = Len(message_clair) + 1 Then codage_cesar = message_codé Else For i = 0 To 25 t_dec(i) = t((i + dec) Mod (26)) Next codage_cesar = codage_cesar(t_dec, message_clair, message_codé & t_dec(Asc(UCase(Mid(message_clair, j, 1))) - 65), dec, j + 1) End If Else MsgBox "message non codable" End If End Function
@UniversiteNongoConakry3 жыл бұрын
Bonjour. La méthode est très bien expliquée. Mais on voit pas la suite. Merci d'avance.
@guyguifo5042 жыл бұрын
Bjr à toi, je demande à la communauté de m'éclairer en me donnant la longueur de la clé et la taille des blocs des algorithmes de chiffrement asymétriques suivants: RSA - ECC- ELGANAL-DSA- Diffie-Hellman. Merci