M mazheng Unregistered / Unconfirmed GUEST, unregistred user! 2007-06-11 #1 如何用二进制流读入一个mp3文件 对每一位数据进行加密？ 谢谢
白 白河愁 Unregistered / Unconfirmed GUEST, unregistred user! 2007-06-11 #2 fnction EncryptMP3(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 - 1do Buf:= Buf xor 1; ff.SaveToFile(fn); ff.Free; end; 执行一次加密，再执行一次解密。
fnction EncryptMP3(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 - 1do Buf:= Buf xor 1; ff.SaveToFile(fn); ff.Free; end; 执行一次加密，再执行一次解密。
