blob: d14b27e9fa17b01a8de9c36a10cb7f63dff67bca (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
{ Source provided for Free Pascal Bug Report 4188 }
{ Submitted by "guy simon" on 2005-07-14 }
{ e-mail: gsimon2@wanadoo.fr }
PROGRAM CODESTRING ;
VAR
A, B, C : STRING;
I, N : BYTE ;
BEGIN
RANDSEED := 3455;
A :='AZERTYUIOP0123456';
N := LENGTH(A);
WRITELN('SOURCE STRING : ',A);
{ NOW CODING A INTO B }
B := '' ;
FOR I := 1 TO N DO B:= B + CHR ( ORD(A[I]) XOR RANDOM(256) );
WRITELN('CODED STRING : ',B);
{ NOW DECODING B INTO C}
RANDSEED := 3455;
C := '';
FOR I :=1 TO N DO C:= C + CHR ( ORD(B[I]) XOR RANDOM(256) );
WRITELN('DECODED STRING : ',C);
if C<>A then
halt(1);
END.
|
