如何修改邮箱及密码【人人网 - 分享】
如何修改邮箱及密码
分享这个视频的人喜欢
分享这个视频的人也爱看
月底了冲一下
愿长夜有人陪你说话
我在美熙家里直播
热门视频推荐
热门日志推荐
同类视频推荐
北京千橡网景科技发展有限公司：
文网文[号··京公网安备号·甲测资字
文化部监督电子邮箱：wlwh@··
文明办网文明上网举报电话： 举报邮箱：&&&&&&&&&&&&
请输入手机号，完成注册
请输入验证码
密码必须由6-20个字符组成
下载人人客户端
品评校花校草，体验校园广场求教，今早改了密码，然后第一次登陆可以到打开邮箱，第二次就再也登录不了，求问怎么拿回邮箱密码？
全部答案（共1个回答）
呵呵，想找回QQ号和你记得以前的密码没什么关系，你得回忆还记得自己申请QQ时设置的相关身份、认证信息吗，如果都有，就很好找回。
如果你还记得当初设置的取回密码的问题答案，就可以到邮箱登陆页面，按“忘记密码”，在弹出的框中输入邮箱名，再按“忘记密码”，在回答提问（是你注册邮箱时设置的问题，...
看一下输入法的属性是不是改了，如果改了就改回默认值
拨客服电话
客服工作人员会为你提供帮助。
大家还关注
淘宝该评价被确定为炒作信用度，已被执行删...
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区hubuxcg 的BLOG
用户名：hubuxcg
文章数：81
评论数：523
访问量：522453
注册日期：
阅读量：5863
阅读量：12276
阅读量：411250
阅读量：1099410
51CTO推荐博文
&&&&&&& 大家都知道，在域环境中，组策略中可以设置当用户密码快过期时，电脑登录会有提示，但当用户出差，或是用OWA方式访问时，并不会收到相关提示，而导致道密码过期而无法收发邮件！
&&&&&& 下面的方法，就是教大家，如何让用户密码在快过期时，发邮件提醒用户更改密码，让用户去OWA中去更改自已的密码，不至于发生密码过期，用户并不知道，而无法收发邮件！
以下是在AD、Exchange环境下，用邮件的方式通知用户密码到期提示的脚本，需要使用的，请将其路的和Domain改成你的域名，ADserver/Mailserver改为你的AD和Exchange的机器名，然后COPY下面的脚本存为.vbs格式，放在DC中，设置Scheduled Tasks，让其每天在固定时间执行！
注：此脚本文件会和组策略中的密码策略相对应！
此脚本为微软工程师专为某企业而写的，在些对其表示感谢！
'********************************************************************
'* Main Function: AD中比γ恳使用者的Password LastSet,如果距x^期日剩30,15,3,2,1的使用者,tl信通知
'&& For Example : cscript QuerryAD.vbs
'* Copyright (C) 2004 Microsoft Corporation
'********************************************************************
'Option Explicit
'For FileSystemObject
Const ForReading = 1
Const ForAppending = 8
Const ForWriting = 2
Const ADS_PROPERTY_DELETE = 4&
dim arrWillExpiredDays
'Please modify the variable
CONST MASTERMAIL = &&&&&&&&&&&&'寄信人的Email Address
'const strSMTPServer = &mailserver&&&&&&&&&&&&&&&'寄信ExchangeServer&
'const strSendUserName = &domainname\ACCOUNT&&&&&&&&&&'有嘞薜氖褂谜(寄信使用)
'const strSendPassword& = &PASSWORD&&&&&&&&&&&&&&'密a
const strFullAdsiPath = &&&&&'LDAP路
arrWillExpiredDays = Array(15,7,3,2,1)&&&&&&&&&&&&'⒁^期天档年列
'Main Function
'Declare variables
Dim strTestMode
strTestMode = False& 'use for debuging
'Cretae log file
Set WshSHell = CreateObject(&Wscript.Shell&)
Set objFSO = CreateObject(&Scripting.FileSystemObject&)
strFileName = Replace(Datevalue(Now), &-&, &_&)
strFileName = Replace(strFileName, &/&, &_&)
Public fLog
Set oLog = objFSO.OpenTextFile(strFileName & &.txt&, ForWriting, TRUE)
PrintScreen Now
PrintScreen &&
sta = ListWillExpireUsers()
PrintScreen sta
PrintScreen &&
PrintScreen &The command runs successfully!&
PrintScreen Now
oLog.Close
'Program ending
wscript.quit
'======================================
' Function Area&
'======================================
'********************************************************************
'* Function: PrintScreen
'* Purpose:& Show Message
'* Input:&&& Message
'*&&&&&&&&&&
'* Output:&& None
'********************************************************************
Sub PrintScreen(strMessage)
&if strTestMode = True then
&&Wscript.Echo strMessage
&oLog.WriteLine strMessage
'********************************************************************
'*Function ListWillExpireUsers(nDays)
'* List all user objects whose password will be expired or is expired
'* nDays: how many days the password will be expired
'*-------------------------------------------------------------------
Function ListWillExpireUsers()
&Dim strMailAddress
&' Create User Object
&Set objConnection = CreateObject(&ADODB.Connection&)
&Set objCommand = CreateObject(&mand&)
&objConnection.Provider = &ADsDSOObject&
&objConnection.Open &Active Directory Provider&
&Set objCommand.ActiveConnection = objConnection
&mandText = &&& & strFullAdsiPath & &&;(&(objectCategory=person)(objectclass=user));AdsPath,subTree&
&objCommand.Properties(&Page Size&) = 99& 'specifies the maximum number of objects to return in a results set.
&mandText&
&PrintScreen && &
&Set objRecordSet = objCommand.Execute
&If objRecordSet.RecordCount = 0 Then
&&PrintScreen &Error: Cannot found the user object in domain & & BaseDN & &.&
&Dim intTotalAccount&'算找到位使用者
&intTotalAccount = 0
&objRecordSet.MoveFirst
&Do Until objRecordSet.EOF&
&&intTotalAccount = intTotalAccount +1
&&'Retrive user information
&&Dim oUser&&&
&&Set oUser = GetObject(objRecordSet.Fields(&ADsPath&).Value)
&&For Each oUserProperty in oUser
&&&PrintScreen oUserProperty.Name&&&
&&If (oUser.AccountDisabled = FALSE) Then
&&&PrintScreen vbTab & &User Name : & & oUser.Name
&&&sStatus = UserPwdExpire(oUser)
&&&Select Case sStatus
&&&&Case 999999
&&&&&PrintScreen vbTab & & The user & & oUser.samaccountname & & Password never expires.&
&&&&&&&&&&
&&&&Case Else
&&&&&if sStatus &= 0 then&&
&&&&&&strMSG = &Your password is already expired in & & sStatus & & days!&
&&&&&&PrintScreen vbTab & & The user & & oUser.samAccountName & & password is expired after & & sStatus & & days!&&
&&&&&elseif sStatus & 0 then
&&&&&&strMSG = &Your mail account password will be expired in & & 0-sStatus & & days!& & vbcrlf & &Please change your password as soon as!&
&&&&&&PrintScreen vbTab & & The user & & oUser.samAccountName & & password will be expired in & & 0-sStatus & & days!&
&&&&&end if
&&&&&&&&&&&&& &&
&&&&&&&& &&For each checkDays in arrWillExpiredDays
&&&&&&&& &&&if checkDays = (0-sStatus) then
&&&&&&&& &&&&call fnCheck_SendMail(oUser,strMSG)
&&&&&&&& &&&end if
&&&&&&&& &&next&&&&&
&&&End Select
&&&PrintScreen vbTab & &User Name : & & oUser.Name
&&&PrintScreen vbTab & & The user & & oUser.samaccountname & & Account Disabled.&
&objRecordSet.MoveNext
&PrintScreen && &
&PrintScreen &Total Accounts is & & intTotalAccount&
ListWillExpireUsers = &OK&
End Function
'********************************************************************
'* Function UserPwdExpire(objUser, nMaxPwdAge)
'* Check if user object password is or will be expired
'* objUser: the user object
'*& nMaxPwdAge: maximum password age of domain
'*-------------------------------------------------------------------
Function UserPwdExpire(objUser)
&On Error Resume Next
&Const ADS_UF_DONT_EXPIRE_PASSWD& = &H10000
&Const SEC_IN_DAY = 86400
&intCurrentValue = objUser.Get(&userAccountControl&)
&If intCurrentValue and ADS_UF_DONT_EXPIRE_PASSWD Then
&&'The password does not expire.
&&UserPwdExpire = 999999 '永h不^期
&&dtmValue = objUser.PasswordLastChanged
&&if err.number && 0 then
&&&dtmValue = 0
&&&err.Clear
&&PrintScreen vbTab & & The password was last changed on & & DateValue(dtmValue) & & at & & TimeValue(dtmValue)
&&'PrintScreen vbTab & &The password was last changed on & & _
&&'DateValue(dtmValue) & & at & & TimeValue(dtmValue) & VbCrLf & _
&&'&&The difference between when the password was last set& & VbCrLf & _
&&'&&and today is & & int(now - dtmValue) & & days&
&&intTimeInterval = int(now - dtmValue)
&&Set objSysInfo = CreateObject(&ADSystemInfo&)
&&strDomain = objSysInfo.DomainShortName
&&Set objSysInfo = Nothing
&&Set objDomainNT = GetObject(&WinNT://& & strDomain)
&&intMaxPwdAge = objDomainNT.Get(&MaxPasswordAge&)
&&If intMaxPwdAge & 0 Then
&&&'WScript.Echo &The Maximum Password Age is set to 0 in the & & _
&&&&'&domain. Therefore, the password does not expire.&
&&&intMaxPwdAge = (intMaxPwdAge/SEC_IN_DAY)
&&&'Wscript.echo &The maximum password age is & & intMaxPwdAge & & days&
&&&If intTimeInterval &= intMaxPwdAge Then
&&&&'PrintScreen vbTab && &The password has expired.&
&&&&UserPwdExpire = int(intTimeInterval - intMaxPwdAge)
&&&&'PrintScreen vbTab && &The password will expire on & & _
&&&&'&DateValue(dtmValue + intMaxPwdAge) & & (& & _
&&&&'&int((dtmValue + intMaxPwdAge) - now) & & days from today& & &).&
&&&&UserPwdExpire = int(now - (dtmValue + intMaxPwdAge))
End Function
'******************************
' Mail Message
'Reference : Creating and Sending a Message
'/library/en-us/cdosys/html/_cdosys_messaging_examples_creating_and_sending_a_message.asp?frame=true
'/library/en-us/cdosys/html/_cdosys_cdosendusing_enum.asp?frame=true
'******************************
Sub SendMail(strFrom, strTo, strSubject, strBodyText)
Set iMsg = CreateObject(&CDO.Message&)
Set iConf = CreateObject(&CDO.Configuration&)
Set Flds = iConf.Fields
& ' assume constants are defined within script file
& .Item(&cdoSendUsingMethod&) = 2&&&&&& ' cdoSendUsingPickup:1:Local , cdoSendUsingPort:2:Network&
& .Item(&cdoSendUsingPort&)& = 25&&&&&&&&&&&&&& 'cdoSendUsingPort
& .Item(&cdoSMTPServer&)& = strSMTPServer
& .Item(&cdoSMTPConnectionTimeout&) = 10&& ' quick timeout
& .Item(&cdoSMTPAuthenticate&) = cdoBasic
& .Item(&cdoSendUserName&)& = strSendUserName
& .Item(&cdoSendPassword&)& = strSendPassword
& '.Item(&cdoURLProxyServer&)& = &tpeproxy:80&
& .Item(&cdoURLProxyBypass&)& = &&local&&
& .Item(&cdoURLGetLatestVersion&)&& = True
&& Set .Configuration = iConf
&&&&& .To&&&&&& = strTo
&&&&& .From&&& = strFrom
&&&&& .Subject& = strSubject
&&&&& '.CreateMHTMLBody &This folder [& & strFolderPath & &] Created in & & intDayNum & & Days&
&&&&& .TextBody =& strBodyText
&&&&& '.AddAttachment &C:\files\mybook.doc&
&&&&& .Send
'********************************************************************
'* Function: fnCheck_SendMail
'* Purpose:& z查是否有符合寄信实氖褂谜(以arrWillExpiredDays)
'* Input:&&& objUser,MailMessage
'*&&&&&&&&&&
'* Output:&& None
'********************************************************************
Function fnCheck_SendMail(objUser,strMSG)
&'Send email
&On Error Resume Next
&Err.Clear
&'某些User在此行l生Error
&Dim PropArray
&'PropArray = Array(&proxyAddresses&)&&&&&&
&'oUser.GetInfoEx Array(&proxyAddresses&), 0
&aProxyAddress = objUser.GetEx(&proxyAddresses&)&&&&&&
&If Err&&0 Then
&&PrintScreen vbTab & Time & & The user doesn't have email address.&&&&&&&&
&&Err.Clear
&&For Each saProxyAddress in aProxyAddress
&&&'Need a string variable to transfer the saProxyAddress
&&&strMailAddress = saProxyAddress
&&&ePos = Instr(1,strMailAddress,&SMTP:&,VbTextCompare)
&&&'PrintScreen vbTab & vbTab & &ePos = & & ePos&&&&&&&&
&&&If ePos & 0 Then
&&&&strEmail = mid(strMailAddress,6)
&&&&PrintScreen vbTab & & Email Address: & & strEmail
&&&&'Use Exchange Server to send mail
&&&&'SendMail MASTERMAIL, strEmail, &Password expiration notification!&, strMSG
&&&&'If server installed the SMTP Service
&&&&SendMessage MASTERMAIL, strEmail, &Password expiration notification!&, strMSG
&&&&PrintScreen vbTab & & & & Time && & Finish sending email!&
&&&&Exit For
&&&Else&&&&&&&&
&&&&'PrintScreen vbTab & vbTab & & No SMTP: string&&&&&&&&&&&
end Function
'******************************************************************************
' Send messages with CDO for Windows 2000
' strTo:&& [in] To
' strFrom:& [in] From
' strSubject:& [in] Subject
' strBodyFile: [in] Body text file
'******************************************************************************
Sub SendMessage(strFrom, strTo, strSubject, strBodyText)
&' For more information about CDO for Windows 2000, please refer to
&'On Error Resume Next
&Dim oMessage ' as CDO.Message
&Set oMessage = CreateObject(&CDO.Message&)
&oMessage.TextBody = strBodyText
&oMessage.To = strTo
&oMessage.From = strFrom
&oMessage.Subject = strSubject
&Err.Clear
&oMessage.Send
&If Err.number && 0 then
& Wscript.Echo &Error in SendMessage: id=& & Err.number & &, source=& & Err.Source & &,Desc=& & Err.Description
& Err.Clear
&Set oMessage = nothing
了这篇文章
附件下载：　　
类别：┆阅读(0)┆评论(0)
10:48:55 17:18:02 16:10:22 17:05:08 11:44:33 18:39:53 20:13:19 15:22:39 17:06:28 14:50:42 13:59:45 16:15:35 14:55:55 11:52:30 12:05:56 &&1&
&&页数 ( 1/2 ) &
请输入验证码：分享给朋友：通用代码: <input id="link4" type="text" class="form_input form_input_s" value="" />复 制flash地址: 复 制html代码: <input type="text" class="form_input form_input_s" id="link3" value="" />复 制分享视频到站外获取收益&&手机扫码分享视频二维码2小时内有效如何修改邮箱及密码下载至电脑扫码用手机看用或微信扫码在手机上继续观看二维码2小时内有效如何修改邮箱及密码扫码用手机继续看用或微信扫码在手机上继续观看二维码2小时内有效，扫码后可分享给好友没有优酷APP？立即下载请根据您的设备选择下载版本
药品服务许可证(京)-经营- 节目制作经营许可证京字670号 请使用者仔细阅读优酷、、Copyright(C)2017 优酷
版权所有不良信息举报电话:如何破解邮箱密码 破解邮箱密码方法介绍
作者：佚名
字体：[ ] 来源：互联网 时间：01-14 16:50:06
电子邮件并不是安全的，在邮件的发送、传送和接收整个过程中的每个环节都可能存在薄弱 ，环节，恶意用户如果利用其漏洞，就能够轻易的破解出账号，获得邮件内容。
电子邮件并不是安全的，在邮件的发送、传送和接收整个过程中的每个环节都可能存在薄弱 ，环节，恶意用户如果利用其漏洞，就能够轻易的破解出账号，获得邮件内容。 下面介绍几种破解邮箱密码的方法：一． 利用邮件服务器*作系统的漏洞 邮件服务器软件是运行在特定的*作系统上的，如Linux、Windows NT/2000等。这些*作系统的默认安装和配置都是不安全的，黑客可以轻易入侵系统，获得所有用户名和密码。1、 Windows服务器 如果是基于Windows2000的Exchange Mail Server，系统本身未做任何安全配置，开放了若干服务。入侵者可以利用终端服务器结合中文输入法漏洞或者IIS的Buffer Overflow程序获得Administrator权限，用pwdump3导出Hash过的密码，再用L0pht挂接字典或者Brute Force就能破解出用户密码。根据经验，如果密码简单，几分钟之内就能破解出，Q;9750406长度在8位及以下的用Brute Force方式在一天内就能解出。2、 Linux/UNIX服务器 UNIX类系统一般采用Sendmail作为邮件系统，在获得了系统的控制权之后，用John等软件就能从/etc/passwd或者/etc/shadow中破解出密码。如果采用了数据库方式来保存用户信息和密码，也是很容易被导出。 二． 利用邮件服务器软件本身的漏洞 最常见的邮件服务器程序有Sendmail，Qmail等，在不同程度在都存在安全缺陷。以Sendmail为例，再以前的老版本中，telnet到25端口，输入wiz，然后接着输入shell，就能获得一个rootshell，还有debug命令，也能获得root权限。Qmail相对Sendmail安全，但是Qpoper存在Buffer Overflow缺陷，能够远程得到rootshell，进而控制系统。即使邮件服务器是安全的，但是入侵者还能获得更多的信息，比如用户名。telnet到25端口，输入expntom或者vrfy tom就能查询系统是否有tom用户。最新版本的Sendmail虽然禁用了这两个命令，但是可以通过伪造发信人然后用rcpt to来判断该用户是否存在。 得到了用户名，可以telnet到110端口，尝试简单密码的连接，或者套用字典破解。 所以，必须禁止非本域的中继利用（relay），或者采用现在很多ISP都采用的给SMTP加上发信认证的模块，这样能够增强邮件服务器的安全。 除了POP3方式收信之外，比较流行的是在WEB界面上处理邮件。这种方式也不无弱点，一般是通过CGI来接受用户传递的表单FORM参数，包括username和password，如果正确，就可以进入B处理邮件的页面。破解已知用户的密码，有很多套用字典或者暴力组合的软件可用，比较著名的是小榕的《溯雪》在密码简单的情况下，很快就有结果。WEB邮件系统都有&忘记密码&的选项，如果能破解寄回密码的另外一个邮箱或者猜出提示问 三． 在邮件的传输过程中窃听 在网络中安装Sniffer，指定监听往外部服务器110端口发送的数据包，从收集下来的信息中查看user和pass后的字符串就能看到用户名和相应的密码。
大家感兴趣的内容
12345678910
最近更新的内容