**[**Back to ENCRYPT SWAG index**]** **[**Back to Main SWAG index**]** **[**Original**]**

*{
³ 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**.

**[**Back to ENCRYPT SWAG index**]** **[**Back to Main SWAG index**]** **[**Original**]**