IE Cookie文件格式說明
更新時(shí)間：2009年12月31日 02:38:50 作者：
前幾天寫了個(gè)工具 CookieAdmin 來查看 IE 的 Cookie 有人問到實(shí)現(xiàn)原理，就寫了這篇文章 我不善于寫文檔或文章，所以還是代碼說話吧
IE 的 Cookie 文件保存在 ?:\Documents and Settings\<user>\Cookies 目錄，后綴為.txt
可以直接使用 API SHGetFolderPath 取得 Cookie 文件的保存目錄
不過我沒發(fā)現(xiàn) Delphi2007 有這個(gè) API 的聲明，所以自己聲明了一下
代碼如下(發(fā)現(xiàn)代碼高亮支持 Pascal 了，呵呵)
GetCookieFolder
function SHGetFolderPath(hwndOwner: HWND; nFolder: Integer; hToken: HWND;
dwFlags: Word; pszPath: PChar): Boolean; stdcall; external shell32 name 'SHGetFolderPathA';
function GetCookieFolder: string;
var
P: array[0..MAX_PATH] of Char;
begin
SHGetFolderPath(0, CSIDL_COOKIES, 0, 0, @P[0]);
Result := IncludeTrailingBackslash(P);
end;
注意 shell32 常量定義在 ShellAPI.pas 里，CSIDL_COOKIES 定義在 ShlObj.pas 里，記得引用
枚舉 Cookie 文件
GetCookieFiles
procedure GetCookieFiles(APath: string; AList:TStrings);
var
Sr: TSearchRec;
begin
if FindFirst(APath + '*.txt', faArchive, Sr) = 0 then
begin
repeat
if Sr.Name[1] = '.' then Continue;
AList.Add(Sr.Name);
until FindNext(Sr) <> 0;
FindClose(Sr);
end;
end;
下面才是重點(diǎn)，Cookie 文件的格式，呵呵
Cookie 文件只是個(gè)純粹的文本文件，以換行符(ASCII=10)為分隔符
可以使用 TStringList 讀取，會(huì)自動(dòng)分行的
格式如下
a_cookie
.123
my.demo.site
*
其中
第1行為 Cookie 名稱
第2行是 Cookie 的值
第3行是 Cookie 所屬站點(diǎn)的地址
第4行是個(gè)標(biāo)記值(注:準(zhǔn)確來說應(yīng)該是表示該Cookie是否被加密)
第5行為超時(shí)時(shí)間的低位(Cardinal/DWORD)
第6行為超時(shí)時(shí)間的高位
第7行為創(chuàng)建時(shí)間的低位
第8行為創(chuàng)建時(shí)間的高位
第9行固定為 * ，表示一節(jié)的結(jié)束
需要注意的是這里使用的時(shí)間并非 Delphi 的 TDateTime，而是 FILETIME(D里為對應(yīng)的TFileTime)
一個(gè)文件可能包含有多個(gè)節(jié)，按上面的格式循環(huán)即可
下面的代碼將上述時(shí)間轉(zhuǎn)換為 D 里的 TDateTime
ConvertToDateTime
function FileTimeToDateTime(FT: TFileTime): TDateTime; inline;
var
ST: TSystemTime;
begin
FileTimeToLocalFileTime(FT, FT);
FileTimeToSystemTime(FT, ST);
Result := SystemTimeToDateTime(ST);
end;
function ConvertToDateTime(L, H: Cardinal): TDateTime;
var
FT: TFileTime;
begin
FT.dwLowDateTime := L;
FT.dwHighDateTime := H;
Result := FileTimeToDateTime(FT);
end;
怎么樣，確實(shí)很簡單吧？呵呵
可以直接使用 API SHGetFolderPath 取得 Cookie 文件的保存目錄
不過我沒發(fā)現(xiàn) Delphi2007 有這個(gè) API 的聲明，所以自己聲明了一下
代碼如下(發(fā)現(xiàn)代碼高亮支持 Pascal 了，呵呵)
GetCookieFolder
復(fù)制代碼 代碼如下:
function SHGetFolderPath(hwndOwner: HWND; nFolder: Integer; hToken: HWND;
dwFlags: Word; pszPath: PChar): Boolean; stdcall; external shell32 name 'SHGetFolderPathA';
function GetCookieFolder: string;
var
P: array[0..MAX_PATH] of Char;
begin
SHGetFolderPath(0, CSIDL_COOKIES, 0, 0, @P[0]);
Result := IncludeTrailingBackslash(P);
end;
注意 shell32 常量定義在 ShellAPI.pas 里，CSIDL_COOKIES 定義在 ShlObj.pas 里，記得引用
枚舉 Cookie 文件
GetCookieFiles
復(fù)制代碼 代碼如下:
procedure GetCookieFiles(APath: string; AList:TStrings);
var
Sr: TSearchRec;
begin
if FindFirst(APath + '*.txt', faArchive, Sr) = 0 then
begin
repeat
if Sr.Name[1] = '.' then Continue;
AList.Add(Sr.Name);
until FindNext(Sr) <> 0;
FindClose(Sr);
end;
end;
下面才是重點(diǎn)，Cookie 文件的格式，呵呵
Cookie 文件只是個(gè)純粹的文本文件，以換行符(ASCII=10)為分隔符
可以使用 TStringList 讀取，會(huì)自動(dòng)分行的
格式如下
復(fù)制代碼 代碼如下:
a_cookie
.123
my.demo.site
*
其中
第1行為 Cookie 名稱
第2行是 Cookie 的值
第3行是 Cookie 所屬站點(diǎn)的地址
第4行是個(gè)標(biāo)記值(注:準(zhǔn)確來說應(yīng)該是表示該Cookie是否被加密)
第5行為超時(shí)時(shí)間的低位(Cardinal/DWORD)
第6行為超時(shí)時(shí)間的高位
第7行為創(chuàng)建時(shí)間的低位
第8行為創(chuàng)建時(shí)間的高位
第9行固定為 * ，表示一節(jié)的結(jié)束
需要注意的是這里使用的時(shí)間并非 Delphi 的 TDateTime，而是 FILETIME(D里為對應(yīng)的TFileTime)
一個(gè)文件可能包含有多個(gè)節(jié)，按上面的格式循環(huán)即可
下面的代碼將上述時(shí)間轉(zhuǎn)換為 D 里的 TDateTime
ConvertToDateTime
復(fù)制代碼 代碼如下:
function FileTimeToDateTime(FT: TFileTime): TDateTime; inline;
var
ST: TSystemTime;
begin
FileTimeToLocalFileTime(FT, FT);
FileTimeToSystemTime(FT, ST);
Result := SystemTimeToDateTime(ST);
end;
function ConvertToDateTime(L, H: Cardinal): TDateTime;
var
FT: TFileTime;
begin
FT.dwLowDateTime := L;
FT.dwHighDateTime := H;
Result := FileTimeToDateTime(FT);
end;
怎么樣，確實(shí)很簡單吧？呵呵
相關(guān)文章
前幾天寫了個(gè)工具 CookieAdmin 來查看 IE 的 Cookie 有人問到實(shí)現(xiàn)原理，就寫了這篇文章 我不善于寫文檔或文章，所以還是代碼說話吧2009-12-12
大數(shù)據(jù)HelloWorld-Flink實(shí)現(xiàn)WordCount
這篇文章主要介紹了大數(shù)據(jù)HelloWorld-Flink實(shí)現(xiàn)WordCount的相關(guān)知識，非常不錯(cuò)，具有一定的參考借鑒價(jià)值,需要的朋友可以參考下2019-08-08
這篇文章主要為大家介紹了測試框架JUnit VS TestNG對比分析詳解，有需要的朋友可以借鑒參考下，希望能夠有所幫助，祝大家多多進(jìn)步，早日升職加薪2022-07-07
解決MobaXterm連接不上虛擬機(jī):Network error: Connection
使用MobaXterm時(shí),若無法連接到虛擬機(jī),需檢查防火墻設(shè)置是否關(guān)閉,并確認(rèn)虛擬機(jī)地址是否與session地址一致,這些步驟可以有效解決連接問題,希望這些經(jīng)驗(yàn)?zāi)軒椭酱蠹?/div> 2024-10-10
總結(jié)近幾年P(guān)ytorch基于Imgagenet數(shù)據(jù)集圖像分類模型
在過去的幾年里，許多深度學(xué)習(xí)模型涌現(xiàn)出來，例如層的類型、超參數(shù)等。在本系列中，我將回顧幾個(gè)最顯著的 deeplearn 圖像分類的模型2021-08-08
PHP和Java的主要區(qū)別有哪些？哪個(gè)最適合Web開發(fā)語言？
Java和PHP都是編程語言，大家知道它們最大的區(qū)別就是一個(gè)是靜態(tài)語言一個(gè)是動(dòng)態(tài)語言吧。沒錯(cuò)，Java是一種靜態(tài)語言，PHP是一種動(dòng)態(tài)語言。那它們還有哪些區(qū)別? 哪個(gè)最適合Web開發(fā)語言？下面，小編再給大家詳細(xì)介紹下。2016-08-08
開發(fā)Java應(yīng)用程序,作為明星工具IntelliJ IDEA當(dāng)然是首選,本文主要介紹IDEA下自帶的數(shù)據(jù)庫可視化工具,具有一定的參考價(jià)值,感興趣的可以了解一下2023-09-09
這篇文章主要介紹了Git.gitignore的全面詳解，本文給大家介紹的非常詳細(xì)，對大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值，需要的朋友可以參考下2021-08-08
這篇文章介紹了如何在本地快速部署Deepseek模型,包括下載、安裝、運(yùn)行和測試,文中通過圖文結(jié)合的方式講解的非常詳細(xì),對大家本地快速部署deepseek有一定的幫助,需要的朋友可以參考下2025-02-02
MATLAB教程數(shù)據(jù)運(yùn)算變量操作及矩陣表示詳解
這篇文章主要介紹了MATLAB關(guān)于數(shù)據(jù)運(yùn)算變量操作及矩陣表示的內(nèi)容詳解，有需要的朋友可以借鑒參考下，希望可以有所幫助，祝大家多多進(jìn)步2021-09-09最新評論