mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 15:49:04 +02:00
30 lines
600 B
ObjectPascal
30 lines
600 B
ObjectPascal
{ 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.
|