易语言读取chrome浏览器的cookies

.版本 2
.支持库 spec

.程序集 程序集1

.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
.局部变量 Sql, SQLite3
.局部变量 ret, 整数型
.局部变量 encrypted_value, 字节集
.局部变量 User, 文本型
.局部变量 path, 文本型

User ＝ 取空白文本 (255)
GetUserNameA (User, 255)
path ＝ “C:\Users\” ＋ 删首尾空 (User) ＋ “AppData\Local\Google\Chrome\User Data\Default\Cookies”
' chrome的路径自己找
.如果真 (Sql.打开 (path, , 真, 取运行目录 () ＋ “sqlite3.dll”) ＝ 假)
    Sql.关闭 ()
    返回 (-1)
.如果真结束
ret ＝ Sql.置SQL语句 (“select host_key,name,value,encrypted_value from cookies”)
.判断循环首 (Sql.到下一行 (ret))
    encrypted_value ＝ Sql.读字段字节集 (ret, 3)
    调试输出 (Sql.读字段文本 (ret, 0), Sql.读字段文本 (ret, 1), Sql.读字段文本 (ret, 2), DecryptPass (encrypted_value))
.判断循环尾 ()
Sql.关闭记录集 (ret)
Sql.关闭 ()
返回 (0)

.子程序 DecryptPass, 文本型
.参数 cryptData, 字节集
.局部变量 input, DATA_BLOB
.局部变量 output, DATA_BLOB
.局部变量 text, 文本型

input.cbData ＝ 取字节集长度 (cryptData)
input.pbData ＝ lstrcpyn_bin (cryptData, 0, 0)
.如果真 (CryptUnprotectData (input, 0, 0, 0, 0, 0, output))
    text ＝ 到文本 (指针到字节集 (output.pbData, output.cbData))
    LocalFree (output.pbData)
    返回 (text)
.如果真结束
返回 (“”)

@Faddei