[PASCAL] Szyfrowanie

[Kaburagi 0]

Witam!

Zrobiłem program na szyfrowanie według szyfru cezara, ale o zmiennym kluczu, który podaje osoba przed kompem (domyślnie to 3)

Mam jednak pytanie, czy da się to zrobić nie używając ASCII?

 

uses crt;


 procedure szyfruj(tekst:string; c:integer);
 var
i,j:integer;
 begin
   for i:=1 to c do
 begin
     if (ord(tekst[i])+k<=122) then tekst[i]:=chr(ord(tekst[i])+k)
 else
tekst[i]:=chr(ord(tekst[i])+k-122+96);
end;
writeln(tekst);
end;
 procedure deszyfruj(tekst:string; c:integer);
 var
i,j,k:integer;
 begin
   for i:=1 to c do
 begin
     if (ord(tekst[i])-k>=97) then tekst[i]:=chr(ord(tekst[i])-k)
 else
tekst[i]:=chr(ord(tekst[i])-k+26);
end;
writeln(tekst);
end;

 var
tekst:string;
a,c,k:integer;
 begin


writeln('Podaj tekst: ');
readln(tekst);
c:=length(tekst);
writeln('Podaj klucz: ');
readln(k);
writeln('Ncisnij 1:zaszyfrowac ');
writeln(' 2:odszyfrowac? ');
readln(a);
 case a of
1:szyfruj(tekst,c);
2:deszyfruj(tekst,c);
 end;
readln;
end.

[d2uriel 0]

Jak mam być szczery, to nie bardzo rozumiem Twoje pytanie. Co masz na myśli pisząc "nie używając ASCII"?

[profit 0]

Może chodzi Ci o tablice charów { 'a', 'b', 'c' ... } ? Wtedy to jet niezależne od pozycji w ASCII poszczególnych znaków.

[Kaburagi 0]

Tak, źle się wyraziłem, ale osoby, które miały już z tym do czynienia, wiedzą o co chodzi

To może inaczej...

U mnie program chodzi od 97 do 122 znaku ASCII (a-z), wszystko działa jak należy, do czasu gdy kluczem szyfru staje się liczba większa od 26, wtedy w szyfr wkradają się !@#$% etc., co nie jest przeze mnie pożądane...

 

@Profit

 

Tylko czy to będzie wszystko chodzić jak należy? Zastanawiałem się i właśnie nie jestem pewien czy z 'a' na 'z' będzie przechodzić...

[januzi 24]

a = 0

z = liczba_znakow

 

(litera + klucz) mod liczba_znakow

 

to powinno dać odpowiednią literę w zadanym zakresie, potem tylko +97 i gotowe