простой шифр

[Elm0]

Здравствуйте!
зашифровываю файл так:

var
   ch:char;
   ch1:byte;
begin
seek(datafile,0);
  while not EOF(datafile) do
    begin
      read(datafile,ch);
      ch1:=ord(ch) shl keyint;
      ch:=Chr(ch1);
      write(datafile,ch);
    end;
closefile(datafile);

расшифровать нужно так?-

var
   ch:char;
   ch1:byte;
begin
seek(datafile,0);
  while not EOF(datafile) do
    begin
      read(datafile,ch);
      ch1:=ord(ch) shr keyint;
      ch:=Chr(ch1);
      write(datafile,ch);
    end;
close(datafile);

[alexBlack]

Конрпример:

'A' = 65 = 41h
byte(41h shl 4) = 10h
и информация безвозвратно теряется.

Используйте лучше xor

procedure Crypt(S, Key:ShortString);
var N, i:integer;
begin
   N := 1;
   for i:=1 to length(S) do begin
      S[i] := chr(ord(S[i]) xor ord(key[N]));
      inc(N);
      if N > length(Key) then N := 1;
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var S:String;
begin
   S := 'String';
   Crypt(S, 'key');
   Crypt(S, 'key');
   label1.Caption := S;

[Elm0]

ааааа!!!спасибо огромное!вот я дурная голова!
спасибо большое!