Admin
Admin
عدد المساهمات : 128
نقاط : 385
تاريخ التسجيل : 05/03/2014
العمر : 30
الموقع : العراق
 | موضوع: اقتل جميع سيرفات برامج الاختراق والديدان باقل من 3 ثوانى :  الخميس مارس 13, 2014 7:34 am | |
|
السلام عليكم ورحمه الله وبركاته
اعضاء الديف بوينت الحبيب تحيه طيبه
بقدم ليكم كود برمجتى الخاصه فقط للتخلص من سيرفرات النجرات وغيرها
بدون التسبب ف شاشة الموت او خلافه
الكود اقصي فتره عمل ليه 3 ثوانى
وان شاء الله جهازك يكون انضف من القطن
كود Visual Basic ?1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57 | - الكود:
-
' Coded By ProMax - الكود:
-
- الكود:
-
Dim
- الكود:
-
SU, AD, TM, UF - الكود:
-
As
- الكود:
-
String - الكود:
-
- الكود:
-
SU = Environment.GetFolderPath(Environment.SpecialFolder.Startup) - الكود:
-
- الكود:
-
TM = My.Computer.FileSystem.SpecialDirectories.Temp - الكود:
-
- الكود:
-
AD = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) - الكود:
-
- الكود:
-
UF
= Mid(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments),
1,
Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments).Length -
10) - الكود:
-
- الكود:
-
For
- الكود:
-
Each
- الكود:
-
x - الكود:
-
As
- الكود:
-
Process - الكود:
-
In
- الكود:
-
Process.GetProcesses - الكود:
-
- الكود:
-
Try - الكود:
-
- الكود:
-
If
- الكود:
-
IO.Path.GetDirectoryName(x.MainModule.FileName.ToString).ToLower = TM.ToLower - الكود:
-
Then - الكود:
-
- الكود:
-
Try
- الكود:
-
: x.Kill() : - الكود:
-
Catch
- الكود:
-
: - الكود:
-
End
- الكود:
-
Try - الكود:
-
- الكود:
-
ElseIf
- الكود:
-
IO.Path.GetFileName(x.MainModule.FileName.ToString).ToLower = AD.ToLower - الكود:
-
Then - الكود:
-
- الكود:
-
Try
- الكود:
-
: x.Kill() : - الكود:
-
Catch
- الكود:
-
: - الكود:
-
End
- الكود:
-
Try - الكود:
-
- الكود:
-
ElseIf
- الكود:
-
IO.Path.GetFileName(x.MainModule.FileName.ToString).ToLower = UF.ToLower - الكود:
-
Then - الكود:
-
- الكود:
-
Try
- الكود:
-
: x.Kill() : - الكود:
-
Catch
- الكود:
-
: - الكود:
-
End
- الكود:
-
Try - الكود:
-
- الكود:
-
ElseIf
- الكود:
-
IO.Path.GetFileName(x.MainModule.FileName.ToString).ToLower = SU.ToLower - الكود:
-
Then - الكود:
-
- الكود:
-
Try
- الكود:
-
: x.Kill() : - الكود:
-
Catch
- الكود:
-
: - الكود:
-
End
- الكود:
-
Try - الكود:
-
- الكود:
-
End
- الكود:
-
If - الكود:
-
- الكود:
-
Catch
- الكود:
-
: - الكود:
-
End
- الكود:
-
Try - الكود:
-
- الكود:
-
Next - الكود:
-
- الكود:
-
For
- الكود:
-
Each
- الكود:
-
X - الكود:
-
In
- الكود:
-
IO.Directory.GetFiles(TM) - الكود:
-
- الكود:
-
If
- الكود:
-
IO.Path.GetExtension(X).ToLower = - الكود:
-
".vbs"
- الكود:
-
Then - الكود:
-
- الكود:
-
Try
- الكود:
-
: System.IO.File.Delete(X) : - الكود:
-
Catch
- الكود:
-
: - الكود:
-
End
- الكود:
-
Try - الكود:
-
- الكود:
-
End
- الكود:
-
If - الكود:
-
- الكود:
-
If
- الكود:
-
IO.Path.GetExtension(X).ToLower = - الكود:
-
".exe"
- الكود:
-
Then - الكود:
-
- الكود:
-
Try
- الكود:
-
: System.IO.File.Delete(X) : - الكود:
-
Catch
- الكود:
-
: - الكود:
-
End
- الكود:
-
Try - الكود:
-
- الكود:
-
End
- الكود:
-
If - الكود:
-
- الكود:
-
Next - الكود:
-
- الكود:
-
For
- الكود:
-
Each
- الكود:
-
X - الكود:
-
In
- الكود:
-
IO.Directory.GetFiles(AD) - الكود:
-
- الكود:
-
If
- الكود:
-
IO.Path.GetExtension(X).ToLower = - الكود:
-
".vbs"
- الكود:
-
Then - الكود:
-
- الكود:
-
Try
- الكود:
-
: System.IO.File.Delete(X) : - الكود:
-
Catch
- الكود:
-
: - الكود:
-
End
- الكود:
-
Try - الكود:
-
- الكود:
-
End
- الكود:
-
If - الكود:
-
- الكود:
-
If
- الكود:
-
IO.Path.GetExtension(X).ToLower = - الكود:
-
".exe"
- الكود:
-
Then - الكود:
-
- الكود:
-
Try
- الكود:
-
: System.IO.File.Delete(X) : - الكود:
-
Catch
- الكود:
-
: - الكود:
-
End
- الكود:
-
Try - الكود:
-
- الكود:
-
End
- الكود:
-
If - الكود:
-
- الكود:
-
Next - الكود:
-
- الكود:
-
For
- الكود:
-
Each
- الكود:
-
X - الكود:
-
In
- الكود:
-
IO.Directory.GetFiles(UF) - الكود:
-
- الكود:
-
If
- الكود:
-
IO.Path.GetExtension(X).ToLower = - الكود:
-
".vbs"
- الكود:
-
Then - الكود:
-
- الكود:
-
Try
- الكود:
-
: System.IO.File.Delete(X) : - الكود:
-
Catch
- الكود:
-
: - الكود:
-
End
- الكود:
-
Try - الكود:
-
- الكود:
-
End
- الكود:
-
If - الكود:
-
- الكود:
-
If
- الكود:
-
IO.Path.GetExtension(X).ToLower = - الكود:
-
".exe"
- الكود:
-
Then - الكود:
-
- الكود:
-
Try
- الكود:
-
: System.IO.File.Delete(X) : - الكود:
-
Catch
- الكود:
-
: - الكود:
-
End
- الكود:
-
Try - الكود:
-
- الكود:
-
End
- الكود:
-
If - الكود:
-
- الكود:
-
Next - الكود:
-
- الكود:
-
For
- الكود:
-
Each
- الكود:
-
X - الكود:
-
In
- الكود:
-
IO.Directory.GetFiles(SU) - الكود:
-
- الكود:
-
If
- الكود:
-
IO.Path.GetExtension(X).ToLower = - الكود:
-
".vbs"
- الكود:
-
Then - الكود:
-
- الكود:
-
Try
- الكود:
-
: System.IO.File.Delete(X) : - الكود:
-
Catch
- الكود:
-
: - الكود:
-
End
- الكود:
-
Try - الكود:
-
- الكود:
-
End
- الكود:
-
If - الكود:
-
- الكود:
-
If
- الكود:
-
IO.Path.GetFileName(X).Length > 20 - الكود:
-
Then - الكود:
-
- الكود:
-
Try
- الكود:
-
: System.IO.File.Delete(X) : - الكود:
-
Catch
- الكود:
-
: - الكود:
-
End
- الكود:
-
Try - الكود:
-
- الكود:
-
End
- الكود:
-
If - الكود:
-
- الكود:
-
Next - الكود:
-
- الكود:
-
Dim
- الكود:
-
regKey - الكود:
-
As
- الكود:
-
RegistryKey = My.Computer.Registry.CurrentUser.OpenSubKey( - الكود:
-
"software\microsoft\windows\currentversion\run" - الكود:
-
, - الكود:
-
True - الكود:
-
) - الكود:
-
- الكود:
-
For
- الكود:
-
Each
- الكود:
-
x - الكود:
-
As
- الكود:
-
String
- الكود:
-
In
- الكود:
-
regKey.GetValueNames - الكود:
-
- الكود:
-
If
- الكود:
-
x.Length > 15 - الكود:
-
Then - الكود:
-
- الكود:
-
regKey.DeleteValue(x) - الكود:
-
- الكود:
-
End
- الكود:
-
If - الكود:
-
- الكود:
-
Next |
بالنسبه للحقوق ما القي لها بال لذلك لم اذكرها
يمكنك وضع الكود ف اي مكان سواء سب او فنكيشن
| |
|
