//============================================================================
function randomencrypt(crypttext,key:string):string;
var x,y,lg,n:integer;
begin
result:='';
lg:=length(key);
y:=1;
randomize;
for x:=1 to length(crypttext) do begin
n:=(byte(crypttext[x]) xor byte(key[y])) or
(((random(32) shl 8) and 15872) or 16384);
if lo(n)<32 then n:=n or 384;
if y=lg then y:=1
else inc(y);
result:=result+chr(lo(n))+chr(hi(n));
end;
end;

function randomdecrypt(crypttext,key:string):string;
var x,y,lg,n:integer;
begin
if not odd(length(crypttext)) then begin
result:='';
lg:=length(key);
y:=1;
x:=1;
while x < length(crypttext) do begin
n:=(byte(crypttext[x]) or (byte(crypttext[x+1]) shl 8));
if n and 256 > 0 then n:=n and 127
else n:=n and 255;
result:=result+chr(n xor byte(key[y]));
if y=lg then y:=1
else inc(y);
inc(x,2);
end;
end else result:=crypttext;
end;
//============================================================================