Johny SmartVir 2.0 [Synra Virus Lab™ Production]

'Author      : Haze Lee Kaizera
'Virus       : Johny SmartVir 2.0 [Stupid Bandit Edition]
'Licensi     : Freeware
'Source code : Dari visual basic Script , source code boleh disebarluaskan/diedit atau disempurnakan. :)

Virus VBS ini kaiz ciptakan , pertama tujuanya untuk menjebol fitur warnet yang kebanyakan
Menu ini dan menu itunya didisable oleh administrator.
Jadi semua fitur yang didisable oleh admin bisa kita enable

Dengan kata lain kita menjebol keamanan yang telah dibuat admin warnet.
kaiz benci pembatas dan batasan haha :D

Kedua virus ini bisa melakukan fixing terhadap beberapa fitur yang
sebelumnya telah didisable oleh virus seperti

Regedit,taskmanager,cmd dan lainya. jadi kemampuan si johny bukan hanya ahli dalam menjebol tetapi juga membetulkan fungsi beberapa aplikasi yang telah didisable oleh virus. Hanya dengan meng Enablekan setiap fitur yang didisable oleh virus.

Ketiga , tentunya si johny juga gak tolol-tolol amat. selain pandai menjebol dan membetulkan sistem yang diserang virus
'Johny smartVir juga mempunya kemampuan untuk mendisable beberapa fitur. layaknya seorang administrator warnet.
'Dengan begitu beberapa fitur penting dan riskan bisa dilindungi oleh si johny.
'Fungsi ini kaiz ciptakan karena..
'" kaiz benci pembatas dan batasan tetapi juga senang membatasi dan menjadi pembatas "
'hahahahah its my style XD


Download Programnya disini :
Click disini

-----------------------------------------------------------------------------------
Source Code :
-----------------------------------------------------------------------------------

Option Explicit

Init()
Main()

Sub Init()
    Dim FSO, Init1, Init2
    Init1 = 0
    Init2 = 0
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If (IsFile(Expand("%WINDIR%\system32\wscript.exe.manifest")) = False) Then
        FSO.CopyFile Expand("%WINDIR%\WindowsShell.Manifest"), Expand("%WINDIR%\system32\wscript.exe.manifest")
        Init1 = 1
    End If
    If (IsFile(Expand("%WINDIR%\system32\cscript.exe.manifest")) = False) Then
        FSO.CopyFile Expand("%WINDIR%\windowsShell.Manifest"), Expand("%WINDIR%\system32\cscript.exe.manifest")
        Init2 = 1
    End If
    If ((Init1 = 1) Or (Init2 = 1)) Then
        MsgBox  "Jalankan Lagi program ini" & vbCrLf & _
            "Karena si Johny sedang Menyelesaikan pengaturan program!", vbInformation, "Konfigurasi Program"
        WScript.Quit
    End If
End Sub

Function Expand(Path)
    Dim WS
    Set WS = CreateObject("WScript.Shell")
    Expand = WS.ExpandEnvironmentStrings(Path)
End Function

Function IsFile(File)
    Dim FSO
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If (FSO.FileExists(File) = True) Then
        IsFile = True
    Else
        IsFile = False
    End If
End Function

Sub Main()
    Dim Prompt_1
    Prompt_1 = InputBox("Johny Say : saya siap menjadi babu Tuan. sekarang apa tugas saya ?" & vbCrLf & vbCrLf & _
        "0 = Tapi Ketahui dahulu kemampuan saya" & vbCrLf & _
                "" & vbCrLf & _
                "1 = Menu Penjebolan dan Perbaiki sistem." & vbCrLf & _
                "" & vbCrLf & _
        "2 = Menu pembatasan dan menu jahil." & vbCrLf & _
        "" & vbCrLf & _
                "3 = Restart Explorer [Recomended]" & vbCrLf & _
        "" & vbCrLf & _
                "4 = Tentang kaiz pencipta , Johny SmartVir 2.0 " & vbCrLf & _
        "" & vbCrLf & _
                "X = Keluar ", "Johny SmartVir 2.0 [Synra Virus Lab] ")
    Select Case LCase(Prompt_1)
                Case "0":
            About_Me
            Main()
        Case "1":
            Menu_Enable
        Case "2":
            Menu_Disable
        Case "3":
            If (MsgBox("Anda Yakin untuk merestart explorer?" & vbCrLf & _
                "Yang artinya tidak perlu merestart komputer.", _
                vbYesNo + vbExclamation + vbDefaultButton2, "Restart Explorer") = vbYes) Then
                Restart_Explorer
            Else
                Main()
            End If
        Case "4":
            About_Kaiz
            Main()
        Case "x":
            WScript.Quit
        Case "":
            If (MsgBox("Tuan , mau meninggalkan saya disini?", vbYesNo + vbExclamation, "Johny Stupid Bandit Say :") = vbYes) Then
                WScript.Quit
            Else
                Main()
            End If
        Case Else:
            MsgBox "Harap pilih menu yang tersedia!", vbExclamation, "MENU"
            Main()
    End Select
