salut tout le monde,
j'ai un codage Cesar (ci dessous) à retranscrire en organigramme mais je n'y arrive pas... Quelqu'un pourrait il m'aider ?  
merci d'avance =)
 
Petite_bulle
 
'Chiffrement césar
    Public Function ChiffrerCesar(ByVal strTexte As String, ByVal clef As Integer) As String
 
        Dim strTextAChiffrer As String
        Dim y As Integer
        Dim i As Integer
        Dim TabEntiers(299) As Integer
        Dim taille As Integer
        Dim chainechiffre As String
 
        's'assurer que chainechiffre est vide
        chainechiffre = ""
 
        ' Récupérer la taille du texte
        taille = strTexte.Length
 
        ' Mettre en majuscules
        strTextAChiffrer = strTexte.ToUpper()
 
        ' récupérer les codes ascii du message à chiffrer dans un tab d'entiers
        For i = 0 To taille - 1
            TabEntiers(i) = Convert.ToInt32(strTextAChiffrer(i))
 
            If TabEntiers(i) >= 65 And TabEntiers(i) <= 90 Then
                'changement de référence
                TabEntiers(i) = TabEntiers(i) - 65
                'appliquer le modulo
                TabEntiers(i) = (TabEntiers(i) + clef) Mod 26
                're-changement de référence
                TabEntiers(i) = TabEntiers(i) + 65
 
                'Convertion avec ToChar()
                chainechiffre = chainechiffre & Convert.ToChar(TabEntiers(i))
 
            End If
        Next
 
 
        Return chainechiffre
 
    End Function
 
Déchiffrage :
 chifcesar = TbxClef.Text
 
 
            ' lire le texte à chiffrer et stocker
            strTextADEChiffrer = TbxTexteChiffrer.Text
 
 
            ' Récupérer la taille du texte
            taille = strTextADEChiffrer.Length
 
            ' Mettre en majuscules
            strTextADEChiffrer = strTextADEChiffrer.ToUpper()
 
            ' récupérer les codes ascii du message à chiffrer dans un tab d'entiers
            For i = 0 To taille - 1
 
                TabEntiers(i) = Convert.ToInt32(strTextADEChiffrer(i))
 
                If TabEntiers(i) >= 65 And TabEntiers(i) <= 90 Then
                    TabEntiers(i) = TabEntiers(i) - chifcesar
 
                    'recommencer l'alphabet quand <65
                    If TabEntiers(i) < 65 Then
                        y = 65 - TabEntiers(i)
                        TabEntiers(i) = 90 - y
 
                    End If
                End If
 
 
                'Convertion avec ToChar()
                chainechiffre = chainechiffre & Convert.ToChar(TabEntiers(i))
 
            Next
 
        End If
 
        'afficher le résultat du déchiffrement
        TbxTexteDechiffre.Text = chainechiffre

Je comprends pas ce que tu veux?  
avec une idée du rendu que tu veux ça m'aiderai a comprendre le problème  
(en gros si tu fais un dessin sur papier de ce qui est attendu je te dirai si je peux le faire sur excel)

salut,
merci pour ta réponse rapide =)
en fait il faut qu'à partir de ce code que j'ai crée je le simplifie en organigramme (voir exemple dans lien) mais je ne sais pas du tout comment m'y prendre car pour moi c'est moins logique =/ il ne me semble pas qu'excel soit nécessaire (sauf si je me trompe ^^)
 
a bientot
 
 
http://maths.fs-umi.ac.ma/~benhlim [...] turbo2.htm

Ok je comprends je fais ce que je pense demain midi

super c'est très gentil de ta part de m'aider =)

Voila ce que je pense et je pense c'est pareil pour décryptage  
 

 
 
(oui chez moi le midi est très long ^^)

il n'y a pas de problème =)
que veux tu dire dans saisie <>"" ?
désolé je suis pas très douée en informatique ^^

saisie différent de vide  
en gros si taille = 0

ah ok =) merci beaucoup pour ton aide =)
par hasard, tu t'y connais en chiffrage vigenere ?

c'est un système de chiffrement polyalphabétique? (dixit wikipédia)
 
non j'y connais rien mais ça à pas l'air insurmontable

c'est bon j'y suis arrivée aujourd'hui c'était pas simple mais au moins notre système de chiffrage marche ! =) merci beaucoup pour ton aide en tous cas !

De rien sur ce coup là j'ai pas fait grand chose  
Après je réponds souvent aux questions ou je tente  

ça fait plaisir que quelqu'un aide en tous cas
a bientot peut être ! ^^