Discussion :

[downny]

Bonjour, je débute en ada95.

J'ai fait des minis programmes, comme celui-ci :
Envoyer des données sensibles sécuritairement, protégé par MDP

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
 
WITH Ada.Text_Io; USE Ada.Text_Io;
WITH Ada.Integer_Text_IO; USE Ada.Integer_Text_IO;
 
PROCEDURE Instructionf1 IS
 
   Ins: Integer;
   Mdp: Integer;
 
 
BEGIN
 
   PUT("Welcome");
      NEW_LINE;
   PUT("-");
      NEW_LINE;
   PUT("###########################");
      NEW_LINE;
   PUT("MENU                      #");
      NEW_LINE;
   PUT("-                         #");
      NEW_LINE;
   PUT("Number phone = 2          #");
      NEW_LINE;
   PUT("Name = 5                  #");
      NEW_LINE;
   PUT("Voiture = 6               #");
      NEW_LINE;
   PUT("-                         #");
      NEW_LINE;
   PUT("MENU CLOSED               #");
      NEW_LINE;
   PUT("###########################");
      NEW_LINE;
   PUT("-");
      NEW_LINE;
 
 
   LOOP
 
NEW_LINE;
      PUT("Instruction Number:  ");
 
Get(ins);
 
           IF ins = 2 THEN
 
         PUT("OK");
         NEW_LINE;
 
         PUT("-");
 
         PUT("Password:  ");
 
         GET(Mdp);
 
         IF Mdp = 786 THEN
 
            NEW_LINE;
            PUT("---------------------ACCESS seccessfully");
               NEW_LINE;
 
                      PUT("Le numero de telephone est : 555-9725 ");
            NEW_LINE;
 
         ELSIF Mdp < 786 THEN
 
            PUT("No acces");
 
         ELSIF Mdp > 786 THEN
 
            PUT("No access");            
 
 
ELSIF ins < 2 THEN
 
         PUT("No, try again !");
         NEW_LINE;
 
      ELSIF ins > 2 THEN
 
         PUT("No, try again !");
         NEW_LINE;
 
 
END IF;
 
      ELSIF Ins = 5 THEN
 
           PUT("OK");
         NEW_LINE;
 
         PUT("-");
 
         PUT("Password:  ");
 
         GET(Mdp);
 
         IF Mdp = 953 THEN
 
               NEW_LINE;
            PUT("---------------------ACCESS seccessfully");
               NEW_LINE;
 
                      PUT("Le nom est Jon Patate");
            NEW_LINE;
 
         ELSIF Mdp < 953 THEN
 
            PUT("No access");
 
         ELSIF Mdp > 953 THEN
 
            PUT("No access");
 
 
      ELSIF Ins < 5 THEN
 
         PUT("No, try again !");
 
      ELSIF Ins > 5 THEN
 
         PUT("No, try again !");
 
 
end if;
 
 
            ELSIF Ins = 6 then 
 
PUT("OK");
         NEW_LINE;
 
         PUT("-");
 
         PUT("Password:  ");
 
         GET(Mdp);
 
         IF Mdp = 183 THEN
 
               NEW_LINE;
            PUT("---------------------ACCESS seccessfully");
         NEW_LINE;
         PUT("La voiture est une Ford grise, fait sur le long.");
            NEW_LINE;
 
         ELSIF Mdp < 183 THEN
 
            PUT("No access");
 
         ELSIF Mdp > 183 THEN
 
            PUT("No access");
 
ELSIF Ins < 6 THEN
 
         PUT("No, try again !");
 
      ELSIF Ins > 6 THEN
 
         PUT("No, try again !");
 
         END IF;
 
      ELSIF Ins = 43215 THEN
 
         NEW_LINE;
 
         PUT("Voici le listing des MDP");
 
         NEW_LINE;
 
         PUT("2 = 786 ");
 
         NEW_LINE;
 
         PUT("5 = 953 ");
 
         NEW_LINE;
 
         PUT("6 = 183 ");
 
         NEW_LINE;
 
      ELSIF Ins < 43215 THEN
 
         PUT("Access DENIED");
         New_LINE;
 
      ELSIF Ins > 43215 THEN
 
PUT("Access DENIED");
         New_LINE;
 
 
      END IF;
 
 
     END LOOP;
 
END Instructionf1;

Maintenant j'aimerais pousser, je voudrais, comme le titre l'indique brièvement, récupérer une chaine de caractère et remplacer chaque caractère par un autre.
Je sais, c'est basic comme crypto..

Merci de bien vouloir me mettre sur une piste, car je sais pas par ou commencer après avoir récupéré la saisi de l'utilisateur.

Merci !

[Seb_de_lille]

petite remarque pour commencer , plutôt que ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
  ELSIF Mdp < 786 THEN
 
            PUT("No acces");
 
         ELSIF Mdp > 786 THEN
 
            PUT("No access");

essaye quelque chose du style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
elsif Mdp /=786 then

ça simplifiera un peu

Pour ton problème de crypto. Où bloques tu? Sur comment analyser des string Ada?