白 白河愁 Unregistered / Unconfirmed GUEST, unregistred user! 2007-04-21 #4 加密解密调用同一过程 procedure XoeProcess(fn: string); var ff: TMemoryStream; Buf: PByteArray; i: Integer; begin ff:= TMemoryStream.Create; ff.LoadFromFile(fn); Buf:= ff.Memory; for i:= 0 to ff.Size - 1 do Buf:= Buf xor $10; ff.SaveToFile(fn); ff.Free; end;
加密解密调用同一过程 procedure XoeProcess(fn: string); var ff: TMemoryStream; Buf: PByteArray; i: Integer; begin ff:= TMemoryStream.Create; ff.LoadFromFile(fn); Buf:= ff.Memory; for i:= 0 to ff.Size - 1 do Buf:= Buf xor $10; ff.SaveToFile(fn); ff.Free; end;
