Помогите пожалуйста перевести программу из паскаля в питон
Var a,b,c: Word; S0,S1,S2,T0,T1,T2,d0,d1,d2: Byte;begin //параметры гаммы шифра: a:=5; b:=1; c:=256; //гамма шифра: S0:=21; S1:=(a*S0+b) mod c; //106 S2:= (a*S1+b) mod c; //19 //гаммирование (шифровка) текста ABC: T0:=ord('A')xor S0; //84 T1:=ord('B')xor S1; //40 T2:=ord('C') xor S2; //80 Writeln('GAMMA S: ',S0:4,S1:4,S2:4); //21 106 19 Writeln('Source Text: ABC'); Writeln('Text ASCII: 65,66,67'); Writeln('Criptotext T:',T0:4,T1:4,T2:4); //84 40 80 //дешифровка текста: d0:= T0 xor S0; //65 d1:=T1 xor S1; //66 d2:=T2 xor S2; //67 Writeln('Decipher Text: ',chr(d0),chr(d1),chr(d2)); //ABC Readln; end.
Var a,b,c: Word; S0,S1,S2,T0,T1,T2,d0,d1,d2: Byte;begin //параметры гаммы шифра: a:=5; b:=1; c:=256; //гамма шифра: S0:=21; S1:=(a*S0+b) mod c; //106 S2:= (a*S1+b) mod c; //19 //гаммирование (шифровка) текста ABC: T0:=ord('A')xor S0; //84 T1:=ord('B')xor S1; //40 T2:=ord('C') xor S2; //80 Writeln('GAMMA S: ',S0:4,S1:4,S2:4); //21 106 19 Writeln('Source Text: ABC'); Writeln('Text ASCII: 65,66,67'); Writeln('Criptotext T:',T0:4,T1:4,T2:4); //84 40 80 //дешифровка текста: d0:= T0 xor S0; //65 d1:=T1 xor S1; //66 d2:=T2 xor S2; //67 Writeln('Decipher Text: ',chr(d0),chr(d1),chr(d2)); //ABC Readln; end.
More Questions From This User See All