我的51新炫舞账号密码被盗了，包括申请时注册的资料 绑定的邮箱 电话 全被改了！我该怎样找回我的账号密码_百度知道
我的51新炫舞账号密码被盗了，包括申请时注册的资料 绑定的邮箱 电话 全被改了！我该怎样找回我的账号密码
包括申请时注册的资料 绑定的邮箱 电话 全被改了！需要什么跟我说一声！跪谢！有哪位网络高手可以帮我一下！！！我尽最大力量配合我的51新炫舞账号密码被盗了？人格担保是我的号！我该怎样找回我的账号密码！再次谢谢了！被被人盗了！
家可能找回！买号最好买一些支持双改的，如果商家其他的验证信息没有改的话，他随时可以申请找回账号~~你要小心了
那您能帮我找回来嘛？ 这也太过分了！
其他类似问题
为您推荐：
51新炫舞的相关知识
其他4条回答
有3个月没上了，申述了两次都没成功我的也是，前两天一上发现被盗了，只有一个身份证验证？ LZ有找回来吗，如果没往里砸钱也就算了，绑定的电话 邮箱全被改了，身份证照片也发过去了，是不是找不回来了
身份证号改不了的，用身份证照片在线申诉！
我的51新炫舞账号密码被盗了，包括申请时注册的资料 绑定的邮箱 电话 全被改了！我该怎样找回我的账号密码？人格担保是我的号！被被人盗了！有哪位好心人来帮忙呢
你好 我可以帮你再盗回来
你能找回来？
怎么联系你呢？
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁51offer某另一洞泄露用户姓名/手机号/个人护照/住址/个人简历/身份证号/邮箱账号密码/成绩单等敏感信息泄漏
51offer某另一洞泄露用户姓名/手机号/个人护照/住址/个人简历/身份证号/邮箱账号密码/成绩单等敏感信息泄漏
编辑日期： 字体：
厂商为啥还没来呢，大厂商啊，再来一发！
直接上图：
本文固定链接:
转载请注明:
作者：EffieFDTLpa
这个作者貌似有点懒，什么都没有留下。
您可能还会对这些文章感兴趣！后使用快捷导航没有帐号？
查看: 584|回复: 11
新人欢迎积分0 阅读权限50积分1642精华0UID帖子金钱1884 威望-1
Lv.5, 积分 1642, 距离下一级还需 858 积分
UID帖子威望-1 多玩草0 草
求大神，难道他要是想找回肯定会找回吗，求教啊，怎么关闭找回呢
盛大内部人员
新人欢迎积分1 阅读权限70积分5423精华0UID帖子金钱13252 威望0
此人武功非同常比
Lv.7, 积分 5423, 距离下一级还需 4577 积分
UID帖子威望0 多玩草170 草
找回就再买过
新人欢迎积分1 阅读权限90积分26096精华0UID帖子金钱65107 威望10
Lv.9, 积分 26096, 距离下一级还需 8904 积分
UID帖子威望10 多玩草44 草
新人欢迎积分0 阅读权限90积分29069精华0UID帖子金钱35533 威望11
用我一生时间，再换你十年天真無邪.
Lv.9, 积分 29069, 距离下一级还需 5931 积分
UID帖子威望11 多玩草57 草
买时候不看初始资料‘现在来关闭找回？什么叫关闭找回？闻所未闻
打。。打劫#
新人欢迎积分0 阅读权限70积分5663精华0UID帖子金钱18303 威望1
Lv.7, 积分 5663, 距离下一级还需 4337 积分
UID帖子威望1 多玩草160 草
把卖家干掉就能‘关闭’找回
新人欢迎积分1 阅读权限50积分1414精华0UID帖子金钱16274 威望0
Lv.5, 积分 1414, 距离下一级还需 1086 积分
UID帖子威望0 多玩草80 草
挂上G家自己买回
新人欢迎积分1 阅读权限60积分4918精华0UID帖子金钱2955 威望0
活该被狗咬
Lv.6, 积分 4918, 距离下一级还需 82 积分
UID帖子威望0 多玩草0 草
以前有个关闭找回，现在似乎没有了，不过不靠谱，只能电脑上保存当初买号几下的手机，qq什么的，真找回暴一下而已
我自己在5173卖了二十多个账号了，也买了十几个账号，没找回也没被找回过
呵呵，我是懒得找某脑残的过往语录验证对方的脑残，我的时间没那么不值钱，眼不见为净
新人欢迎积分1 阅读权限70积分9445精华0UID帖子金钱31217 威望3
Lv.7, 积分 9445, 距离下一级还需 555 积分
UID帖子威望3 多玩草148 草
不能改初始说什么都是白搭
发射~发射~
新人欢迎积分1 阅读权限80积分16787精华0UID帖子金钱36338 威望0
Lv.8, 积分 16787, 距离下一级还需 3213 积分
UID帖子威望0 多玩草0 草
上G+&&自己在买一次& &要不奉劝你别搞这号的装备神马的
新人欢迎积分1 阅读权限50积分2411精华0UID帖子金钱19373 威望0
Lv.5, 积分 2411, 距离下一级还需 89 积分
UID帖子威望0 多玩草0 草
三角攻击 发表于
以前有个关闭找回，现在似乎没有了，不过不靠谱，只能电脑上保存当初买号几下的手机，qq什么的，真找回暴一 ...
敢问你买卖的是价值多少的号，如果都是上千的当我没说过！
一切为了水经验
新人欢迎积分1 阅读权限60积分4918精华0UID帖子金钱2955 威望0
活该被狗咬
Lv.6, 积分 4918, 距离下一级还需 82 积分
UID帖子威望0 多玩草0 草
鱿鱼si 发表于
敢问你买卖的是价值多少的号，如果都是上千的当我没说过！
买过一个1100的，其他大部分300左右，自己卖的都是200左右的居多，最贵的也就600
呵呵，我是懒得找某脑残的过往语录验证对方的脑残，我的时间没那么不值钱，眼不见为净
新人欢迎积分1 阅读权限99积分44032精华0UID帖子金钱53629 威望13
　　　一坨数据
Lv.10, 积分 44032, 距离下一级还需 10968 积分
UID帖子威望13 多玩草190 草
估计找不回& &
马年新春勋章
手机APP马年迎春，马上有钱！
龙之谷活跃勋章
在龙之谷版面活跃而奖励的勋章
365天！天天有你
连续签到1年即可获得
手机论坛勋章
APP发帖双倍积分，登陆即送勋章！
爱情守望者
爱情守望者
节日守望者
节日守望者
元宝专属一阶勋章。已绝版
甜蜜情侣勋章
甜蜜情侣勋章
5153活动勋章
我去5153探探路
初级在线标兵
论坛在线时间达1000小时即可申请
初级人缘勋章
初级人缘勋章
秋天纪念勋章
话题王小红花
话题王小红花
解答员勋章
解答员勋章
需要金钱：1100
Powered by
手机盒子客户端点击或扫描下载hubuxcg 的BLOG
用户名：hubuxcg
文章数：69
评论数：465
访问量：381400
注册日期：
阅读量：24883
阅读量：232405
阅读量：978518
阅读量：139414
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
请输入验证码：邮箱破解工具-白狐mail大盗官网免费下载,邮箱破解工具-白狐mail大盗官方最新版下载-126下载
我的下载文件　　　　　　　　　　
好评：50.00%(0)
差评：50.00%(0)
分享给好友:复制地址
用户其它文件
最新上传文件
相关热门排行
文件描述介绍
=================================重要提醒：【邮箱破解工具-白狐mail大盗】已经更新至最新稳定版功能更稳定强大！永久免费！老版本已失效，请下载此最新版↓最新稳定版本地高速下载：
电信用户高速下载： 　
其他网络高速下载： 　
=================================
文件下载地址
电信高速下载
联通高速下载}