Traduire code Pascal en Python - Chiffrement par décalage

Version imprimable

Code:

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
program Cryptage;
uses wincrt;
var M:String;
p:integer ;
Function valide(M:string):boolean;
Var i:integer;
ok:boolean;
begin
ok:=true;
if m='' then ok:=false
Else
Begin
i:=0;
 
Repeat
 i:=i+1;
 if not (M[i] in [' ','A'..'Z','a'..'z']) then ok:=false;
until (ok=false) or (i=Length(M))
end;
valide:=ok;
end;
Procedure saisir(var M:string);
Begin
Repeat
write('Donner le message à crypter : ');
readln(M);
until valide(M);
end;
function nbmot(M:string):integer;
Var    i,nb:integer;
Begin
i:=0;  nb:=0;
Repeat
 i:=i+1;   
if  (upcase(M[i]) in ['A'..'Z']) then nb:=nb+1;
 
 while (i<=length(m)) and (upcase(M[i]) in ['A'..'Z']) do
 i:=i+1;
until (i>=length(M));
 
nbmot:=nb;
end;
 
function Crypter(M:string; p:integer):string;
Var     code,i:Integer;
Begin
 for i:=1 to Length(M) Do
	Begin
	code:= ord(M[i])+p;
 if M[i] in ['a'..'z'] then if code>ord('z') then   code:=code-26;
  if M[i] in ['A'..'Z'] then if code>ord('Z') then   code:=code-26;
 if M[i]<>' ' then M[i]:=chr(code);
 end;
crypter:=M;
end;
 
Begin
saisir(M);
p:=Nbmot(M);
writeln(p);
WriteLn(Crypter(M,p)); 
end.

05/12/2020, 11h40
Sve@r

"Bonjour", "merci", "au revoir" c'est quand tu veux quoi. Et manifestement là tu veux pas.

Bon, concernant ton truc oui tous ici pourrions le traduire en Python, d'autant plus que c'est franchement pas compliqué vu que d'une part la syntaxe de ce pseudo-code est très très proche de Python (exemple for i:=1 to Length(M) Do deviendra for i in range(1, len(M) + 1):) et que d'autre part ça ressemble à un chiffrement par décalage (chiffre de César) ce qui est assez facile à trouver sur le net. Mais est-ce que c'est ça pour toi "aider" ? Faire faire ton travail par les autres ?

Donc montre-nous ce que toi tu fais avec ce code et là on te dira si ça va si ça ne va pas et pourquoi ça ne va pas. Accessoirement la fonction "nbmot" ne me semble pas compter le nombre de mots mais le nombre de caractères et de toute façon n'est pas utilisée.

Et :tagcode:
05/12/2020, 16h46
jurassic pork

hello,

Citation:

Envoyé par Sve@r

oui tous ici pourrions le traduire en Python, d'autant plus que c'est franchement pas compliqué vu que d'une part la syntaxe de ce pseudo-code est très très proche de Python (exemple for i:=1 to Length(M) Do

heu Sve@r c'est du pascal :mouarf: . Je participe au forum Lazarus (free pascal) sur developpez.net et donc de temps en temps je code dans ce langage.

Ami calmant, J.P
05/12/2020, 17h50
Sve@r

Citation:

Envoyé par jurassic pork

heu Sve@r c'est du pascal :mouarf:

Ca roule. Je connais pas la syntaxe Pascal donc j'ai pensé à du pseudo-code et quand je suis intervenu la mention "Pascal" n'était pas encore présente dans le titre (probablement rajoutée par un modo) ;)

Salut,

Pour ce que j'y ai lu en diagonale, en Python, çà devrait s'écrire:

Code:

1
2
3
4
5
6
7
8
9
10
import string
 
mots = input('mots: ')
n = len([ z for z in mots if 'A' <= z <= 'Z']) % 26
 
S = string.ascii_lowercase, string.ascii_uppercase
D = list(z[n:] + z[:n] for z in S)
 
tt = str.maketrans(''.join(S), ''.join(D))
print (mots.translate(tt))

mais on devrait pouvoir faire plus court.

- W

06/12/2020, 10h41
Sve@r

Citation:

Envoyé par wiztricks

çà devrait s'écrire:

Bigre 8O :ave:
Il y a juste une erreur sur le calcul de la taille du mot car il faut prendre aussi en compte les minuscules => if 'A' <= z <= 'Z' or 'a' <= z <= 'z'.

Citation:

Envoyé par wiztricks

mais on devrait pouvoir faire plus court.

Oui, en utilisant string.ascii_letters dans le calcul de n => if z in string.ascii_letters. tt pourrait aussi être supprimé.