End Sub

Sub About_Me()
    Dim WS, FSO, GFi, Path, x, Ch
    Set WS = CreateObject("WScript.Shell")
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set GFi = FSO.GetFile(WScript.ScriptFullName)
    Path = FSO.GetParentFolderName(GFi.Path)
    Dim Text(13)
    Text(0) = "Johny SmartVir 2.0 - Stupid Bandit Edition- [Synra Virus Lab]"
    Text(1) = "Created By Haze Lee Kaizera"
    Text(2) = "Company And Producted in : The Syndicate Eternity Coms. Synra Virus Lab"
    Text(3) = "Contact the Author : www.facebook.com/haze.kaizer"
    Text(4) = "Visit us @ http://amik-garut.blogspot.com"
    Text(5) = "Perkenalkan nama saya oga johny. dan Johny The Stupid Bandit adalah julukan saya "
        Text(6) = "Saya juga mempunyai nama keren , namanya Johny SmartVir 2.0 Dan saya lebih pintar"
        Text(7) = "Dari virus johny bikinan si kaiz sebelumnya ;D"
    Text(8) = "Saya bisa membuka dan menjebol setiap fitur warnet atau user setiap komputer yang didisable"
        Text(9) = "Oleh administrator , selain itu saya juga bisa membetulkan fitur yang telah dirusak/didisable"
        Text(10) = "oleh virus. Tentunya saya juga gak tolol-tolol amat. saya juga bisa digunakan untuk merusak"
        Text(11) = "dengan cara mengunci dan mengenable beberapa fitur penting dalam komputer ;D AKAKAKAKAKKAKAKAK"      
        Text(12) = Path & "\Tentang Gue Johny The Stupid Bandit.txt"
    WS.Run "notepad.exe"
    WScript.Sleep 2000
    For x = 1 To Len(Text(0))
        Ch = Chr(Asc(Mid(Text(0), x, 1)))
        WS.SendKeys Ch
        WScript.Sleep 50
    Next
    WS.SendKeys "{ENTER}{TAB}"
    WScript.Sleep 1000
    For x = 1 To Len(Text(1))
        Ch = Chr(Asc(Mid(Text(1), x, 1)))
        WS.SendKeys Ch
        WScript.Sleep 50
    Next
    WS.SendKeys "{ENTER}{ENTER}"
    WScript.Sleep 1000
    For x = 1 To Len(Text(2))
        Ch = Chr(Asc(Mid(Text(2), x, 1)))
        WS.SendKeys Ch
        WScript.Sleep 50
    Next
    WS.SendKeys "{ENTER}{ENTER}"
    For x = 1 To Len(Text(3))
        Ch = Chr(Asc(Mid(Text(3), x, 1)))
        WS.SendKeys Ch
        WScript.Sleep 50
    Next
    WS.SendKeys "{ENTER}{ENTER}"
    For x = 1 To Len(Text(4))
        Ch = Chr(Asc(Mid(Text(4), x, 1)))
        WS.SendKeys Ch
        WScript.Sleep 50
    Next
    WS.SendKeys "{ENTER}{ENTER}"
    For x = 1 To Len(Text(5))
        Ch = Chr(Asc(Mid(Text(5), x, 1)))
        WS.SendKeys Ch
        WScript.Sleep 50
    Next
    WS.SendKeys "{ENTER}{ENTER}"
    For x = 1 To Len(Text(6))
        Ch = Chr(Asc(Mid(Text(6), x, 1)))
        WS.SendKeys Ch
        WScript.Sleep 50
    Next
    WS.SendKeys "{ENTER}{ENTER}"
    For x = 1 To Len(Text(7))
        Ch = Chr(Asc(Mid(Text(7), x, 1)))
        WS.SendKeys Ch
        WScript.Sleep 50
    Next
    WS.SendKeys "{ENTER}{ENTER}"
    For x = 1 To Len(Text(8))
        Ch = Chr(Asc(Mid(Text(8), x, 1)))
        WS.SendKeys Ch
        WScript.Sleep 50
    Next
    WS.SendKeys "{ENTER}{ENTER}"
    For x = 1 To Len(Text(9))
        Ch = Chr(Asc(Mid(Text(9), x, 1)))
        WS.SendKeys Ch
        WScript.Sleep 50
    Next
    WS.SendKeys "{ENTER}{ENTER}"
    For x = 1 To Len(Text(10))
        Ch = Chr(Asc(Mid(Text(10), x, 1)))
        WS.SendKeys Ch
        WScript.Sleep 50
    Next
    WS.SendKeys "{ENTER}{ENTER}"
    For x = 1 To Len(Text(11))
        Ch = Chr(Asc(Mid(Text(11), x, 1)))
        WS.SendKeys Ch
        WScript.Sleep 50
    Next
    WScript.Sleep 1000
    WS.SendKeys "%fa"
    WScript.Sleep 1000
    For x = 1 To Len(Text(12))
        Ch = Chr(Asc(Mid(Text(12), x, 1)))
        WS.SendKeys Ch
        WScript.Sleep 50
    Next
    If (FSO.FileExists(Text(12)) = False) Then
        WS.SendKeys "{ENTER}"
    Else
        WS.SendKeys "{ENTER}"
        WS.SendKeys "y"
    End If
