Contributor: SWAG SUPPORT TEAM { ³ Is if possible For you to post a sample code on how to use xor to ³ encrypt a File??? I'm shifting ORD value around to do excryptions ³ and I think your method is better.. So I would like to learn it.. Sure, here's a simple example that reads a user-entered line and encrypts it using the xor method. By XOR-ing it again the line is decrypted. This won't keep NSA fooled For more than a few seconds, but so long as you keep the passWord hidden it should suffice. } Program Sample; Uses Crt; Const PassWord : Array[1..8] of Char = 'Sha Zamm'; Var PassBits : Array[1..8] of Byte Absolute PassWord; ALine : String[80]; LineBits : Array[0..80] of Byte Absolute ALine; I, J, K : Integer; begin WriteLn('Enter a line of Text to encrypt:'); ReadLn(ALine); J := 0; For I := 1 to Length(ALine) Do begin Inc(J); If J > 8 Then J := 1; LineBits[I] := LineBits[I] xor PassBits[J]; end; WriteLn('Encrypted: ',ALine); J := 0; For I := 1 to Length(ALine) Do begin Inc(J); If J > 8 Then J := 1; LineBits[I] := LineBits[I] xor PassBits[J]; end; WriteLn('Decrypted: ',ALine); end.