WinCrypto'97 for Windows 9x/Me/NT/W2K/XP

About `WinCrypto'97` for Windows:

• With WinCypto'97 you can encrypt/decrypt your files using XOR and substitution algorithms.
• Since algorithms are rather primitive, WinCrypto'97 encrypted files are NOT absolutely secured.

• XOR encryption algorithm:
          Buffer[x] := Ord (Password[x]) XOR Buffer[x];
          Buffer[x] := Buffer[x] XOR Buffer[x-1];

• Substitution encryption algorithm:
      Arr: array [1..y] of byte;
      For n := 1 To SizeOf(Arr) Do
          Begin
          m := SizeOf(Arr) mod ( Ord (Password[x]) );
          Tmp := Arr[m]
          Arr[m] := Arr[n];
          Arr[n] := Tmp;
          End;