End Sub

Sub About_Kaiz()
    Dim WS, FSO, GFi, Path, x, Ch
    Set WS = CreateObject("WScript.Shell")
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set GFi = FSO.GetFile(WScript.ScriptFullName)
    Path = FSO.GetParentFolderName(GFi.Path)
    Dim Text(7)
    Text(0) = "Smart Virus ini didedikasikan untuk sahabat saya oga johny :D [Johny Mean DICK akakakakkaakak]"
    Text(1) = "Untuk melihat facebooknya si Johny silahkan kunjungi www.facebook.com/ezra.theblack.rose"
    Text(2) = "Atau mau mengenal kelakuan dan sifat si johny yang TUSBOL a.k.a Tusuk BO-Ol , kunjungi :"
    Text(3) = "www.synra.blogspot.com"
    Text(4) = "Atau langsung diakun social network saya di , www.facebook.com/haze.kaizer"
    Text(5) = "well,nantikan program johny selanjutnya dari kaiz. see yeaa!! see u next time ;D ;p"
    Text(6) = Path & "\tentang kaiz.txt"
    WS.Run "notepad.exe"
    WScript.Sleep 2000
    For x = 1 To Len(Text(0))
        Ch = Chr(Asc(Mid(Text(0), x, 1)))
        WS.SendKeys Ch
        WScript.Sleep 50
    Next
    WS.SendKeys "{ENTER}{TAB}"
    WScript.Sleep 1000
    For x = 1 To Len(Text(1))
        Ch = Chr(Asc(Mid(Text(1), x, 1)))
        WS.SendKeys Ch
        WScript.Sleep 50
    Next
    WS.SendKeys "{ENTER}{ENTER}"
    WScript.Sleep 1000
    For x = 1 To Len(Text(2))
        Ch = Chr(Asc(Mid(Text(2), x, 1)))
        WS.SendKeys Ch
        WScript.Sleep 50
    Next
    WS.SendKeys "{ENTER}{ENTER}"
    For x = 1 To Len(Text(3))
        Ch = Chr(Asc(Mid(Text(3), x, 1)))
        WS.SendKeys Ch
        WScript.Sleep 50
    Next
    WS.SendKeys "{ENTER}{ENTER}"
    For x = 1 To Len(Text(4))
        Ch = Chr(Asc(Mid(Text(4), x, 1)))
        WS.SendKeys Ch
        WScript.Sleep 50
    Next
    WS.SendKeys "{ENTER}{ENTER}"
    For x = 1 To Len(Text(5))
        Ch = Chr(Asc(Mid(Text(5), x, 1)))
        WS.SendKeys Ch
        WScript.Sleep 50
    Next
    WScript.Sleep 1000
    WS.SendKeys "%fa"
    WScript.Sleep 1000
    For x = 1 To Len(Text(6))
        Ch = Chr(Asc(Mid(Text(6), x, 1)))
        WS.SendKeys Ch
        WScript.Sleep 50
    Next
    If (FSO.FileExists(Text(6)) = False) Then
        WS.SendKeys "{ENTER}"
    Else
        WS.SendKeys "{ENTER}"
        WS.SendKeys "y"
    End If
