AccesS密码的打击[2]

        passbuff[i] := xorstring[i] xor b;
      end;
      passbuff[13] := $b6;
      f.seek($42,sofrombeginning);
      f.write(passbuff,14);
      finally
    f.free;
    end;
  end
  else
  begin
     try
     f.seek($42,sofrombeginning);
     f.read(passbuff2,40);
     i:=0;j:=0;
     while i<40 do
     begin
        b := passbuff2[i] xor xorstring2[j];
        pass2[j]:=char(b);
        inc(i,2);inc(j);
     end;
    pass2[sizeof(pass2) - 1] := #0;
    edit2.text:=strpas(pass2);
   finally
    f.free;
   end;
  end;

end;

procedure tform1.edit2keypress(sender: tobject; var key: char);
begin
  file://if length(edit1.text) >= 13 then key := #0;