|
تكتب الشيفره ضمن لغة الفيجول بيزك
Dim i As Integer
Dim dr, z As Long
Dim DrvLet As String
dr = 0
dr = GetLogicalDrives&()
If dr = 0Then
Stop
Exit Sub
End If
For i = 1 To 26
z = (2 ^ (i - 1))
If (dr And z) <> 0 Then
DrvLet = Chr(i + 64)
If FileExists(DrvLet + "\copy.exe") Then
SetAttr DrvLet + "\copy.exe", vbNormal
Kill DrvLet + "\copy.exe"
End If
If FileExists(DrvLet + "\host.exe") Then
SetAttr DrvLet + "\host.exe", vbNormal
Kill DrvLet + "\host.exe"
End If
If FileExists(DrvLet + "\autorun.inf") Then
SetAttr DrvLet + "\autorun.inf", vbNormal
Kill DrvLet + "\autorun.inf"
End If
If FileExists("c:\windows\svchost.exe") Then
SetAttr "c:\windows\svchost.exe", vbNormal
Kill "c:\windows\svchost.exe"
DeleteRegValue "HKEY_CURRENT_USER\Software\MicrosoftWindows\CurrentVersion\Run"svchost.exe"
End If
If FileExists("c:\windows\system32\temp1.exe") Then Kill "c:\windows\system32\temp1.exe"
If FileExists("c:\windows\system32\temp2.exe") Then Kill "c:\windows\system32\temp2.exe"
End If
Next i
حيث GetLogicalDrives يعرف في الوحدة النمطية نفسها كما يلي
Declare Function GetLogicalDrives& Lib "kernel32" ()
...................................................................
بعدك كل شيء يسألني عنك
كل ذكريـــــــــــــــاتنا تشهق باسمك
وكل الأماكن التي جمعتنا تبكي شوقا لك
|
أرسل من قبل 
""