End Sub

Sub Menu_Disable()
    Dim PromptDisable, WS, HKCU
    Set WS = CreateObject("WScript.Shell")
    HKCU = "HKCU\Software\Microsoft\Windows\Currentversion"
    PromptDisable = InputBox("Mana saja yang harus saya disable? " & vbCrLf & vbCrLf & _
        "0 = Disable Command Prompt" & vbCrLf & _
        "1 = Disable Control Panel" & vbCrLf & _
        "2 = Disable Folder Options" & vbCrLf & _
        "3 = Disable Registry Editor" & vbCrLf & _
        "4 = Disable Run" & vbCrLf & _
        "5 = Disable Search" & vbCrLf & _
        "6 = Disable Show Drives (C: D: ... Z:)" & vbCrLf & _
        "7 = Disable Taskbar Properties" & vbCrLf & _
        "8 = Disable Task Manager" & vbCrLf & _
        "9 = Disable Tray Context (Klik Kanan Taskbar)" & vbCrLf & _
        "A = Disable View Context (Klik Kanan)" & vbCrLf & _
        "R = Return to menu", "Advanced WarNet Security Breaker ("" DISABLE "")")
    Select Case LCase(PromptDisable)
        Case "0":
            If (MsgBox("Yakin ingin mendisable Command Prompt?", vbYesNo + vbExclamation, _
            "Disable Command Prompt") = vbYes) Then
                WS.RegWrite "HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD", "1", "REG_DWORD"
                MsgBox "Command Prompt telah dinonaktifkan.", vbInformation, "Command Prompt Disabled"
            End If
        Case "1":
            If (MsgBox("Yakin ingin mendisable Control Panel?", vbYesNo + vbExclamation, _
            "Disable Control Panel") = vbYes) Then
                WS.RegWrite HKCU & "\Policies\Explorer\NoControlPanel", "1", "REG_DWORD"
                MsgBox "Control Panel telah dinonaktifkan.", vbInformation, "Control Panel Disabled"
            End If
        Case "2":
            If (MsgBox("Yakin ingin mendisable Folder Options?", vbYesNo + vbExclamation, _
            "Disable Folder Options") = vbYes) Then
                WS.RegWrite HKCU & "\Policies\Explorer\NoFolderOptions", "1", "REG_DWORD"
                MsgBox "Folder Options telah dinonaktifkan.", vbInformation, "Folder Options Disabled"
            End If
        Case "3":
            If (MsgBox("Yakin ingin mendisable Registry Editor?", vbYesNo + vbExclamation, _
            "Disable Registry Editor") = vbYes) Then
                WS.RegWrite HKCU & "\Policies\System\DisableRegistryTools", "1", "REG_DWORD"
                MsgBox "Registry Editor telah dinonaktifkan.", vbInformation, "Registry Editor Disabled"
            End If
        Case "4":
            If (MsgBox("Yakin ingin mendisable Run?", vbYesNo + vbExclamation, _
            "Disable Run") = vbYes) Then
                WS.RegWrite HKCU & "\Policies\Explorer\NoRun", "1", "REG_DWORD"
                MsgBox "Run telah dinonaktifkan.", vbInformation, "Run Disabled"
            End If
        Case "5":
            If (MsgBox("Yakin ingin mendisable Search?", vbYesNo + vbExclamation, _
            "Disable Search") = vbYes) Then
                WS.RegWrite HKCU & "\Policies\Explorer\NoFind", "1", "REG_DWORD"
                MsgBox "Search telah dinonaktifkan.", vbInformation, "Search Disabled"
            End If
        Case "6":
            If (MsgBox("Yakin ingin menyembunyikan semua drive?", vbYesNo + vbExclamation, _
            "Disable Show Drives") = vbYes) Then
                WS.RegWrite HKCU & "\Policies\Explorer\NoDrives", "67108863 ", "REG_DWORD"
                MsgBox "Drive telah di sembunyikan.", vbInformation, "Show Drive Disabled"
            End If
        Case "7":
            If (MsgBox("Yakin ingin mendisable Taskbar?", vbYesNo + vbExclamation, _
            "Disable Taskbar") = vbYes) Then
                WS.RegWrite HKCU & "\Policies\Explorer\NoSetTaskbar", "1", "REG_DWORD"
                MsgBox "Taskbar telah dinonaktifkan.", vbInformation, "Taskbar Disabled"
            End If
        Case "8":
            If (MsgBox("Yakin ingin mendisable Task Manager?", vbYesNo + vbExclamation, _
            "Disable Task Manager") = vbYes) Then
                WS.RegWrite HKCU & "\Policies\System\DisableTaskMgr", "1", "REG_DWORD"
                MsgBox "Task Manager telah dinonaktifkan.", vbInformation, "Task Manager Disabled"
            End If
        Case "9":
            If (MsgBox("Yakin ingin mendisable Tray Context?", vbYesNo + vbExclamation, _
            "Disable Tray Context") = vbYes) Then
                WS.RegWrite HKCU & "\Policies\Explorer\NoTrayContextMenu", "1", "REG_DWORD"
                MsgBox "Tray Context telah dinonaktifkan.", vbInformation, "Tray Context Disabled"
            End If
        case "a":
            If (MsgBox("Yakin ingin menonaktifkan View Context?", vbYesNo + vbExclamation, _
            "Disable View Context") = vbYes) Then
                WS.RegWrite HKCU & "\Policies\Explorer\NoViewContextMenu", "1", "REG_DWORD"
                MsgBox "View Context telah dinonaktifkan.", vbInformation, "View Context Disabled"
            End If
        Case "r":
            Main()
        Case "":
            If (MsgBox("Keluar program?", vbYesNo + vbExclamation, "Konfirmasi") = vbYes) Then
                WScript.Quit
            Else
                Menu_Disable()
            End If
        Case Else
            MsgBox "Virus ini masih bodoh! pilih menu yang tersedia!", vbExclamation, "Menu Disable"
            Menu_Disable()
    End Select
    Menu_Disable()
