zsx's Old Blog

黑历史逐步隐藏中_(:з」∠)_仅保留部分可能有些价值的文章,并不保证将来的可访问性。

【讽刺】vbs编写查毒率100%的查毒软件

代码在此,看注释就知道了

写这程序的起因是因为看到某人写个调用vt的api,说实现云安全,还说查毒率100%

好,我写个不联网就可以查毒的程序,且查毒率100%。

'本程序没有对文件路径含有空格的文件进行处理,请自己处理
'本程序只有讽刺意义,不可用于使用
Dim Wshell,objArgs
Set Wshell=CreateObject("Wscript.Shell")
Set objArgs = WScript.Arguments 
  
Dim Command,tmp
  
'读取命令行参数
  
For I = 0 to objArgs.Count - 1 
  Command = Command & objArgs(I) 
Next
  
'切换到命令行模式
  
if lcase(right(Wscript.fullName,11)) = "wscript.exe" then 
    Wshell.run "cmd /c cscript.exe //nologo " & chr(34) & wscript.scriptfullname  & chr(34) & " " & Command & " & echo. & echo 请按任意键退出 & pause>nul"
    Wscript.Quit
end If  
  
Set Wshell=Nothing
Set objArgs=Nothing
  
  
'加载FSO组件
Dim Path,Path2
Dim FSO1
Set FSO1=CreateObject("Scripting.FileSystemObject")
'做UI
WScript.Echo "****************************************************"
WScript.Echo 
WScript.Echo "             保证100%查到病毒的查毒软件"
WScript.Echo 
WScript.Echo "****************************************************"
'判断文件是否存在,如果存在开始"扫描",不存在则输入文件名
If Command<>"" Then
If FSO1.FileExists(Command)=True then
Path=FSO1.GetFile(Command).Path
Else
Call Cannot
End If
Else
Call Cannot
  
End If
WScript.Echo Path & "文件存在。"
Dim fso2
Set fso2=FSO1.GetFile(Path) '获取文件信息
WScript.Echo "****************************************************"
WScript.Echo "                       文件信息"
WScript.Echo "****************************************************"
wscript.echo("创建时间:" & fso2.DateCreated)
  
wscript.echo("最后访问时间:"&fso2.DateLastAccessed)
  
wscript.echo("最后修改时间:"&fso2.DateLastModified)
  
wscript.echo("文件所在的驱动器名:"&fso2.Drive)
  
wscript.echo("文件名:"&fso2.Name)
  
wscript.echo("文件所在的目录:"&fso2.ParentFolder)
  
wscript.echo("文件的路径:"&fso2.Path)
  
wscript.echo("短文件名:"&fso2.ShortName)
  
wscript.echo("短路径:"&fso2.ShortPath)
  
wscript.echo("文件大小:"&fso2.Size)
  
wscript.echo("文件类型:"&fso2.Type)
  
WScript.Echo "****************************************************" '玩人的扫毒开始
WScript.Echo "                      扫毒开始"
WScript.Echo "****************************************************"
Set fso2=Nothing
Set FSO1=nothing
Call SaoMiaoJD             '构造扫描进度条
WScript.Echo "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
WScript.Echo "                      发现病毒"
WScript.Echo "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
Call ShowVir   '显示病毒名
  
  
Sub Cannot()        '获取文件路径
Do
Dim put
Set put=WScript.StdIn          
WScript.Echo "请输入待扫描文件的绝对路径或相对路径,按下回车。"
tmp=put.ReadLine '读取
If FSO1.FileExists(tmp)=True Then  '判断文件是否存在
Path=FSO1.GetFile(tmp).Path  '获取完整路径
Set put=Nothing
Exit Do 
Else
Set put=Nothing
End If
Loop
End Sub
  
Sub ShowVir()  '显示病毒名
'80~89是0-9的ascii,97-122是a-z的ascii,65-90是A-Z的ascii
WScript.Echo "发现病毒!" & vbCrLf & Chr(RND2(90,65)) & Chr(RND2(122,97)) & Chr(RND2(122,97)) & Chr(RND2(122,97)) & Chr(RND2(122,97)) & Chr(RND2(122,97)) & Chr(RND2(57,48)) & "." & _
 Chr(RND2(89,80)) & Chr(RND2(122,97)) & Chr(RND2(122,97)) & Chr(RND2(122,97))  & Chr(RND2(122,97)) & "." &  Chr(RND2(90,65)) & Chr(RND2(122,97)) & Chr(RND2(122,97)) & Chr(RND2(122,97)) & Bianzhong
WScript.Echo "请下载正版杀毒软件进行查杀!"
End Sub
  
Function Bianzhong()  '随机数判断是否是变种
Dim tmab
tmab=Rnd2(2,1)
If tmab=2 Then  Bianzhong="变种"  & Chr(RND2(122,97)) 
End Function
  
  
Function SaoMiaoJD()  '扫描进度
Dim sb,tma 
sb=0  '初始化计数器
Do
tma=RND2(10,1)  '随机数
sb=sb+tma  '计数
If sb<=100 Then
WScript.Echo "扫描中......进度" & sb & "%"
WScript.Sleep(500) '等待0.5秒继续运行
Else
Exit Function
End if
Loop
  
End Function
  
  
  
Function  RND2(upperbound,lowerbound) '随机数 
Randomize '初始化随机数计数器
RND2=Int((upperbound - lowerbound + 1) * Rnd + lowerbound) '随机
End Function



控制面板
您好,欢迎到访网站!
  查看权限
Google Adsense
文章归档
站点信息
  • 文章总数:259
  • 页面总数:10
  • 分类总数:17
  • 标签总数:136
  • 评论总数:1644
  • 浏览总数:216659

Powered By Z-BlogPHP 1.5.1 Zero

闽ICP备15006942号   闽公网安备 35010302000147号