tranngocbich224
19-06-2009, 17:16
mình có code của bài mã hóa nhưng mình lại ko hiểu ý nghĩa của từng dòng lệnh.vì chưa được hoạc qua.các bạn xem và giải thích hộ mình nha.mình đang cần gấp lắm.và ai có thể giúp thì chỉ cho mình phần code của giải mã nha.thank trước nha!
Program Ma_hoa;
<BR> Var
<BR> St:String;
<BR> k:Integer;
<BR> i,n:Integer;
<BR>Begin
<BR> Writeln('CHUONG TRINH MA HOA');
<BR> Writeln(' -----------');
<BR> Write('-Nhap chuoi: ');
<BR> Readln(St);
<BR> Write('-Nhap ma so k: ');
<BR> Readln(k);
<BR> k:=k Mod 26;
<BR> For i:= 1 To Length(St) Do
<BR> Begin
<BR> n:=Ord(St[i]);
<BR> If (n >=97) And (n<=122) then
<BR> Begin
<BR> n:=n+k;
<BR> If n > 122 Then
<BR> n:=(n Mod 122) + 96;
<BR> End;
<BR> St[i]:=Chr(n);
<BR> End;
<BR> Writeln;
<BR> Writeln('+Sau khi ma hoa: ',St);
<BR> Writeln;
<BR> Writeln(' Bam phim <Enter> de ket thuc');
<BR> Readln
<BR>End.
Program Ma_hoa;
<BR> Var
<BR> St:String;
<BR> k:Integer;
<BR> i,n:Integer;
<BR>Begin
<BR> Writeln('CHUONG TRINH MA HOA');
<BR> Writeln(' -----------');
<BR> Write('-Nhap chuoi: ');
<BR> Readln(St);
<BR> Write('-Nhap ma so k: ');
<BR> Readln(k);
<BR> k:=k Mod 26;
<BR> For i:= 1 To Length(St) Do
<BR> Begin
<BR> n:=Ord(St[i]);
<BR> If (n >=97) And (n<=122) then
<BR> Begin
<BR> n:=n+k;
<BR> If n > 122 Then
<BR> n:=(n Mod 122) + 96;
<BR> End;
<BR> St[i]:=Chr(n);
<BR> End;
<BR> Writeln;
<BR> Writeln('+Sau khi ma hoa: ',St);
<BR> Writeln;
<BR> Writeln(' Bam phim <Enter> de ket thuc');
<BR> Readln
<BR>End.