string dest;
KeyLen =Length(Key);
if ( KeyLen = 0 ) key= 'Think Space ';
KeyPos=0;
Range=256;
Randomize;
offset=Random(Range);
dest=format( "%1.2x",[offset]);
for ( SrcPos = 1 ; SrcPos< Length(Src); SrcPos++)
{
SrcAsc=(Ord(Src[SrcPos]) + offset) % 255;
if ( KeyPos < KeyLen )
KeyPos= KeyPos + 1