掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
テキストファイルかバイナリーファイルか判別するには (ID：35476)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
よろしくお願いします。 WindowsXP Delphi6 Personalです。 あるサイトで下記のような簡易暗号化ができるというコードを見つけて aaaa.txt というテキストファイルを暗号化して 同じ名前のaaaa.txtで今まで何個も保存しました。（.datとでもして分けておけば良かったのですが） このファイルを読み込んで、テキストファイルはそのまま、 そうでないときは複合化しなくてはなりません。 テキストの書き込みはDelphiで普通にWriteln(F,NewString);で書き込んだものです。 このテキストファイルかそうでないかを判別する旨い方法を教えてもらえませんか。 よろしくお願いします。 const SEED = $12; //Stringlistで渡せば暗号化してパスに落としてくれる procedure TForm1.Angoka(var StringList:TStringList;Path:string); var fs: TFileStream; i, Len: Integer; buf: PChar; begin Len := Length(StringList.Text); GetMem(buf, Len+1); fs := TFileStream.Create(Path, fmCreate); try StrPCopy(buf,StringList.Text); for i:=0 to Len-1 do begin Byte(buf[i]) := Byte(buf[i]) xor SEED; end; fs.Write(buf^, Len); finally FreeMem(buf); fs.Free; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.