[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]