petite info
67Messages postés
20 mars 2008Date d'inscription
14 avril 2008 à 23:08
Voila 1 tout petit programme de cryptage en pascal
program crydecry;
uses wincrt;
var
s:string[30];
J:integer;
begin
writeln(' IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII');
writeln(' II le programme pour crypter ou decrypter votre texte II');
writeln(' II II');
writeln(' IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII');
writeln;
begin
writeln(' entrez votre texte S.V.P:>> ');
read(s);
for j:=1 to length(s)do
case s[j] of
'a','A':s[j]:='Z'; 'b','B':s[j]:='Y'; 'c','C':s[j]:='X'; 'd','D':s[j]:='W'; 'e','E':s[j]:='V';
'f','F':s[j]:='U'; 'g','G':s[j]:='T'; 'h','H':s[j]:='S'; 'i','I':s[j]:='R'; 'j','J':s[j]:='Q';
'k','K':s[j]:='P'; 'i','I':s[j]:='O'; 'm','M':s[j]:='N'; 'n','N':s[j]:='M'; 'o','O':s[j]:='L';
'p','P':s[j]:='K'; 'q','Q':s[j]:='J'; 'r','R':s[j]:='I'; 's','S':s[j]:='H'; 't','T':s[j]:='G';
'u','U':s[j]:='F'; 'V','v':s[j]:='E'; 'w','W':s[j]:='D'; 'x','X':s[j]:='C'; 'y','Y':s[j]:='B';
'z','Z':s[j]:='A'; '0':s[j]:='9'; '1':s[j]:='8'; '2':s[j]:='7'; '3':s[j]:='6';
'4':s[j]:='5'; '5':s[j]:='4'; '6':s[j]:='3'; '7':s[j]:='2'; '8':s[j]:='1';
'9':s[j]:='0'; '*':s[j]:='?'; '?':s[j]:='*'; '/':s[j]:='-'; '-':s[j]:='/';
'+':s[j]:='!'; '!':s[j]:='+'; ' ':s[j]:='#'; '(':s[j]:='@'; '@':s[j]:='(';
')':s[j]:='&'; '&':s[j]:=')'; '.':s[j]:='"'; '"':s[j]:='.'; '=':s[j]:='é';
'é':s[j]:='='; ':':s[j]:='?'; '?':s[j]:=':'; '?':s[j]:=','; ',':s[j]:='?';
end;
writeln(' voila votre texte: ');
writeln(s);
end;
end.