End Sub

Sub Menu_Enable()
    Dim PromptEnable, WS, HKCU
    Set WS = CreateObject("WScript.Shell")
    HKCU = "HKCU\Software\Microsoft\Windows\Currentversion"
    PromptEnable = InputBox("Mana yang akan saya jebol dan perbaiki?" & vbCrLf & vbCrLf & _
        "0 = Enable Command Prompt" & vbCrLf & _
        "1 = Enable Control Panel" & vbCrLf & _
        "2 = Enable Folder Options" & vbCrLf & _
        "3 = Enable Registry Editor" & vbCrLf & _
        "4 = Enable Run" & vbCrLf & _
        "5 = Enable Search" & vbCrLf & _
        "6 = Enable Show Drives (A: B: C: ... Z:)" & vbCrLf & _
        "7 = Enable Taskbar Properties" & vbCrLf & _
        "8 = Enable Task Manager" & vbCrLf & _
        "9 = Enable Tray Context (Klik Kanan Taskbar)" & vbCrLf & _
        "A = Enable View Context (Klik Kanan)" & vbCrLf & _
        "R = Return to menu", "Advanced WarNet Security Breaker ("" ENABLE "")")
    Select Case LCase(PromptEnable)
        Case "0":
            WS.RegWrite "HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD", "0", "REG_DWORD"
            MsgBox "Command Prompt telah diaktifkan.", vbInformation, "Command Prompt Enabled"
        Case "1":
            WS.RegWrite HKCU & "\Policies\Explorer\NoControlPanel", "0", "REG_DWORD"
            MsgBox "Control Panel telah diaktifkan.", vbInformation, "Control Panel Enabled"
        Case "2":
            WS.RegWrite HKCU & "\Policies\Explorer\NoFolderOptions", "0", "REG_DWORD"
            MsgBox "Folder Options telah diaktifkan.", vbInformation, "Folder Options Enabled"
        Case "3":
            WS.RegWrite HKCU & "\Policies\System\DisableRegistryTools", "0", "REG_DWORD"
            MsgBox "Registry Editor telah diaktifkan.", vbInformation, "Registry Editor Enabled"
        Case "4":
            WS.RegWrite HKCU & "\Policies\Explorer\NoRun", "0", "REG_DWORD"
            MsgBox "Run telah diaktifkan.", vbInformation, "Run Enabled"
        Case "5":
            WS.RegWrite HKCU & "\Policies\Explorer\NoFind", "0", "REG_DWORD"
            MsgBox "Search telah diaktifkan.", vbInformation, "Search Enabled"
        Case "6":
            WS.RegWrite HKCU & "\Policies\Explorer\NoDrives", "0", "REG_DWORD"
            MsgBox "Show Drives telah diaktifkan.", vbInformation, "Show Drives"
        Case "7":
            WS.RegWrite HKCU & "\Policies\Explorer\NoSetTaskbar", "0", "REG_DWORD"
            MsgBox "Taskbar telah diaktifkan.", vbInformation, "Taskbar Enabled"
        Case "8":
            WS.RegWrite HKCU & "\Policies\System\DisableTaskMgr", "0", "REG_DWORD"
            MsgBox "Task Manager telah diaktifkan.", vbInformation, "Task Manager Enabled"
        Case "9":
            WS.RegWrite HKCU & "\Policies\Explorer\NoTrayContextMenu", "0", "REG_DWORD"
            MsgBox "Tray Context telah diaktifkan.", vbInformation, "Tray Context Enabled"
        Case "a":
            WS.RegWrite HKCU & "\Policies\Explorer\NoViewContextMenu", "0", "REG_DWORD"
            MsgBox "View Context telah diaktifkan.", vbInformation, "View Context Enabled"
        Case "r":
            Main()
        Case "":
            If (MsgBox("Keluar?", vbYesNo + vbExclamation, "Konfirmasi") = vbYes) Then
                WScript.Quit
            End If
        Case Else
            MsgBox "Virus ini masih bodoh! pilih menu yang tersedia!", vbExclamation, "Menu Enable"
            Menu_Enable()
    End Select
    Menu_Enable()
End Sub

Sub Restart_Explorer()
    Dim FSO, GFi, WS, VBSPath, Win, Process
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set GFi = FSO.GetFile(WScript.ScriptFullName)
    VBSPath = FSO.GetParentFolderName(GFi.Path)
    Set WS = CreateObject("WScript.Shell")
    Set Win = GetObject("WinMgmts:")
    For Each Process In Win.InstancesOf("Win32_Process")
        If (LCase(Process.Name) = "explorer.exe") Then
            WS.Run "taskkill.exe /f /pid " & Process.ProcessID, 0
            WScript.Sleep 2000
            WS.Run "explorer.exe " & VBSPath
            Exit For
        End If
    Next
End Sub


Learn The Technique At :
=========================
www.amik-garut.blogspot.com
www.Synra.blogspot.com

Visit My Home :
=========================
www.hazekaizerhome.blogspot.com


Virus ini hanya digunakan Untuk edukasi Semata. Saya berharap virus ini tidak disalah gunakan
Segala kerusakan dan kerugian yang menimpa. Silahkan ditanggung sendiri.

Regard
Haze Lee Kaizera The Scriptor