BAC INFO 2015
Re: BAC INFO 2015
Program seance1sujet1;
uses wincrt;
const e=5;p=17; q=19;
type tab=array[1..255] of integer;
var T:tab;msg:string;
i:byte;
function verifier(x:string):boolean;
var i:integer;
begin
i:=0;
repeat
i:=i+1;
until (not(upcase(x[i]) in ['A'..'Z']))or (i=length(x));
verifier := upcase(x[i]) in ['A'..'Z'];
end;
function puiss(x,n:integer):longint;
var i:integer;p:longint;
begin
p:=1;
for i:=1 to n do p:=p*x;
puiss:=p;
end;
procedure saisir (var msg : string);
begin
repeat
Write('Message = '); readln(msg);
until verifier(msg);
end;
procedure remplir (var t:tab;msg : string );
begin
For i:=1 to length(msg) do
T[i]:= Ord(Upcase(msg[i]))-64;
end;
procedure crypter(var t:tab;msg : string);
begin
For i := 1 to length(msg) do
begin
T[i]:=Puiss(T[i],e) mod (p*q);
end;
end;
procedure afficher (t:tab;msg:string);
begin
for i:=1 to length(msg) do
write(t[i]:5);
end;
begin
saisir(msg);
remplir(t,msg);
crypter(t,msg);
afficher(t,msg);
end.
uses wincrt;
const e=5;p=17; q=19;
type tab=array[1..255] of integer;
var T:tab;msg:string;
i:byte;
function verifier(x:string):boolean;
var i:integer;
begin
i:=0;
repeat
i:=i+1;
until (not(upcase(x[i]) in ['A'..'Z']))or (i=length(x));
verifier := upcase(x[i]) in ['A'..'Z'];
end;
function puiss(x,n:integer):longint;
var i:integer;p:longint;
begin
p:=1;
for i:=1 to n do p:=p*x;
puiss:=p;
end;
procedure saisir (var msg : string);
begin
repeat
Write('Message = '); readln(msg);
until verifier(msg);
end;
procedure remplir (var t:tab;msg : string );
begin
For i:=1 to length(msg) do
T[i]:= Ord(Upcase(msg[i]))-64;
end;
procedure crypter(var t:tab;msg : string);
begin
For i := 1 to length(msg) do
begin
T[i]:=Puiss(T[i],e) mod (p*q);
end;
end;
procedure afficher (t:tab;msg:string);
begin
for i:=1 to length(msg) do
write(t[i]:5);
end;
begin
saisir(msg);
remplir(t,msg);
crypter(t,msg);
afficher(t,msg);
end.
Sujets similaires
» Bonne année 2014-2015
» Sujets bac tp 2015
» Application 09-02-2015
» Bienvenu sur ce forum 2014-2015
» Bonne Année 2014-2015
» Sujets bac tp 2015
» Application 09-02-2015
» Bienvenu sur ce forum 2014-2015
» Bonne Année 2014-2015
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|