RE: [DUG]: String Encryption routine

[John Christenhusz]

Hi Ross,

The following code is a simple routine to encrypt and decrypt strings. 

Simplicity at it's best! (?)

Cheers,
John.


function EnDecrypt(s : string) : string;
{Function:
    Encrypt / Decrypt given string.
 Entry parameters:
    s = string to en/decrypt.
 Return value:
    En/Decrypted string.}
var
   i : longInt;
begin
   for i := 1 to length(s) do
      s[i] := chr( ord(s[i]) xor $3f);
   result := s;
end;{EnDecrypt}

---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED] 
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/