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

    (************** A very easy file encrypting program ******
    - uses password feature
    - Programmed by OtherSide Computing Magazine Hungary
    - Fixed and sent to SWAG by Peter Radics (pradics@bigfoot.com)
    - Public Domain
    *****************************Hope you'll enjoy ***********)

    uses crt;
    var
        rf,wf:file;
        rfn,rfw,code:string;
        o,m:byte;
        c:char;
        i,j:integer;

    begin
      textcolor(7);
      write('[1] for Coding  [2] for Decoding : ');
      c:=readkey;
      while (c<>'1') and (c<>'2') do c:=readkey;
      writeln(c);
      write('Enter input file name : ');readln(rfn);
      write('Enter output file name : ');readln(rfw);
      write('Enter code word : ');readln(code);
      if length(code)=0 then begin writeln('You must enter a code word!');halt;end;
          case c of
       '1':writeln('Coding...');
       '2':writeln('Decoding...');
      end;
      assign(rf,rfn);assign(wf,rfw);reset(rf,1);rewrite(wf,1);
      m:=1;
      while not eof(rf) do begin
            blockread(rf,o,1);
            o:=o xor ord(code[m]);
            if m<length(code) then m:=m+1
                              else m:=1;
            blockwrite(wf,o,1);
           end;
      close(rf);close(wf);
        writeln('Ready');
    end.

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