36 lines
599 B
Plaintext
36 lines
599 B
Plaintext
program Coder_Test;
|
||
|
||
uses Crt, Coder;
|
||
|
||
var org,x: string;
|
||
|
||
begin
|
||
TextBackground(0);
|
||
TextColor(15);
|
||
ClrScr;
|
||
Write('Zu verschl<68>sselnder Text: ');
|
||
ReadLn(org);
|
||
RSInit := Length(org)*11;
|
||
WriteLn('RandSeed: ',RSInit);
|
||
WriteLn;
|
||
|
||
x := org;
|
||
Write('OrdCode (co=true) :');
|
||
OrdCode(x,code);
|
||
WriteLn(x);
|
||
|
||
x := org;
|
||
Write('OrdCode (co=false) :');
|
||
OrdCode(x,decode);
|
||
WriteLn(x);
|
||
|
||
x := org;
|
||
Write('SortCode (co=true) :');
|
||
SortCode(x,code);
|
||
WriteLn(x);
|
||
|
||
x := org;
|
||
Write('SortCode (co=false):');
|
||
SortCode(x,decode);
|
||
WriteLn(x);
|
||
end. |